summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/Dependencies0
-rw-r--r--fortran/src/H5Af.c433
-rw-r--r--fortran/src/H5Aff.f901024
-rw-r--r--fortran/src/H5Df.c391
-rw-r--r--fortran/src/H5Dff.f902441
-rw-r--r--fortran/src/H5Ef.c169
-rw-r--r--fortran/src/H5Eff.f9062
-rw-r--r--fortran/src/H5Ff.c451
-rw-r--r--fortran/src/H5Fff.f90199
-rw-r--r--fortran/src/H5Gf.c536
-rw-r--r--fortran/src/H5Gff.f90234
-rw-r--r--fortran/src/H5Git.c220
-rw-r--r--fortran/src/H5Git.h16
-rw-r--r--fortran/src/H5If.c29
-rw-r--r--fortran/src/H5Iff.f9033
-rw-r--r--fortran/src/H5Pf.c1748
-rw-r--r--fortran/src/H5Pf_parallel.c161
-rw-r--r--fortran/src/H5Pff.f90744
-rw-r--r--fortran/src/H5Pff_parallel.f9059
-rw-r--r--fortran/src/H5Rf.c267
-rw-r--r--fortran/src/H5Rff.f90138
-rw-r--r--fortran/src/H5Sf.c874
-rw-r--r--fortran/src/H5Sff.f90460
-rw-r--r--fortran/src/H5Tf.c1543
-rw-r--r--fortran/src/H5Tff.f90599
-rw-r--r--fortran/src/H5f90.h77
-rw-r--r--fortran/src/H5f90global.f90105
-rw-r--r--fortran/src/H5f90i.h286
-rw-r--r--fortran/src/H5f90kit.c105
-rw-r--r--fortran/src/H5f90misc.c139
-rw-r--r--fortran/src/H5f90miscf.f9022
-rw-r--r--fortran/src/H5f90proto.h872
-rw-r--r--fortran/src/H5fortran_flags.f90141
-rw-r--r--fortran/src/H5fortran_types.f90.in29
-rw-r--r--fortran/src/HDF5.f9014
-rw-r--r--fortran/src/HDF5_parallel.f9015
-rw-r--r--fortran/src/Makefile.in38
-rw-r--r--fortran/src/README240
38 files changed, 14914 insertions, 0 deletions
diff --git a/fortran/src/Dependencies b/fortran/src/Dependencies
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fortran/src/Dependencies
diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c
new file mode 100644
index 0000000..504e937
--- /dev/null
+++ b/fortran/src/H5Af.c
@@ -0,0 +1,433 @@
+#include "H5f90.h"
+
+/*----------------------------------------------------------------------------
+ * Name: h5acreate_c
+ * Purpose: Call H5Acreate to create an attribute
+ * Inputs: obj_id - object identifier
+ * name - name of the attribute
+ * namelen - name length
+ * type_id - datatype identifier
+ * space_id - dataspace identifier
+ * crt_pr - identifier of creation property list
+ * Outputs: attr_id - attribute identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5acreate_c (hid_t_f *obj_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *attr_id)
+{
+ int ret_value = -1;
+ char *c_name;
+ int c_namelen;
+ hid_t c_obj_id;
+ hid_t c_type_id;
+ hid_t c_space_id;
+ hid_t c_attr_id;
+ hid_t c_crt_prp;
+ /*
+ * Define creation property
+ */
+ c_crt_prp = *crt_prp;
+ if ( H5P_DEFAULT_F == c_crt_prp ) c_crt_prp = H5P_DEFAULT;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Acreate function.
+ */
+ c_obj_id = *obj_id;
+ c_type_id = *type_id;
+ c_space_id = *space_id;
+ c_attr_id = H5Acreate(c_obj_id, c_name, c_type_id, c_space_id, c_crt_prp);
+
+
+ if (c_attr_id < 0) return ret_value;
+ *attr_id = (hid_t_f)c_attr_id;
+ HDfree(c_name);
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aopen_name _c
+ * Purpose: Call H5Aopen_name to open an attribute
+ * Inputs: obj_id - object identifier
+ * name - name of the attribute
+ * namelen - name length
+ * Outputs: attr_id - dataset identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aopen_name_c (hid_t_f *obj_id, _fcd name, int_f *namelen, hid_t_f *attr_id)
+{
+ int ret_value = -1;
+ char *c_name;
+ int c_namelen;
+ hid_t c_obj_id;
+ hid_t c_attr_id;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+ /*
+ * Call H5Aopen function.
+ */
+ c_obj_id = *obj_id;
+ c_attr_id = H5Aopen_name(c_obj_id, c_name);
+
+ if (c_attr_id < 0) return ret_value;
+ *attr_id = (hid_t_f)c_attr_id;
+ HDfree(c_name);
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5awritec_c
+ * Purpose: Call h5awrite_c to write a character attribute
+ * Inputs: attr_id - dataset identifier
+ * mem_type_id - memory datatype identifier
+ * buf - character data buffer
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday , August 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf)
+{
+ int ret_value = -1;
+
+ /*
+ * Call h5awrite_c function.
+ */
+ ret_value = nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf));
+
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5awrite_c
+ * Purpose: Call H5Awrite to write a attribute
+ * Inputs: attr_id - attribute identifier
+ * mem_type_id - memory datatype identifier
+ * buf - data buffer
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf)
+{
+ int ret_value = -1;
+ herr_t ret;
+ hid_t c_attr_id;
+ hid_t c_mem_type_id;
+
+ /*
+ * Call H5Awrite function.
+ */
+ c_attr_id = *attr_id;
+ c_mem_type_id = *mem_type_id;
+ ret = H5Awrite(c_attr_id, c_mem_type_id, buf);
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5areadc_c
+ * Purpose: Call h5aread_c to read character attribute
+ * Inputs: dset_id - dataset identifier
+ * mem_type_id - memory datatype identifier
+ * Outputs: buf - character data buffer
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf)
+{
+ int ret_value = -1;
+
+ /*
+ * Call h5aread_c function.
+ */
+ ret_value = nh5aread_c(attr_id, mem_type_id, (_fcdtocp(buf)));
+
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aread_c
+ * Purpose: Call H5Araed to read an attribute
+ * Inputs: dset_id - dataset identifier
+ * mem_type_id - memory datatype identifier
+ * Outputs: buf - data buffer
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aread_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf)
+{
+ int ret_value = -1;
+ herr_t ret;
+ hid_t c_attr_id;
+ hid_t c_mem_type_id;
+
+ /*
+ * Call H5Aread function.
+ */
+ c_attr_id = *attr_id;
+ c_mem_type_id = *mem_type_id;
+ ret = H5Aread(c_attr_id, c_mem_type_id, buf);
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aclose_c
+ * Purpose: Call H5Aclose to close an attribute
+ * Inputs: attr_id - identifier of an attribute to be closed
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5aclose_c ( hid_t_f *attr_id )
+{
+ int ret_value = 0;
+ hid_t c_attr_id;
+ c_attr_id = *attr_id;
+ if ( H5Aclose(c_attr_id) < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5adelete_c
+ * Purpose: Call H5Adelete to delete an attribute
+ * Inputs: obj_id - object identifier
+ * name - name of the attribute
+ * namelen - name length
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5adelete_c (hid_t_f *obj_id, _fcd name, int_f *namelen)
+{
+ int ret_value = -1;
+ herr_t status;
+ hid_t c_obj_id;
+ char *c_name;
+ int c_namelen;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Adelete function.
+ */
+ c_obj_id = *obj_id;
+ status = H5Adelete(c_obj_id, c_name);
+
+ if (status < 0) return ret_value;
+ HDfree(c_name);
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5aopen_idx_c
+ * Purpose: Call H5Aopen_idx to open an attribute
+ * Inputs: obj_id - object identifier
+ * idx - attribute index ( zero based)
+ * Outputs: attr_id - attribute identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aopen_idx_c (hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id)
+{
+ int ret_value = -1;
+ hid_t c_obj_id;
+ hid_t c_attr_id;
+ unsigned c_idx;
+ c_idx = (unsigned)*idx;
+
+ /*
+ * Call H5Aopen_idx function.
+ */
+ c_obj_id = *obj_id;
+ c_attr_id = H5Aopen_idx(c_obj_id, c_idx);
+
+ if (c_attr_id < 0) return ret_value;
+ *attr_id = (hid_t_f)c_attr_id;
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5aget_space_c
+ * Purpose: Call H5Aget_space to get attribute's dataspace
+ * Inputs: attr_id - attribute identifier
+ * Outputs: space_id - dataspace identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aget_space_c (hid_t_f *attr_id, hid_t_f *space_id)
+{
+ int ret_value = -1;
+ hid_t c_attr_id;
+ hid_t c_space_id;
+
+ /*
+ * Call H5Aget_space function.
+ */
+ c_attr_id = *attr_id;
+ c_space_id = H5Aget_space(c_attr_id);
+
+ if (c_space_id < 0) return ret_value;
+ *space_id = (hid_t_f)c_space_id;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aget_type_c
+ * Purpose: Call H5Aget_space to get attribute's datatype
+ * Inputs: attr_id - attribute identifier
+ * Outputs: type_id - datatype identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aget_type_c (hid_t_f *attr_id, hid_t_f *type_id)
+{
+ int ret_value = -1;
+ hid_t c_attr_id;
+ hid_t c_type_id;
+
+ /*
+ * Call H5Aget_type function.
+ */
+ c_attr_id = *attr_id;
+ c_type_id = H5Aget_type(c_attr_id);
+
+ if (c_type_id < 0) return ret_value;
+ *type_id = (hid_t_f)c_type_id;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aget_num_attrs_c
+ * Purpose: Call H5Aget_num_attrs to determine number of
+ * attributes of an object
+ * Inputs: obj_id - object identifier
+ * attr_num - number of attributes
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aget_num_attrs_c (hid_t_f *obj_id, int_f *attr_num)
+{
+ int ret_value = -1;
+ hid_t c_obj_id;
+ int c_attr_num;
+
+ /*
+ * Call H5Aget_num_attrs function.
+ */
+ c_obj_id = *obj_id;
+ c_attr_num = H5Aget_num_attrs(c_obj_id);
+
+ if (c_attr_num < 0) return ret_value;
+ *attr_num = c_attr_num;
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5aget_name_c
+ * Purpose: Call H5Aget_name to get attribute's name
+ * Inputs: attr_id - attribute identifier
+ * bufsize -size of the buffer
+ * Outputs: buf - buffer to hold the name
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aget_name_c(hid_t_f *attr_id, size_t_f *bufsize, _fcd buf)
+{
+ int ret_value = -1;
+ hid_t c_attr_id;
+ ssize_t c_size;
+ size_t c_bufsize;
+ char *c_buf =NULL;
+
+ /*
+ * Allocate buffer to hold name of an attribute
+ */
+ c_bufsize = *bufsize;
+ c_buf = (char *)HDmalloc(c_bufsize +1);
+ if (c_buf == NULL) return ret_value;
+
+ /*
+ * Call H5Aget_name function
+ */
+ c_attr_id = *attr_id;
+ c_size = H5Aget_name(c_attr_id, c_bufsize, c_buf);
+ if (c_size < 0) return ret_value;
+
+ /*
+ * Convert C name to FORTRAN and place it in the given buffer
+ */
+
+ HDpackFstring(c_buf, _fcdtocp(buf), c_bufsize);
+ HDfree( c_buf);
+ ret_value = c_size;
+ return ret_value;
+}
diff --git a/fortran/src/H5Aff.f90 b/fortran/src/H5Aff.f90
new file mode 100644
index 0000000..b24de00
--- /dev/null
+++ b/fortran/src/H5Aff.f90
@@ -0,0 +1,1024 @@
+!
+! This file contains Fortran90 interfaces for H5A functions.
+!
+ MODULE H5A
+
+ USE H5FORTRAN_TYPES
+ USE H5FORTRAN_FLAGS
+
+ INTERFACE h5awrite_f
+
+ MODULE PROCEDURE h5awrite_integer_scalar
+ MODULE PROCEDURE h5awrite_integer_1
+ MODULE PROCEDURE h5awrite_integer_2
+ MODULE PROCEDURE h5awrite_integer_3
+ MODULE PROCEDURE h5awrite_integer_4
+ MODULE PROCEDURE h5awrite_integer_5
+ MODULE PROCEDURE h5awrite_integer_6
+ MODULE PROCEDURE h5awrite_integer_7
+ MODULE PROCEDURE h5awrite_char_scalar
+ MODULE PROCEDURE h5awrite_char_1
+ MODULE PROCEDURE h5awrite_char_2
+ MODULE PROCEDURE h5awrite_char_3
+ MODULE PROCEDURE h5awrite_char_4
+ MODULE PROCEDURE h5awrite_char_5
+ MODULE PROCEDURE h5awrite_char_6
+ MODULE PROCEDURE h5awrite_char_7
+ MODULE PROCEDURE h5awrite_real_scalar
+ MODULE PROCEDURE h5awrite_real_1
+ MODULE PROCEDURE h5awrite_real_2
+ MODULE PROCEDURE h5awrite_real_3
+ MODULE PROCEDURE h5awrite_real_4
+ MODULE PROCEDURE h5awrite_real_5
+ MODULE PROCEDURE h5awrite_real_6
+ MODULE PROCEDURE h5awrite_real_7
+! Comment if on T3E
+ MODULE PROCEDURE h5awrite_double_scalar
+ MODULE PROCEDURE h5awrite_double_1
+ MODULE PROCEDURE h5awrite_double_2
+ MODULE PROCEDURE h5awrite_double_3
+ MODULE PROCEDURE h5awrite_double_4
+ MODULE PROCEDURE h5awrite_double_5
+ MODULE PROCEDURE h5awrite_double_6
+ MODULE PROCEDURE h5awrite_double_7
+! End commnet if on T3E
+
+ END INTERFACE
+
+ INTERFACE h5aread_f
+
+ MODULE PROCEDURE h5aread_integer_scalar
+ MODULE PROCEDURE h5aread_integer_1
+ MODULE PROCEDURE h5aread_integer_2
+ MODULE PROCEDURE h5aread_integer_3
+ MODULE PROCEDURE h5aread_integer_4
+ MODULE PROCEDURE h5aread_integer_5
+ MODULE PROCEDURE h5aread_integer_6
+ MODULE PROCEDURE h5aread_integer_7
+ MODULE PROCEDURE h5aread_char_scalar
+ MODULE PROCEDURE h5aread_char_1
+ MODULE PROCEDURE h5aread_char_2
+ MODULE PROCEDURE h5aread_char_3
+ MODULE PROCEDURE h5aread_char_4
+ MODULE PROCEDURE h5aread_char_5
+ MODULE PROCEDURE h5aread_char_6
+ MODULE PROCEDURE h5aread_char_7
+ MODULE PROCEDURE h5aread_real_scalar
+ MODULE PROCEDURE h5aread_real_1
+ MODULE PROCEDURE h5aread_real_2
+ MODULE PROCEDURE h5aread_real_3
+ MODULE PROCEDURE h5aread_real_4
+ MODULE PROCEDURE h5aread_real_5
+ MODULE PROCEDURE h5aread_real_6
+ MODULE PROCEDURE h5aread_real_7
+! Comment if on T3E
+ MODULE PROCEDURE h5aread_double_scalar
+ MODULE PROCEDURE h5aread_double_2
+ MODULE PROCEDURE h5aread_double_3
+ MODULE PROCEDURE h5aread_double_4
+ MODULE PROCEDURE h5aread_double_5
+ MODULE PROCEDURE h5aread_double_6
+ MODULE PROCEDURE h5aread_double_7
+! End commnet if on T3E
+ END INTERFACE
+
+ CONTAINS
+ SUBROUTINE h5acreate_f(obj_id, name, type_id, space_id, attr_id, &
+ hdferr, creation_prp)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Attribute name
+ INTEGER(HID_T), INTENT(IN) :: type_id
+ ! Attribute datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ ! Attribute dataspace identifier
+ INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: creation_prp
+ ! Attribute creation property
+ ! list identifier
+ INTEGER :: creation_prp_default
+ INTEGER :: namelen
+ INTEGER, EXTERNAL :: h5acreate_c
+ creation_prp_default = H5P_DEFAULT_F
+ namelen = LEN(NAME)
+ if (present(creation_prp)) creation_prp_default = creation_prp
+ hdferr = h5acreate_c(obj_id, name, namelen, type_id, space_id, &
+ creation_prp_default, attr_id)
+ END SUBROUTINE h5acreate_f
+
+
+
+ SUBROUTINE h5aopen_name_f(obj_id, name, attr_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Attribute name
+ INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: namelen
+ INTEGER, EXTERNAL :: h5aopen_name_c
+ namelen = LEN(name)
+ hdferr = h5aopen_name_c(obj_id, name, namelen, attr_id)
+ END SUBROUTINE h5aopen_name_f
+
+
+
+ SUBROUTINE h5aopen_idx_f(obj_id, index, attr_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ INTEGER, INTENT(IN) :: index ! Attribute index
+ INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aopen_idx_c
+ hdferr = h5aopen_idx_c(obj_id, index, attr_id)
+ END SUBROUTINE h5aopen_idx_f
+
+
+
+ SUBROUTINE h5awrite_integer_scalar(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, INTENT(IN) :: buf ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_integer_scalar
+
+ SUBROUTINE h5awrite_integer_1(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_integer_1
+
+
+ SUBROUTINE h5awrite_integer_2(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_integer_2
+
+
+ SUBROUTINE h5awrite_integer_3(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_integer_3
+
+
+ SUBROUTINE h5awrite_integer_4(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_integer_4
+
+
+ SUBROUTINE h5awrite_integer_5(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:,:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_integer_5
+
+
+ SUBROUTINE h5awrite_integer_6(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:,:,:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_integer_6
+
+
+ SUBROUTINE h5awrite_integer_7(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:,:,:,:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_integer_7
+
+
+ SUBROUTINE h5awrite_real_scalar(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, INTENT(IN) :: buf ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_real_scalar
+
+ SUBROUTINE h5awrite_real_1(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_real_1
+
+
+ SUBROUTINE h5awrite_real_2(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_real_2
+
+
+ SUBROUTINE h5awrite_real_3(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_real_3
+
+
+ SUBROUTINE h5awrite_real_4(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_real_4
+
+
+ SUBROUTINE h5awrite_real_5(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:,:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_real_5
+
+
+ SUBROUTINE h5awrite_real_6(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:,:,:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_real_6
+
+
+ SUBROUTINE h5awrite_real_7(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:,:,:,:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_real_7
+
+
+ SUBROUTINE h5awrite_double_scalar(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, INTENT(IN) :: buf ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_double_scalar
+
+ SUBROUTINE h5awrite_double_1(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_double_1
+
+
+ SUBROUTINE h5awrite_double_2(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_double_2
+
+
+ SUBROUTINE h5awrite_double_3(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_double_3
+
+
+ SUBROUTINE h5awrite_double_4(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_double_4
+
+
+ SUBROUTINE h5awrite_double_5(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:,:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_double_5
+
+
+ SUBROUTINE h5awrite_double_6(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:,:,:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_double_6
+
+
+ SUBROUTINE h5awrite_double_7(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:,:,:,:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awrite_c
+ hdferr = h5awrite_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_double_7
+
+ SUBROUTINE h5awrite_char_scalar(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*),INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awritec_c
+ hdferr = h5awritec_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_char_scalar
+
+ SUBROUTINE h5awrite_char_1(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(*), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awritec_c
+ hdferr = h5awritec_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_char_1
+
+
+ SUBROUTINE h5awrite_char_2(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awritec_c
+ hdferr = h5awritec_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_char_2
+
+
+ SUBROUTINE h5awrite_char_3(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awritec_c
+ hdferr = h5awritec_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_char_3
+
+
+ SUBROUTINE h5awrite_char_4(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awritec_c
+ hdferr = h5awritec_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_char_4
+
+
+ SUBROUTINE h5awrite_char_5(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(:,:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awritec_c
+ hdferr = h5awritec_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_char_5
+
+
+ SUBROUTINE h5awrite_char_6(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(:,:,:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awritec_c
+ hdferr = h5awritec_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_char_6
+
+
+ SUBROUTINE h5awrite_char_7(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(:,:,:,:,:,:,:), INTENT(IN) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5awritec_c
+ hdferr = h5awritec_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5awrite_char_7
+
+
+ SUBROUTINE h5aread_integer_scalar(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, INTENT(OUT) :: buf ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_integer_scalar
+
+ SUBROUTINE h5aread_integer_1(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_integer_1
+
+
+ SUBROUTINE h5aread_integer_2(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_integer_2
+
+
+ SUBROUTINE h5aread_integer_3(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_integer_3
+
+
+ SUBROUTINE h5aread_integer_4(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_integer_4
+
+
+ SUBROUTINE h5aread_integer_5(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:,:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_integer_5
+
+
+ SUBROUTINE h5aread_integer_6(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:,:,:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_integer_6
+
+
+ SUBROUTINE h5aread_integer_7(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ INTEGER, DIMENSION(:,:,:,:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_integer_7
+
+
+ SUBROUTINE h5aread_real_scalar(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, INTENT(OUT) :: buf ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_real_scalar
+
+ SUBROUTINE h5aread_real_1(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_real_1
+
+
+ SUBROUTINE h5aread_real_2(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_real_2
+
+
+ SUBROUTINE h5aread_real_3(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_real_3
+
+
+ SUBROUTINE h5aread_real_4(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_real_4
+
+
+ SUBROUTINE h5aread_real_5(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:,:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_real_5
+
+
+ SUBROUTINE h5aread_real_6(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:,:,:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_real_6
+
+
+ SUBROUTINE h5aread_real_7(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ REAL, DIMENSION(:,:,:,:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_real_7
+
+
+ SUBROUTINE h5aread_double_scalar(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, INTENT(OUT) :: buf ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_double_scalar
+
+ SUBROUTINE h5aread_double_1(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_double_1
+
+
+ SUBROUTINE h5aread_double_2(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_double_2
+
+
+ SUBROUTINE h5aread_double_3(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_double_3
+
+
+ SUBROUTINE h5aread_double_4(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_double_4
+
+
+ SUBROUTINE h5aread_double_5(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:,:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_double_5
+
+
+ SUBROUTINE h5aread_double_6(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:,:,:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_double_6
+
+
+ SUBROUTINE h5aread_double_7(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ DOUBLE PRECISION, DIMENSION(:,:,:,:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aread_c
+ hdferr = h5aread_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_double_7
+
+ SUBROUTINE h5aread_char_scalar(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5areadc_c
+ hdferr = h5areadc_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_char_scalar
+
+
+ SUBROUTINE h5aread_char_1(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5areadc_c
+ hdferr = h5areadc_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_char_1
+
+
+ SUBROUTINE h5aread_char_2(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5areadc_c
+ hdferr = h5areadc_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_char_2
+
+
+ SUBROUTINE h5aread_char_3(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5areadc_c
+ hdferr = h5areadc_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_char_3
+
+
+ SUBROUTINE h5aread_char_4(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5areadc_c
+ hdferr = h5areadc_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_char_4
+
+
+ SUBROUTINE h5aread_char_5(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(:,:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5areadc_c
+ hdferr = h5areadc_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_char_5
+
+
+ SUBROUTINE h5aread_char_6(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(:,:,:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5areadc_c
+ hdferr = h5areadc_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_char_6
+
+
+ SUBROUTINE h5aread_char_7(attr_id, memtype_id, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ ! identifier (in memory)
+ CHARACTER(LEN=*), DIMENSION(:,:,:,:,:,:,:), INTENT(OUT) :: buf
+ ! Attribute data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5areadc_c
+ hdferr = h5areadc_c(attr_id, memtype_id, buf)
+ END SUBROUTINE h5aread_char_7
+
+
+ SUBROUTINE h5aget_space_f(attr_id, space_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(OUT) :: space_id
+ ! Attribute dataspace identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL:: h5aget_space_c
+ hdferr = h5aget_space_c(attr_id, space_id)
+ END SUBROUTINE h5aget_space_f
+
+
+ SUBROUTINE h5aget_type_f(attr_id, type_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(OUT) :: type_id
+ ! Attribute datatype identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aget_type_c
+ hdferr = h5aget_type_c(attr_id, type_id)
+ END SUBROUTINE h5aget_type_f
+
+
+
+ SUBROUTINE h5aget_name_f(attr_id, size, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER, INTENT(IN) :: size ! Buffer size
+ CHARACTER(LEN=*), INTENT(OUT) :: buf
+ ! Buffer to hold attribute name
+ INTEGER, INTENT(OUT) :: hdferr ! Error code:
+ ! name length is successful,
+ ! -1 if fail
+ INTEGER, EXTERNAL :: h5aget_name_c
+ hdferr = h5aget_name_c(attr_id, size, buf)
+ END SUBROUTINE h5aget_name_f
+
+
+
+ SUBROUTINE h5aget_num_attrs_f(obj_id, attr_num, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ INTEGER, INTENT(OUT) :: attr_num ! Number of attributes of the
+ ! object
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5aget_num_attrs_c
+ hdferr = h5aget_num_attrs_c(obj_id, attr_num)
+ END SUBROUTINE h5aget_num_attrs_f
+
+
+ SUBROUTINE h5adelete_f(obj_id, name, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Attribute name
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: namelen
+ INTEGER, EXTERNAL :: h5adelete_c
+ namelen = LEN(name)
+ hdferr = h5adelete_c(obj_id, name, namelen)
+ END SUBROUTINE h5adelete_f
+
+
+ SUBROUTINE h5aclose_f(attr_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code:
+ INTEGER, EXTERNAL :: h5aclose_c
+ hdferr = h5aclose_c(attr_id)
+ END SUBROUTINE h5aclose_f
+
+ END MODULE H5A
diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c
new file mode 100644
index 0000000..968e9a1
--- /dev/null
+++ b/fortran/src/H5Df.c
@@ -0,0 +1,391 @@
+#include "H5f90.h"
+
+/*----------------------------------------------------------------------------
+ * Name: h5dcreate_c
+ * Purpose: Call H5Dcreate to create a dataset
+ * Inputs: loc_id - file or group identifier
+ * name - name of the dataset
+ * namelen - name length
+ * type_id - datatype identifier
+ * space_id - dataspace identifier
+ * crt_pr - identifier of creation property list
+ * Outputs: dset_id - dataset identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 4, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5dcreate_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *dset_id)
+{
+ int ret_value = -1;
+ char *c_name;
+ int c_namelen;
+ hid_t c_loc_id;
+ hid_t c_type_id;
+ hid_t c_space_id;
+ hid_t c_dset_id;
+ hid_t c_crt_prp;
+
+ /*
+ * Define creation property
+ */
+ c_crt_prp = *crt_prp;
+ if ( H5P_DEFAULT_F == c_crt_prp ) c_crt_prp = H5P_DEFAULT;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Dcreate function.
+ */
+ c_loc_id = *loc_id;
+ c_type_id = *type_id;
+ c_space_id = *space_id;
+ c_dset_id = H5Dcreate(c_loc_id, c_name, c_type_id, c_space_id, c_crt_prp);
+ if (c_dset_id < 0) return ret_value;
+ *dset_id = (hid_t_f)c_dset_id;
+ HDfree(c_name);
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5dopen_c
+ * Purpose: Call H5Dopen to open a dataset
+ * Inputs: loc_id - file or group identifier
+ * name - name of the dataset
+ * namelen - name length
+ * Outputs: dset_id - dataset identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 4, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5dopen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *dset_id)
+{
+ int ret_value = -1;
+ char *c_name;
+ int c_namelen;
+ hid_t c_loc_id;
+ hid_t c_dset_id;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Dopen function.
+ */
+ c_loc_id = *loc_id;
+ c_dset_id = H5Dopen(c_loc_id, c_name);
+
+ if (c_dset_id < 0) return ret_value;
+ *dset_id = (hid_t_f)c_dset_id;
+ HDfree(c_name);
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5dwritec_c
+ * Purpose: Call h5dwrite_c to write a dataset of characters
+ * Inputs: dset_id - dataset identifier
+ * mem_type_id - memory datatype identifier
+ * mem_space_id - memory dataspace identifier
+ * file_space_id - memory dataspace identifier
+ * xfer_pr - identifier of transfer property list
+ * buf - character data buffer
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 6, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5dwritec_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf)
+{
+ int ret_value = -1;
+
+ /*
+ * Call h5dwrite_c function.
+ */
+ ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf));
+
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5dwrite_c
+ * Purpose: Call H5Dwrite to write a dataset
+ * Inputs: dset_id - dataset identifier
+ * mem_type_id - memory datatype identifier
+ * mem_space_id - memory dataspace identifier
+ * file_space_id - memory dataspace identifier
+ * xfer_pr - identifier of transfer property list
+ * buf - data buffer
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 6, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5dwrite_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf)
+{
+ int ret_value = -1;
+ herr_t ret;
+ hid_t c_dset_id;
+ hid_t c_mem_type_id;
+ hid_t c_mem_space_id;
+ hid_t c_file_space_id;
+ hid_t c_xfer_prp;
+
+ /*
+ * Define transfer property
+ */
+ c_xfer_prp = *xfer_prp;
+ if ( H5P_DEFAULT_F == c_xfer_prp ) c_xfer_prp = H5P_DEFAULT;
+
+ /*
+ * Call H5Dwrite function.
+ */
+ c_dset_id = *dset_id;
+ c_mem_type_id = *mem_type_id;
+ c_mem_space_id = *mem_space_id;
+ c_file_space_id = *file_space_id;
+ ret = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf);
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5dreadc_c
+ * Purpose: Call h5dread_c to read a dataset of characters
+ * Inputs: dset_id - dataset identifier
+ * mem_type_id - memory datatype identifier
+ * mem_space_id - memory dataspace identifier
+ * file_space_id - memory dataspace identifier
+ * xfer_pr - identifier of transfer property list
+ * Outputs: buf - character data buffer
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Monday, August 9, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5dreadc_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf)
+{
+ int ret_value = -1;
+
+ /*
+ * Call h5dread_c function.
+ */
+ ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf));
+
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5dread_c
+ * Purpose: Call H5Draed to read a dataset
+ * Inputs: dset_id - dataset identifier
+ * mem_type_id - memory datatype identifier
+ * mem_space_id - memory dataspace identifier
+ * file_space_id - memory dataspace identifier
+ * xfer_pr - identifier of transfer property list
+ * Outputs: buf - data buffer
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Monday, August 9, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5dread_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf)
+{
+ int ret_value = -1;
+ herr_t ret;
+ hid_t c_dset_id;
+ hid_t c_mem_type_id;
+ hid_t c_mem_space_id;
+ hid_t c_file_space_id;
+ hid_t c_xfer_prp;
+
+ /*
+ * Define transfer property
+ */
+ c_xfer_prp = *xfer_prp;
+ if ( H5P_DEFAULT_F == c_xfer_prp ) c_xfer_prp = H5P_DEFAULT;
+
+ /*
+ * Call H5Dread function.
+ */
+ c_dset_id = *dset_id;
+ c_mem_type_id = *mem_type_id;
+ c_mem_space_id = *mem_space_id;
+ c_file_space_id = *file_space_id;
+ ret = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf);
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5dclose_c
+ * Purpose: Call H5Dclose to close a dataset
+ * Inputs: dset_id - identifier of the dataset to be closed
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 4, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5dclose_c ( hid_t_f *dset_id )
+{
+ int ret_value = 0;
+ hid_t c_dset_id;
+ c_dset_id = *dset_id;
+ if ( H5Dclose(c_dset_id) < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5dget_space_c
+ * Purpose: Call H5Dget_space to obtain dataspace of a dataset
+ * Inputs: dset_id - identifier of the dataset
+ * Outputs: space_id - identifier of the dataset's dataspace
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 19, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5dget_space_c ( hid_t_f *dset_id , hid_t_f *space_id)
+{
+ int ret_value = -1;
+ hid_t c_dset_id;
+ hid_t c_space_id;
+
+ c_dset_id = *dset_id;
+ c_space_id = H5Dget_space(c_dset_id);
+ if(c_space_id < 0 ) return ret_value;
+ ret_value = 0;
+ *space_id = (hid_t_f)c_space_id;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5dget_type_c
+ * Purpose: Call H5Dget_type to obtain datatype of a dataset
+ * Inputs: dset_id - identifier of the dataset
+ * Outputs: type_id - identifier of the dataset's datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 19, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5dget_type_c ( hid_t_f *dset_id , hid_t_f *type_id)
+{
+ int ret_value = -1;
+ hid_t c_dset_id;
+ hid_t c_type_id;
+
+ c_dset_id = *dset_id;
+ c_type_id = H5Dget_type(c_dset_id);
+
+ if(c_type_id < 0 ) return ret_value;
+
+ *type_id = (hid_t_f)c_type_id;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5dget_create_plist_c
+ * Purpose: Call H5Dget_create_plist to obtain creation property list
+ * of a dataset
+ * Inputs: dset_id - identifier of the dataset
+ * Outputs: plist_id - identifier of he dataset creation property list
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 19, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5dget_create_plist_c ( hid_t_f *dset_id , hid_t_f *plist_id)
+{
+ int ret_value = -1;
+ hid_t c_dset_id;
+ hid_t c_plist_id;
+
+ c_dset_id = *dset_id;
+ c_plist_id = H5Dget_create_plist(c_dset_id);
+
+ if(c_plist_id < 0 ) return ret_value;
+
+ ret_value = 0;
+ *plist_id = (hid_t_f)c_plist_id;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5dextend_c
+ * Purpose: Call H5Dextend to extend dataset with unlimited dimensions
+ * Inputs: dset_id - identifier of the dataset
+ * Outputs: dims - array with the dimension sizes
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, August 19, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5dextend_c ( hid_t_f *dset_id , hsize_t_f *dims)
+{
+ int ret_value = -1;
+ hsize_t *c_dims;
+ int status;
+ int rank;
+ int i;
+ hid_t c_dset_id;
+ hid_t c_space_id;
+
+ c_dset_id = *dset_id;
+ c_space_id = H5Dget_space(c_dset_id);
+ if (c_space_id < 0) return ret_value;
+
+ rank = H5Sget_simple_extent_ndims(c_space_id);
+ if (rank < 0) return ret_value;
+
+ c_dims = malloc(sizeof(hsize_t)*rank);
+ if (!c_dims) return ret_value;
+
+ /*
+ * Reverse dimensions due to C-FORTRAN storage order.
+ */
+ for (i=0; i < rank; i++)
+ c_dims[i] = dims[rank - i - 1];
+
+ status = H5Dextend(c_dset_id, c_dims);
+
+ if ( status >= 0 ) ret_value = 0;
+ HDfree(c_dims);
+ return ret_value;
+}
+
diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90
new file mode 100644
index 0000000..5af83b8
--- /dev/null
+++ b/fortran/src/H5Dff.f90
@@ -0,0 +1,2441 @@
+!
+! This file contains Fortran90 interfaces for H5D functions.
+!
+ MODULE H5D
+ USE H5FORTRAN_TYPES
+! USE H5FORTRAN_FLAGS - do not need it here since it is included in H5R already
+ USE H5R
+
+ INTERFACE h5dwrite_f
+
+ MODULE PROCEDURE h5dwrite_reference_obj
+ MODULE PROCEDURE h5dwrite_reference_dsetreg
+ MODULE PROCEDURE h5dwrite_integer_scalar
+ MODULE PROCEDURE h5dwrite_integer_1
+ MODULE PROCEDURE h5dwrite_integer_2
+ MODULE PROCEDURE h5dwrite_integer_3
+ MODULE PROCEDURE h5dwrite_integer_4
+ MODULE PROCEDURE h5dwrite_integer_5
+ MODULE PROCEDURE h5dwrite_integer_6
+ MODULE PROCEDURE h5dwrite_integer_7
+ MODULE PROCEDURE h5dwrite_char_scalar
+ MODULE PROCEDURE h5dwrite_char_1
+ MODULE PROCEDURE h5dwrite_char_2
+ MODULE PROCEDURE h5dwrite_char_3
+ MODULE PROCEDURE h5dwrite_char_4
+ MODULE PROCEDURE h5dwrite_char_5
+ MODULE PROCEDURE h5dwrite_char_6
+ MODULE PROCEDURE h5dwrite_char_7
+ MODULE PROCEDURE h5dwrite_real_scalar
+ MODULE PROCEDURE h5dwrite_real_1
+ MODULE PROCEDURE h5dwrite_real_2
+ MODULE PROCEDURE h5dwrite_real_3
+ MODULE PROCEDURE h5dwrite_real_4
+ MODULE PROCEDURE h5dwrite_real_5
+ MODULE PROCEDURE h5dwrite_real_6
+ MODULE PROCEDURE h5dwrite_real_7
+! Comment if on T3E
+ MODULE PROCEDURE h5dwrite_double_scalar
+ MODULE PROCEDURE h5dwrite_double_1
+ MODULE PROCEDURE h5dwrite_double_2
+ MODULE PROCEDURE h5dwrite_double_3
+ MODULE PROCEDURE h5dwrite_double_4
+ MODULE PROCEDURE h5dwrite_double_5
+ MODULE PROCEDURE h5dwrite_double_6
+ MODULE PROCEDURE h5dwrite_double_7
+! End comment if on T3E
+ END INTERFACE
+
+ INTERFACE h5dread_f
+
+ MODULE PROCEDURE h5dread_reference_obj
+ MODULE PROCEDURE h5dread_reference_dsetreg
+ MODULE PROCEDURE h5dread_integer_scalar
+ MODULE PROCEDURE h5dread_integer_1
+ MODULE PROCEDURE h5dread_integer_2
+ MODULE PROCEDURE h5dread_integer_3
+ MODULE PROCEDURE h5dread_integer_4
+ MODULE PROCEDURE h5dread_integer_5
+ MODULE PROCEDURE h5dread_integer_6
+ MODULE PROCEDURE h5dread_integer_7
+ MODULE PROCEDURE h5dread_char_scalar
+ MODULE PROCEDURE h5dread_char_1
+ MODULE PROCEDURE h5dread_char_2
+ MODULE PROCEDURE h5dread_char_3
+ MODULE PROCEDURE h5dread_char_4
+ MODULE PROCEDURE h5dread_char_5
+ MODULE PROCEDURE h5dread_char_6
+ MODULE PROCEDURE h5dread_char_7
+ MODULE PROCEDURE h5dread_real_scalar
+ MODULE PROCEDURE h5dread_real_1
+ MODULE PROCEDURE h5dread_real_2
+ MODULE PROCEDURE h5dread_real_3
+ MODULE PROCEDURE h5dread_real_4
+ MODULE PROCEDURE h5dread_real_5
+ MODULE PROCEDURE h5dread_real_6
+ MODULE PROCEDURE h5dread_real_7
+! Comment if on T3E
+ MODULE PROCEDURE h5dread_double_scalar
+ MODULE PROCEDURE h5dread_double_1
+ MODULE PROCEDURE h5dread_double_2
+ MODULE PROCEDURE h5dread_double_3
+ MODULE PROCEDURE h5dread_double_4
+ MODULE PROCEDURE h5dread_double_5
+ MODULE PROCEDURE h5dread_double_6
+ MODULE PROCEDURE h5dread_double_7
+! End comment if on T3E
+
+ END INTERFACE
+
+ CONTAINS
+
+
+ SUBROUTINE h5dcreate_f(loc_id, name, type_id, space_id, dset_id, &
+ hdferr, creation_prp)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the dataset
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(OUT) :: dset_id ! Dataset identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: creation_prp
+ ! Dataset creation propertly
+ ! list identifier
+ INTEGER :: creation_prp_default
+ INTEGER :: namelen ! Name length
+ INTEGER, EXTERNAL :: h5dcreate_c
+
+ creation_prp_default = H5P_DEFAULT_F
+ if (present(creation_prp)) creation_prp_default = creation_prp
+ namelen = LEN(name)
+ hdferr = h5dcreate_c(loc_id, name, namelen, type_id, space_id, &
+ creation_prp_default, dset_id)
+ END SUBROUTINE h5dcreate_f
+
+ SUBROUTINE h5dopen_f(loc_id, name, dset_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the dataset
+ INTEGER(HID_T), INTENT(OUT) :: dset_id ! Dataset identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: namelen ! Name length
+ INTEGER, EXTERNAL :: h5dopen_c
+ namelen = LEN(name)
+ hdferr = h5dopen_c(loc_id, name, namelen, dset_id)
+
+ END SUBROUTINE h5dopen_f
+
+ SUBROUTINE h5dclose_f(dset_id, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5dclose_c
+
+ hdferr = h5dclose_c(dset_id)
+
+ END SUBROUTINE h5dclose_f
+
+ SUBROUTINE h5dwrite_reference_obj(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ TYPE(hobj_ref_t_f), DIMENSION(:), INTENT(IN) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_reference_obj
+
+ SUBROUTINE h5dwrite_reference_dsetreg(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ TYPE(hdset_reg_ref_t_f), DIMENSION(:), INTENT(IN) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_reference_dsetreg
+
+
+ SUBROUTINE h5dwrite_integer_scalar(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(IN) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_integer_scalar
+
+ SUBROUTINE h5dwrite_integer_1(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(IN), DIMENSION(:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_integer_1
+
+ SUBROUTINE h5dwrite_integer_2(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(IN), DIMENSION(:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, &
+ buf)
+
+ END SUBROUTINE h5dwrite_integer_2
+
+ SUBROUTINE h5dwrite_integer_3(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(IN), DIMENSION(:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, &
+ buf)
+
+ END SUBROUTINE h5dwrite_integer_3
+
+ SUBROUTINE h5dwrite_integer_4(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(IN), DIMENSION(:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default = H5P_DEFAULT_F
+ INTEGER(HID_T) :: mem_space_id_default = H5S_ALL_F
+ INTEGER(HID_T) :: file_space_id_default = H5S_ALL_F
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, &
+ buf)
+
+ END SUBROUTINE h5dwrite_integer_4
+
+ SUBROUTINE h5dwrite_integer_5(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(IN), DIMENSION(:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, &
+ buf)
+
+ END SUBROUTINE h5dwrite_integer_5
+
+ SUBROUTINE h5dwrite_integer_6(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(IN), DIMENSION(:,:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, &
+ buf)
+
+ END SUBROUTINE h5dwrite_integer_6
+
+ SUBROUTINE h5dwrite_integer_7(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(IN), DIMENSION(:,:,:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, &
+ buf)
+
+ END SUBROUTINE h5dwrite_integer_7
+
+
+ SUBROUTINE h5dwrite_char_scalar(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(IN) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwritec_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_char_scalar
+
+ SUBROUTINE h5dwrite_char_1(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(IN), DIMENSION(*) :: buf ! Data buffer
+ ! CHARACTER, INTENT(IN), DIMENSION(*) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwritec_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_char_1
+
+ SUBROUTINE h5dwrite_char_2(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(IN), DIMENSION(:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwritec_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_char_2
+
+ SUBROUTINE h5dwrite_char_3(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(IN), DIMENSION(:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwritec_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_char_3
+
+ SUBROUTINE h5dwrite_char_4(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(IN), DIMENSION(:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwritec_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_char_4
+
+ SUBROUTINE h5dwrite_char_5(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(IN), DIMENSION(:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwritec_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_char_5
+
+ SUBROUTINE h5dwrite_char_6(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(IN), DIMENSION(:,:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwritec_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_char_6
+
+ SUBROUTINE h5dwrite_char_7(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(IN), DIMENSION(:,:,:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwritec_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_char_7
+
+ SUBROUTINE h5dwrite_real_scalar(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(IN) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ INTEGER(HID_T) :: xfer_prp_default = H5P_DEFAULT_F
+ INTEGER(HID_T) :: mem_space_id_default = H5S_ALL_F
+ INTEGER(HID_T) :: file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_real_scalar
+
+ SUBROUTINE h5dwrite_real_1(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(IN), DIMENSION(:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_real_1
+
+ SUBROUTINE h5dwrite_real_2(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(IN), DIMENSION(:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_real_2
+
+ SUBROUTINE h5dwrite_real_3(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(IN), DIMENSION(:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_real_3
+
+ SUBROUTINE h5dwrite_real_4(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(IN), DIMENSION(:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_real_4
+
+ SUBROUTINE h5dwrite_real_5(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(IN), DIMENSION(:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_real_5
+
+ SUBROUTINE h5dwrite_real_6(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(IN), DIMENSION(:,:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_real_6
+
+ SUBROUTINE h5dwrite_real_7(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(IN), DIMENSION(:,:,:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_real_7
+
+
+ SUBROUTINE h5dwrite_double_scalar(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(IN) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_double_scalar
+
+ SUBROUTINE h5dwrite_double_1(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(IN), DIMENSION(:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_double_1
+
+ SUBROUTINE h5dwrite_double_2(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(IN), DIMENSION(:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_double_2
+
+ SUBROUTINE h5dwrite_double_3(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(IN), DIMENSION(:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_double_3
+
+ SUBROUTINE h5dwrite_double_4(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(IN), DIMENSION(:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_double_4
+
+ SUBROUTINE h5dwrite_double_5(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(IN), DIMENSION(:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_double_5
+
+ SUBROUTINE h5dwrite_double_6(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(IN), DIMENSION(:,:,:,:,:,:) :: buf
+ ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_double_6
+
+ SUBROUTINE h5dwrite_double_7(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(IN), DIMENSION(:,:,:,:,:,:,:) :: buf
+ ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dwrite_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dwrite_double_7
+
+ SUBROUTINE h5dread_reference_obj(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ TYPE(hobj_ref_t_f), DIMENSION(:), INTENT(INOUT) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_reference_obj
+
+ SUBROUTINE h5dread_reference_dsetreg(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ TYPE(hdset_reg_ref_t_f), DIMENSION(:), INTENT(INOUT) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_reference_dsetreg
+
+
+ SUBROUTINE h5dread_integer_scalar(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(INOUT) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_integer_scalar
+
+ SUBROUTINE h5dread_integer_1(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(INOUT), DIMENSION(:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_integer_1
+
+ SUBROUTINE h5dread_integer_2(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(INOUT), DIMENSION(:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, &
+ buf)
+
+ END SUBROUTINE h5dread_integer_2
+
+ SUBROUTINE h5dread_integer_3(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(INOUT), DIMENSION(:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, &
+ buf)
+
+ END SUBROUTINE h5dread_integer_3
+
+ SUBROUTINE h5dread_integer_4(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(INOUT), DIMENSION(:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, &
+ buf)
+
+ END SUBROUTINE h5dread_integer_4
+
+ SUBROUTINE h5dread_integer_5(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(INOUT), DIMENSION(:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, &
+ buf)
+
+ END SUBROUTINE h5dread_integer_5
+
+ SUBROUTINE h5dread_integer_6(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(INOUT), DIMENSION(:,:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, &
+ buf)
+
+ END SUBROUTINE h5dread_integer_6
+
+ SUBROUTINE h5dread_integer_7(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ INTEGER, INTENT(INOUT), DIMENSION(:,:,:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, &
+ buf)
+
+ END SUBROUTINE h5dread_integer_7
+
+ SUBROUTINE h5dread_char_scalar(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(INOUT) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dreadc_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_char_scalar
+
+ SUBROUTINE h5dread_char_1(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(*) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dreadc_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_char_1
+
+ SUBROUTINE h5dread_char_2(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dreadc_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_char_2
+
+ SUBROUTINE h5dread_char_3(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dreadc_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_char_3
+
+ SUBROUTINE h5dread_char_4(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dreadc_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_char_4
+
+ SUBROUTINE h5dread_char_5(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dreadc_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_char_5
+
+ SUBROUTINE h5dread_char_6(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(:,:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dreadc_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_char_6
+
+ SUBROUTINE h5dread_char_7(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(:,:,:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dreadc_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_char_7
+
+ SUBROUTINE h5dread_real_scalar(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(INOUT) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dread_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_real_scalar
+
+ SUBROUTINE h5dread_real_1(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(INOUT), DIMENSION(:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dread_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_real_1
+
+ SUBROUTINE h5dread_real_2(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(INOUT), DIMENSION(:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dread_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_real_2
+
+ SUBROUTINE h5dread_real_3(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(INOUT), DIMENSION(:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dread_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_real_3
+
+ SUBROUTINE h5dread_real_4(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(INOUT), DIMENSION(:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dread_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_real_4
+
+ SUBROUTINE h5dread_real_5(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(INOUT), DIMENSION(:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dread_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_real_5
+
+ SUBROUTINE h5dread_real_6(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(INOUT), DIMENSION(:,:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dread_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_real_6
+
+ SUBROUTINE h5dread_real_7(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ REAL, INTENT(INOUT), DIMENSION(:,:,:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER, EXTERNAL :: h5dread_c
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_real_7
+
+ SUBROUTINE h5dread_double_scalar(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(INOUT) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_double_scalar
+
+ SUBROUTINE h5dread_double_1(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(INOUT), DIMENSION(:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_double_1
+
+ SUBROUTINE h5dread_double_2(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(INOUT), DIMENSION(:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_double_2
+
+ SUBROUTINE h5dread_double_3(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(INOUT), DIMENSION(:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_double_3
+
+ SUBROUTINE h5dread_double_4(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(INOUT), DIMENSION(:,:,:,:) :: buf
+ ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_double_4
+
+ SUBROUTINE h5dread_double_5(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(INOUT), DIMENSION(:,:,:,:,:) :: buf ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_double_5
+
+ SUBROUTINE h5dread_double_6(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(INOUT), DIMENSION(:,:,:,:,:,:) :: buf
+ ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_double_6
+
+ SUBROUTINE h5dread_double_7(dset_id, mem_type_id, buf, hdferr, &
+ mem_space_id, file_space_id, xfer_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
+ DOUBLE PRECISION, INTENT(INOUT), DIMENSION(:,:,:,:,:,:,:) :: buf
+ ! Data buffer
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
+ INTEGER, EXTERNAL :: h5dread_c
+
+ xfer_prp_default = H5P_DEFAULT_F
+ mem_space_id_default = H5S_ALL_F
+ file_space_id_default = H5S_ALL_F
+
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
+ hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+ file_space_id_default, xfer_prp_default, buf)
+
+ END SUBROUTINE h5dread_double_7
+
+ SUBROUTINE h5dget_space_f(dataset_id, dataspace_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(OUT) :: dataspace_id ! Dataspace identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5dget_space_c
+ hdferr = h5dget_space_c(dataset_id, dataspace_id)
+ END SUBROUTINE h5dget_space_f
+
+
+ SUBROUTINE h5dget_type_f(dataset_id, datatype_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(OUT) :: datatype_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5dget_type_c
+ hdferr = h5dget_type_c (dataset_id, datatype_id)
+ END SUBROUTINE h5dget_type_f
+
+ SUBROUTINE h5dextend_f(dataset_id, size, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: size
+ ! Array containing
+ ! dimensions' sizes
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5dextend_c
+ hdferr = h5dextend_c(dataset_id, size)
+ END SUBROUTINE h5dextend_f
+
+
+ SUBROUTINE h5dget_create_plist_f(dataset_id, plist_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(OUT) :: plist_id ! Dataset creation
+ ! property list identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5dget_create_plist_c
+ hdferr = h5dget_create_plist_c(dataset_id, plist_id)
+ END SUBROUTINE h5dget_create_plist_f
+
+ END MODULE H5D
diff --git a/fortran/src/H5Ef.c b/fortran/src/H5Ef.c
new file mode 100644
index 0000000..0ae4255
--- /dev/null
+++ b/fortran/src/H5Ef.c
@@ -0,0 +1,169 @@
+#include "H5f90.h"
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5eclear_c
+ * Purpose: Call H5Eclear to clear the error stack for the current thread
+ * Inputs:
+ * Outputs:
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, March 29, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5eclear_c( )
+{
+ int ret_val = -1;
+ herr_t status;
+
+ /*
+ * Call H5Eclear function.
+ */
+ status = H5Eclear();
+ if(status < 0) return ret_val;
+ ret_val = 0;
+ return ret_val;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5eprint_c1
+ * Purpose: Call H5Eprint to print the error stack in a default manner.
+ * Inputs: name - file name
+ * namelen - length of name
+ * Outputs:
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, March 29, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5eprint_c1(_fcd name, int_f* namelen)
+{
+ int ret_val = -1;
+ herr_t status;
+ FILE * file;
+ char* c_name;
+ int c_namelen;
+ c_namelen = *namelen;
+ c_name = (char*)HD5f2cstring(name, c_namelen);
+ file = fopen(c_name, "w");
+
+ /*
+ * Call H5Eprint function.
+ */
+ status = H5Eprint(file);
+ if(status < 0) return ret_val;
+ ret_val = 0;
+ return ret_val;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5eprint_c2
+ * Purpose: Call H5Eprint to print the error stack to stderr
+ * in a default manner.
+ * Inputs:
+ * Outputs:
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, March 29, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5eprint_c2()
+{
+ int ret_val = -1;
+ herr_t status;
+
+ /*
+ * Call H5Eprint function.
+ */
+ status = H5Eprint(NULL);
+ if(status < 0) return ret_val;
+ ret_val = 0;
+ return ret_val;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5eget_major_c
+ * Purpose: Call H5Eget_major to get a character string
+ * describing an error specified by a major error number.
+ * Inputs: error_no - Major error number
+ * Outputs: name - character string describing the error
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, March 29, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5eget_major_c(int_f* error_no, _fcd name)
+{
+ int ret_val = -1;
+ const char* c_name;
+ H5E_major_t c_error_no;
+ c_error_no = (H5E_major_t)*error_no;
+
+ /*
+ * Call H5Eget_major function.
+ */
+ c_name = H5Eget_major(c_error_no);
+ HDpackFstring((char*)c_name, _fcdtocp(name), strlen(c_name));
+
+ if(!strcmp(c_name, "Invalid major error number")) return ret_val;
+ ret_val = 0;
+ return ret_val;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5eget_minor_c
+ * Purpose: Call H5Eget_minor to get a character string
+ * describing an error specified by a minor error number.
+ * Inputs: error_no - Major error number
+ * Outputs: name - character string describing the error
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, March 29, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5eget_minor_c(int_f* error_no, _fcd name)
+{
+ int ret_val = -1;
+ const char* c_name;
+ H5E_minor_t c_error_no;
+ c_error_no = (H5E_minor_t)*error_no;
+
+ /*
+ * Call H5Eget_minor function.
+ */
+ c_name = H5Eget_minor(c_error_no);
+ HDpackFstring((char*)c_name, _fcdtocp(name), strlen(c_name));
+
+ if(!strcmp(c_name, "Invalid minor error number")) return ret_val;
+ ret_val = 0;
+ return ret_val;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5eset_auto_c
+ * Purpose: Call H5Eset_auto to turn automatic error printing on or off.
+ * Inputs: printflag - flag to turn automatic error printing on or off.
+ * Outputs:
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, March 29, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5eset_auto_c(int_f* printflag)
+{
+ int ret_val = -1;
+ herr_t status;
+
+ if (*printflag == 1)
+ status = H5Eset_auto((H5E_auto_t)H5Eprint, stderr);
+ if (status >= 0) ret_val = 0;
+ return ret_val;
+}
diff --git a/fortran/src/H5Eff.f90 b/fortran/src/H5Eff.f90
new file mode 100644
index 0000000..a8393dd
--- /dev/null
+++ b/fortran/src/H5Eff.f90
@@ -0,0 +1,62 @@
+!
+! This file contains FORTRAN90 interfaces for H5E functions
+!
+ MODULE H5E
+
+ USE H5FORTRAN_TYPES
+ USE H5FORTRAN_FLAGS
+
+ CONTAINS
+
+ SUBROUTINE h5eclear_f(hdferr)
+ IMPLICIT NONE
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5eclear_c
+
+ hdferr = h5eclear_c()
+ END SUBROUTINE h5eclear_f
+
+ SUBROUTINE h5eprint_f(hdferr, name)
+ CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: name ! File name
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5eprint_c1, h5eprint_c2
+
+ INTEGER :: namelen
+
+ namelen = LEN(NAME)
+ if (present(name)) hdferr = h5eprint_c1(name, namelen)
+ hdferr = h5eprint_c2()
+ END SUBROUTINE h5eprint_f
+
+ SUBROUTINE h5eget_major_f(error_no, name, hdferr)
+ INTEGER, INTENT(IN) :: error_no !Major error number
+ CHARACTER(LEN=*), INTENT(OUT) :: name ! File name
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5eget_major_c
+
+ hdferr = h5eget_major_c(error_no, name)
+ END SUBROUTINE h5eget_major_f
+
+ SUBROUTINE h5eget_minor_f(error_no, name, hdferr)
+ INTEGER, INTENT(IN) :: error_no !Major error number
+ CHARACTER(LEN=*), INTENT(OUT) :: name ! File name
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5eget_minor_c
+
+ hdferr = h5eget_minor_c(error_no, name)
+ END SUBROUTINE h5eget_minor_f
+
+ SUBROUTINE h5eset_auto_f(printflag, hdferr)
+ INTEGER, INTENT(IN) :: printflag !flag to turn automatic error
+ !printing on or off
+ !possible values are:
+ !printon (1)
+ !printoff(0)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5eset_auto_c
+
+ hdferr = h5eset_auto_c(printflag)
+ END SUBROUTINE h5eset_auto_f
+
+ END MODULE H5E
+
diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c
new file mode 100644
index 0000000..9e3d56d
--- /dev/null
+++ b/fortran/src/H5Ff.c
@@ -0,0 +1,451 @@
+#include "H5f90.h"
+
+/*----------------------------------------------------------------------------
+ * Name: h5fcreate_c
+ * Purpose: Call H5Fcreate to create the file
+ * Inputs: name - name of the file
+ * namelen - name length
+ * access_flags - file access flags
+ * crt_pr - identifier of creation property list
+ * acc_prp - identifier of access property list
+ * Outputs: file_id - file identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Monday, July 26, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f* crt_prp, hid_t_f *acc_prp, hid_t_f *file_id)
+{
+ int ret_value = -1;
+ char *c_name;
+ int c_namelen;
+ hid_t c_file_id;
+ unsigned c_access_flags;
+ hid_t c_crt_prp;
+ hid_t c_acc_prp;
+ int CASE;
+ hid_t CASE_prp;
+
+ /*
+ * Define access flags
+ */
+ CASE = (int)*access_flags;
+ switch (CASE) {
+
+ case H5F_ACC_RDWR_F:
+ c_access_flags = H5F_ACC_RDWR;
+ break;
+
+ case H5F_ACC_RDONLY_F:
+ c_access_flags = H5F_ACC_RDONLY;
+ break;
+
+ case H5F_ACC_TRUNC_F:
+ c_access_flags = H5F_ACC_TRUNC;
+ break;
+
+ case H5F_ACC_EXCL_F:
+ c_access_flags = H5F_ACC_EXCL;
+ break;
+
+ case H5F_ACC_DEBUG_F:
+ c_access_flags = H5F_ACC_DEBUG;
+ break;
+
+ default:
+ return ret_value;
+ }
+
+ /*
+ * Define creation property
+ */
+ c_crt_prp = *crt_prp;
+ if ( H5P_DEFAULT_F == c_crt_prp ) c_crt_prp = H5P_DEFAULT;
+
+ /*
+ * Define access property
+ */
+ c_acc_prp = *acc_prp;
+ if ( H5P_DEFAULT_F == c_acc_prp ) c_acc_prp = H5P_DEFAULT;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Fcreate function.
+ */
+ c_file_id = H5Fcreate(c_name, c_access_flags, c_crt_prp, c_acc_prp);
+
+ if (c_file_id < 0) return ret_value;
+ *file_id = c_file_id;
+ HDfree(c_name);
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5fflush_c
+ * Purpose: Call H5Fflush to flush the object
+ * Inputs: object_id - identifier of either a file, a dataset,
+ * a group, an attribute or a named data type
+ * scope - integer to specify the flushing action, either
+ * H5F_SCOPE_GLOBAL or H5F_SCOPE_LOCAL
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, November 5, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5fflush_c (hid_t_f *object_id, int_f *scope)
+{
+ int ret_value = -1;
+ hid_t c_file_id;
+ int CASE;
+ H5F_scope_t c_scope;
+ htri_t status;
+
+ /*
+ * Define scope flags
+ */
+ CASE = (int)*scope;
+ switch (CASE) {
+
+ case H5F_SCOPE_LOCAL_F:
+ c_scope = H5F_SCOPE_LOCAL;
+ break;
+
+ case H5F_SCOPE_GLOBAL_F:
+ c_scope = H5F_SCOPE_GLOBAL;
+ break;
+
+ default:
+ return ret_value;
+ }
+
+ /*
+ * Call H5Fflush function.
+ */
+
+ c_file_id = *object_id;
+
+ status = H5Fflush(c_file_id, c_scope);
+
+ if (status >= 0) ret_value = 0;
+
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5fmount_c
+ * Purpose: Call H5Fmount to mount the file
+ * Inputs: loc_id - Identifier for file or group
+ * dsetname - name of dataset
+ * namelen - dsetname length
+ * file_id - file identifier for the file to be mounted
+ * acc_prp - identifier of access property list
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Monday, October 25, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5fmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, hid_t_f *acc_prp)
+{
+ int ret_value = -1;
+ char *c_name;
+ int c_namelen;
+ hid_t c_loc_id;
+ hid_t c_file_id;
+ hid_t c_acc_prp;
+ htri_t status;
+
+ /*
+ * Define access property
+ */
+ c_acc_prp = *acc_prp;
+ if ( H5P_DEFAULT_F == c_acc_prp ) c_acc_prp = H5P_DEFAULT;
+
+ c_loc_id = *loc_id;
+ c_file_id = *file_id;
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(dsetname, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Fmount function.
+ */
+ status = H5Fmount(c_loc_id, c_name, c_file_id, c_acc_prp);
+
+ if (status >= 0) ret_value = 0;
+
+ HDfree(c_name);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5funmount_c
+ * Purpose: Call H5Funmount to unmount the file
+ * Inputs: loc_id - Identifier for file or group
+ * dsetname - name of dataset
+ * namelen - dsetname length
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Monday, October 25, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5funmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen)
+{
+ int ret_value = -1;
+ char *c_name;
+ int c_namelen;
+ hid_t c_loc_id;
+ htri_t status;
+
+ c_loc_id = *loc_id;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(dsetname, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Fmount function.
+ */
+ status = H5Funmount(c_loc_id, c_name);
+
+ if (status >= 0) ret_value = 0;
+
+ HDfree(c_name);
+ return ret_value;
+}
+
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5fopen_c
+ * Purpose: Call H5Fopen to open the file
+ * Inputs: name - name of the file
+ * namelen - name length
+ * access_flags - file access flags
+ * acc_prp - identifier of access property list
+ * Outputs: file_id - file identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, August 3, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5fopen_c (_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hid_t_f *file_id)
+{
+ int ret_value = -1;
+ char *c_name;
+ int c_namelen;
+ hid_t c_file_id;
+ unsigned c_access_flags;
+ hid_t c_acc_prp;
+ int CASE;
+ hid_t CASE_prp;
+
+ /*
+ * Define access flags
+ */
+ CASE = (int)*access_flags;
+ switch (CASE) {
+
+ case H5F_ACC_RDWR_F:
+ c_access_flags = H5F_ACC_RDWR;
+ break;
+
+ case H5F_ACC_RDONLY_F:
+ c_access_flags = H5F_ACC_RDONLY;
+ break;
+
+ case H5F_ACC_TRUNC_F:
+ c_access_flags = H5F_ACC_TRUNC;
+ break;
+
+ case H5F_ACC_EXCL_F:
+ c_access_flags = H5F_ACC_EXCL;
+ break;
+
+ case H5F_ACC_DEBUG_F:
+ c_access_flags = H5F_ACC_DEBUG;
+ break;
+
+ default:
+ return ret_value;
+ }
+
+ /*
+ * Define access property
+ */
+ c_acc_prp = *acc_prp;
+ if ( H5P_DEFAULT_F == c_acc_prp ) c_acc_prp = H5P_DEFAULT;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Fopen function.
+ */
+ c_file_id = H5Fopen(c_name, c_access_flags, c_acc_prp);
+
+ if (c_file_id < 0) return ret_value;
+ *file_id = (hid_t_f)c_file_id;
+
+ HDfree(c_name);
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5freopen_c
+ * Purpose: Call H5Freopen to open the file
+ * Inputs: file_id1 - file identifier
+ * Outputs: file_id2 - file identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, November 3, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5freopen_c (hid_t_f *file_id1, hid_t_f *file_id2)
+{
+ int ret_value = -1;
+ hid_t c_file_id1, c_file_id2;
+
+ c_file_id1 = *file_id1;
+ c_file_id2 = H5Freopen(c_file_id1);
+
+ if (c_file_id2 < 0) return ret_value;
+ *file_id2 = (hid_t_f)c_file_id2;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5fget_create_plist_c
+ * Purpose: Call H5Fget_create_plist to get the file creation property list
+ * Inputs: file_id - file identifier
+ * Outputs: prop_id - creation property list identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, November 3, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5fget_create_plist_c (hid_t_f *file_id, hid_t_f *prop_id)
+{
+ int ret_value = -1;
+ hid_t c_file_id, c_prop_id;
+
+ c_file_id = *file_id;
+ c_prop_id = H5Fget_create_plist(c_file_id);
+
+ if (c_prop_id < 0) return ret_value;
+ *prop_id = (hid_t_f)c_prop_id;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5fget_access_plist_c
+ * Purpose: Call H5Fget_access_plist to get the file access property list
+ * Inputs: file_id - file identifier
+ * Outputs: access_id - access property list identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, November 5, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5fget_access_plist_c (hid_t_f *file_id, hid_t_f *access_id)
+{
+ int ret_value = -1;
+ hid_t c_file_id, c_access_id;
+
+ c_file_id = *file_id;
+ c_access_id = H5Fget_access_plist(c_file_id);
+
+ if (c_access_id < 0) return ret_value;
+ *access_id = (hid_t_f)c_access_id;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5fis_hdf5_c
+ * Purpose: Call H5Fis_hdf5 to determone if the file is an HDF5 file
+ * Inputs: name - name of the file
+ * namelen - name length
+ * Outputs: flag - 0 if file is not HDF5 file , positive if a file
+ * is an HDF5 file, and negative on failure.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, August 3, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5fis_hdf5_c (_fcd name, int_f *namelen, int_f *flag)
+{
+ int ret_value = -1;
+ char *c_name;
+ int c_namelen;
+ htri_t status;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Fopen function.
+ */
+ status = H5Fis_hdf5(c_name);
+ *flag = (int_f)status;
+ if (status >= 0) ret_value = 0;
+
+ HDfree(c_name);
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5fclose_c
+ * Purpose: Call H5Fclose to close the file
+ * Inputs: file_id - identifier of the file to be closed
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Monday, July 26, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5fclose_c ( hid_t_f *file_id )
+{
+ int ret_value = 0;
+ hid_t c_file_id;
+
+ c_file_id = *file_id;
+ if ( H5Fclose(c_file_id) < 0 ) ret_value = -1;
+ return ret_value;
+}
diff --git a/fortran/src/H5Fff.f90 b/fortran/src/H5Fff.f90
new file mode 100644
index 0000000..817978b
--- /dev/null
+++ b/fortran/src/H5Fff.f90
@@ -0,0 +1,199 @@
+!
+! This file contains Fortran90 interfaces for H5F functions.
+!
+ MODULE H5F
+ USE H5FORTRAN_TYPES
+ USE H5FORTRAN_FLAGS
+
+ CONTAINS
+
+ SUBROUTINE h5fcreate_f(name, access_flags, file_id, hdferr, &
+ creation_prp, access_prp)
+
+ IMPLICIT NONE
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the file
+ INTEGER, INTENT(IN) :: access_flags ! File access flags
+ INTEGER(HID_T), INTENT(OUT) :: file_id ! File identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: creation_prp
+ ! File creation propertly
+ ! list identifier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: access_prp
+ ! File access property list
+ ! identifier
+ INTEGER :: creation_prp_default
+ INTEGER :: access_prp_default
+ INTEGER :: namelen ! Length of the name character string
+ INTEGER, EXTERNAL :: h5fcreate_c
+
+ creation_prp_default = H5P_DEFAULT_F
+ access_prp_default = H5P_DEFAULT_F
+
+ if (present(creation_prp)) creation_prp_default = creation_prp
+ if (present(access_prp)) access_prp_default = access_prp
+ namelen = LEN(name)
+ hdferr = h5fcreate_c(name, namelen, access_flags, &
+ creation_prp_default, access_prp_default, file_id)
+
+ END SUBROUTINE h5fcreate_f
+
+ SUBROUTINE h5fflush_f(object_id, scope, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: object_id !identifier for any object
+ !associate with a file,
+ !including the file itself,
+ !a dataset, a group, an
+ !attribute, or a named
+ !data type
+
+ INTEGER, INTENT(IN) :: scope !scope of the flushing
+ !action, possible values
+ !are: H5F_SCOPE_GLOBAL_F
+ ! which flushes the entire
+ !virtual file,
+ !and H5F_SCOPE_LOCAL_F
+ !which flushes only the
+ !specified file.
+
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5fflush_c
+
+ hdferr = h5fflush_c(object_id, scope)
+
+ END SUBROUTINE h5fflush_f
+
+
+ SUBROUTINE h5fmount_f(loc_id, dsetname, file_id, hdferr, access_prp)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for file or group
+ ! in which dsetname is defined
+ CHARACTER(LEN=*), INTENT(IN) :: dsetname ! Name of the dataset
+ INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier for the
+ ! file to be mounted
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: access_prp
+ ! File access property list
+ ! identifier
+ INTEGER :: access_prp_default
+ INTEGER :: namelen ! Length of the dsetname character string
+ INTEGER, EXTERNAL :: h5fmount_c
+
+ access_prp_default = H5P_DEFAULT_F
+ if (present(access_prp)) access_prp_default = access_prp
+ namelen = LEN(dsetname)
+ hdferr = h5fmount_c(loc_id, dsetname, namelen, file_id, access_prp_default)
+
+ END SUBROUTINE h5fmount_f
+
+
+ SUBROUTINE h5funmount_f(loc_id, dsetname, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for file or group
+ ! in which dsetname is defined
+ CHARACTER(LEN=*), INTENT(IN) :: dsetname ! Name of the dataset
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: namelen ! Length of the dsetname character string
+ INTEGER, EXTERNAL :: h5funmount_c
+
+ namelen = LEN(dsetname)
+ hdferr = h5funmount_c(loc_id, dsetname, namelen)
+
+ END SUBROUTINE h5funmount_f
+
+ SUBROUTINE h5fopen_f(name, access_flags, file_id, hdferr, &
+ access_prp)
+
+ IMPLICIT NONE
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the file
+ INTEGER, INTENT(IN) :: access_flags ! File access flags
+ INTEGER(HID_T), INTENT(OUT) :: file_id ! File identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: access_prp
+ ! File access property list
+ ! identifier
+ INTEGER :: access_prp_default
+ INTEGER :: namelen ! Length of the name character string
+ INTEGER, EXTERNAL :: h5fopen_c
+
+ access_prp_default = H5P_DEFAULT_F
+ if (present(access_prp)) access_prp_default = access_prp
+ namelen = LEN(name)
+ hdferr = h5fopen_c(name, namelen, access_flags, &
+ access_prp_default, file_id)
+
+ END SUBROUTINE h5fopen_f
+
+ SUBROUTINE h5freopen_f(file_id, ret_file_id, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
+ INTEGER(HID_T), INTENT(OUT) :: ret_file_id ! New File identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5freopen_c
+
+ hdferr = h5freopen_c(file_id, ret_file_id)
+
+ END SUBROUTINE h5freopen_f
+
+ SUBROUTINE h5fget_create_plist_f(file_id, prop_id, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
+ INTEGER(HID_T), INTENT(OUT) :: prop_id ! File creation property
+ ! list identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5fget_create_plist_c
+
+ hdferr = h5fget_create_plist_c(file_id, prop_id)
+
+ END SUBROUTINE h5fget_create_plist_f
+
+ SUBROUTINE h5fget_access_plist_f(file_id, access_id, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
+ INTEGER(HID_T), INTENT(OUT) :: access_id ! File access property
+ ! list identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5fget_access_plist_c
+
+ hdferr = h5fget_access_plist_c(file_id, access_id)
+
+ END SUBROUTINE h5fget_access_plist_f
+
+
+ SUBROUTINE h5fis_hdf5_f(name, status, hdferr)
+
+ IMPLICIT NONE
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the file
+ LOGICAL, INTENT(OUT) :: status ! Indicates if file
+ ! is an HDF5 file
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: namelen ! Length of the name character string
+ INTEGER :: flag ! "TRUE/FALSE" flag from C routine
+ ! to define status value.
+ INTEGER, EXTERNAL :: h5fis_hdf5_c
+
+ namelen = LEN(name)
+ hdferr = h5fis_hdf5_c(name, namelen, flag)
+ status = .TRUE.
+ if (flag .EQ. 0) status = .FALSE.
+
+ END SUBROUTINE h5fis_hdf5_f
+
+ SUBROUTINE h5fclose_f(file_id, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5fclose_c
+
+ hdferr = h5fclose_c(file_id)
+
+ END SUBROUTINE h5fclose_f
+
+ END MODULE H5F
diff --git a/fortran/src/H5Gf.c b/fortran/src/H5Gf.c
new file mode 100644
index 0000000..110db73
--- /dev/null
+++ b/fortran/src/H5Gf.c
@@ -0,0 +1,536 @@
+#include "H5f90.h"
+
+/*----------------------------------------------------------------------------
+ * Name: h5gcreate_c
+ * Purpose: Call H5Gcreate to create a group
+ * Inputs: loc_id - file or group identifier
+ * name - name of the group
+ * namelen - name length
+ * size_hint - length of names in the group
+ * Outputs: grp_id - group identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 5, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5gcreate_c (hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size_hint, hid_t_f *grp_id)
+{
+ int ret_value = -1;
+ char *c_name;
+ int c_namelen;
+ size_t c_size_hint;
+ hid_t c_grp_id;
+ hid_t c_loc_id;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+ /*
+ * Call H5Gcreate function.
+ */
+ c_loc_id = *loc_id;
+ if ( *size_hint == OBJECT_NAMELEN_DEFAULT_F )
+ c_grp_id = H5Gcreate(c_loc_id, c_name, NULL);
+ else {
+ c_size_hint = *size_hint;
+ c_grp_id = H5Gcreate(c_loc_id, c_name, c_size_hint);
+ }
+ if (c_grp_id < 0) return ret_value;
+ *grp_id = (hid_t_f)c_grp_id;
+ HDfree(c_name);
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5gopen_c
+ * Purpose: Call H5Gopen to open a dataset
+ * Inputs: loc_id - file or group identifier
+ * name - name of the group
+ * namelen - name length
+ * Outputs: grp_id - group identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 5, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5gopen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *grp_id)
+{
+ int ret_value = -1;
+ char *c_name;
+ int c_namelen;
+ hid_t c_grp_id;
+ hid_t c_loc_id;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Gopen function.
+ */
+ c_loc_id = *loc_id;
+ c_grp_id = H5Gopen(c_loc_id, c_name);
+
+ HDfree(c_name);
+ if (c_grp_id < 0) return ret_value;
+ *grp_id = (hid_t_f)c_grp_id;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5gget_obj_info_idx_c
+ * Purpose: Call H5Gget_obj_info to return name and the type of group
+ * member
+ * Inputs: loc_id - file or group identifier
+ * name - name of the group
+ * namelen - name length
+ * idx - index of the group member
+ * Outputs: obj_name - buffer to store member's name
+ * obj_namelen - length of the buffer
+ * obj_type - type of the object
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 5, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5gget_obj_info_idx_c
+(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *idx, _fcd obj_name, int_f *obj_namelen, int_f *obj_type)
+{
+ int ret_value = -1;
+ hid_t c_loc_id;
+ char *c_name;
+ int c_namelen;
+ int c_obj_namelen;
+ char *c_obj_name = NULL;
+ int type;
+ int c_idx;
+ herr_t c_ret_value;
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Allocate buffer to hold name of the object
+ */
+ if (*obj_namelen) c_obj_name = (char *)HDmalloc(*obj_namelen + 1);
+ if (c_obj_name == NULL) return ret_value;
+ /*
+ * Call H5Gget_obj_info_idx function.
+ */
+ c_loc_id = *loc_id;
+ c_idx = *idx;
+ c_ret_value = H5Gget_obj_info_idx(c_loc_id, c_name, c_idx, &c_obj_name, &type);
+
+ if (c_ret_value < 0) {
+ HDfree(c_obj_name);
+ return ret_value;
+ }
+ switch (type) {
+ case H5G_LINK:
+ *obj_type = H5G_LINK_F;
+ break;
+
+ case H5G_GROUP:
+ *obj_type = H5G_GROUP_F;
+ break;
+
+ case H5G_DATASET:
+ *obj_type = H5G_DATASET_F;
+ break;
+
+ case H5G_TYPE:
+ *obj_type = H5G_TYPE_F;
+ break;
+ default:
+ return ret_value;
+ }
+ /*
+ * Convert C name to FORTRAN and place it in the given buffer
+ */
+ c_obj_namelen = *obj_namelen;
+ HDpackFstring(c_obj_name, _fcdtocp(obj_name), c_obj_namelen);
+ if (c_obj_name) HDfree(c_obj_name);
+ if (c_name) HDfree(c_name);
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5gn_members_c
+ * Purpose: Call H5Gn_members to find number of objects in the group
+ * Inputs: loc_id - file or group identifier
+ * name - name of the group
+ * namelen - name length
+ * Outputs: nmemebers - number of members
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 5, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5gn_members_c (hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *nmembers)
+{
+ int ret_value = -1;
+ hid_t c_loc_id;
+ char *c_name;
+ int c_namelen;
+ int c_nmembers;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Gn_members function.
+ */
+ c_loc_id = *loc_id;
+ c_nmembers = H5Gn_members(c_loc_id, c_name);
+
+ HDfree(c_name);
+ if (c_nmembers < 0) return ret_value;
+ *nmembers = (int_f)c_nmembers;
+ ret_value = 0;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5gclose_c
+ * Purpose: Call H5Gclose to close the group
+ * Inputs: grp_id - identifier of the group to be closed
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 5, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5gclose_c ( hid_t_f *grp_id )
+{
+ int ret_value = 0;
+ hid_t c_grp_id;
+
+ c_grp_id = *grp_id;
+ if ( H5Gclose(c_grp_id) < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5glink_c
+ * Purpose: Call H5Glink to link the specified type
+ * Inputs: loc_id - identifier of file or group
+ * link_type - link type
+ * current_name - name of the existing object for hard link,
+ * anything for the soft link
+ * current_namelen - current name lenghth
+ * new_name - new name for the object
+ * new_namelen - new_name lenghth
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Mingshi Chen
+ * Friday, August 6, 1999
+ * Modifications: Elena Pourmal
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5glink_c(hid_t_f *loc_id, int_f *link_type, _fcd current_name, int_f *current_namelen, _fcd new_name, int_f *new_namelen)
+{
+ int ret_value = -1;
+ hid_t c_loc_id;
+ H5G_link_t c_link_type;
+ char *c_current_name, *c_new_name;
+ int c_current_namelen, c_new_namelen;
+ herr_t c_ret_value;
+ /*
+ * Convert Fortran name to C name
+ */
+ c_current_namelen =*current_namelen;
+ c_new_namelen =*new_namelen;
+ c_current_name = (char *)HD5f2cstring(current_name, c_current_namelen);
+ c_new_name = (char *)HD5f2cstring(new_name, c_new_namelen);
+ if((c_current_name == NULL)||(c_new_name == NULL))
+ return ret_value;
+ /*
+ * Call H5Glink function
+ */
+ c_loc_id = *loc_id;
+ c_link_type = (H5G_link_t)*link_type;
+ c_ret_value = H5Glink(c_loc_id, c_link_type, c_current_name, c_new_name);
+ if(c_current_name) HDfree(c_current_name);
+ if(c_new_name) HDfree(c_new_name);
+ if(c_ret_value < 0) return ret_value;
+
+ ret_value = 0;
+ return ret_value ;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5gunlink_c
+ * Purpose: Call H5Gunlink to remove the specified name
+ * Inputs: loc_id - identifier of file or group
+ * name - name of the object to unlink
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Mingshi Chen
+ * Friday, August 6, 1999
+ * Modifications: Elena Pourmal
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5gunlink_c(hid_t_f *loc_id, _fcd name, int_f *namelen)
+{
+ int ret_value = -1;
+ hid_t c_loc_id;
+ char *c_name;
+ int c_namelen;
+ herr_t c_ret_value;
+ /*
+ * Convert Fortran name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if(c_name == NULL) return ret_value;
+ /*
+ * Call H5Gunlink function
+ */
+ c_loc_id = *loc_id;
+ c_ret_value = H5Gunlink(c_loc_id, c_name);
+ if(c_name) HDfree(c_name);
+ if(c_ret_value < 0) return ret_value;
+ ret_value = 0;
+ return ret_value ;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5gmove_c
+ * Purpose: Call H5Gmove to rename an object within an HDF5 file
+ * Inputs: loc_id - identifier of file or group
+ * src_name - name of the original object
+ * src_namelen - original name lenghth
+ * dst_name - new name for the object
+ * dst_namelen - new name lenghth
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Mingshi Chen
+ * Friday, August 6, 1999
+ * Modifications: Elena Pourmal
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5gmove_c(hid_t_f *loc_id, _fcd src_name, int_f *src_namelen, _fcd dst_name, int_f*dst_namelen)
+{
+ int ret_value = -1;
+ hid_t c_loc_id;
+ char *c_src_name, *c_dst_name;
+ int c_src_namelen, c_dst_namelen;
+ herr_t c_ret_value;
+ /*
+ * Convert Fortran name to C name
+ */
+ c_src_namelen = *src_namelen;
+ c_dst_namelen = *dst_namelen;
+ c_src_name = (char *)HD5f2cstring(src_name, c_src_namelen);
+ c_dst_name = (char *)HD5f2cstring(dst_name, c_dst_namelen);
+ if((c_src_name == NULL)||(c_dst_name == NULL))
+ return ret_value;
+ /*
+ * Call H5Gmove function
+ */
+ c_loc_id = *loc_id;
+ c_ret_value = H5Gmove(c_loc_id, c_src_name, c_dst_name);
+ if(c_src_name) HDfree(c_src_name);
+ if(c_dst_name) HDfree(c_dst_name);
+ if(c_ret_value < 0) return ret_value;
+
+ ret_value = 0;
+ return ret_value ;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5gget_linkval_c
+ * Purpose: Call H5Gget_linkval to return the name of object
+ * Inputs: loc_id - identifier of file or group
+ * name - name of the object that symbolic link points to
+ * namelen - the name lenghth
+ * size - lenghth of retrurned value
+ * Outputs: value - name to be returned
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Mingshi Chen
+ * Friday, August 6, 1999
+ * Modifications: Elena Pourmal
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5gget_linkval_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size, _fcd value )
+{
+ int ret_value = -1;
+ hid_t c_loc_id;
+ char *c_name;
+ int c_namelen;
+ char *c_value = NULL;
+ size_t c_size;
+ herr_t c_ret_value;
+ /*
+ * Convert Fortran name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if(c_name == NULL) return ret_value;
+
+ /*
+ * Allocate buffer to hold name of the value
+ */
+ if(*size) c_value = (char *)HDmalloc(*size);
+ if(c_value == NULL) {
+ HDfree(c_name);
+ return ret_value;
+ }
+
+ /*
+ * Call H5Gget_linkval function
+ */
+
+ c_size = (size_t)*size;
+ c_loc_id = *loc_id;
+ c_ret_value = H5Gget_linkval(c_loc_id, c_name, c_size, c_value);
+ if(c_ret_value < 0) {
+ if(c_value) HDfree(c_value);
+ if(c_name) HDfree(c_name);
+ return ret_value;
+ }
+
+ /*
+ * Convert C name to FORTRAN and place it in the given buffer
+ */
+ HDpackFstring(c_value, _fcdtocp(value), (int)*size);
+
+ if(c_value) HDfree(c_value);
+ if(c_name) HDfree(c_name);
+
+ ret_value = 0;
+ return ret_value ;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5gset_comment_c
+ * Purpose: Call H5Gset_comment to set comments for the specified object
+ * Inputs: loc_id - identifier of file or group
+ * name - name of object whose comment is to be set or reset
+ * namelen - the name lenghth
+ * comment - the new comment
+ * commentlen - new comment lenghth
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Mingshi Chen
+ * Friday, August 6, 1999
+ * Modifications: Elena Pourmal
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5gset_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, _fcd comment, int_f*commentlen)
+{
+ int ret_value = -1;
+ hid_t c_loc_id;
+ char *c_name, *c_comment;
+ int c_namelen, c_commentlen;
+ herr_t c_ret_value;
+ /*
+ * Convert Fortran name to C name
+ */
+ c_namelen = *namelen;
+ c_commentlen =*commentlen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ c_comment = (char *)HD5f2cstring(comment, c_commentlen);
+ if((c_name == NULL)||(c_comment == NULL))
+ return ret_value;
+ /*
+ * Call H5Gset_comment function
+ */
+ c_loc_id = *loc_id;
+ c_ret_value = H5Gset_comment(c_loc_id, c_name, c_comment);
+ if(c_name) HDfree(c_name);
+ if(c_comment) HDfree(c_comment);
+ if(c_ret_value < 0) return ret_value;
+
+ ret_value = 0;
+ return ret_value ;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5gget_comment_c
+ * Purpose: Call H5Gget_comment to retrieve comments for the specified object
+ * Inputs: loc_id - identifier of file or group
+ * name - name of object whose comment is to be set or reset
+ * namelen - the name lenghth
+ * bufsize - at most bufsize characters
+ * comment - the new comment
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Mingshi Chen
+ * Friday, August 6, 1999
+ * Modifications: Elena Pourmal
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5gget_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize, _fcd comment)
+{
+ int ret_value = -1;
+ hid_t c_loc_id;
+ char *c_name;
+ int c_namelen;
+ char *c_comment = NULL;
+ size_t c_bufsize;
+ herr_t c_ret_value;
+
+ /*
+ * Convert Fortran name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if(c_name == NULL) return ret_value;
+
+ /*
+ * Allocate buffer to hold the comment
+ */
+ c_bufsize = (size_t)*bufsize;
+ if(c_bufsize) c_comment = (char *)malloc(c_bufsize);
+ if(c_comment == NULL) {
+ HDfree(c_name);
+ return ret_value;
+ }
+
+ /*
+ * Call H5Gget_comment function
+ */
+ c_loc_id = *loc_id;
+ c_ret_value = H5Gget_comment(c_loc_id, c_name, c_bufsize, c_comment);
+ if(c_ret_value < 0) {
+ HDfree(c_name);
+ HDfree(c_comment);
+ return ret_value;
+ }
+
+ /*
+ * Convert C name to FORTRAN and place it in the given buffer
+ */
+ HDpackFstring(c_comment, _fcdtocp(comment), (int)*bufsize);
+
+ if(c_name) HDfree(c_name);
+ if(c_comment) HDfree(c_comment);
+
+ ret_value = 0;
+ return ret_value ;
+}
diff --git a/fortran/src/H5Gff.f90 b/fortran/src/H5Gff.f90
new file mode 100644
index 0000000..de6a8f0
--- /dev/null
+++ b/fortran/src/H5Gff.f90
@@ -0,0 +1,234 @@
+!
+! This file contains Fortran90 interfaces for H5F functions.
+!
+ MODULE H5G
+ USE H5FORTRAN_TYPES
+ USE H5FORTRAN_FLAGS
+
+ CONTAINS
+
+ !!!============================================================
+
+ SUBROUTINE h5gcreate_f(loc_id, name, grp_id, hdferr, size_hint)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
+ INTEGER(HID_T), INTENT(OUT) :: grp_id ! Group identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(SIZE_T), OPTIONAL, INTENT(IN) :: size_hint
+ ! Parameter indicating
+ ! the number of bytes
+ ! to reserve for the
+ ! names that will appear
+ ! in the group
+ INTEGER :: namelen ! Length of the name character string
+ INTEGER(SIZE_T) :: size_hint_default
+ INTEGER, EXTERNAL :: h5gcreate_c
+ size_hint_default = OBJECT_NAMELEN_DEFAULT_F
+ if (present(size_hint)) size_hint_default = size_hint
+ namelen = LEN(name)
+ hdferr = h5gcreate_c(loc_id, name, namelen, size_hint_default, &
+ grp_id)
+
+ END SUBROUTINE h5gcreate_f
+
+ !!!============================================================
+
+ SUBROUTINE h5gopen_f(loc_id, name, grp_id, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
+ INTEGER(HID_T), INTENT(OUT) :: grp_id ! File identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER :: namelen ! Length of the name character string
+ INTEGER, EXTERNAL :: h5gopen_c
+
+ namelen = LEN(name)
+ hdferr = h5gopen_c(loc_id, name, namelen, grp_id)
+
+ END SUBROUTINE h5gopen_f
+
+ !!!============================================================
+
+ SUBROUTINE h5gclose_f(grp_id, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: grp_id ! Group identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5gclose_c
+
+ hdferr = h5gclose_c(grp_id)
+
+ END SUBROUTINE h5gclose_f
+
+ !!!============================================================
+
+ SUBROUTINE h5gget_obj_info_idx_f(loc_id, name, idx, &
+ obj_name, obj_type, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
+ INTEGER, INTENT(IN) :: idx ! Index of member object
+ CHARACTER(LEN=*), INTENT(OUT) :: obj_name ! Name of the object
+ INTEGER, INTENT(OUT) :: obj_type ! Object type
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER :: namelen ! Length of the name character string
+ INTEGER :: obj_namelen ! Length of the obj_name character string
+ INTEGER, EXTERNAL :: h5gget_obj_info_idx_c
+
+ namelen = LEN(name)
+ obj_namelen = LEN(obj_name)
+ hdferr = h5gget_obj_info_idx_c(loc_id, name, namelen, idx, &
+ obj_name, obj_namelen, obj_type)
+
+ END SUBROUTINE h5gget_obj_info_idx_f
+
+ !!!============================================================
+
+ SUBROUTINE h5gn_members_f(loc_id, name, nmembers, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
+ INTEGER, INTENT(OUT) :: nmembers ! Number of members in the
+ ! group
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER :: namelen ! Length of the name character string
+ INTEGER, EXTERNAL :: h5gn_members_c
+
+ namelen = LEN(name)
+ hdferr = h5gn_members_c(loc_id, name, namelen, nmembers)
+
+ END SUBROUTINE h5gn_members_f
+
+ !!!============================================================
+
+ SUBROUTINE h5glink_f(loc_id, link_type, current_name, &
+ new_name, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ INTEGER, INTENT(IN) :: link_type ! link type
+ ! Possible values are:
+ ! H5G_LINK_HARD_F (0) or
+ ! H5G_LINK_SOFT_F (1)
+
+ CHARACTER(LEN=*), INTENT(IN) :: current_name
+ ! Current name of an object
+ CHARACTER(LEN=*), INTENT(IN) :: new_name ! New name of an object
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER :: current_namelen ! Lenghth of the current_name string
+ INTEGER :: new_namelen ! Lenghth of the new_name string
+ INTEGER, EXTERNAL :: h5glink_c
+
+ current_namelen = LEN(current_name)
+ new_namelen = LEN(new_name)
+ hdferr = h5glink_c(loc_id, link_type, current_name, &
+ current_namelen, new_name, new_namelen)
+ END SUBROUTINE h5glink_f
+
+ !!!============================================================
+
+ SUBROUTINE h5gunlink_f(loc_id, name, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of an object
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER :: namelen ! Lenghth of the name character string
+
+ INTEGER, EXTERNAL :: h5gunlink_c
+
+ namelen = LEN(name)
+ hdferr = h5gunlink_c(loc_id, name, namelen)
+ END SUBROUTINE h5gunlink_f
+
+ !!!============================================================
+
+ SUBROUTINE h5gmove_f(loc_id, name, new_name, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Current name of an object
+ CHARACTER(LEN=*), INTENT(IN) :: new_name ! New name of an object
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER :: namelen ! Lenghth of the current_name string
+ INTEGER :: new_namelen ! Lenghth of the new_name string
+ INTEGER, EXTERNAL :: h5gmove_c
+
+ namelen = LEN(name)
+ new_namelen = LEN(new_name)
+ hdferr = h5gmove_c(loc_id, name, namelen, new_name, new_namelen)
+ END SUBROUTINE h5gmove_f
+
+ !!!============================================================
+
+ SUBROUTINE h5gget_linkval_f(loc_id, name, size, buffer, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Current name of an object
+ INTEGER(SIZE_T), INTENT(IN) :: size ! Maximum number of buffer
+ CHARACTER(LEN=size), INTENT(OUT) :: buffer
+ ! Buffer to hold a name of
+ ! the object symbolic link
+ ! points to
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER :: namelen ! Lenghth of the current_name string
+ INTEGER, EXTERNAL :: h5gget_linkval_c
+
+ namelen = LEN(name)
+ hdferr = h5gget_linkval_c(loc_id, name, namelen, size, buffer)
+ END SUBROUTINE h5gget_linkval_f
+
+ !!!============================================================
+
+ SUBROUTINE h5gset_comment_f(loc_id, name, comment, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Current name of an object
+ CHARACTER(LEN=*), INTENT(IN) :: comment ! New name of an object
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER :: namelen ! Lenghth of the current_name string
+ INTEGER :: commentlen ! Lenghth of the comment string
+ INTEGER, EXTERNAL :: h5gset_comment_c
+
+ namelen = LEN(name)
+ commentlen = LEN(comment)
+ hdferr = h5gset_comment_c(loc_id, name, namelen, comment, commentlen)
+ END SUBROUTINE h5gset_comment_f
+
+ !!!============================================================
+
+ SUBROUTINE h5gget_comment_f(loc_id, name, size, buffer, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Current name of an object
+ INTEGER(SIZE_T), INTENT(IN) :: size ! Maximum number of buffer
+ CHARACTER(LEN=size), INTENT(OUT) :: buffer
+ ! Buffer to hold a comment
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER :: namelen ! Lenghth of the current_name string
+ INTEGER, EXTERNAL :: h5gget_comment_c
+
+ namelen = LEN(name)
+ hdferr = h5gget_comment_c(loc_id, name, namelen, size, buffer)
+ END SUBROUTINE h5gget_comment_f
+
+ !!!============================================================
+
+ END MODULE H5G
diff --git a/fortran/src/H5Git.c b/fortran/src/H5Git.c
new file mode 100644
index 0000000..51db86f
--- /dev/null
+++ b/fortran/src/H5Git.c
@@ -0,0 +1,220 @@
+/*-------------------------------------------------------------------------
+ * Copyright (C) 1999 National Center for Supercomputing Applications.
+ * All rights reserved.
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include <hdf5.h>
+#include "H5Git.h"
+#define FALSE 0
+
+herr_t count_elems(hid_t loc_id, const char *name, void *opdata);
+/*herr_t obj_info(hid_t loc_id, const char *name, void *opdata);*/
+herr_t obj_info(hid_t loc_id, char *name, void *opdata);
+
+typedef struct retval {
+ char * name;
+ int type;
+} retval_t;
+
+
+/*-------------------------------------------------------------------------
+ * Function: H5Gn_members
+ *
+ * Purpose: Return the number of members of a group. The "members"
+ * are the datasets, groups, and named datatypes in the
+ * group.
+ *
+ * This function wraps the H5Ginterate() function in
+ * a completely obvious way, uses the operator
+ * function 'count_members()' below;
+ *
+ * See also: H5Giterate()
+ *
+ * IN: hid_t file: the file id
+ * IN: char *group_name: the name of the group
+ *
+ * Errors:
+ *
+ * Return: Success: The object number of members of
+ * the group.
+ *
+ * Failure: FAIL
+ *
+ * Programmer: REMcG
+ * Monday, Aug 2, 1999
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+int
+H5Gn_members( hid_t loc_id, char *group_name )
+{
+ int res;
+ int nelems = 0;
+
+ res = H5Giterate(loc_id, group_name, NULL, count_elems, (void *)&nelems);
+ if (res < 0) {
+ return res;
+ } else {
+ return( nelems );
+ }
+}
+
+
+
+/*-------------------------------------------------------------------------
+ * Function: H5Gget_obj_info_idx
+ *
+ * Purpose: Return the name and type of the member of the group
+ * at index 'idx', as defined by the H5Giterator()
+ * function.
+ *
+ * This function wraps the H5Ginterate() function in
+ * a completely obvious way, uses the operator
+ * function 'get_objinfo()' below;
+ *
+ * See also: H5Giterate()
+ *
+ * IN: hid_t file: the file id
+ * IN: char *group_name: the name of the group
+ * IN: int idx: the index of the member object (see
+ * H5Giterate()
+ * OUT: char **objname: the name of the member object
+ * OUT: int *type: the type of the object (dataset,
+ * group, or named datatype)
+ *
+ * Errors:
+ *
+ * Return: Success: The object number of members of
+ * the group.
+ *
+ * Failure: FAIL
+ *
+ * Programmer: REMcG
+ * Monday, Aug 2, 1999
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+herr_t
+H5Gget_obj_info_idx( hid_t loc_id, char *group_name, int idx, char **objname, int *type )
+{
+ int res;
+ retval_t retVal;
+
+ res = H5Giterate(loc_id, group_name, &idx, obj_info, (void *)&retVal);
+ if (res < 0) {
+ return res;
+ }
+ *objname = retVal.name;
+ *type = retVal.type;
+ return 0;
+}
+
+
+
+/*-------------------------------------------------------------------------
+ * Function: count_elems
+ *
+ * Purpose: this is the operator function called by H5Gn_members().
+ *
+ * This function is passed to H5Ginterate().
+ *
+ * See also: H5Giterate()
+ *
+ * OUT: 'opdata' is returned as an integer with the
+ * number of members in the group.
+ *
+ * Errors:
+ *
+ * Return: Success: The object number of members of
+ * the group.
+ *
+ * Failure: FAIL
+ *
+ * Programmer: REMcG
+ * Monday, Aug 2, 1999
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+
+static herr_t
+count_elems(hid_t loc_id, const char *name, void *opdata)
+{
+ herr_t res;
+ H5G_stat_t statbuf;
+
+ res = H5Gget_objinfo(loc_id, name, FALSE, &statbuf);
+ if (res < 0) {
+ return 1;
+ }
+ switch (statbuf.type) {
+ case H5G_GROUP:
+ (*(int *)opdata)++;
+ break;
+ case H5G_DATASET:
+ (*(int *)opdata)++;
+ break;
+ case H5G_TYPE:
+ (*(int *)opdata)++;
+ break;
+ default:
+ (*(int *)opdata)++; /* ???? count links or no? */
+ break;
+ }
+ return 0;
+ }
+
+
+/*-------------------------------------------------------------------------
+ * Function: obj_info
+ *
+ * Purpose: this is the operator function called by H5Gn_members().
+ *
+ * This function is passed to H5Ginterate().
+ *
+ * See also: H5Giterate()
+ *
+ * OUT: 'opdata' is returned as a 'recvar_t', containing
+ * the object name and type.
+ *
+ * Errors:
+ *
+ * Return: Success: The object number of members of
+ * the group.
+ *
+ * Failure: FAIL
+ *
+ * Programmer: REMcG
+ * Monday, Aug 2, 1999
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ * group, or named datatype)
+ */
+static herr_t
+/*obj_info(hid_t loc_id, const char *name, void *opdata)*/
+obj_info(hid_t loc_id, char *name, void *opdata)
+{
+ herr_t res;
+ H5G_stat_t statbuf;
+
+ res = H5Gget_objinfo(loc_id, name, FALSE, &statbuf);
+ if (res < 0) {
+ ((retval_t *)opdata)->type = 0;
+ ((retval_t *)opdata)->name = NULL;
+ return 1;
+ } else {
+ ((retval_t *)opdata)->type = statbuf.type;
+/* ((retval_t *)opdata)->name = strdup(name); */
+ ((retval_t *)opdata)->name = name;
+ return 1;
+ }
+ }
diff --git a/fortran/src/H5Git.h b/fortran/src/H5Git.h
new file mode 100644
index 0000000..e243a18
--- /dev/null
+++ b/fortran/src/H5Git.h
@@ -0,0 +1,16 @@
+/*-------------------------------------------------------------------------
+ * Copyright (C) 1997 National Center for Supercomputing Applications.
+ * All rights reserved.
+ *
+ *-------------------------------------------------------------------------
+ */
+#ifndef _H5Git_H
+#define _H5Git_H
+
+#include <hdf5.h>
+
+int H5Gn_members( hid_t loc_id, char *group_name );
+
+herr_t H5Gget_obj_info_idx( hid_t loc_id, char *group_name, int idx, char **objname, int *type );
+
+#endif /*_H5Git_H*/
diff --git a/fortran/src/H5If.c b/fortran/src/H5If.c
new file mode 100644
index 0000000..f17dc01
--- /dev/null
+++ b/fortran/src/H5If.c
@@ -0,0 +1,29 @@
+#include "H5f90.h"
+
+/*----------------------------------------------------------------------------
+ * Name: h5iget_type_c
+ * Purpose: Call H5Iget_type to get the type of an object
+ * Inputs: obj_id - object identifier
+ * Outputs: type - object type
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Thursday, March 24, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5iget_type_c (hid_t_f *obj_id, int_f *type)
+{
+ int ret_value = -1;
+ hid_t c_obj_id;
+ H5I_type_t c_type;
+
+ /*
+ * Call H5Iget_type function.
+ */
+ c_obj_id = *obj_id;
+ c_type = H5Iget_type(c_obj_id);
+ if (c_type == H5I_BADID) return ret_value;
+ *type = (int_f)c_type;
+ ret_value = 0;
+ return ret_value;
+}
diff --git a/fortran/src/H5Iff.f90 b/fortran/src/H5Iff.f90
new file mode 100644
index 0000000..cd50da3
--- /dev/null
+++ b/fortran/src/H5Iff.f90
@@ -0,0 +1,33 @@
+!
+! This file contains FORTRAN90 interfaces for H5I functions
+!
+ MODULE H5I
+
+ USE H5FORTRAN_TYPES
+ USE H5FORTRAN_FLAGS
+
+ CONTAINS
+
+ SUBROUTINE h5iget_type_f(obj_id, type, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
+ INTEGER, INTENT(OUT) :: type !type of an object.
+ !possible values are:
+ !H5I_FILE_F(1)
+ !H5I_GROUP_F(2)
+ !H5I_DATATYPE_F(3)
+ !H5I_DATASPACE_F(4)
+ !H5I_DATASET_F(5)
+ !H5I_ATTR_F(6)
+ !H5I_BADID_F(-1)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5iget_type_c
+ hdferr = h5iget_type_c(obj_id, type)
+ END SUBROUTINE h5iget_type_f
+
+ END MODULE H5I
+
+
+
+
+
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
new file mode 100644
index 0000000..038e083
--- /dev/null
+++ b/fortran/src/H5Pf.c
@@ -0,0 +1,1748 @@
+#include "H5f90.h"
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5pcreate_c
+ * Purpose: Call H5Pcreate to create a property list
+ * Inputs: classtype - type of the property list
+ * Outputs: prp_id - identifier of the created property list
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pcreate_c ( int_f *classtype, hid_t_f *prp_id )
+{
+ H5P_class_t c_classtype;
+ int CASE;
+ int ret_value = 0;
+ hid_t c_prp_id;
+ CASE = (int)*classtype;
+
+ switch (CASE) {
+
+ case (H5P_FILE_CREATE_F):
+ c_classtype = H5P_FILE_CREATE;
+ break;
+
+ case(H5P_FILE_ACCESS_F):
+ c_classtype = H5P_FILE_ACCESS;
+ break;
+
+ case(H5P_DATASET_CREATE_F):
+ c_classtype = H5P_DATASET_CREATE;
+ break;
+
+ case(H5P_DATASET_XFER_F):
+ c_classtype = H5P_DATASET_XFER;
+ break;
+
+ case(H5P_MOUNT_F):
+ c_classtype = H5P_MOUNT;
+ break;
+
+ default:
+ ret_value = -1;
+ return ret_value;
+ }
+ c_prp_id = H5Pcreate(c_classtype);
+
+ if ( c_prp_id < 0 ) ret_value = -1;
+ *prp_id = (hid_t_f)c_prp_id;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pclose_c
+ * Purpose: Call H5Pclose to close property lis
+ * Inputs: prp_id - identifier of the property list to be closed
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pclose_c ( hid_t_f *prp_id )
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+
+ c_prp_id = *prp_id;
+ if ( H5Pclose(c_prp_id) < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5pcopy_c
+ * Purpose: Call H5Pcopy to copy property list
+ * Inputs: prp_id - identifier of the property list to be copied
+ * Outputs: new_prp_id - identifier of the new property list
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pcopy_c ( hid_t_f *prp_id , hid_t_f *new_prp_id)
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+ hid_t c_new_prp_id;
+
+ c_prp_id = *prp_id;
+ c_new_prp_id = H5Tcopy(c_prp_id);
+ if ( c_new_prp_id < 0 ) ret_value = -1;
+ *new_prp_id = (hid_t_f)c_new_prp_id;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_class_c
+ * Purpose: Call H5Pget_class to determine property list class
+ * Inputs: prp_id - identifier of the dataspace
+ * Outputs: classtype - class type; possible values are:
+ * H5P_NO_CLASS_F -1
+ * H5P_FILE_CREATE_F 0
+ * H5P_FILE_ACCESS_F 1
+ * H5P_DATASET_CREATE_F 2
+ * H5P_DATASET_XFER_F 3
+ * H5P_MOUNT_F 4
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pget_class_c ( hid_t_f *prp_id , int_f *classtype)
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+ H5P_class_t c_classtype;
+
+ c_prp_id = *prp_id;
+ c_classtype = H5Pget_class(c_prp_id);
+ if (c_classtype == H5P_NO_CLASS ) {
+ *classtype = H5P_NO_CLASS_F;
+ ret_value = -1;
+ return ret_value;
+ }
+ if (c_classtype == H5P_FILE_CREATE) *classtype = H5P_FILE_CREATE_F;
+ if (c_classtype == H5P_FILE_ACCESS) *classtype = H5P_FILE_ACCESS_F;
+ if (c_classtype == H5P_DATASET_CREATE) *classtype = H5P_DATASET_CREATE_F;
+ if (c_classtype == H5P_DATASET_XFER) *classtype = H5P_DATASET_XFER_F;
+ if (c_classtype == H5P_MOUNT_F) *classtype = H5P_MOUNT_F;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_preserve_c
+ * Purpose: Call H5Pset_preserve to set transfer property for compound
+ * datatype
+ * Inputs: prp_id - property list identifier
+ * flag - TRUE/FALSE flag
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, February 17, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pset_preserve_c ( hid_t_f *prp_id , int_f *flag)
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+ herr_t status;
+ hbool_t c_flag = 0;
+
+ if (*flag > 0) c_flag = 1;
+ c_prp_id = *prp_id;
+ status = H5Pset_preserve(c_prp_id, c_flag);
+ if ( status < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_preserve_c
+ * Purpose: Call H5Pget_preserve to set transfer property for compound
+ * datatype
+ * Inputs: prp_id - property list identifier
+ * Outputs: flag - TRUE/FALSE flag
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, February 17, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pget_preserve_c ( hid_t_f *prp_id , int_f *flag)
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+ herr_t status;
+ int c_flag;
+
+ c_prp_id = *prp_id;
+ c_flag = H5Pget_preserve(c_prp_id);
+ if ( c_flag < 0 ) ret_value = -1;
+ *flag = (int_f)c_flag;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_deflate_c
+ * Purpose: Call H5Pset_deflate to set deflate level
+ * Inputs: prp_id - property list identifier
+ * level - level of deflation
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pset_deflate_c ( hid_t_f *prp_id , int_f *level)
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+ int c_level;
+ herr_t status;
+
+ c_prp_id = *prp_id;
+ c_level = *level;
+ status = H5Pset_deflate(c_prp_id, c_level);
+ if ( status < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_chunk_c
+ * Purpose: Call H5Pset_chunk to set the sizes of chunks for a chunked
+ * layout dataset
+ * Inputs: prp_id - property list identifier
+ * rank - number of dimensions of each chunk
+ * dims - array of the size of each chunk
+ * Returns: 0 on success, -1 on failure
+ * Saturday, August 14, 1999
+ * Programmer: Elena Pourmal
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pset_chunk_c ( hid_t_f *prp_id, int_f *rank, hsize_t_f *dims )
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ int c_rank;
+ hsize_t *c_dims;
+ herr_t status;
+ int i;
+
+ c_dims = malloc(sizeof(hsize_t) * (*rank ));
+ if (!c_dims) return ret_value;
+
+ /*
+ * Transpose dimension arrays because of C-FORTRAN storage order
+ */
+ for (i = 0; i < *rank ; i++) {
+ c_dims[i] = dims[*rank - i - 1];
+ }
+
+ c_prp_id = *prp_id;
+ c_rank = *rank;
+ status = H5Pset_chunk(c_prp_id, c_rank, c_dims);
+ if (status < 0) return ret_value;
+ ret_value = 0;
+ HDfree (c_dims);
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_chunk_c
+ * Purpose: Call H5Pget_chunk to get the sizes of chunks for a chunked
+ * layout dataset for at list max_rank number of dimensions
+ * Inputs: prp_id - property list identifier
+ * max rank - maximum number of dimensions to return
+ * dims - array of the size of each chunk
+ * Returns: number of chunk's dimnesion on success, -1 on failure
+ * Saturday, August 14, 1999
+ * Programmer: Elena Pourmal
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pget_chunk_c ( hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims )
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ hsize_t *c_dims;
+ int rank;
+ int c_max_rank;
+ int i;
+
+ c_dims = malloc(sizeof(hsize_t) * (*max_rank ));
+ if (!c_dims) return ret_value;
+
+ c_prp_id = *prp_id;
+ c_max_rank = *max_rank;
+ rank = H5Pget_chunk(c_prp_id, c_max_rank, c_dims);
+
+ /*
+ * Transpose dimension arrays because of C-FORTRAN storage order
+ */
+ for (i = 0; i < *max_rank ; i++) {
+ dims[*max_rank - i - 1] = c_dims[i];
+ }
+ HDfree (c_dims);
+ if (rank < 0) return ret_value;
+ ret_value = (int_f)rank;
+ return ret_value;
+}
+
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_fill_valuec_c
+ * Purpose: Call h5pset_fill_value_c to a character fill value
+ * Inputs: prp_id - property list identifier
+ * type_id - datatype identifier (fill value is of type type_id)
+ * fillvalue - character value
+ * Returns: 0 on success, -1 on failure
+ * Saturday, August 14, 1999
+ * Programmer: Elena Pourmal
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
+{
+ int ret_value = -1;
+
+ /*
+ * Call h5pset_fill_value_c function.
+ */
+ ret_value = nh5pset_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));
+
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_fill_value_c
+ * Purpose: Call H5Pset_fill_value to set a fillvalue for a dataset
+ * Inputs: prp_id - property list identifier
+ * type_id - datatype identifier (fill value is of type type_id)
+ * fillvalue - fillvalue
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ hid_t c_type_id;
+ herr_t ret;
+
+ /*
+ * Call H5Pset_fill_value function.
+ */
+ c_prp_id = *prp_id;
+ c_type_id = *type_id;
+ ret = H5Pset_fill_value(c_prp_id, c_type_id, fillvalue);
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_fill_valuec_c
+ * Purpose: Call h5pget_fill_value_c to a character fill value
+ * Inputs: prp_id - property list identifier
+ * type_id - datatype identifier (fill value is of type type_id)
+ * fillvalue - character value
+ * Returns: 0 on success, -1 on failure
+ * Saturday, August 14, 1999
+ * Programmer: Elena Pourmal
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
+{
+ int ret_value = -1;
+
+ /*
+ * Call h5pget_fill_value_c function.
+ */
+ ret_value = nh5pset_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));
+
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_fill_value_c
+ * Purpose: Call H5Pget_fill_value to set a fillvalue for a dataset
+ * Inputs: prp_id - property list identifier
+ * type_id - datatype identifier (fill value is of type type_id)
+ * fillvalue - fillvalue
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ hid_t c_type_id;
+ herr_t ret;
+
+ /*
+ * Call H5Pget_fill_value function.
+ */
+ c_prp_id = *prp_id;
+ c_type_id = *type_id;
+ ret = H5Pget_fill_value(c_prp_id, c_type_id, fillvalue);
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_version_c
+ * Purpose: Call H5Pget_version to get the version information
+ * of various objects for a file creation property list
+ * Inputs: prp_id - property list identifier
+ * Outputs: boot - array to put boot block version number
+ * freelist - array to put global freelist version number
+ * stab - array to put symbol table version number
+ * shhdr - array to put shared object header version number
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, February 23, 2000
+ * Modifications: Removed extra length parameters EP 7/6/00
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_version_c (hid_t_f *prp_id, int_f * boot,int_f * freelist, int_f * stab, int_f *shhdr)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ int i;
+ herr_t ret;
+ int c_boot;
+ int c_freelist;
+ int c_stab;
+ int c_shhdr;
+
+ /*
+ * Call H5Pget_version function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_version(c_prp_id, &c_boot, &c_freelist, &c_stab, &c_shhdr);
+ *boot = (int_f)c_boot;
+ *freelist = (int_f)c_freelist;
+ *stab = (int_f)c_stab;
+ *shhdr = (int_f)c_shhdr;
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_userblock_c
+ * Purpose: Call H5Pget_userblock to get the size of a user block in
+ * a file creation property list
+ * Inputs: prp_id - property list identifier
+ * Outputs size - Size of the user-block in bytes
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, February 23, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_userblock_c (hid_t_f *prp_id, hsize_t_f * size)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ int i;
+ herr_t ret;
+ hsize_t c_size;
+
+ /*
+ * Call H5Pget_userblock function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_userblock(c_prp_id, &c_size);
+
+ *size = (hsize_t_f)c_size;
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_userblock_c
+ * Purpose: Call H5Pset_userblock to set the size of a user block in
+ * a file creation property list
+ * Inputs: prp_id - property list identifier
+ * size - Size of the user-block in bytes
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, February 23, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_userblock_c (hid_t_f *prp_id, hsize_t_f * size)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ hsize_t c_size;
+ c_size = (hsize_t)*size;
+
+ /*
+ * Call H5Pset_userblock function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_userblock(c_prp_id, c_size);
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_sizes_c
+ * Purpose: Call H5Pget_sizes to get the size of the offsets
+ * and lengths used in an HDF5 file
+ * Inputs: prp_id - property list identifier
+ * Outputs sizeof_addr - Size of an object offset in bytes
+ * sizeof_size - Size of an object length in bytes
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, February 23, 2000
+ * Modifications: Deleted extra length parameters. EP 6/7/00
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ int i;
+ herr_t ret;
+ size_t c_sizeof_addr;
+ size_t c_sizeof_size;
+
+ /*
+ * Call H5Pget_sizes function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_sizes(c_prp_id, &c_sizeof_addr, &c_sizeof_size);
+
+ *sizeof_addr = (size_t_f)c_sizeof_addr;
+ *sizeof_size = (size_t_f)c_sizeof_size;
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_sizes_c
+ * Purpose: Call H5Pset_sizes to set the size of the offsets
+ * Inputs: prp_id - property list identifier
+ * sizeof_addr - Size of an object offset in bytes
+ * sizeof_size - Size of an object length in bytes
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, February 23, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ size_t c_addr, c_size;
+ c_addr = (size_t)*sizeof_addr;
+ c_size = (size_t)*sizeof_size;
+
+ /*
+ * Call H5Pset_sizes function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_sizes(c_prp_id, c_addr, c_size);
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_sym_k_c
+ * Purpose: Call H5Pset_sym_k to set the size of parameters used
+ * to control the symbol table node
+ * Inputs: prp_id - property list identifier
+ * ik - Symbol table tree rank
+ * lk - Symbol table node size
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ int c_ik;
+ int c_lk;
+ herr_t ret;
+
+ /*
+ * Call H5Pset_sym_k function.
+ */
+ c_prp_id = *prp_id;
+ c_ik = *ik;
+ c_lk = *lk;
+ ret = H5Pset_sym_k(c_prp_id, c_ik, c_lk);
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_sym_k_c
+ * Purpose: Call H5Pget_sym_k to get the size of parameters used
+ * to control the symbol table node
+ * Inputs: prp_id - property list identifier
+ * Outputs: ik - Symbol table tree rank
+ * lk - Symbol table node size
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ int i;
+ herr_t ret;
+ int c_ik;
+ int c_lk;
+
+ /*
+ * Call H5Pget_sym_k function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_sym_k(c_prp_id, &c_ik, &c_lk);
+ *ik = (int_f)c_ik;
+ *lk = (int_f)c_lk;
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_istore_k_c
+ * Purpose: Call H5Pset_istore_k to set the size of the parameter
+ * used to control the B-trees for indexing chunked datasets
+ * Inputs: prp_id - property list identifier
+ * ik - Symbol table tree rank
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_istore_k_c (hid_t_f *prp_id, int_f* ik)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ int c_ik;
+ herr_t ret;
+
+ /*
+ * Call H5Pset_istore_k function.
+ */
+ c_prp_id = *prp_id;
+ c_ik = *ik;
+ ret = H5Pset_istore_k(c_prp_id, c_ik);
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_istore_k_c
+ * Purpose: Call H5Pget_istore_k to get the size of parameters used
+ * to control the B-trees for indexing chunked datasets
+ * Inputs: prp_id - property list identifier
+ * Outputs: ik - Symbol table tree rank
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_istore_k_c (hid_t_f *prp_id, int_f* ik)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ int c_ik;
+
+ /*
+ * Call H5Pget_istore_k function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_istore_k(c_prp_id, &c_ik);
+ *ik = (int_f)c_ik;
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_driver_c
+ * Purpose: Call H5Pget_driver to get low-level file driver identifier
+ * Inputs: prp_id - property list identifier
+ * Outputs: driver - low-level file driver identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_driver_c (hid_t_f *prp_id, int_f* driver)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ H5F_driver_t c_driver;
+
+ /*
+ * Call H5Pget_driver function.
+ */
+ c_prp_id = *prp_id;
+ c_driver = H5Pget_driver(c_prp_id);
+ *driver = (int_f) c_driver;
+ if (c_driver < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_stdio_c
+ * Purpose: Call H5Pset_stdio to set the low level file driver to
+ * use the functions declared in the stdio.h
+ * Inputs: prp_id - property list identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_stdio_c (hid_t_f *prp_id)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ /*
+ * Call H5Pset_stdio function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_stdio(c_prp_id);
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_stdio_c
+ * Purpose: Call H5Pget_stdio to determine whther the low level file driver
+ * uses the functions declared in the stdio.h
+ * Inputs: prp_id - property list identifier
+ * Outputs: io - value indicates whether the file driver uses
+ * the functions declared in the stdio.h
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_stdio_c (hid_t_f *prp_id, int_f* io)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ /*
+ * Call H5Pget_stdio function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_stdio(c_prp_id);
+ if (ret < 0) return ret_value;
+ *io = (int_f)ret;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_sec2_c
+ * Purpose: Call H5Pset_sec2 to set the low level file driver to
+ * use the functions declared in the unistd.h
+ * Inputs: prp_id - property list identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_sec2_c (hid_t_f *prp_id)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ /*
+ * Call H5Pset_sec2 function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_sec2(c_prp_id);
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_sec2_c
+ * Purpose: Call H5Pget_stdio to determine whther the low level file driver
+ * uses the functions declared in the unistd.h
+ * Inputs: prp_id - property list identifier
+ * Outputs: sec2 - value indicates whether the file driver uses
+ * the functions declared in the unistd.h
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_sec2_c (hid_t_f *prp_id, int_f* sec2)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ /*
+ * Call H5Pget_sec2 function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_sec2(c_prp_id);
+ if (ret < 0) return ret_value;
+ *sec2 = (int_f)ret;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_alignment_c
+ * Purpose: Call H5Pset_alignment to set alignment properties of
+ * a file access property list
+ * Inputs: prp_id - property list identifier
+ * threshold - Threshold value
+ * alignment - Alignment value
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_alignment_c (hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ hsize_t c_threshold, c_alignment;
+ c_threshold = *threshold;
+ c_alignment = * alignment;
+ /*
+ * Call H5Pset_alignment function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_alignment(c_prp_id, c_threshold, c_alignment);
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_alignment_c
+ * Purpose: Call H5Pget_alignment to get alignment properties of
+ * a file access property list
+ * Inputs: prp_id - property list identifier
+ * threshold - Threshold value
+ * alignment - Alignment value
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_alignment_c (hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ hsize_t c_threshold, c_alignment;
+ /*
+ * Call H5Pget_alignment function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_alignment(c_prp_id, &c_threshold, &c_alignment);
+ if (ret < 0) return ret_value;
+ *threshold = (hsize_t_f)c_threshold;
+ *alignment = (hsize_t_f)c_alignment;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_core_c
+ * Purpose: Call H5Pset_core to set the low-level file driver
+ * to use malloc() and free()
+ * Inputs: prp_id - property list identifier
+ * increment - File block size in bytes
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_core_c (hid_t_f *prp_id, size_t_f* increment)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ size_t c_increment;
+ c_increment = (size_t)*increment;
+ /*
+ * Call H5Pset_core function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_core(c_prp_id, c_increment);
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_core_c
+ * Purpose: Call H5Pget_core to determine whether the file access
+ * property list is set to the core drive
+ * Inputs: prp_id - property list identifier
+ * Outputs increment - File block size in bytes
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_core_c (hid_t_f *prp_id, size_t_f* increment)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ size_t c_increment;
+ /*
+ * Call H5Pset_increment function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_core(c_prp_id, &c_increment);
+ if (ret < 0) return ret_value;
+ *increment = (size_t_f)c_increment;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_family_c
+ * Purpose: Call H5Pset_family to set the file access properties list
+ * to the family driver
+ * Inputs: prp_id - property list identifier
+ * memb_size - Logical size, in bytes, of each family member.
+ * memb_plist - Identifier of the file access property list
+ * for each member of the family
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_family_c(hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist )
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ hsize_t c_memb_size;
+ hid_t c_memb_plist;
+ c_memb_size =(hsize_t) *memb_size;
+ c_memb_plist =(hsize_t) *memb_plist;
+ /*
+ * Call H5Pset_family function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_family(c_prp_id, c_memb_size, c_memb_plist);
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_family_c
+ * Purpose: Call H5Pget_family to determine whether the file access
+ * property list is set to the family driver
+ * Inputs: prp_id - property list identifier
+ * memb_size - Logical size, in bytes, of each family member.
+ * memb_plist - Identifier of the file access property list
+ * for each member of the family
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_family_c(hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ hsize_t c_memb_size;
+ hid_t c_memb_plist;
+ /*
+ * Call H5Pget_family function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_family(c_prp_id, &c_memb_size, &c_memb_plist);
+ if (ret < 0) return ret_value;
+ *memb_size = (hsize_t_f)c_memb_size;
+ *memb_plist = (hsize_t_f)c_memb_plist;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_cache_c
+ * Purpose: Call H5Pset_cache to set he number of elements in
+ * the meta data cache and the total number of bytes in
+ * the raw data chunk cache
+ * Inputs: prp_id - property list identifier
+ * mdc_nelmts - Number of elements (objects) in the
+ * meta data cache
+ * rdcc_nbytes - Total size of the raw data chunk cache, in bytes
+ * rdcc_w0 - Preemption policy
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications: Changed the type of the rdcc_w0 parameter to be real_f EP 7/7/00
+ * instead of double
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, int_f* rdcc_nelmts, size_t_f* rdcc_nbytes , real_f* rdcc_w0 )
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ int c_mdc_nelmts;
+ int c_rdcc_nelmts;
+ size_t c_rdcc_nbytes;
+ double c_rdcc_w0;
+ c_rdcc_nbytes =(size_t) *rdcc_nbytes;
+ c_rdcc_w0 = (double)*rdcc_w0;
+
+ /*
+ * Call H5Pset_cache function.
+ */
+ c_prp_id = *prp_id;
+ c_mdc_nelmts = *mdc_nelmts;
+ c_rdcc_nelmts = *rdcc_nelmts;
+ ret = H5Pset_cache(c_prp_id, c_mdc_nelmts, c_rdcc_nelmts, c_rdcc_nbytes, c_rdcc_w0 );
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_cache_c
+ * Purpose: Call H5Pget_cache to get he number of elements in
+ * the meta data cache and the total number of bytes in
+ * the raw data chunk cache
+ * Inputs: prp_id - property list identifier
+ * Outputs: mdc_nelmts - Number of elements (objects) in the
+ * meta data cache
+ * rdcc_nelmts - Number of elements in the raw data chunk
+ * rdcc_nbytes - Total size of the raw data chunk cache, in bytes
+ * rdcc_w0 - Preemption policy
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications: Changed type of the rdcc_w0 parameter to be real_f instead of double
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, int_f* rdcc_nelmts, size_t_f* rdcc_nbytes , real_f* rdcc_w0)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ int c_mdc_nelmts, c_rdcc_nelmts;
+ size_t c_rdcc_nbytes;
+ hid_t c_memb_plist;
+ double c_rdcc_w0;
+ /*
+ * Call H5Pget_cache function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_cache(c_prp_id, &c_mdc_nelmts, &c_rdcc_nelmts, &c_rdcc_nbytes, &c_rdcc_w0);
+ if (ret < 0) return ret_value;
+ *mdc_nelmts = (int_f)c_mdc_nelmts;
+ *rdcc_nelmts = (int_f)c_rdcc_nelmts;
+ *rdcc_nbytes = (size_t_f)c_rdcc_nbytes;
+ *rdcc_w0 = (real_f)c_rdcc_w0;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_split_c
+ * Purpose: Call H5Pset_split to set he low-level driver to split meta data
+ * from raw data
+ * Inputs: prp_id - property list identifier
+ * meta_len - Length of meta_ext
+ * meta_ext - Name of the extension for the metafile filename.
+ * meta_plist - Identifier of the meta file access property list
+ * raw_len - Length of raw _ext
+ * raw_ext - Name of the extension for the raw file filename.
+ * raw_plist - Identifier of the raw file access property list
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_split_c(hid_t_f *prp_id, int_f* meta_len, _fcd meta_ext, hid_t_f* meta_plist, int_f* raw_len, _fcd raw_ext, hid_t_f * raw_plist)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ hid_t c_meta_plist;
+ hid_t c_raw_plist;
+ herr_t ret;
+ char* c_meta_ext;
+ char* c_raw_ext;
+ c_meta_ext = (char *)HD5f2cstring(meta_ext, (int)*meta_len);
+ if (c_meta_ext == NULL) return ret_value;
+ c_raw_ext = (char *)HD5f2cstring(raw_ext, (int)*raw_len);
+ if (c_raw_ext == NULL) return ret_value;
+
+ /*
+ * Call H5Pset_split function.
+ */
+ c_prp_id = *prp_id;
+ c_meta_plist = *meta_plist;
+ c_raw_plist = *raw_plist;
+ ret = H5Pset_split(c_prp_id, c_meta_ext, c_meta_plist, c_raw_ext, c_raw_plist );
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_split_c
+ * Purpose: Call H5Pget_split to determine whether the file access
+ * property list is set to the split driver
+ * Inputs: prp_id - property list identifier
+ * meta_ext_size - Number of characters of the meta file extension
+ * to be copied to the meta_ext buffer
+ * raw_ext_size - Number of characters of the raw file extension
+ * to be copied to the raw_ext buffer
+ *Outputs: meta_ext - Name of the extension for the metafile filename.
+ * meta_plist - Identifier of the meta file access property list
+ * raw_ext - Name of the extension for the raw file filename.
+ * raw_plist - Identifier of the raw file access property list
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_split_c(hid_t_f *prp_id, size_t_f* meta_ext_size , _fcd meta_ext, hid_t_f* meta_plist, size_t_f* raw_ext_size, _fcd raw_ext, hid_t_f * raw_plist)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ size_t c_meta_ext_size, c_raw_ext_size;
+ hid_t c_meta_plist, c_raw_plist;
+
+ char* c_meta_ext;
+ char* c_raw_ext;
+
+ c_meta_ext_size = (size_t) *meta_ext_size;
+ c_raw_ext_size = (size_t) *raw_ext_size;
+ c_meta_ext = (char*)malloc(sizeof(char)*c_meta_ext_size);
+ c_raw_ext = (char*)malloc(sizeof(char)*c_raw_ext_size);
+ if(c_meta_ext == NULL || c_raw_ext == NULL) return ret_value;
+
+ /*
+ * Call H5Pget_split function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_split(c_prp_id, c_meta_ext_size, c_meta_ext,&c_meta_plist, c_raw_ext_size, c_raw_ext, &c_raw_plist );
+
+ if (ret < 0) return ret_value;
+ *meta_plist = c_meta_plist;
+ *raw_plist = c_raw_plist;
+ HDpackFstring(c_meta_ext, _fcdtocp(meta_ext), strlen(c_meta_ext));
+ HDpackFstring(c_raw_ext, _fcdtocp(raw_ext), strlen(c_raw_ext));
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_gc_references_c
+ * Purpose: Call H5Pset_gc_references to set garbage
+ * collecting references flag
+ * Inputs: prp_id - property list identifier
+ * gc_reference - flag for garbage collecting references
+ * for the file
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_gc_references_c (hid_t_f *prp_id, int_f* gc_references)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ unsigned c_gc_references;
+ c_gc_references = (unsigned)*gc_references;
+
+ /*
+ * Call H5Pset_gc_references function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_gc_references(c_prp_id, c_gc_references);
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_gc_references_c
+ * Purpose: Call H5Pget_gc_references to set garbage
+ * collecting references flag
+ * Inputs: prp_id - property list identifier
+ * Outputs gc_reference - flag for garbage collecting references
+ * for the file
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_gc_references_c (hid_t_f *prp_id, int_f* gc_references)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ unsigned c_gc_references;
+ herr_t ret;
+ /*
+ * Call H5Pget_gc_references function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_gc_references(c_prp_id, &c_gc_references);
+ if (ret < 0) return ret_value;
+ *gc_references = (int_f)c_gc_references;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_layout_c
+ * Purpose: Call H5Pset_layout to the type of storage used
+ * store the raw data for a dataset
+ * Inputs: prp_id - property list identifier
+ * layout - Type of storage layout for raw data.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_layout_c (hid_t_f *prp_id, int_f* layout)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ H5D_layout_t c_layout;
+ c_layout = (H5D_layout_t)*layout;
+ /*
+ * Call H5Pset_layout function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_layout(c_prp_id, c_layout);
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_layout_c
+ * Purpose: Call H5Pget_layout to the type of storage used
+ * store the raw data for a dataset
+ * Inputs: prp_id - property list identifier
+ * Outputs: layout - Type of storage layout for raw data.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_layout_c (hid_t_f *prp_id, int_f* layout)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ H5D_layout_t c_layout;
+ /*
+ * Call H5Pget_layout function.
+ */
+ c_prp_id = *prp_id;
+ c_layout = H5Pget_layout(c_prp_id);
+ if (c_layout < 0) return ret_value;
+ *layout = (int_f)c_layout;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_filter_c
+ * Purpose: Call H5Pset_filter to add a filter to the filter pipeline.
+ * Inputs: prp_id - property list identifier
+ * filter - Filter to be added to the pipeline.
+ * flags - Bit vector specifying certain general
+ * properties of the filter.
+ * cd_nelmts - Number of elements in cd_values.
+ * cd_values - Auxiliary data for the filter.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, February 23, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_filter_c (hid_t_f *prp_id, int_f* filter, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values )
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ size_t c_cd_nelmts;
+ unsigned int c_flags;
+ H5Z_filter_t c_filter;
+ unsigned int * c_cd_values;
+ int i;
+
+ c_filter = (H5Z_filter_t)*filter;
+ c_flags = (unsigned)*flags;
+ c_cd_nelmts = (size_t)*cd_nelmts;
+ c_cd_values = (unsigned int*)malloc(sizeof(unsigned int)*((int)c_cd_nelmts));
+ if (!c_cd_values) return ret_value;
+ for (i = 0; i < c_cd_nelmts; i++)
+ c_cd_values[i] = (unsigned int)cd_values[i];
+
+ /*
+ * Call H5Pset_filter function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_filter(c_prp_id, c_filter, c_flags, c_cd_nelmts,c_cd_values );
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ free(c_cd_values);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_nfilters_c
+ * Purpose: Call H5Pget_nfilters to get the number of filters
+ * in the pipeline
+ * Inputs: prp_id - property list identifier
+ * Outputs: nfilters - number of filters defined in the filter pipline
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_nfilters_c (hid_t_f *prp_id, int_f* nfilters)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ int c_nfilters;
+ /*
+ * Call H5Pget_nfilters function.
+ */
+ c_prp_id = *prp_id;
+ c_nfilters = H5Pget_nfilters(c_prp_id);
+ if (c_nfilters < 0) return ret_value;
+ *nfilters = (int_f)c_nfilters;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_filter_c
+ * Purpose: Call H5Pget_filter to get information about a filter
+ * in a pipeline
+ * Inputs: prp_id - property list identifier
+ * filter_number - Sequence number within the filter
+ * pipeline of the filter for which
+ * information is sought.
+ * namelen - Anticipated number of characters in name.
+ *Outputs: flags - Bit vector specifying certain general
+ * properties of the filter.
+ * cd_nelmts - Number of elements in cd_value
+ * cd_values - Auxiliary data for the filter.
+ * name - Name of the filter
+ * filter_id - filter identification number
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_filter_c(hid_t_f *prp_id, int_f* filter_number, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values, size_t_f *namelen, _fcd name, int_f* filter_id)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ int c_filter_number;
+ unsigned int c_flags;
+ size_t c_cd_nelmts, c_namelen;
+ H5Z_filter_t c_filter;
+ unsigned int * c_cd_values;
+ char* c_name;
+ int i;
+
+ c_cd_nelmts = (size_t)*cd_nelmts;
+ c_namelen = (size_t)*namelen;
+ c_name = (char*)malloc(sizeof(char)*c_namelen);
+ if (!c_name) return ret_value;
+
+ c_cd_values = (unsigned int*)malloc(sizeof(unsigned int)*((int)c_cd_nelmts));
+ if (!c_cd_values) return ret_value;
+
+ /*
+ * Call H5Pget_filter function.
+ */
+ c_prp_id = *prp_id;
+ c_filter_number = *filter_number;
+ c_filter = H5Pget_filter(c_prp_id, c_filter_number, &c_flags, &c_cd_nelmts, c_cd_values, c_namelen, c_name);
+
+ if (c_filter < 0) return ret_value;
+
+ *filter_id = c_filter;
+ *cd_nelmts = c_cd_nelmts;
+ *flags = c_flags;
+ HDpackFstring(c_name, _fcdtocp(name), strlen(c_name));
+
+ for (i = 0; i < c_cd_nelmts; i++)
+ cd_values[i] = (int_f)c_cd_values[i];
+
+ HDfree(c_name);
+ HDfree(c_cd_values);
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_external_c
+ * Purpose: Call H5Pset_external to add an external file to the
+ * list of external files.
+ * Inputs: prp_id - property list identifier
+ * name - Name of an external file
+ * namelen - length of name
+ * offset - Offset, in bytes, from the beginning of the file
+ * to the location in the file where the data starts.
+ * bytes - Number of bytes reserved in the file for the data.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, February 23, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_external_c (hid_t_f *prp_id, _fcd name, int_f* namelen, int_f* offset, hsize_t_f*bytes)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ hsize_t c_bytes;
+ char* c_name;
+ int c_namelen;
+ off_t c_offset;
+
+ c_bytes = (hsize_t) *bytes;
+ c_offset = (off_t)*offset;
+
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Pset_external function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_external(c_prp_id, c_name, c_offset, c_bytes);
+
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_external_count_c
+ * Purpose: Call H5Pget_external_count to get the number of external
+ * files for the specified dataset.
+ * Inputs: prp_id - property list identifier
+ * Outputs: count - number of external files
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_external_count_c (hid_t_f *prp_id, int_f* count)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ int c_count;
+ /*
+ * Call H5Pget_external_count function.
+ */
+ c_prp_id = *prp_id;
+ c_count = H5Pget_external_count(c_prp_id);
+ if (c_count < 0) return ret_value;
+ *count = (int_f)c_count;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_external_c
+ * Purpose: Call H5Pget_external to get nformation about an external file.
+ * Inputs: prp_id - property list identifier
+ * name_size - length of name
+ * idx - External file index.
+ *Outputs: name - Name of an external file
+ * offset - Offset, in bytes, from the beginning of the file
+ * to the location in the file where the data starts.
+ * bytes - Number of bytes reserved in the file for the data.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, February 23, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_external_c(hid_t_f *prp_id,int*idx, size_t_f* name_size, _fcd name, int_f* offset, hsize_t_f*bytes)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ int c_idx;
+ herr_t status;
+ size_t c_namelen;
+ char* c_name;
+ int i;
+ off_t c_offset;
+ hsize_t size;
+
+ c_namelen = (size_t)*name_size;
+ /*
+ * Allocate memory to store the name of the external file.
+ */
+ if(c_namelen) c_name = (char*) HDmalloc(c_namelen + 1);
+
+ /*
+ * Call H5Pget_external function.
+ */
+ c_prp_id = *prp_id;
+ c_idx = *idx;
+ status = H5Pget_external(c_prp_id, c_idx, c_namelen, c_name, &c_offset, &size );
+
+ if (status < 0) {
+ HDfree(c_name);
+ return ret_value;
+ }
+
+ *offset = (int_f)c_offset;
+ *bytes = (hsize_t_f)size;
+ HDpackFstring(c_name, _fcdtocp(name), strlen(c_name));
+
+ HDfree(c_name);
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_hyper_cache_c
+ * Purpose: Call H5Pset__hyper_cache to indicate whether to
+ * cache hyperslab blocks during I/O.
+ * Inputs: prp_id - property list identifier
+ * cache -
+ * limit - Maximum size of the hyperslab block to cache.
+ * 0 (zero) indicates no limit.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_hyper_cache_c(hid_t_f *prp_id, int_f* cache, int_f* limit)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ unsigned c_cache, c_limit;
+ c_cache = (unsigned) *cache;
+ c_limit = (unsigned) *limit;
+
+ /*
+ * Call H5Pset_hyper_cache function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_hyper_cache(c_prp_id, c_cache, c_limit);
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_hyper_cache_c
+ * Purpose: Call H5Pget_hyper_cache to get information regarding
+ * the caching of hyperslab blocks
+ * Inputs: prp_id - property list identifier
+ * cache -
+ * limit - Maximum size of the hyperslab block to cache.
+ * 0 (zero) indicates no limit.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_hyper_cache_c(hid_t_f *prp_id, int_f* cache, int_f* limit)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ unsigned c_cache, c_limit;
+ /*
+ * Call H5Pget__hyper_cache function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_hyper_cache(c_prp_id, &c_cache, &c_limit);
+ if (ret < 0) return ret_value;
+ *cache = (int_f)c_cache;
+ *limit = (int_f)c_limit;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_btree_ratios_c
+ * Purpose: Call H5Pset_btree_ratios to set B-tree split ratios for B-tree split ratios for a dataset transfer property list. a
+ * dataset transfer property list.
+ * Inputs: prp_id - property list identifier
+ * left - The B-tree split ratio for left-most nodes.
+ * middle - The B-tree split ratio for all other nodes
+ * right - The B-tree split ratio for right-most nodes
+ * and lone nodes.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications: Changed the type of the last three parameters from double to real_f
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* right)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ double c_left;
+ double c_middle;
+ double c_right;
+ c_left = (double)*left;
+ c_middle = (double)*middle;
+ c_right = (double)*right;
+
+ /*
+ * Call H5Pset_btree_ratios function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_btree_ratios(c_prp_id, c_left, c_middle, c_right);
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_btree_ratios_c
+ * Purpose: Call H5Pget_btree_ratios to Gets B-tree split ratios
+ * for a dataset transfer property list.
+ * Inputs: prp_id - property list identifier
+ * left - The B-tree split ratio for left-most nodes.
+ * middle - The B-tree split ratio for all other nodes
+ * right - The B-tree split ratio for right-most nodes
+ * and lone nodes.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, February 25, 2000
+ * Modifications: Changed the type of the last three parameters from double to real_f
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* right)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ double c_left, c_right, c_middle;
+
+ /*
+ * Call H5Pget_btree_ratios function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_btree_ratios(c_prp_id, &c_left, &c_middle, &c_right);
+ *left = (real_f)c_left;
+ *middle = (real_f)c_middle;
+ *right = (real_f)c_right;
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
diff --git a/fortran/src/H5Pf_parallel.c b/fortran/src/H5Pf_parallel.c
new file mode 100644
index 0000000..6dc0850
--- /dev/null
+++ b/fortran/src/H5Pf_parallel.c
@@ -0,0 +1,161 @@
+#include "H5f90.h"
+#include <mpi.h>
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_mpi_c
+ * Purpose: Call H5Pset_mpi to set mode for parallel I/O and the user
+ * supplied communicator and info object
+ * Inputs: prp_id - property list identifier
+ * comm - MPI communicator
+ * info - MPI info object
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, June 8, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_mpi_c(hid_t_f *prp_id, int_f* comm, int_f* info)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ MPI_Comm c_comm;
+ MPI_Info c_info;
+ c_comm = (MPI_Comm) *comm;
+ c_info = (MPI_Info) *info;
+
+ /*
+ * Call H5Pset_mpi function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_mpi(c_prp_id, c_comm, c_info);
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_mpi_c
+ * Purpose: Call H5Pget_mpi to retrieve communicator and info object
+ * Inputs: prp_id - property list identifier
+ * comm - buffer to return MPI communicator
+ * info - buffer to return MPI info object
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, June 8, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_mpi_c(hid_t_f *prp_id, int_f* comm, int_f* info)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ MPI_Comm c_comm;
+ MPI_Info c_info;
+
+ /*
+ * Call H5Pget_mpi function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_mpi(c_prp_id, &c_comm, &c_info);
+ if (ret < 0) return ret_value;
+ *comm = (int_f) c_comm;
+ *info = (int_f) c_info;
+ ret_value = 0;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pset_xfer_c
+ * Purpose: Call H5Pset_xfer to set transfer mode of the dataset
+ * trasfer property list
+ * Inputs: prp_id - property list identifier
+ * data_xfer_mode - transfer mode
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, June 15, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_xfer_c(hid_t_f *prp_id, int_f* data_xfer_mode)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ H5D_transfer_t c_data_xfer_mode;
+ int CASE;
+ CASE = *data_xfer_mode;
+ switch (CASE) {
+
+ case H5D_XFER_INDEPENDENT_F:
+ c_data_xfer_mode = H5D_XFER_INDEPENDENT;
+ break;
+
+ case H5D_XFER_COLLECTIVE_F:
+ c_data_xfer_mode = H5D_XFER_COLLECTIVE;
+ break;
+
+ case H5D_XFER_DFLT_F:
+ c_data_xfer_mode = H5D_XFER_DFLT;
+ break;
+ default:
+ return ret_value;
+ }
+ /*
+ * Call H5Pset_xfer function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pset_xfer(c_prp_id, c_data_xfer_mode);
+ if (ret < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_xfer_c
+ * Purpose: Call H5Pget_xfer to get transfer mode of the dataset
+ * trasfer property list
+ * Inputs: prp_id - property list identifier
+ * data_xfer_mode - buffer to retrieve transfer mode
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, June 15, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_xfer_c(hid_t_f *prp_id, int_f* data_xfer_mode)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ herr_t ret;
+ H5D_transfer_t c_data_xfer_mode;
+ int CASE;
+
+ /*
+ * Call H5Pget_xfer function.
+ */
+ c_prp_id = *prp_id;
+ ret = H5Pget_xfer(c_prp_id, &c_data_xfer_mode);
+ if (ret < 0) return ret_value;
+
+ CASE = (int)c_data_xfer_mode;
+ switch (CASE) {
+
+ case H5D_XFER_INDEPENDENT:
+ *data_xfer_mode = H5D_XFER_INDEPENDENT_F;
+ break;
+
+ case H5D_XFER_COLLECTIVE:
+ *data_xfer_mode = H5D_XFER_COLLECTIVE_F;
+ break;
+
+ case H5D_XFER_DFLT:
+ *data_xfer_mode = H5D_XFER_DFLT_F;
+ break;
+
+ default:
+ return ret_value;
+ }
+ ret_value = 0;
+ return ret_value;
+}
diff --git a/fortran/src/H5Pff.f90 b/fortran/src/H5Pff.f90
new file mode 100644
index 0000000..ec3414c
--- /dev/null
+++ b/fortran/src/H5Pff.f90
@@ -0,0 +1,744 @@
+!
+! This file contains Fortran90 interfaces for H5P functions.
+!
+ MODULE H5P
+
+ USE H5FORTRAN_TYPES
+ USE H5FORTRAN_FLAGS
+
+ INTERFACE h5pset_fill_value_f
+ MODULE PROCEDURE h5pset_fill_value_integer
+ MODULE PROCEDURE h5pset_fill_value_real
+! Comment if on T3E
+ MODULE PROCEDURE h5pset_fill_value_double
+! End comment if on T3E
+ MODULE PROCEDURE h5pset_fill_value_char
+ END INTERFACE
+
+ INTERFACE h5pget_fill_value_f
+ MODULE PROCEDURE h5pget_fill_value_integer
+ MODULE PROCEDURE h5pget_fill_value_real
+! Comment if on T3E
+ MODULE PROCEDURE h5pget_fill_value_double
+! End comment if on T3E
+ MODULE PROCEDURE h5pget_fill_value_char
+ END INTERFACE
+
+ CONTAINS
+
+ SUBROUTINE h5pcreate_f(classtype, prp_id, hdferr)
+ IMPLICIT NONE
+ INTEGER, INTENT(IN) :: classtype ! The type of the property list
+ ! to be created. Possible values
+ ! are:
+ ! H5P_FILE_CREATE_F (0)
+ ! H5P_FILE_ACCESS_F (1)
+ ! H5P_DATASET_CREATE_F (2)
+ ! H5P_DATASET_XFER_F (3)
+ ! H5P_MOUNT_F (4)
+ INTEGER(HID_T), INTENT(OUT) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pcreate_c
+ hdferr = h5pcreate_c(classtype, prp_id)
+ END SUBROUTINE h5pcreate_f
+
+
+ SUBROUTINE h5pset_preserve_f(prp_id, flag, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: flag ! TRUE/FALSE flag to set the dataset
+ ! transfer property for partila writing/reading
+ ! compound datatype
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_preserve_c
+ hdferr = h5pset_preserve_c(prp_id, flag)
+ END SUBROUTINE h5pset_preserve_f
+
+ SUBROUTINE h5pget_preserve_f(prp_id, flag, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: flag ! TRUE/FALSE flag. Shows status of the dataset's
+ ! transfer property for partial writing/reading
+ ! compound datatype
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_preserve_c
+ hdferr = h5pget_preserve_c(prp_id, flag)
+ END SUBROUTINE h5pget_preserve_f
+
+ SUBROUTINE h5pget_class_f(prp_id, classtype, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: classtype ! The type of the property list
+ ! to be created. Possible values
+ ! are:
+ ! H5P_NO_CLASS (-1)
+ ! H5P_FILE_CREATE_F (0)
+ ! H5P_FILE_ACCESS_F (1)
+ ! H5PE_DATASET_CREATE_F (2)
+ ! H5P_DATASET_XFER_F (3)
+ ! H5P_MOUNT_F (4)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_class_c
+ hdferr = h5pget_class_c(prp_id, classtype)
+ END SUBROUTINE h5pget_class_f
+
+
+ SUBROUTINE h5pcopy_f(prp_id, new_prp_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(OUT) :: new_prp_id
+ ! Identifier of property list
+ ! copy
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pcopy_c
+ hdferr = h5pcopy_c(prp_id, new_prp_id)
+ END SUBROUTINE h5pcopy_f
+
+
+ SUBROUTINE h5pclose_f(prp_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pclose_c
+ hdferr = h5pclose_c(prp_id)
+ END SUBROUTINE h5pclose_f
+
+
+ SUBROUTINE h5pset_chunk_f(prp_id, ndims, dims, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: ndims ! Number of chunk dimensions
+ INTEGER(HSIZE_T), DIMENSION(ndims), INTENT(IN) :: dims
+ ! Array containing sizes of
+ ! chunk dimensions
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_chunk_c
+ hdferr = h5pset_chunk_c(prp_id, ndims, dims)
+ END SUBROUTINE h5pset_chunk_f
+
+
+ SUBROUTINE h5pget_chunk_f(prp_id, ndims, dims, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: ndims ! Number of chunk dimensions to
+ ! to return
+ INTEGER(HSIZE_T), DIMENSION(ndims), INTENT(OUT) :: dims
+ ! Array containing sizes of
+ ! chunk dimensions
+ INTEGER, INTENT(OUT) :: hdferr ! Error code; number of
+ ! chunk dimensions on success,
+ ! -1 on failure
+ INTEGER, EXTERNAL :: h5pget_chunk_c
+ hdferr = h5pget_chunk_c(prp_id, ndims, dims)
+ END SUBROUTINE h5pget_chunk_f
+
+
+ SUBROUTINE h5pset_deflate_f(prp_id, level, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: level ! Compression level
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_deflate_c
+ hdferr = h5pset_deflate_c(prp_id, level)
+ END SUBROUTINE h5pset_deflate_f
+
+
+ SUBROUTINE h5pset_fill_value_integer(prp_id, type_id, fillvalue, &
+ hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of
+ ! of fillvalue datatype
+ ! (in memory)
+ INTEGER, INTENT(IN) :: fillvalue ! Fillvalue
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_fill_value_c
+ hdferr = h5pset_fill_value_c(prp_id, type_id, fillvalue)
+ END SUBROUTINE h5pset_fill_value_integer
+
+
+ SUBROUTINE h5pget_fill_value_integer(prp_id, type_id, fillvalue, &
+ hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of
+ ! of fillvalue datatype
+ ! (in memory)
+ INTEGER, INTENT(IN) :: fillvalue ! Fillvalue
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_fill_value_c
+ hdferr = h5pget_fill_value_c(prp_id, type_id, fillvalue)
+ END SUBROUTINE h5pget_fill_value_integer
+
+
+ SUBROUTINE h5pset_fill_value_real(prp_id, type_id, fillvalue, &
+ hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of
+ ! of fillvalue datatype
+ ! (in memory)
+ REAL, INTENT(IN) :: fillvalue ! Fillvalue
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_fill_value_c
+ hdferr = h5pset_fill_value_c(prp_id, type_id, fillvalue)
+ END SUBROUTINE h5pset_fill_value_real
+
+
+ SUBROUTINE h5pget_fill_value_real(prp_id, type_id, fillvalue, &
+ hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of
+ ! of fillvalue datatype
+ ! (in memory)
+ REAL, INTENT(IN) :: fillvalue ! Fillvalue
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_fill_value_c
+ hdferr = h5pget_fill_value_c(prp_id, type_id, fillvalue)
+ END SUBROUTINE h5pget_fill_value_real
+
+
+ SUBROUTINE h5pset_fill_value_double(prp_id, type_id, fillvalue, &
+ hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of
+ ! of fillvalue datatype
+ ! (in memory)
+ DOUBLE PRECISION, INTENT(IN) :: fillvalue ! Fillvalue
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_fill_value_c
+ hdferr = h5pset_fill_value_c(prp_id, type_id, fillvalue)
+ END SUBROUTINE h5pset_fill_value_double
+
+
+ SUBROUTINE h5pget_fill_value_double(prp_id, type_id, fillvalue, &
+ hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of
+ ! of fillvalue datatype
+ ! (in memory)
+ DOUBLE PRECISION, INTENT(IN) :: fillvalue ! Fillvalue
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_fill_value_c
+ hdferr = h5pget_fill_value_c(prp_id, type_id, fillvalue)
+ END SUBROUTINE h5pget_fill_value_double
+
+
+ SUBROUTINE h5pset_fill_value_char(prp_id, type_id, fillvalue, &
+ hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of
+ ! of fillvalue datatype
+ ! (in memory)
+ CHARACTER, INTENT(IN) :: fillvalue ! Fillvalue
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_fill_valuec_c
+ hdferr = h5pset_fill_valuec_c(prp_id, type_id, fillvalue)
+ END SUBROUTINE h5pset_fill_value_char
+
+
+ SUBROUTINE h5pget_fill_value_char(prp_id, type_id, fillvalue, &
+ hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of
+ ! of fillvalue datatype
+ ! (in memory)
+ CHARACTER, INTENT(IN) :: fillvalue ! Fillvalue
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_fill_valuec_c
+ hdferr = h5pget_fill_valuec_c(prp_id, type_id, fillvalue)
+ END SUBROUTINE h5pget_fill_value_char
+
+ SUBROUTINE h5pget_version_f(prp_id, boot, freelist, &
+ stab, shhdr, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, DIMENSION(:), INTENT(OUT) :: boot !array to put boot
+ !block version number
+ INTEGER, DIMENSION(:), INTENT(OUT) :: freelist !array to put global
+ !freelist version number
+
+ INTEGER, DIMENSION(:), INTENT(OUT) :: stab !array to put symbol
+ !table version number
+ INTEGER, DIMENSION(:), INTENT(OUT) :: shhdr !array to put shared
+ !object header version number
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_version_c
+ hdferr = h5pget_version_c(prp_id, boot, freelist, stab, shhdr)
+ END SUBROUTINE h5pget_version_f
+
+ SUBROUTINE h5pset_userblock_f (prp_id, size, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HSIZE_T), INTENT(IN) :: size !Size of the user-block in bytes
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_userblock_c
+ hdferr = h5pset_userblock_c(prp_id, size)
+ END SUBROUTINE h5pset_userblock_f
+
+
+ SUBROUTINE h5pget_userblock_f(prp_id, block_size, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HSIZE_T), DIMENSION(:), INTENT(OUT) :: block_size !Size of the
+ !user-block in bytes
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_userblock_c
+ INTEGER :: len
+ hdferr = h5pget_userblock_c(prp_id, block_size)
+ END SUBROUTINE h5pget_userblock_f
+
+ SUBROUTINE h5pset_sizes_f (prp_id, sizeof_addr, sizeof_size, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(SIZE_T), INTENT(IN) :: sizeof_addr !Size of an object
+ !offset in bytes
+ INTEGER(SIZE_T), INTENT(IN) :: sizeof_size !Size of an object
+ !length in bytes
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_sizes_c
+ hdferr = h5pset_sizes_c(prp_id, sizeof_addr, sizeof_size)
+ END SUBROUTINE h5pset_sizes_f
+
+
+ SUBROUTINE h5pget_sizes_f(prp_id, sizeof_addr, sizeof_size, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(SIZE_T), DIMENSION(:), INTENT(OUT) :: sizeof_addr !Size of an object
+ !offset in bytes
+ INTEGER(SIZE_T), DIMENSION(:), INTENT(OUT) :: sizeof_size !Size of an object
+ !length in bytes
+
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_sizes_c
+ hdferr = h5pget_sizes_c(prp_id, sizeof_addr, sizeof_size)
+ END SUBROUTINE h5pget_sizes_f
+
+ SUBROUTINE h5pset_sym_k_f (prp_id, ik, lk, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: ik ! Symbol table tree rank
+ INTEGER, INTENT(IN) :: lk ! Symbol table node size
+
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_sym_k_c
+ hdferr = h5pset_sym_k_c(prp_id, ik, lk)
+ END SUBROUTINE h5pset_sym_k_f
+
+
+ SUBROUTINE h5pget_sym_k_f(prp_id, ik, lk, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: ik !Symbol table tree rank
+ INTEGER, INTENT(OUT) :: lk !Symbol table node size
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_sym_k_c
+ hdferr = h5pget_sym_k_c(prp_id, ik, lk)
+ END SUBROUTINE h5pget_sym_k_f
+
+ SUBROUTINE h5pset_istore_k_f (prp_id, ik, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: ik ! 1/2 rank of chunked storage B-tree
+
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_istore_k_c
+ hdferr = h5pset_istore_k_c(prp_id, ik)
+ END SUBROUTINE h5pset_istore_k_f
+
+
+ SUBROUTINE h5pget_istore_k_f(prp_id, ik, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: ik !1/2 rank of chunked storage B-tree
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_istore_k_c
+ hdferr = h5pget_istore_k_c(prp_id, ik)
+ END SUBROUTINE h5pget_istore_k_f
+
+ SUBROUTINE h5pget_driver_f(prp_id, driver, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: driver !low-level file driver identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_driver_c
+ hdferr = h5pget_driver_c(prp_id, driver)
+ END SUBROUTINE h5pget_driver_f
+
+ SUBROUTINE h5pset_stdio_f (prp_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_stdio_c
+ hdferr = h5pset_stdio_c(prp_id)
+ END SUBROUTINE h5pset_stdio_f
+
+ SUBROUTINE h5pget_stdio_f (prp_id, io, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: io ! value indicates that the file
+ !access property list is set to
+ !the stdio driver
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_stdio_c
+ hdferr = h5pget_stdio_c(prp_id, io)
+ END SUBROUTINE h5pget_stdio_f
+
+ SUBROUTINE h5pset_sec2_f (prp_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_sec2_c
+ hdferr = h5pset_sec2_c(prp_id)
+ END SUBROUTINE h5pset_sec2_f
+
+ SUBROUTINE h5pget_sec2_f (prp_id, sec2, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: sec2 ! value indicates whether the file
+ !driver uses the functions declared
+ !in the unistd.h file
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_sec2_c
+ hdferr = h5pget_sec2_c(prp_id, sec2)
+ END SUBROUTINE h5pget_sec2_f
+
+ SUBROUTINE h5pset_alignment_f(prp_id, threshold, alignment, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HSIZE_T), INTENT(IN) :: threshold ! Threshold value
+ INTEGER(HSIZE_T), INTENT(IN) :: alignment ! alignment value
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_alignment_c
+ hdferr = h5pset_alignment_c(prp_id, threshold, alignment)
+ END SUBROUTINE h5pset_alignment_f
+
+ SUBROUTINE h5pget_alignment_f(prp_id, threshold, alignment, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HSIZE_T), INTENT(OUT) :: threshold ! Threshold value
+ INTEGER(HSIZE_T), INTENT(OUT) :: alignment ! alignment value
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_alignment_c
+ hdferr = h5pget_alignment_c(prp_id, threshold, alignment)
+ END SUBROUTINE h5pget_alignment_f
+
+ SUBROUTINE h5pset_core_f(prp_id, increment, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(SIZE_T), INTENT(IN) :: increment ! File block size in bytes.
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_core_c
+ hdferr = h5pset_core_c(prp_id, increment)
+ END SUBROUTINE h5pset_core_f
+
+ SUBROUTINE h5pget_core_f(prp_id, increment, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(SIZE_T), INTENT(OUT) :: increment ! File block size in bytes.
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_core_c
+ hdferr = h5pget_core_c(prp_id, increment)
+ END SUBROUTINE h5pget_core_f
+
+ SUBROUTINE h5pset_family_f(prp_id, memb_size, memb_plist , hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HSIZE_T), INTENT(IN) :: memb_size ! Logical size, in bytes,
+ !of each family member
+ INTEGER(HID_T), INTENT(IN) :: memb_plist !Identifier of the file
+ !access property list for
+ !each member of the family
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_family_c
+ hdferr = h5pset_family_c(prp_id, memb_size, memb_plist)
+ END SUBROUTINE h5pset_family_f
+
+
+ SUBROUTINE h5pget_family_f(prp_id, memb_size, memb_plist , hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HSIZE_T), INTENT(OUT) :: memb_size ! Logical size, in bytes,
+ !of each family member
+ INTEGER(HID_T), INTENT(OUT) :: memb_plist !Identifier of the file
+ !access property list for
+ !each member of the family
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_family_c
+ hdferr = h5pget_family_c(prp_id, memb_size, memb_plist)
+ END SUBROUTINE h5pget_family_f
+
+ SUBROUTINE h5pset_cache_f(prp_id, mdc_nelmts,rdcc_nelmts, rdcc_nbytes, rdcc_w0, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: mdc_nelmts !Number of elements (objects)
+ ! in the meta data cache
+ INTEGER, INTENT(IN) :: rdcc_nelmts !Number of elements (objects)
+ ! in the meta data cache
+ INTEGER(SIZE_T), INTENT(IN) :: rdcc_nbytes !Total size of the raw data
+ !chunk cache, in bytes
+ REAL, INTENT(IN) :: rdcc_w0 !Preemption policy
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pset_cache_c
+ hdferr = h5pset_cache_c(prp_id, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, rdcc_w0 )
+ END SUBROUTINE h5pset_cache_f
+
+ SUBROUTINE h5pget_cache_f(prp_id, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, rdcc_w0, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: mdc_nelmts !Number of elements (objects)
+ ! in the meta data cache
+ INTEGER, INTENT(OUT) :: rdcc_nelmts !Number of elements (objects)
+ ! in the meta data cache
+ INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nbytes !Total size of the raw data
+ !chunk cache, in bytes
+ REAL, INTENT(OUT) :: rdcc_w0 !Preemption policy
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pget_cache_c
+ hdferr = h5pget_cache_c(prp_id, mdc_nelmts,rdcc_nelmts, rdcc_nbytes, rdcc_w0 )
+ END SUBROUTINE h5pget_cache_f
+
+ SUBROUTINE h5pset_split_f(prp_id, meta_ext, meta_plist, raw_ext, raw_plist, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ CHARACTER(LEN=*), INTENT(IN) :: meta_ext !Name of the extension for
+ !the metafile filename
+ INTEGER(HID_T), INTENT(IN) :: meta_plist ! Identifier of the meta file
+ ! access property list
+ CHARACTER(LEN=*), INTENT(IN) :: raw_ext !Name extension for the raw file filename
+ INTEGER(HID_T), INTENT(IN) :: raw_plist !Identifier of the raw file
+ !access property list
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: meta_len, raw_len;
+
+ INTEGER, EXTERNAL :: h5pset_split_c
+ meta_len = LEN(meta_ext)
+ raw_len = LEN(raw_ext)
+ hdferr = h5pset_split_c(prp_id, meta_len, meta_ext, meta_plist, raw_len, raw_ext, raw_plist )
+ END SUBROUTINE h5pset_split_f
+
+ SUBROUTINE h5pget_split_f(prp_id, meta_ext_size, meta_ext, meta_plist,raw_ext_size,&
+ raw_ext, raw_plist, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(SIZE_T), INTENT(IN) :: meta_ext_size ! Number of characters of the meta
+ ! file extension to be copied to the
+ ! meta_ext buffer
+
+ CHARACTER(LEN=*), INTENT(OUT) :: meta_ext !Name of the extension for
+ !the metafile filename
+ INTEGER(HID_T), INTENT(OUT) :: meta_plist ! Identifier of the meta file
+ ! access property list
+ INTEGER(SIZE_T), INTENT(IN) :: raw_ext_size ! Number of characters of the raw
+ ! file extension to be copied to the
+ ! raw_ext buffer
+ CHARACTER(LEN=*), INTENT(OUT) :: raw_ext !Name extension for the raw file filename
+ INTEGER(HID_T), INTENT(OUT) :: raw_plist !Identifier of the raw file
+ !access property list
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pget_split_c
+ hdferr = h5pget_split_c(prp_id, meta_ext_size, meta_ext, meta_plist, &
+ raw_ext_size, raw_ext, raw_plist )
+ END SUBROUTINE h5pget_split_f
+
+
+ SUBROUTINE h5pset_gc_references_f (prp_id, gc_reference, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: gc_reference !the flag for garbage collecting
+ ! references for the file
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_gc_references_c
+ hdferr = h5pset_gc_references_c(prp_id, gc_reference)
+ END SUBROUTINE h5pset_gc_references_f
+
+ SUBROUTINE h5pget_gc_references_f (prp_id, gc_reference, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: gc_reference !the flag for garbage collecting
+ ! references for the file
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_gc_references_c
+ hdferr = h5pget_gc_references_c(prp_id, gc_reference)
+ END SUBROUTINE h5pget_gc_references_f
+
+ SUBROUTINE h5pset_layout_f (prp_id, layout, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: layout !Type of storage layout for raw data
+ !possible values are:
+ !H5D_COMPACT_F(0)
+ !H5D_CONTIGUOUS_F(1)
+ !H5D_CHUNKED_F(2)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pset_layout_c
+ hdferr = h5pset_layout_c(prp_id, layout)
+ END SUBROUTINE h5pset_layout_f
+
+ SUBROUTINE h5pget_layout_f (prp_id, layout, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: layout !Type of storage layout for raw data
+ !possible values are:
+ !H5D_COMPACT_F(0)
+ !H5D_CONTIGUOUS_F(1)
+ !H5D_CHUNKED_F(2)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_layout_c
+ hdferr = h5pget_layout_c(prp_id, layout)
+ END SUBROUTINE h5pget_layout_f
+
+ SUBROUTINE h5pset_filter_f(prp_id, filter, flags, cd_nelmts, cd_values, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: filter !Filter to be added to the pipeline.
+ INTEGER, INTENT(IN) :: flags !Bit vector specifying certain general
+ !properties of the filter.
+ INTEGER(SIZE_T), INTENT(IN) :: cd_nelmts !Number of elements in cd_values.
+ INTEGER, DIMENSION(*), INTENT(IN) :: cd_values !Auxiliary data for the filter.
+
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pset_filter_c
+ hdferr = h5pset_filter_c(prp_id, filter, flags, cd_nelmts, cd_values )
+ END SUBROUTINE h5pset_filter_f
+
+ SUBROUTINE h5pget_nfilters_f (prp_id, nfilters, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: nfilters !the number of filters in the pipeline
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_nfilters_c
+ hdferr = h5pget_nfilters_c(prp_id, nfilters)
+ END SUBROUTINE h5pget_nfilters_f
+
+ SUBROUTINE h5pget_filter_f(prp_id, filter_number, flags, cd_nelmts, cd_values, namelen, name, filter_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: filter_number !Sequence number within the filter
+ !pipeline of the filter for which
+ !information is sought
+ INTEGER, DIMENSION(*), INTENT(OUT) :: cd_values !Auxiliary data for the filter.
+ INTEGER, INTENT(OUT) :: flags !Bit vector specifying certain general
+ !properties of the filter.
+ INTEGER(SIZE_T), INTENT(INOUT) :: cd_nelmts !Number of elements in cd_values.
+ INTEGER(SIZE_T), INTENT(IN) :: namelen !Anticipated number of characters in name.
+ CHARACTER(LEN=*), INTENT(OUT) :: name !Name of the filter
+ INTEGER, INTENT(OUT) :: filter_id ! filter identification number
+
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pget_filter_c
+ hdferr = h5pget_filter_c(prp_id, filter_number, flags, cd_nelmts, &
+ cd_values, namelen, name, filter_id )
+ END SUBROUTINE h5pget_filter_f
+
+ SUBROUTINE h5pset_external_f(prp_id, name, offset,bytes, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name !Name of an external file
+ INTEGER, INTENT(IN) :: offset !Offset, in bytes, from the beginning
+ !of the file to the location in the file
+ !where the data starts.
+ INTEGER(HSIZE_T), INTENT(IN) :: bytes ! Number of bytes reserved in the
+ !file for the data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pset_external_c
+ INTEGER :: namelen
+ namelen = LEN(name)
+
+ hdferr = h5pset_external_c(prp_id, name,namelen, offset, bytes)
+ END SUBROUTINE h5pset_external_f
+
+ SUBROUTINE h5pget_external_count_f (prp_id, count, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: count !number of external files for the
+ !specified dataset
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5pget_external_count_c
+ hdferr = h5pget_external_count_c(prp_id, count)
+ END SUBROUTINE h5pget_external_count_f
+
+
+ SUBROUTINE h5pget_external_f(prp_id, idx, name_size, name, offset,bytes, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: idx !External file index.
+ INTEGER(SIZE_T), INTENT(IN) :: name_size !Maximum length of name array
+ CHARACTER(LEN=*), INTENT(OUT) :: name !Name of an external file
+ INTEGER, INTENT(OUT) :: offset !Offset, in bytes, from the beginning
+ !of the file to the location in the file
+ !where the data starts.
+ INTEGER(HSIZE_T), INTENT(OUT) :: bytes ! Number of bytes reserved in the
+ !file for the data
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pget_external_c
+
+ hdferr = h5pget_external_c(prp_id, idx, name_size, name, offset, bytes)
+ END SUBROUTINE h5pget_external_f
+
+ SUBROUTINE h5pset_hyper_cache_f(prp_id, cache, limit, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: cache !
+ INTEGER, INTENT(IN) :: limit ! Maximum size of the hyperslab block to
+ !cache. 0 (zero) indicates no limit.
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pset_hyper_cache_c
+ hdferr = h5pset_hyper_cache_c(prp_id, cache, limit)
+ END SUBROUTINE h5pset_hyper_cache_f
+
+ SUBROUTINE h5pget_hyper_cache_f(prp_id, cache, limit, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: cache !
+ INTEGER, INTENT(OUT) :: limit ! Maximum size of the hyperslab block to
+ !cache. 0 (zero) indicates no limit.
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pget_hyper_cache_c
+ hdferr = h5pget_hyper_cache_c(prp_id, cache, limit)
+ END SUBROUTINE h5pget_hyper_cache_f
+
+ SUBROUTINE h5pset_btree_ratios_f(prp_id, left, middle, right, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ REAL, INTENT(IN) :: left !The B-tree split ratio for left-most nodes.
+ REAL, INTENT(IN) :: middle !The B-tree split ratio for all other nodes
+ REAL, INTENT(IN) :: right !The B-tree split ratio for right-most
+ !nodes and lone nodes.
+
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pset_btree_ratios_c
+ hdferr = h5pset_btree_ratios_c(prp_id, left, middle, right)
+ END SUBROUTINE h5pset_btree_ratios_f
+
+ SUBROUTINE h5pget_btree_ratios_f(prp_id, left, middle, right, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ REAL, INTENT(OUT) :: left !The B-tree split ratio for left-most nodes.
+ REAL, INTENT(OUT) :: middle !The B-tree split ratio for all other nodes
+ REAL, INTENT(OUT) :: right !The B-tree split ratio for right-most
+ !nodes and lone nodes.
+
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pget_btree_ratios_c
+ hdferr = h5pget_btree_ratios_c(prp_id, left, middle, right)
+ END SUBROUTINE h5pget_btree_ratios_f
+
+ END MODULE H5P
diff --git a/fortran/src/H5Pff_parallel.f90 b/fortran/src/H5Pff_parallel.f90
new file mode 100644
index 0000000..488b7a0
--- /dev/null
+++ b/fortran/src/H5Pff_parallel.f90
@@ -0,0 +1,59 @@
+!
+! This file contains Fortran90 interfaces for H5P functions needed by || MPI programs.
+!
+ MODULE H5P_parallel
+ USE H5FORTRAN_TYPES
+ USE H5FORTRAN_FLAGS
+ CONTAINS
+ SUBROUTINE h5pset_mpi_f(prp_id, comm, info, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: comm ! MPI communicator to be used for file open
+ ! as defined in MPI_FILE_OPEN of MPI-2
+ INTEGER, INTENT(IN) :: info ! MPI info object to be used for file open
+ ! as defined in MPI_FILE_OPEN of MPI-2
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pset_mpi_c
+ hdferr = h5pset_mpi_c(prp_id, comm, info)
+ END SUBROUTINE h5pset_mpi_f
+
+ SUBROUTINE h5pget_mpi_f(prp_id, comm, info, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: comm ! buffer to return communicator
+ INTEGER, INTENT(IN) :: info ! buffer to return info object
+ ! as defined in MPI_FILE_OPEN of MPI-2
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pget_mpi_c
+ hdferr = h5pget_mpi_c(prp_id, comm, info)
+ END SUBROUTINE h5pget_mpi_f
+
+ SUBROUTINE h5pset_xfer_f(prp_id, data_xfer_mode, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: data_xfer_mode ! Data transfer mode. Possible values are:
+ ! H5D_XFER_INDEPENDENT_F (0)
+ ! H5D_XFER_COLLECTIVE_F (1)
+ ! H5D_XFER_DFLT_F (2)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pset_xfer_c
+ hdferr = h5pset_xfer_c(prp_id, data_xfer_mode)
+ END SUBROUTINE h5pset_xfer_f
+
+ SUBROUTINE h5pget_xfer_f(prp_id, data_xfer_mode, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: data_xfer_mode ! Data transfer mode. Possible values are:
+ ! H5D_XFER_INDEPENDENT_F (0)
+ ! H5D_XFER_COLLECTIVE_F (1)
+ ! H5D_XFER_DFLT_F (2)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5pget_xfer_c
+ hdferr = h5pget_xfer_c(prp_id, data_xfer_mode)
+ END SUBROUTINE h5pget_xfer_f
+
+ END MODULE H5P_parallel
diff --git a/fortran/src/H5Rf.c b/fortran/src/H5Rf.c
new file mode 100644
index 0000000..16e0f4a
--- /dev/null
+++ b/fortran/src/H5Rf.c
@@ -0,0 +1,267 @@
+#include "H5f90.h"
+
+/*----------------------------------------------------------------------------
+ * Name: h5rcreate_object_c
+ * Purpose: Call H5Rcreate to create a reference to an object
+ * Inputs: loc_id - file or group identifier
+ * name - name of the dataset
+ * namelen - name length
+ * Outputs: ref - reference to the object
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, December 1, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5rcreate_object_c (_fcd ref, hid_t_f *loc_id, _fcd name, int_f *namelen)
+{
+ int ret_value = -1;
+ hid_t c_loc_id;
+ int ret_value_c;
+ char *c_name;
+ int c_namelen;
+ hobj_ref_t ref_c;
+ int i;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Rcreate function.
+ */
+ c_loc_id = *loc_id;
+ ret_value_c = H5Rcreate(&ref_c, c_loc_id, c_name, H5R_OBJECT, -1);
+ HDfree(c_name);
+ if (ret_value_c >= 0) {
+ for(i=0; i < H5R_OBJ_REF_BUF_SIZE; i++)
+ {
+#if defined(_UNICOS)
+ ref.c_pointer[i]=ref_c.oid[i];
+#else
+ ref[i]=ref_c.oid[i];
+#endif
+ }
+ ret_value = 0;
+ }
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5rcreate_region_c
+ * Purpose: Call H5Rcreate to create a reference to dataset region
+ * region
+ * Inputs: loc_id - file or group identifier
+ * name - name of the dataset
+ * namelen - name length
+ * space_id - dataset space identifier
+ * Outputs: ref - reference to the dataset region
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, December 1, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5rcreate_region_c (_fcd ref, hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *space_id)
+{
+ int ret_value = -1;
+ hid_t c_loc_id;
+ hid_t c_space_id;
+ int ret_value_c;
+ char *c_name;
+ int c_namelen;
+ hdset_reg_ref_t ref_c;
+ int i;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Rcreate function.
+ */
+ c_loc_id = *loc_id;
+ c_space_id = *space_id;
+ ret_value_c = H5Rcreate(&ref_c, c_loc_id, c_name, H5R_DATASET_REGION, c_space_id);
+ HDfree(c_name);
+ if (ret_value_c >= 0) {
+ for(i=0; i < H5R_DSET_REG_REF_BUF_SIZE; i++)
+ {
+#if defined(_UNICOS)
+ ref.c_pointer[i]=ref_c.heapid[i];
+#else
+ ref[i]=ref_c.heapid[i];
+#endif
+ }
+ ret_value = 0;
+ }
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5rdereference_region_c
+ * Purpose: Call H5Rdereference to dereference to dataset region
+ * Inputs: dset_id - dataset identifier
+ * ref - reference to the dataset region
+ * Outputs: obj_id - dereferenced dataset identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, December 1, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5rdereference_region_c (hid_t_f *dset_id, _fcd ref, hid_t_f *obj_id)
+{
+ int ret_value = -1;
+ hid_t c_dset_id;
+ hdset_reg_ref_t ref_c;
+ hid_t c_obj_id;
+ int i;
+
+ for(i=0; i < H5R_DSET_REG_REF_BUF_SIZE; i++) {
+
+#if defined(_UNICOS)
+ ref_c.heapid[i]=ref.c_pointer[i];
+#else
+ ref_c.heapid[i]=ref[i];
+#endif
+ }
+
+ /*
+ * Call H5Rdereference function.
+ */
+ c_dset_id = *dset_id;
+ c_obj_id = H5Rdereference(c_dset_id, H5R_DATASET_REGION, &ref_c);
+ if(c_obj_id < 0) return ret_value;
+ *obj_id = (hid_t_f)c_obj_id;
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5rdereference_object_c
+ * Purpose: Call H5Rdereference to dereference an object
+ * Inputs: dset_id - dataset identifier
+ * ref - reference to an object
+ * Outputs: obj_id - dereferenced object identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, December 1, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5rdereference_object_c (hid_t_f *dset_id, _fcd ref, hid_t_f *obj_id)
+{
+ int ret_value = -1;
+ hid_t c_dset_id;
+ hid_t c_obj_id;
+ hobj_ref_t ref_c;
+ int i;
+
+ for(i=0; i < H5R_OBJ_REF_BUF_SIZE; i++) {
+
+#if defined(_UNICOS)
+ ref_c.oid[i]=ref.c_pointer[i];
+#else
+ ref_c.oid[i]=ref[i];
+#endif
+ }
+
+ /*
+ * Call H5Rdereference function.
+ */
+ c_dset_id = *dset_id;
+ c_obj_id = H5Rdereference(c_dset_id, H5R_OBJECT, &ref_c);
+ if(c_obj_id < 0) return ret_value;
+ *obj_id = (hid_t_f)c_obj_id;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5rget_region_region_object_c
+ * Purpose: Call H5Rget_region to dereference dataspace region
+ * Inputs: dset_id - dataset identifier
+ * ref - reference to the dataset region
+ * Outputs: space_id - dereferenced dataset dataspace identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, December 1, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5rget_region_region_c (hid_t_f *dset_id, _fcd ref, hid_t_f *space_id)
+{
+ int ret_value = -1;
+ hid_t c_dset_id;
+ hid_t c_space_id;
+ hdset_reg_ref_t ref_c;
+ int i;
+
+ for(i=0; i < H5R_DSET_REG_REF_BUF_SIZE; i++) {
+
+#if defined(_UNICOS)
+ ref_c.heapid[i]=ref.c_pointer[i];
+#else
+ ref_c.heapid[i]=ref[i];
+#endif
+ }
+
+ /*
+ * Call H5Rget_region function.
+ */
+ c_dset_id = *dset_id;
+ c_space_id = H5Rget_region(c_dset_id, H5R_DATASET_REGION, &ref_c);
+ if(c_space_id < 0) return ret_value;
+ *space_id = (hid_t_f)c_space_id;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5rget_object_type_obj_c
+ * Purpose: Call H5Rget_object_type to retrieve the type of the object reference points
+ * to
+ * Inputs: dset_id - dataset identifier
+ * ref - reference to the dataset region
+ * Outputs: obj_type - type of dereferenced object
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, December 1, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5rget_object_type_obj_c (hid_t_f *dset_id, _fcd ref, int_f *obj_type)
+{
+ int ret_value = -1;
+ hid_t c_dset_id;
+ int c_obj_type;
+ hobj_ref_t ref_c;
+ int i;
+
+ for(i=0; i < H5R_OBJ_REF_BUF_SIZE; i++) {
+
+#if defined(_UNICOS)
+ ref_c.oid[i]=ref.c_pointer[i];
+#else
+ ref_c.oid[i]=ref[i];
+#endif
+ }
+
+ /*
+ * Call H5Rget_object_type function.
+ */
+ c_dset_id = *dset_id;
+ c_obj_type = H5Rget_object_type(c_dset_id, &ref_c);
+ if(c_obj_type < 0) return ret_value;
+ *obj_type = (int_f)c_obj_type;
+ ret_value = 0;
+ return ret_value;
+}
diff --git a/fortran/src/H5Rff.f90 b/fortran/src/H5Rff.f90
new file mode 100644
index 0000000..3fd9142
--- /dev/null
+++ b/fortran/src/H5Rff.f90
@@ -0,0 +1,138 @@
+!
+! This file contains Fortran90 interfaces for H5R functions.
+!
+ MODULE H5R
+ USE H5FORTRAN_TYPES
+ USE H5FORTRAN_FLAGS
+
+ TYPE hobj_ref_t_f
+ !INTEGER(KIND=4) ref(2) could cause trouble on Crays
+ CHARACTER ref(8)
+ END TYPE
+
+ TYPE hdset_reg_ref_t_f
+ !INTEGER(KIND=4) reg_ref(3) could cause troubles on Crays
+ CHARACTER ref(12)
+ END TYPE
+
+ INTERFACE h5rcreate_f
+
+ MODULE PROCEDURE h5rcreate_object_f
+ MODULE PROCEDURE h5rcreate_region_f
+
+ END INTERFACE
+
+ INTERFACE h5rdereference_f
+
+ MODULE PROCEDURE h5rdereference_object_f
+ MODULE PROCEDURE h5rdereference_region_f
+
+ END INTERFACE
+
+ INTERFACE h5rget_region_f
+
+ MODULE PROCEDURE h5rget_region_region_f
+
+ END INTERFACE
+
+ INTERFACE h5rget_object_type_f
+
+ MODULE PROCEDURE h5rget_object_type_obj_f
+
+ END INTERFACE
+
+
+ CONTAINS
+
+
+ SUBROUTINE h5rcreate_object_f(loc_id, name, ref, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! Location identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the object at location specified
+ ! by loc_id identifier
+ TYPE(hobj_ref_t_f), INTENT(OUT) :: ref ! Object reference
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER :: namelen ! Name length
+ INTEGER, EXTERNAL :: h5rcreate_object_c
+ namelen = LEN(name)
+ hdferr = h5rcreate_object_c(ref, loc_id, name, namelen )
+
+ END SUBROUTINE h5rcreate_object_f
+
+ SUBROUTINE h5rcreate_region_f(loc_id, name, space_id, ref, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! Location identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the dataset at location specified
+ ! by loc_id identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataset's dataspace identifier
+ TYPE(hdset_reg_ref_t_f), INTENT(OUT) :: ref ! Dataset region reference
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER :: namelen ! Name length
+ INTEGER, EXTERNAL :: h5rcreate_region_c
+ namelen = LEN(name)
+ hdferr = h5rcreate_region_c(ref, loc_id, name, namelen, space_id )
+
+ END SUBROUTINE h5rcreate_region_f
+
+ SUBROUTINE h5rdereference_object_f(dset_id, ref, obj_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ TYPE(hobj_ref_t_f), INTENT(IN) :: ref ! Object reference
+ INTEGER(HID_T), INTENT(OUT) :: obj_id ! Object identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER :: ref_type ! Reference type
+ INTEGER, EXTERNAL :: h5rdereference_object_c
+ ref_type = H5R_OBJECT_F
+ hdferr = h5rdereference_object_c(dset_id, ref, obj_id )
+
+ END SUBROUTINE h5rdereference_object_f
+
+ SUBROUTINE h5rdereference_region_f(dset_id, ref, obj_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ TYPE(hdset_reg_ref_t_f), INTENT(IN) :: ref ! Object reference
+ INTEGER(HID_T), INTENT(OUT) :: obj_id ! Object identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER :: ref_type ! Reference type
+ INTEGER, EXTERNAL :: h5rdereference_region_c
+ ref_type = H5R_DATASET_REGION_F
+ hdferr = h5rdereference_region_c(dset_id, ref, obj_id )
+
+ END SUBROUTINE h5rdereference_region_f
+
+
+ SUBROUTINE h5rget_region_region_f(dset_id, ref, space_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ TYPE(hdset_reg_ref_t_f), INTENT(IN) :: ref ! Dataset region reference
+ INTEGER(HID_T), INTENT(OUT) :: space_id ! Space identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5rget_region_region_c
+ hdferr = h5rget_region_region_c(dset_id, ref, space_id )
+
+ END SUBROUTINE h5rget_region_region_f
+
+ SUBROUTINE h5rget_object_type_obj_f(dset_id, ref, obj_type, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ TYPE(hobj_ref_t_f), INTENT(IN) :: ref ! Object reference
+ INTEGER, INTENT(OUT) :: obj_type ! Object type
+ ! H5G_UNKNOWN_F (-1)
+ ! H5G_LINK_F 0
+ ! H5G_GROUP_F 1
+ ! H5G_DATASET_F 2
+ ! H5G_TYPE_F 3
+
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5rget_object_type_obj_c
+ hdferr = h5rget_object_type_obj_c(dset_id, ref, obj_type )
+
+ END SUBROUTINE h5rget_object_type_obj_f
+
+ END MODULE H5R
diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c
new file mode 100644
index 0000000..af9c4a5
--- /dev/null
+++ b/fortran/src/H5Sf.c
@@ -0,0 +1,874 @@
+#include "H5f90.h"
+
+/*----------------------------------------------------------------------------
+ * Name: h5screate_simple_c
+ * Purpose: Call H5Screate_simple to create a dataspace
+ * Inputs: rank - number of dimensions of dataspace
+ * dims - array of the size of each dimension
+ maxdims - an array of the maximum size of each dimension
+ * Outputs: space_id - identifier of the created dataspace
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 4, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5screate_simple_c ( int_f *rank, hsize_t_f *dims, hsize_t_f *maxdims, hid_t_f *space_id )
+{
+ int ret_value = -1;
+ hsize_t *c_dims;
+ hsize_t *c_maxdims;
+ hid_t c_space_id;
+ int i;
+
+ c_dims = malloc(sizeof(hsize_t) * (*rank ));
+ if (!c_dims) return ret_value;
+ c_maxdims = malloc(sizeof(hsize_t) * (*rank ));
+ if (!c_maxdims) return ret_value;
+
+ /*
+ * Transpose dimension arrays because of C-FORTRAN storage order
+ */
+ for (i = 0; i < *rank ; i++) {
+ c_dims[i] = dims[*rank - i - 1];
+ c_maxdims[i] = maxdims[*rank - i - 1];
+ }
+
+ c_space_id = H5Screate_simple(*rank, c_dims, c_maxdims);
+ if (c_space_id < 0) return ret_value;
+
+ *space_id = (hid_t_f)c_space_id;
+ ret_value = 0;
+ HDfree (c_dims);
+ HDfree (c_maxdims);
+ return ret_value;
+}
+
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5sclose_c
+ * Purpose: Call H5Sclose to close the dataspace
+ * Inputs: space_id - identifier of the dataspace to be closed
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 4, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sclose_c ( hid_t_f *space_id )
+{
+ int ret_value = 0;
+ hid_t c_space_id;
+
+ c_space_id = *space_id;
+ if ( H5Sclose(c_space_id) < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5screate_c
+ * Purpose: Call H5Screate to create a dataspace
+ * Inputs: classtype - type of the dataspace class
+ * Outputs: space_id - identifier of the created dataspace
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, August 10, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5screate_c ( int_f *classtype, hid_t_f *space_id )
+{
+ H5S_class_t c_classtype;
+ int CASE;
+ int ret_value = 0;
+ hid_t c_space_id;
+ CASE = (int)*classtype;
+
+ switch (CASE) {
+
+ case (H5S_SCALAR_F):
+ c_classtype = H5S_SCALAR;
+ break;
+
+ case(H5S_SIMPLE_F):
+ c_classtype = H5S_SIMPLE;
+ break;
+
+ default:
+ ret_value = -1;
+ return ret_value;
+ }
+ c_space_id = H5Screate(c_classtype);
+
+ if ( c_space_id < 0 ) ret_value = -1;
+ *space_id = (hid_t_f) c_space_id;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5scopy_c
+ * Purpose: Call H5Scopy to copy dataspace
+ * Inputs: space_id - identifier of the dataspace to be copied
+ * Outputs: new_space_id - identifier of the new datspace
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, August 10, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5scopy_c( hid_t_f *space_id , hid_t_f *new_space_id)
+{
+ int ret_value = 0;
+ hid_t c_new_space_id;
+ hid_t c_space_id;
+
+ c_space_id = *space_id;
+ c_new_space_id = H5Scopy(c_space_id);
+ if ( c_new_space_id < 0 ) ret_value = -1;
+
+ *new_space_id = (hid_t_f)c_new_space_id;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sget_select_hyper_nblocks_c
+ * Purpose: Call H5SH5Sget_select_hyper_nblocks to
+ * get the the number of hyperslab blocks in
+ * the current dataspace selection if successful
+ * Inputs: space_id - identifier of the dataspace
+ * Outputs: num_blocks - number of hyperslab blocks in
+ * the current dataspace selection
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, November 12, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sget_select_hyper_nblocks_c( hid_t_f *space_id , hssize_t_f * num_blocks)
+{
+ int ret_value = 0;
+ hid_t c_space_id;
+ hssize_t c_num_blocks;
+ hsize_t* buf;
+ int i, j;
+
+ c_space_id = *space_id;
+ c_num_blocks = H5Sget_select_hyper_nblocks(c_space_id);
+ if ( c_num_blocks < 0 ) ret_value = -1;
+
+ *num_blocks = (hssize_t_f)c_num_blocks;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sget_select_elem_npoints_c
+ * Purpose: Call H5Sget_select_elem_npoints to
+ * get the the number of element points in
+ * the current dataspace selection if successful
+ * Inputs: space_id - identifier of the dataspace
+ * Outputs: num_points - number of element points in
+ * the current dataspace selection
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Monday, November 15, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sget_select_elem_npoints_c( hid_t_f *space_id , hssize_t_f * num_points)
+{
+ int ret_value = 0;
+ hid_t c_space_id;
+ hssize_t c_num_points;
+
+ c_space_id = *space_id;
+ c_num_points = H5Sget_select_elem_npoints(c_space_id);
+ if ( c_num_points < 0 ) ret_value = -1;
+
+ *num_points = (hssize_t_f)c_num_points;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sget_select_hyper_blocklist_c
+ * Purpose: Call H5Sget_select_hyper_blocklist to
+ * get a list of the hyperslab blocks currently selected
+ * Starting with the startblock-th block in the
+ * list of blocks, num_blocks blocks are put into the user's
+ * buffer. If the user's buffer fills up before numblocks
+ * blocks are inserted, the buffer
+ * will contain only as many blocks as fit.
+ * Inputs: space_id - identifier of the dataspace
+ * startblock - Hyperslab block to start with
+ * num_blocks - number of hyperslab blocks in
+ * the current dataspace selection
+ * Outputs: buf - List of hyperslab blocks selected
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Monday, November 15, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sget_select_hyper_blocklist_c( hid_t_f *space_id ,hsize_t_f * startblock,
+ hsize_t_f * num_blocks, hsize_t_f * buf)
+{
+ int ret_value = -1;
+ hid_t c_space_id;
+ hsize_t c_num_blocks;
+
+ int i, rank;
+ hsize_t* c_startblock,* c_buf;
+
+ c_space_id = *space_id;
+ c_num_blocks = * num_blocks;
+
+ rank = H5Sget_simple_extent_ndims(c_space_id);
+ if (rank < 0 ) return ret_value;
+
+ c_startblock = (hsize_t*)malloc(sizeof(hsize_t)*rank);
+ if (!c_startblock) return ret_value;
+ for (i = 0; i < rank; i++)
+ {
+ c_startblock[i] = (hsize_t)startblock[i];
+ }
+
+ c_buf = (hsize_t*)malloc(sizeof(hsize_t)*c_num_blocks*2*rank);
+ if (!c_buf) return ret_value;
+
+ ret_value = H5Sget_select_hyper_blocklist(c_space_id, *c_startblock,
+ c_num_blocks, c_buf);
+ for(i = 0; i < c_num_blocks*2*rank; i++)
+ {
+ buf[i] = (hsize_t_f)c_buf[i] +1;
+ }
+ HDfree(c_buf);
+ HDfree(c_startblock);
+ if (ret_value >= 0 ) ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sget_select_bounds_c
+ * Purpose: Call H5Sget_select_bounds to retrieve the coordinates
+ * of the bounding box containing the current selection
+ * and places them into user-supplied buffers
+ * Inputs: space_id - identifier of the dataspace
+ * Outputs: start - Starting coordinates of the bounding box
+ * end - Ending coordinates of the bounding box,
+ * i.e., the coordinates of the diagonally opposite corne
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, November 17, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sget_select_bounds_c( hid_t_f *space_id , hsize_t_f * start, hsize_t_f * end)
+{
+ int ret_value = -1;
+ hid_t c_space_id;
+ hsize_t* c_start, *c_end;
+ int i, rank;
+
+ c_space_id = *space_id;
+ rank = H5Sget_simple_extent_ndims(c_space_id);
+ if (rank < 0 ) return ret_value;
+
+ c_start =(hsize_t*) malloc(sizeof(hsize_t)*rank);
+ if (!c_start) return ret_value;
+
+ c_end = (hsize_t*)malloc(sizeof(hsize_t)*rank);
+ if(!c_end) return ret_value;
+
+ ret_value = H5Sget_select_bounds(c_space_id, c_start, c_end);
+ for(i = 0; i < rank; i++)
+ {
+ start[i] = (hsize_t_f)(c_start[i]+1);
+ end[i] = (hsize_t_f)(c_end[i]+1);
+ }
+ if (ret_value >= 0 ) ret_value = 0;
+
+ HDfree(c_start);
+ HDfree(c_end);
+
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sget_select_elem_pointlist_c
+ * Purpose: Call H5Sget_select_elem_pointlist
+ * get a list of element points in the
+ * current dataspace selectin.
+ * Starting with the startpoint-th point in the
+ * list of points, numpoints points are put into the user's
+ * buffer. If the user's buffer fills up before numpoints
+ * points are inserted, the buffer
+ * will contain only as many points as fit.
+ * Inputs: space_id - identifier of the dataspace
+ * startpoint - Element point to start with
+ * numpoints - Number of element points to get
+ * Outputs: buf - List of element points selected
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Wednesday, November 17, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sget_select_elem_pointlist_c( hid_t_f *space_id ,hsize_t_f * startpoint,
+ hsize_t_f * numpoints, hsize_t_f * buf)
+{
+ int ret_value = -1;
+ hid_t c_space_id;
+ hsize_t c_num_points;
+ hsize_t* c_startpoint,* c_buf;
+ int i,j, rank;
+
+ c_space_id = *space_id;
+ c_num_points = (hsize_t)* numpoints;
+
+ rank = H5Sget_simple_extent_ndims(c_space_id);
+ if (rank < 0 ) return ret_value;
+
+ c_startpoint = (hsize_t *)HDmalloc(sizeof(hsize_t)*rank);
+ if (!c_startpoint) return ret_value;
+ for (i =0; i < rank; i++)
+ c_startpoint[i] = (hsize_t)startpoint[i];
+
+ c_buf = (hsize_t*)malloc(sizeof(hsize_t)*c_num_points*rank);
+ if (!c_buf) return ret_value;
+ ret_value = H5Sget_select_elem_pointlist(c_space_id, *startpoint,
+ c_num_points, c_buf);
+ for (i = c_num_points*rank-1; i >= 0; i--) {
+ buf[i] = (hsize_t_f)(c_buf[i]+1);
+ }
+
+ if (ret_value >= 0 ) ret_value = 0;
+
+ HDfree(c_startpoint);
+ HDfree(c_buf);
+
+ return ret_value;
+}
+
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5sselect_all_c
+ * Purpose: Call H5Sselect_all to select entire dataspace
+ * Inputs: space_id - identifier of the dataspace
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, August 10, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sselect_all_c ( hid_t_f *space_id )
+{
+ int ret_value = 0;
+ hid_t c_space_id;
+
+ c_space_id = *space_id;
+ if ( H5Sselect_all(c_space_id) < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sselect_none_c
+ * Purpose: Call H5Sselect_none to reset the selection region
+ * Inputs: space_id - identifier of the dataspace
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, August 10, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sselect_none_c ( hid_t_f *space_id )
+{
+ int ret_value = 0;
+ hid_t c_space_id;
+
+ c_space_id = *space_id;
+ if ( H5Sselect_none(c_space_id) < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sselect_valid_c
+ * Purpose: Call H5Sselect_valid to verify that selection
+ * is within dataspace extent.
+ * Inputs: space_id - identifier of the dataspace
+ * Outputs: flag - 0 if not valid selection, 1 if is valid selection,
+ * and negative on failure.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, August 10, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sselect_valid_c ( hid_t_f *space_id , int_f *flag )
+{
+ int ret_value = 0;
+ hid_t c_space_id;
+ htri_t status;
+
+ c_space_id = *space_id;
+ status = H5Sselect_valid(c_space_id);
+ *flag = (int_f)status;
+ if ( status < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sget_simple_extent_npoints_c
+ * Purpose: Call H5Sget_simple_extent_npoints to determine the number
+ * of elements in a dataspace
+ * Inputs: space_id - identifier of the dataspace
+ * Outputs: npoints - number of points in a dataspace
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 11, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sget_simple_extent_npoints_c ( hid_t_f *space_id , hsize_t_f *npoints )
+{
+ int ret_value = 0;
+ hid_t c_space_id;
+ hsize_t c_npoints;
+
+ c_space_id = *space_id;
+ c_npoints = H5Sget_simple_extent_npoints(c_space_id);
+ if ( c_npoints == 0 ) ret_value = -1;
+ *npoints = (hsize_t_f)c_npoints;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sget_select_npoints_c
+ * Purpose: Call H5Sget_select_npoints to determine the number
+ * of elements in a dataspace selection
+ * Inputs: space_id - identifier of the dataspace
+ * Outputs: npoints - number of points in a dataspace selection
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 11, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sget_select_npoints_c ( hid_t_f *space_id , hssize_t_f *npoints )
+{
+ int ret_value = 0;
+ hssize_t c_npoints;
+ hid_t c_space_id;
+
+ c_space_id = *space_id;
+ c_npoints = H5Sget_select_npoints(c_space_id);
+ if ( c_npoints == 0 ) ret_value = -1;
+ *npoints = (hssize_t_f)c_npoints;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sget_simple_extent_ndims_c
+ * Purpose: Call H5Sget_simple_extent_ndims to determine the number
+ * dimensions
+ * Inputs: space_id - identifier of the dataspace
+ * Outputs: rank - number of dataspace dimensions
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 11, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sget_simple_extent_ndims_c ( hid_t_f *space_id , int_f *ndims )
+{
+ int ret_value = 0;
+ hid_t c_space_id;
+ int c_ndims;
+
+ c_space_id = *space_id;
+ c_ndims = H5Sget_simple_extent_ndims(c_space_id);
+ if ( c_ndims < 0 ) ret_value = -1;
+ *ndims = (int_f)c_ndims;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sget_simple_extent_type_c
+ * Purpose: Call H5Sget_simple_extent_type to determine the class type
+ * of a dataspace
+ * Inputs: space_id - identifier of the dataspace
+ * Outputs: classtype - class type; possible values are:
+ * H5S_SCALAR_F (0), H5S_SIMPLE_F (1)
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 11, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sget_simple_extent_type_c ( hid_t_f *space_id , int_f *classtype)
+{
+ int ret_value = 0;
+ hid_t c_space_id;
+ H5S_class_t c_classtype;
+
+ c_space_id = *space_id;
+ c_classtype = H5Sget_simple_extent_type(c_space_id);
+ if ( c_classtype < 0 ) ret_value = -1;
+ if (c_classtype == H5S_SCALAR) *classtype = H5S_SCALAR_F;
+ if (c_classtype == H5S_SIMPLE) *classtype = H5S_SIMPLE_F;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5soffset_simple_c
+ * Purpose: Call H5Soffset_simple to set the offset of a simple
+ * dataspace
+ * Inputs: space_id - identifier of the dataspace
+ * offset - offset array
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 11, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5soffset_simple_c ( hid_t_f *space_id , hssize_t_f *offset)
+{
+ int ret_value = -1;
+ hid_t c_space_id;
+ int rank;
+ hssize_t *c_offset;
+ herr_t status;
+ int i;
+
+ c_space_id = *space_id;
+ rank = H5Sget_simple_extent_ndims(c_space_id);
+ if (rank < 0) return ret_value;
+
+ c_offset = malloc(sizeof(hssize_t)*rank);
+ if (!c_offset) return ret_value;
+
+ /*
+ * Reverse dimensions due to C-FORTRAN storage order.
+ */
+ for (i=0; i < rank; i++) c_offset[i] = offset[rank - i - 1];
+
+ status = H5Soffset_simple(c_space_id, c_offset);
+ if ( status >= 0 ) ret_value = 0;
+ HDfree(c_offset);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sset_extent_simple_c
+ * Purpose: Call H5Sset_extent_simple to set or reset size of
+ * existing dataspace
+ * Inputs: space_id - identifier of the dataspace
+ * rank - dataspace rank
+ * current_size - array with the new dimension sizes
+ * maximum_size - aray with maximum sizes of dimensions
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 11, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sset_extent_simple_c ( hid_t_f *space_id , int_f *rank, hsize_t_f *current_size, hsize_t_f *maximum_size)
+{
+ int ret_value = -1;
+ hid_t c_space_id;
+ int c_rank;
+ hsize_t *c_current_size;
+ hsize_t *c_maximum_size;
+ herr_t status;
+ int i;
+
+ c_current_size = malloc(sizeof(hsize_t)*(*rank));
+ if (!c_current_size) return ret_value;
+
+ c_maximum_size = malloc(sizeof(hsize_t)*(*rank));
+ if (!c_maximum_size) return ret_value;
+
+ /*
+ * Reverse dimensions due to C-FORTRAN storage order.
+ */
+ for (i=0; i < *rank; i++) {
+ c_current_size[i] = (hsize_t)current_size[*rank - i - 1];
+ c_maximum_size[i] = (hsize_t)maximum_size[*rank - i - 1];
+ }
+
+ c_space_id = *space_id;
+ c_rank = *rank;
+ status = H5Sset_extent_simple(c_space_id, c_rank, c_current_size, c_maximum_size);
+ if ( status >= 0 ) ret_value = 0;
+ HDfree(c_current_size);
+ HDfree(c_maximum_size);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sget_simple_extent_dims_c
+ * Purpose: Call H5Sget_simple_extent_dims to retrieve sizes of an
+ * existing dataspace
+ * Inputs: space_id - identifier of the dataspace
+ * Outputs: dims - array with the dimension sizes
+ * maxdims - aray with maximum sizes of dimensions
+ * Returns: number of dataspace dimensions (rank) on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 11, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sget_simple_extent_dims_c ( hid_t_f *space_id , hsize_t_f *dims, hsize_t_f *maxdims)
+{
+ int ret_value = -1;
+ hid_t c_space_id;
+ hsize_t *c_dims;
+ hsize_t *c_maxdims;
+ int status;
+ int rank;
+ int i;
+
+ c_space_id = *space_id;
+ rank = H5Sget_simple_extent_ndims(c_space_id);
+ if (rank < 0) return ret_value;
+
+ c_dims = malloc(sizeof(hsize_t)*rank);
+ if (!c_dims) return ret_value;
+
+ c_maxdims = malloc(sizeof(hsize_t)*rank);
+ if (!c_maxdims) return ret_value;
+
+ status = H5Sget_simple_extent_dims(c_space_id, c_dims, c_maxdims);
+ /*
+ * Reverse dimensions due to C-FORTRAN storage order.
+ */
+ for (i=0; i < rank; i++) {
+ dims[rank - i - 1] = (hsize_t_f)c_dims[i];
+ maxdims[rank - i - 1] = (hsize_t_f)c_maxdims[i];
+ }
+
+ if ( status >= 0 ) ret_value = rank;
+ HDfree(c_dims);
+ HDfree(c_maxdims);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sis_simple_c
+ * Purpose: Call H5Sis_simple to detrmine if the dataspace
+ * is simple.
+ * Inputs: space_id - identifier of the dataspace
+ * Outputs: flag - 0 if not simple, 1 if is simple,
+ * and negative on failure.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 11, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sis_simple_c ( hid_t_f *space_id , int_f *flag )
+{
+ int ret_value = 0;
+ hid_t c_space_id;
+ htri_t status;
+
+ c_space_id = *space_id;
+ status = H5Sis_simple(c_space_id);
+ *flag = (int_f)status;
+ if ( status < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5sextent_copy_c
+ * Purpose: Call H5Sextent_copy to copy an extent of dataspace
+ * Inputs: dest_space_id - identifier of the destination dataspace
+ * source_space_id - identifier of the source dataspace
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 11, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sextent_copy_c ( hid_t_f *dest_space_id , hid_t_f *source_space_id)
+{
+ int ret_value = 0;
+ hid_t c_dest_space_id, c_source_space_id;
+ herr_t status;
+
+ c_dest_space_id = *dest_space_id;
+ c_source_space_id = *source_space_id;
+ status = H5Sextent_copy(c_dest_space_id, c_source_space_id);
+ if ( status < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sset_extent_none_c
+ * Purpose: Call H5Sset_extent_none to remove extent from a dataspace
+ * Inputs: space_id - dataspace identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 11, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sset_extent_none_c ( hid_t_f *space_id )
+{
+ int ret_value = 0;
+ hid_t c_space_id;
+ herr_t status;
+
+ c_space_id = *space_id;
+ status = H5Sset_extent_none(c_space_id);
+ if ( status < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5sselect_hyperslab_c
+ * Purpose: Call H5Sselect_hyperslab to select a hyperslab
+ * Inputs: space_id - identifier of the dataspace
+ * operator - defines how the new selection is combined
+ * with the previous one; current values are
+ * H5S_SELECT_SET_F (0) and H5S_SELECT_OR_F (1)
+ * start - offset of start of hyperslab
+ * count - number of blocks included in the hyperslab
+ * stride - hyperslab stride (interval between blocks)
+ * block - size of block in the hyperslab
+ * maximum_size - aray with maximum sizes of dimensions
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 11, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sselect_hyperslab_c ( hid_t_f *space_id , int_f *op, hssize_t_f *start, hsize_t_f *count, hsize_t_f *stride, hsize_t_f *block)
+{
+ int ret_value = -1;
+ hid_t c_space_id;
+ hssize_t *c_start;
+ hsize_t *c_count;
+ hsize_t *c_stride;
+ hsize_t *c_block;
+
+ H5S_seloper_t c_op;
+ herr_t status;
+ int rank;
+ int i;
+
+ rank = H5Sget_simple_extent_ndims(*space_id);
+ if (rank < 0 ) return ret_value;
+ c_start = (hssize_t *)HDmalloc(sizeof(hssize_t)*rank);
+ if (!c_start) return ret_value;
+
+ c_count = (hsize_t *)HDmalloc(sizeof(hsize_t)*rank);
+ if (!c_count) return ret_value;
+
+ c_stride = (hsize_t *)HDmalloc(sizeof(hsize_t)*rank);
+ if (!c_stride) return ret_value;
+
+ c_block = (hsize_t *)HDmalloc(sizeof(hsize_t)*rank);
+ if (!c_block) return ret_value;
+
+
+ /*
+ * Reverse dimensions due to C-FORTRAN storage order.
+ */
+
+ for (i=0; i < rank; i++) {
+ int t= (rank - i) - 1;
+ c_start[i] = (hssize_t)start[t];
+ c_count[i] = (hsize_t)count[t];
+ c_stride[i] = (hsize_t)stride[t];
+ c_block[i] = (hsize_t)block[t];
+ }
+
+ if (*op == H5S_SELECT_SET_F) c_op = H5S_SELECT_SET;
+ if (*op == H5S_SELECT_OR_F) c_op = H5S_SELECT_OR;
+
+
+ c_space_id = *space_id;
+ status = H5Sselect_hyperslab(c_space_id, c_op, c_start, c_stride, c_count, c_block);
+ if ( status >= 0 ) ret_value = 0;
+ HDfree(c_start);
+ HDfree(c_count);
+ HDfree(c_stride);
+ HDfree(c_block);
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5sselect_elements_c
+ * Purpose: Call H5Sselect_elements to select elements of a dataspace
+ * Inputs: space_id - identifier of the dataspace
+ * operator - defines how the new selection is combined
+ * with the previous one; current values are
+ * H5S_SELECT_SET_F (0)
+ * nelements - number of elements in the selection
+ * coord - arrays with the elements coordinates
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Wednesday, August 11, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5sselect_elements_c ( hid_t_f *space_id , int_f *op, size_t_f *nelements, hssize_t_f *coord)
+{
+ int ret_value = -1;
+ hid_t c_space_id;
+ H5S_seloper_t c_op;
+ herr_t status;
+ int rank;
+ int i, j;
+ hssize_t *c_coord;
+ size_t c_nelements;
+
+ if (*op != H5S_SELECT_SET_F) return ret_value;
+ c_op = H5S_SELECT_SET;
+
+ c_space_id = *space_id;
+ rank = H5Sget_simple_extent_ndims(c_space_id);
+
+ c_coord = malloc(sizeof(hssize_t)*rank*(*nelements));
+ if(!c_coord) return ret_value;
+ for (i=0; i< *nelements; i++) {
+ for (j = 0; j < rank; j++) {
+ c_coord[j+i*rank] = (hssize_t)coord[j + i*rank];
+ }
+ }
+
+ c_nelements = *nelements;
+ status = H5Sselect_elements(c_space_id, c_op, c_nelements, (const hssize_t **)c_coord);
+ if ( status >= 0 ) ret_value = 0;
+ HDfree(c_coord);
+ return ret_value;
+}
+
diff --git a/fortran/src/H5Sff.f90 b/fortran/src/H5Sff.f90
new file mode 100644
index 0000000..d4b6b2f
--- /dev/null
+++ b/fortran/src/H5Sff.f90
@@ -0,0 +1,460 @@
+!
+! This file contains Fortran90 interfaces for H5S functions.
+!
+ MODULE H5S
+ USE H5FORTRAN_TYPES
+ USE H5FORTRAN_FLAGS
+
+ CONTAINS
+
+
+ SUBROUTINE h5screate_simple_f(rank, dims, space_id, hdferr, maxdims)
+
+ IMPLICIT NONE
+ INTEGER, INTENT(IN) :: rank ! Number of dataspace dimensions
+ INTEGER(HSIZE_T), INTENT(IN) :: dims(rank)
+ ! Array with the dimension
+ ! sizes
+ INTEGER(HID_T), INTENT(OUT) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HSIZE_T), OPTIONAL, INTENT(IN) :: maxdims(rank)
+ ! Array with the maximum
+ ! dimension sizes
+ INTEGER(HSIZE_T), ALLOCATABLE, DIMENSION(:) :: f_maxdims
+ INTEGER, EXTERNAL :: h5screate_simple_c
+
+ allocate (f_maxdims(rank), stat=hdferr)
+ if (hdferr .NE. 0) then
+ hdferr = -1
+ return
+ endif
+ if (present(maxdims)) then
+ f_maxdims = maxdims
+ else
+ f_maxdims = dims
+ endif
+ hdferr = h5screate_simple_c(rank, dims, f_maxdims, space_id)
+ deallocate(f_maxdims)
+
+ END SUBROUTINE h5screate_simple_f
+
+ SUBROUTINE h5sclose_f(space_id, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sclose_c
+
+ hdferr = h5sclose_c(space_id)
+
+ END SUBROUTINE h5sclose_f
+
+ SUBROUTINE h5screate_f(classtype, space_id, hdferr)
+
+ IMPLICIT NONE
+ INTEGER, INTENT(IN) :: classtype ! The type of the dataspace
+ ! to be created.
+ ! Possible values are:
+ ! H5S_SCALAR_F (0)
+ ! H5S_SIMPLE_F(1)
+ INTEGER(HID_T), INTENT(OUT) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5screate_c
+ hdferr = h5screate_c(classtype, space_id)
+
+ END SUBROUTINE h5screate_f
+
+
+ SUBROUTINE h5scopy_f(space_id, new_space_id, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(OUT) :: new_space_id
+ ! Identifier of dataspace's copy
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5scopy_c
+ hdferr = h5scopy_c(space_id, new_space_id)
+
+ END SUBROUTINE h5scopy_f
+
+ SUBROUTINE h5sget_select_hyper_nblocks_f(space_id, num_blocks, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSSIZE_T), INTENT(OUT) :: num_blocks
+ !number of hyperslab blocks
+ !in the current dataspace
+ !selection
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sget_select_hyper_nblocks_c
+ hdferr = h5sget_select_hyper_nblocks_c (space_id, num_blocks)
+
+ END SUBROUTINE h5sget_select_hyper_nblocks_f
+
+ SUBROUTINE h5sget_select_hyper_blocklist_f(space_id, startblock, &
+ num_blocks, buf, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: startblock
+ !Hyperslab block to start with.
+ INTEGER(HSIZE_T), INTENT(IN) :: num_blocks
+ !number of hyperslab blocks
+ !to get in the current dataspace
+ !selection
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
+ !List of hyperslab blocks selected
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5sget_select_hyper_blocklist_c
+
+ hdferr = h5sget_select_hyper_blocklist_c(space_id, startblock, &
+ num_blocks, buf )
+
+ END SUBROUTINE h5sget_select_hyper_blocklist_f
+
+ SUBROUTINE h5sget_select_bounds_f(space_id, start, end, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: start
+ !Starting coordinates of the bounding box.
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: end
+ !Ending coordinates of the bounding box,
+ !i.e., the coordinates of the diagonally
+ !opposite corner
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sget_select_bounds_c
+ hdferr = h5sget_select_bounds_c(space_id, start, end)
+
+ END SUBROUTINE h5sget_select_bounds_f
+
+ SUBROUTINE h5sget_select_elem_npoints_f(space_id, num_points, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSSIZE_T), INTENT(OUT) :: num_points
+ !number of element points
+ !in the current dataspace
+ !selection
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sget_select_elem_npoints_c
+ hdferr = h5sget_select_elem_npoints_c (space_id, num_points)
+
+ END SUBROUTINE h5sget_select_elem_npoints_f
+
+ SUBROUTINE h5sget_select_elem_pointlist_f(space_id, startpoint, &
+ num_points, buf, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSIZE_T),DIMENSION(*), INTENT(IN) :: startpoint
+ !Element point to start with.
+ INTEGER(HSIZE_T), INTENT(IN) :: num_points
+ !Number of element points to get
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
+ !List of element points selected
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sget_select_elem_pointlist_c
+ hdferr = h5sget_select_elem_pointlist_c(space_id, startpoint, &
+ num_points, buf )
+ END SUBROUTINE h5sget_select_elem_pointlist_f
+
+ SUBROUTINE h5sselect_elements_f(space_id, operator, rank, &
+ num_elements, coord, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(IN) :: operator ! Flag, valid values are:
+ ! H5S_SELECT_SET_F (0)
+ ! H5S_SELECT_OR_F (1)
+ INTEGER, INTENT(IN) :: rank ! Number of dataspace dimensions
+ INTEGER(SIZE_T), INTENT(IN) :: num_elements ! Number of elements to be
+ ! selected
+ INTEGER(HSSIZE_T), &
+ DIMENSION(rank,num_elements), INTENT(IN) :: coord
+ ! Array with the coordinates
+ ! of the selected elements
+ ! coord(rank, num_elements)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sselect_elements_c
+ INTEGER(HSSIZE_T), ALLOCATABLE, DIMENSION(:,:) :: c_coord
+ INTEGER :: error, i,j
+ allocate(c_coord(rank, num_elements), stat = error)
+ if (error.NE. 0) then
+ hdferr = -1
+ return
+ endif
+ do i = 1, rank
+ c_coord(i,:) = coord(rank-i+1, :) - 1
+ enddo
+ hdferr = h5sselect_elements_c(space_id, operator, num_elements, &
+ c_coord)
+ deallocate(c_coord)
+
+ END SUBROUTINE h5sselect_elements_f
+
+
+ SUBROUTINE h5sselect_all_f(space_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sselect_all_c
+ hdferr = h5sselect_all_c(space_id)
+
+ END SUBROUTINE h5sselect_all_f
+
+
+ SUBROUTINE h5sselect_none_f(space_id, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sselect_none_c
+ hdferr = h5sselect_none_c(space_id)
+
+ END SUBROUTINE h5sselect_none_f
+
+
+
+ SUBROUTINE h5sselect_valid_f(space_id, status, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ LOGICAL, INTENT(OUT) :: status ! TRUE if the selection is
+ ! contained within the extent,
+ ! FALSE otherwise.
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: flag ! "TRUE/FALSE/ERROR" flag from C routine
+ INTEGER, EXTERNAL :: h5sselect_valid_c
+ hdferr = h5sselect_valid_c(space_id, flag)
+ status = .TRUE.
+ if (flag .EQ. 0) status = .FALSE.
+
+ END SUBROUTINE h5sselect_valid_f
+
+
+ SUBROUTINE h5sget_simple_extent_npoints_f(space_id, npoints, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSIZE_T), INTENT(OUT) :: npoints ! Number of elements in
+ ! dataspace
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sget_simple_extent_npoints_c
+ hdferr = h5sget_simple_extent_npoints_c( space_id, npoints)
+
+ END SUBROUTINE h5sget_simple_extent_npoints_f
+
+
+ SUBROUTINE h5sget_select_npoints_f(space_id, npoints, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSSIZE_T), INTENT(OUT) :: npoints ! Number of elements in the
+ ! selection
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sget_select_npoints_c
+ hdferr = h5sget_select_npoints_c(space_id, npoints)
+
+ END SUBROUTINE h5sget_select_npoints_f
+
+
+ SUBROUTINE h5sget_simple_extent_ndims_f(space_id, rank, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(OUT) :: rank ! Number of dimensions
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sget_simple_extent_ndims_c
+ hdferr = h5sget_simple_extent_ndims_c(space_id, rank)
+
+ END SUBROUTINE h5sget_simple_extent_ndims_f
+
+
+ SUBROUTINE h5sget_simple_extent_dims_f(space_id, dims, maxdims, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: dims
+ ! Array to store dimension sizes
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: maxdims
+ ! Array to store max dimension
+ ! sizes
+ INTEGER, INTENT(OUT) :: hdferr ! Error code: -1 on failure,
+ ! number of dimensions on
+ ! on success
+ INTEGER, EXTERNAL :: h5sget_simple_extent_dims_c
+ hdferr = h5sget_simple_extent_dims_c(space_id, dims, maxdims)
+
+ END SUBROUTINE h5sget_simple_extent_dims_f
+
+
+ SUBROUTINE h5sget_simple_extent_type_f(space_id, classtype, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(OUT) :: classtype ! Class type , possible values
+ ! are:
+ ! H5S_NO_CLASS_F (-1)
+ ! H5S_SCALAR_F (0)
+ ! H5S_SIMPLE_F (1)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sget_simple_extent_type_c
+ hdferr = h5sget_simple_extent_type_c(space_id, classtype)
+
+ END SUBROUTINE h5sget_simple_extent_type_f
+
+
+ SUBROUTINE h5sset_extent_simple_f(space_id, rank, current_size, &
+ maximum_size, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(IN) :: rank ! Dataspace rank
+ INTEGER(HSIZE_T), DIMENSION(rank), INTENT(IN) :: current_size
+ ! Array with the new sizes
+ ! of dimensions
+ INTEGER(HSIZE_T), DIMENSION(rank), INTENT(IN) :: maximum_size
+ ! Array with the new maximum
+ ! sizes of dimensions
+ ! sizes
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sset_extent_simple_c
+ hdferr = h5sset_extent_simple_c(space_id, rank, current_size, &
+ maximum_size)
+
+ END SUBROUTINE h5sset_extent_simple_f
+
+
+ SUBROUTINE h5sis_simple_f(space_id, status, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ LOGICAL, INTENT(OUT) :: status ! Flag, idicates if dataspace
+ ! is simple or not ( TRUE or
+ ! FALSE)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: flag ! "TRUE/FALSE/ERROR from C"
+ INTEGER, EXTERNAL :: h5sis_simple_c
+ hdferr = h5sis_simple_c(space_id, flag)
+ status = .TRUE.
+ if (flag .EQ. 0) status = .FALSE.
+
+ END SUBROUTINE h5sis_simple_f
+
+ SUBROUTINE h5soffset_simple_f(space_id, offset, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSSIZE_T), DIMENSION(*), INTENT(IN) :: offset
+ ! The offset at which to position
+ ! the selection
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5soffset_simple_c
+ hdferr = h5soffset_simple_c(space_id, offset)
+
+ END SUBROUTINE h5soffset_simple_f
+
+
+ SUBROUTINE h5sextent_copy_f(dest_space_id, source_space_id, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: dest_space_id ! Identifier of destination
+ ! dataspace
+ INTEGER(HID_T), INTENT(IN) :: source_space_id ! Identifier of source
+ ! dataspace
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sextent_copy_c
+ hdferr = h5sextent_copy_c(dest_space_id, source_space_id)
+
+ END SUBROUTINE h5sextent_copy_f
+
+
+ SUBROUTINE h5sset_extent_none_f(space_id, hdferr)
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5sset_extent_none_c
+ hdferr = h5sset_extent_none_c(space_id)
+
+ END SUBROUTINE h5sset_extent_none_f
+
+
+ SUBROUTINE h5sselect_hyperslab_f(space_id, operator, start, count, &
+ hdferr, stride, block)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(IN) :: operator ! Flag, valid values are:
+ ! H5S_SELECT_SET_F (0)
+ ! H5S_SELECT_OR_F (1)
+ !
+ INTEGER(HSSIZE_T), DIMENSION(*), INTENT(IN) :: start
+ ! Starting coordinates of the hyperslab
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: count
+ ! Number of blocks to select
+ ! from dataspace
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HSIZE_T), DIMENSION(:), OPTIONAL, INTENT(IN) :: stride
+ ! Array of how many elements to move
+ ! in each direction
+ INTEGER(HSIZE_T), DIMENSION(:), OPTIONAL, INTENT(IN) :: block
+ ! Sizes of element block
+ INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: def_block
+ INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: def_stride
+ INTEGER, EXTERNAL :: h5sselect_hyperslab_c
+ INTEGER :: rank
+ INTEGER :: error1, error2
+ if (present(stride).and. present(block)) then
+ hdferr = h5sselect_hyperslab_c(space_id, operator, start, count, &
+ stride, block)
+ return
+ endif
+ ! Case of optional parameters.
+ !
+ ! Find the rank of the dataspace to allocate memery for
+ ! default stride and block arrays.
+ !
+ CALL h5sget_simple_extent_ndims_f(space_id, rank, hdferr)
+ if( hdferr .EQ. -1) return
+ !
+ if (present(stride).and. .not.present(block)) then
+ allocate(def_block(rank), stat=error1)
+ if (error1.NE.0) then
+ hdferr = -1
+ return
+ endif
+ def_block = 1
+ hdferr = h5sselect_hyperslab_c(space_id, operator, start, count, &
+ stride, def_block)
+ deallocate(def_block)
+ return
+ endif
+
+ if (.not.present(stride).and. present(block)) then
+ allocate(def_stride(rank), stat=error2)
+ if (error2.NE.0) then
+ hdferr = -1
+ return
+ endif
+ def_stride = 1
+ hdferr = h5sselect_hyperslab_c(space_id, operator, start, count, &
+ def_stride, block)
+ deallocate(def_stride)
+ return
+ endif
+ allocate(def_block(rank), stat=error1)
+ allocate(def_stride(rank), stat=error2)
+ if ((error1.NE.0) .OR. (error2.NE.0)) then
+ hdferr = -1
+ return
+ endif
+ def_block = 1
+ def_stride = 1
+ hdferr = h5sselect_hyperslab_c(space_id, operator, start, count, &
+ def_stride, def_block)
+ deallocate(def_block)
+ deallocate(def_stride)
+
+ END SUBROUTINE h5sselect_hyperslab_f
+
+ END MODULE H5S
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c
new file mode 100644
index 0000000..d097936
--- /dev/null
+++ b/fortran/src/H5Tf.c
@@ -0,0 +1,1543 @@
+#include "H5f90.h"
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5topen_c
+ * Purpose: Call H5Topen to open a datatype
+ * Inputs: loc_id - file or group identifier
+ * name - name of the datatype within file or group
+ * namelen - name length
+ * Outputs: type_id - dataset identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5topen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id)
+{
+ int ret_value = -1;
+ char *c_name;
+ int c_namelen;
+ hid_t c_type_id;
+ hid_t c_loc_id;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Topen function.
+ */
+ c_loc_id = *loc_id;
+ c_type_id = H5Topen(c_loc_id, c_name);
+
+ if (c_type_id < 0) return ret_value;
+ *type_id = (hid_t_f)c_type_id;
+ HDfree(c_name);
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5tcommit_c
+ * Purpose: Call H5Tcommit to commit a datatype
+ * Inputs: loc_id - file or group identifier
+ * name - name of the datatype within file or group
+ * namelen - name length
+ * type_id - dataset identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5tcommit_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id)
+{
+ int ret_value = -1;
+ char *c_name;
+ int c_namelen;
+ hid_t c_type_id;
+ hid_t c_loc_id;
+ herr_t status;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ /*
+ * Call H5Tcommit function.
+ */
+ c_loc_id = *loc_id;
+ c_type_id = *type_id;
+ status = H5Tcommit(c_loc_id, c_name, c_type_id);
+ HDfree(c_name);
+ if (status < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tclose_c
+ * Purpose: Call H5Tclose to close the datatype
+ * Inputs: type_id - identifier of the datatype to be closed
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tclose_c ( hid_t_f *type_id )
+{
+ int ret_value = 0;
+ hid_t c_type_id;
+
+ c_type_id = *type_id;
+ if ( H5Tclose(c_type_id) < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5tcopy_c
+ * Purpose: Call H5Tcopy to copy a datatype
+ * Inputs: type_id - identifier of the datatype to be copied
+ * Outputs: new_type_id - identifier of the new datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tcopy_c ( hid_t_f *type_id , hid_t_f *new_type_id)
+{
+ int ret_value = 0;
+ hid_t c_type_id;
+ hid_t c_new_type_id;
+
+ c_type_id = *type_id;
+ c_new_type_id = H5Tcopy(c_type_id);
+ if ( c_new_type_id < 0 ) ret_value = -1;
+ *new_type_id = (hid_t_f)c_new_type_id;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tequal_c
+ * Purpose: Call H5Tequal to copy a datatype
+ * Inputs: type1_id - datatype identifier
+ * type2_id - datatype identifier
+ * Outputs: c_flag - flag; indicates if two datatypes are equal or not.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, February 22, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tequal_c ( hid_t_f *type1_id , hid_t_f *type2_id, int_f *c_flag)
+{
+ int ret_value = -1;
+ hid_t c_type1_id, c_type2_id;
+ htri_t status;
+
+ c_type1_id = *type1_id;
+ c_type2_id = *type2_id;
+ status = H5Tequal(c_type1_id, c_type2_id);
+ if ( status < 0 ) return ret_value;
+ *c_flag = (int_f)status;
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_class_c
+ * Purpose: Call H5Tget_class to determine the datatype class
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: classtype - class type; possible values are:
+ * H5T_NO_CLASS_F (-1)
+ * H5T_INTEGER_F (0)
+ * H5T_FLOAT_F (1)
+ * H5T_TIME_F (2)
+ * H5T_STRING_F (3)
+ * H5T_BITFIELD_F (4)
+ * H5T_OPAQUE_F (5)
+ * H5T_COMPOUNDF (6)
+ * H5T_REFERENCE_F (7)
+ * H5T_ENUMF (8)
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_class_c ( hid_t_f *type_id , int_f *classtype)
+{
+ int ret_value = 0;
+ hid_t c_type_id;
+ H5T_class_t c_classtype;
+
+ c_type_id = *type_id;
+ c_classtype = H5Tget_class(c_type_id);
+ if (c_classtype == H5T_NO_CLASS ) {
+ *classtype = H5T_NO_CLASS_F;
+ ret_value = -1;
+ return ret_value;
+ }
+ if (c_classtype == H5T_INTEGER) *classtype = H5T_INTEGER_F;
+ if (c_classtype == H5T_FLOAT) *classtype = H5T_FLOAT_F;
+ if (c_classtype == H5T_TIME) *classtype = H5T_TIME_F;
+ if (c_classtype == H5T_STRING) *classtype = H5T_STRING_F;
+ if (c_classtype == H5T_BITFIELD) *classtype = H5T_BITFIELD_F;
+ if (c_classtype == H5T_OPAQUE) *classtype = H5T_OPAQUE_F;
+ if (c_classtype == H5T_COMPOUND) *classtype = H5T_COMPOUND_F;
+ if (c_classtype == H5T_REFERENCE) *classtype = H5T_REFERENCE_F;
+ if (c_classtype == H5T_ENUM) *classtype = H5T_ENUM_F;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_order_c
+ * Purpose: Call H5Tget_order to determine byte order
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: order; possible values are:
+ * H5T_ORDER_LE_F (0)
+ * H5T_ORDER_BE_F (1)
+ * H5T_ORDER_VAX_F (2)
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_order_c ( hid_t_f *type_id , int_f *order)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ H5T_order_t c_order;
+
+ c_type_id = *type_id;
+ c_order = H5Tget_order(c_type_id);
+ if ( c_order < 0 ) return ret_value;
+ if ( c_order == H5T_ORDER_LE) *order = H5T_ORDER_LE_F;
+ if ( c_order == H5T_ORDER_BE) *order = H5T_ORDER_BE_F;
+ if ( c_order == H5T_ORDER_VAX) *order = H5T_ORDER_VAX_F;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5tset_order_c
+ * Purpose: Call H5Tset_order to set byte order
+ * Inputs: type_id - identifier of the dataspace
+ * order; possible values are:
+ * H5T_ORDER_LE_F (0)
+ * H5T_ORDER_BE_F (1)
+ * H5T_ORDER_VAX_F (2)
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tset_order_c ( hid_t_f *type_id , int_f *order)
+{
+ int ret_value = 0;
+ hid_t c_type_id;
+ H5T_order_t c_order;
+ herr_t status;
+
+ if ( *order == H5T_ORDER_LE_F) c_order = H5T_ORDER_LE;
+ if ( *order == H5T_ORDER_BE_F) c_order = H5T_ORDER_BE;
+ if ( *order == H5T_ORDER_VAX_F) c_order = H5T_ORDER_VAX;
+ c_type_id = *type_id;
+ status = H5Tset_order(c_type_id, c_order);
+ if ( status < 0 ) ret_value = -1;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_size_c
+ * Purpose: Call H5Tget_size to get size of the datatype
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: size (in bytes)
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_size_c ( hid_t_f *type_id , size_t_f *size)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ size_t c_size;
+
+ c_type_id = *type_id;
+ c_size = H5Tget_size(c_type_id);
+ if ( c_size == 0 ) return ret_value;
+ *size = (size_t_f)c_size ;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tset_size_c
+ * Purpose: Call H5Tget_size to get size of the datatype
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: size (in bytes)
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Saturday, August 14, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tset_size_c ( hid_t_f *type_id , size_t_f *size)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ size_t c_size;
+ herr_t status;
+
+ c_size = (size_t)*size;
+ c_type_id = *type_id;
+ status = H5Tset_size(c_type_id, c_size);
+ if ( status < 0 ) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_precision_c
+ * Purpose: Call H5Tget_precision to get precision of the datatype
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: precision - number of significant bits
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Tuesday, January 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_precision_c ( hid_t_f *type_id , size_t_f *precision)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ size_t c_precision;
+
+ c_type_id = *type_id;
+ c_precision = H5Tget_precision(c_type_id);
+ if ( c_precision == 0 ) return ret_value;
+ *precision = (size_t_f)c_precision ;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tset_precision_c
+ * Purpose: Call H5Tset_precision to set precision of the datatype
+ * Inputs: type_id - identifier of the dataspace
+ * precision - number of significant bits
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Tuesday, January 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tset_precision_c ( hid_t_f *type_id , size_t_f *precision)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ size_t c_precision;
+ herr_t status;
+
+ c_type_id = *type_id;
+ c_precision = (size_t)*precision;
+ status = H5Tset_precision(c_type_id, c_precision);
+ if ( status < 0 ) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_offset_c
+ * Purpose: Call H5Tget_offset to get bit offset of the first
+ * significant bit of the datatype
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: offset - bit offset of the first significant bit
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Tuesday, January 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_offset_c ( hid_t_f *type_id , size_t_f *offset)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ size_t c_offset;
+
+ c_type_id = *type_id;
+ c_offset = H5Tget_offset(c_type_id);
+ if ( c_offset == 0 ) return ret_value;
+
+ *offset = (size_t_f)c_offset ;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tset_offset_c
+ * Purpose: Call H5Tset_offset to set bit offset of the first
+ * significant bit of the datatype
+ * Inputs: type_id - identifier of the dataspace
+ * offset - bit offset of the first significant bit
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Tuesday, January 25, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tset_offset_c ( hid_t_f *type_id , size_t_f *offset)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ size_t c_offset;
+ herr_t status;
+
+ c_offset = (size_t)*offset;
+ c_type_id = *type_id;
+ status = H5Tset_offset(c_type_id, c_offset);
+ if ( status < 0 ) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_pad_c
+ * Purpose: Call H5Tget_pad to get the padding type of the least and
+ * most-significant bit padding
+ *
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: lsbpad - padding type of the least significant bit
+ * msbpad - padding type of the least significant bit
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Wednesday, January 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_pad_c ( hid_t_f *type_id , int_f * lsbpad, int_f * msbpad)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t status;
+ H5T_pad_t c_lsb, c_msb;
+
+ c_type_id = *type_id;
+ status = H5Tget_pad(c_type_id, &c_lsb, &c_msb);
+ if ( status < 0 ) return ret_value;
+
+ *lsbpad = (int_f) c_lsb;
+ *msbpad = (int_f) c_msb;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tset_pad_c
+ * Inputs: type_id - identifier of the dataspace
+ * Purpose: Call H5Tset_pad to set the padding type of the least and
+ * most-significant bit padding
+ *
+ * Inputs: type_id - identifier of the dataspace
+ * lsbpad - padding type of the least significant bit
+ * msbpad - padding type of the least significant bit
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Wednesday, January 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tset_pad_c ( hid_t_f *type_id, int_f * lsbpad, int_f* msbpad )
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t status;
+ H5T_pad_t c_lsb, c_msb;
+
+ c_type_id = *type_id;
+ c_lsb = (H5T_pad_t)*lsbpad;
+ c_msb = (H5T_pad_t)*msbpad;
+ status = H5Tset_pad(c_type_id, c_lsb, c_msb);
+ if ( status < 0 ) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_sign_c
+ * Purpose: Call H5Tget_sign to get sign type for an integer type
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: sign - sign type for an integer type
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Wednesday, January 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_sign_c ( hid_t_f *type_id , int_f *sign)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ H5T_sign_t c_sign;
+
+ c_type_id = *type_id;
+ c_sign = H5Tget_sign(c_type_id);
+ if ( c_sign == -1 ) return ret_value;
+ *sign = (int_f)c_sign ;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tset_sign_c
+ * Purpose: Call H5Tset_sign to set sign type for an integer type
+ * Inputs: type_id - identifier of the dataspace
+ * sign - sign type for an integer typ
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Wednesday, January 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tset_sign_c ( hid_t_f *type_id , int_f* sign)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ H5T_sign_t c_sign;
+ herr_t status;
+
+ c_type_id = *type_id;
+ c_sign = (H5T_sign_t)*sign;
+ status = H5Tset_sign(c_type_id, c_sign);
+ if ( status < 0 ) return ret_value;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_fields_c
+ * Purpose: Call H5Tget_fields to get floating point datatype
+ * bit field information
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: epos - exponent bit-position
+ * esize - size of exponent in bits
+ * mpos - mantissa bit-position
+ * msize - size of mantissa in bits
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Thursday, January 27, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_fields_c ( hid_t_f *type_id , size_t_f *spos, size_t_f *epos, size_t_f* esize, size_t_f* mpos, size_t_f* msize)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t status;
+ size_t c_spos, c_epos, c_esize, c_mpos, c_msize;
+
+ c_type_id = *type_id;
+ status = H5Tget_fields(c_type_id, &c_spos, &c_epos, &c_esize, &c_mpos, &c_msize);
+ if ( status < 0 ) return ret_value;
+ *spos = (size_t_f) c_spos;
+ *epos = (size_t_f) c_epos;
+ *esize = (size_t_f) c_esize;
+ *mpos = (size_t_f) c_mpos;
+ *msize = (size_t_f) c_msize;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tset_fields_c
+ * Purpose: Call H5Tset_fields to set floating point datatype
+ * bit field information
+ * Inputs: type_id - identifier of the dataspace
+ * epos - exponent bit-position
+ * esize - size of exponent in bits
+ * mpos - mantissa bit-position
+ * msize - size of mantissa in bits
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Wednesday, January 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tset_fields_c ( hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f* esize, size_t_f* mpos, size_t_f* msize)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t status;
+ size_t c_spos, c_epos, c_esize, c_mpos, c_msize;
+
+ c_spos = (size_t)*spos;
+ c_epos = (size_t)*epos;
+ c_esize = (size_t)*esize;
+ c_mpos = (size_t)*mpos;
+ c_msize = (size_t)*msize;
+ c_type_id = *type_id;
+ status = H5Tset_fields(c_type_id, c_spos, c_epos, c_esize, c_mpos, c_msize);
+ if ( status < 0 ) return ret_value;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_ebias_c
+ * Purpose: Call H5Tget_ebias to get exponent bias of a
+ * floating-point type of the datatype
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: ebias - exponent bias of a floating-point type of the datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, January 27, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_ebias_c ( hid_t_f *type_id , size_t_f *ebias)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ size_t c_ebias;
+
+ c_type_id = *type_id;
+ c_ebias = H5Tget_ebias(c_type_id);
+ if ( c_ebias == 0 ) return ret_value;
+
+ *ebias = (size_t_f)c_ebias;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tset_ebias_c
+ * Purpose: Call H5Tset_ebias to set exponent bias of a
+ * floating-point type of the datatype
+ * Inputs: type_id - identifier of the dataspace
+ * ebias - exponent bias of a floating-point type of the datatyp
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, January 27, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tset_ebias_c ( hid_t_f *type_id , size_t_f *ebias)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ size_t c_ebias;
+ herr_t status;
+
+ c_type_id = *type_id;
+ c_ebias = (size_t)*ebias;
+ status = H5Tset_ebias(c_type_id, c_ebias);
+ if ( status < 0 ) return ret_value;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_norm_c
+ * Purpose: Call H5Tget_norm to get mantissa normalization
+ * of a floating-point datatype
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: norm - mantissa normalization of a floating-point type
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, January 27, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_norm_c ( hid_t_f *type_id , int_f *norm)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ H5T_norm_t c_norm;
+
+ c_type_id = *type_id;
+ c_norm = H5Tget_norm(c_type_id);
+ if ( c_norm == 0 ) return ret_value;
+
+ *norm = (size_t_f)c_norm;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tset_norm_c
+ * Purpose: Call H5Tset_norm to set mantissa normalization of
+ * floating-point type of the datatype
+ * Inputs: type_id - identifier of the dataspace
+ * norm - mantissa normalization of a floating-point type
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Friday, January 27, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tset_norm_c ( hid_t_f *type_id , int_f *norm)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ H5T_norm_t c_norm;
+ herr_t status;
+
+ c_type_id = *type_id;
+ c_norm = (H5T_norm_t)*norm;
+ status = H5Tset_norm(c_type_id, c_norm);
+ if ( status < 0 ) return ret_value;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_inpad_c
+ * Purpose: Call H5Tget_inpad to get the padding type for
+ * unused bits in floating-point datatypes
+ *
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: padtype - padding type for
+ * unused bits in floating-point datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Wednesday, January 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_inpad_c ( hid_t_f *type_id , int_f * padtype)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t status;
+ H5T_pad_t c_padtype;
+
+ c_type_id = *type_id;
+ c_padtype = H5Tget_inpad(c_type_id);
+ if ( c_padtype == H5T_PAD_ERROR ) return ret_value;
+
+ *padtype = (int_f) c_padtype;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tset_inpad_c
+ * Inputs: type_id - identifier of the dataspace
+ * Purpose: Call H5Tset_inpad to set the padding type
+ * unused bits in floating-point datatype
+ *
+ * Inputs: type_id - identifier of the dataspace
+ * padtype - padding type for unused bits
+ * in floating-point datatypes
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Wednesday, January 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tset_inpad_c ( hid_t_f *type_id, int_f * padtype)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t status;
+ H5T_pad_t c_padtype;
+
+ c_type_id = *type_id;
+ c_padtype = (H5T_pad_t)*padtype;
+ status = H5Tset_inpad(c_type_id, c_padtype);
+ if ( status < 0 ) return ret_value;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_cset_c
+ * Purpose: Call H5Tget_cset to get character set
+ * type of a string datatype
+ *
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: cset - character set type of a string datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Wednesday, January 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_cset_c ( hid_t_f *type_id , int_f * cset)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t status;
+ H5T_cset_t c_cset;
+
+ c_type_id = *type_id;
+ c_cset = H5Tget_cset(c_type_id);
+ if ( c_cset == H5T_CSET_ERROR ) return ret_value;
+
+ *cset = (int_f) c_cset;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tset_cset_c
+ * Inputs: type_id - identifier of the dataspace
+ * Purpose: Call H5Tset_cset to set character set
+ * type of a string datatype
+ *
+ * Inputs: type_id - identifier of the dataspace
+ * cset - character set type of a string datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Wednesday, January 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tset_cset_c ( hid_t_f *type_id, int_f * cset)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t status;
+ H5T_cset_t c_cset;
+
+ c_type_id = *type_id;
+ c_cset = (H5T_cset_t)*cset;
+ status = H5Tset_cset(c_type_id, c_cset);
+
+ if ( status < 0 ) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_strpad_c
+ * Purpose: Call H5Tget_strpad to get string padding method
+ * for a string datatype
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: strpad - string padding method for a string datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Wednesday, January 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_strpad_c ( hid_t_f *type_id , int_f * strpad)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t status;
+ H5T_str_t c_strpad;
+
+ c_type_id = *type_id;
+ c_strpad = H5Tget_strpad(c_type_id);
+ if ( c_strpad == H5T_STR_ERROR ) return ret_value;
+
+ *strpad = (int_f) c_strpad;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tset_strpad_c
+ * Inputs: type_id - identifier of the dataspace
+ * Purpose: Call H5Tset_strpad to set string padding method
+ * for a string datatype
+ *
+ * Inputs: type_id - identifier of the dataspace
+ * strpad - string padding method for a string datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Wednesday, January 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tset_strpad_c ( hid_t_f *type_id, int_f * strpad)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t status;
+ H5T_str_t c_strpad;
+
+ c_type_id = *type_id;
+ c_strpad = (H5T_str_t)*strpad;
+ status = H5Tset_strpad(c_type_id, c_strpad);
+ if ( status < 0 ) return ret_value;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_nmembers_c
+ * Purpose: Call H5Tget_nmembers to get number of fields
+ * in a compound datatype
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: num_members - number of fields in a compound datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Thursday, February 3, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_nmembers_c ( hid_t_f *type_id , int_f * num_members)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t status;
+
+ c_type_id = *type_id;
+ *num_members = (int_f)H5Tget_nmembers(c_type_id);
+ if (*num_members < 0 ) return ret_value;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_member_name_c
+ * Purpose: Call H5Tget_member_name to get name
+ * of a compound datatype
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: member_name - name of a field of a compound datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Thursday, February 3, 2000
+ * Modifications: Elena Pourmal
+ * Added namelen parameter to return length of the name to Fortran user
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_member_name_c ( hid_t_f *type_id ,int_f* index, _fcd member_name, int_f *namelen)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ int c_index;
+ char *c_name;
+
+ c_type_id = *type_id;
+ c_index = *index;
+ c_name = H5Tget_member_name(c_type_id, c_index);
+ if (c_name == NULL ) return ret_value;
+
+ HDpackFstring(c_name, _fcdtocp(member_name), strlen(c_name));
+ *namelen = (int_f)strlen(c_name);
+ HDfree(c_name);
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_member_offset_c
+ * Purpose: Call H5Tget_member_offset to get byte offset of the
+ * beginning of a field within a compound datatype with
+ * respect to the beginning of the compound data type datum
+ * Inputs: type_id - identifier of the dataspace
+ * member_no - Number of the field whose offset is requested
+ * Outputs: offset - byte offset of the the beginning of the field of
+ * a compound datatype
+ * Returns: always 0
+ * Programmer: XIANGYANG SU
+ * Thursday, February 3, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_member_offset_c ( hid_t_f *type_id ,int_f* member_no, size_t_f * offset)
+{
+ int ret_value = -1;
+ size_t c_offset;
+ hid_t c_type_id;
+ int c_member_no;
+
+ c_type_id = *type_id;
+ c_member_no = *member_no;
+ c_offset = H5Tget_member_offset(c_type_id, c_member_no);
+ *offset = (size_t_f)c_offset;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_member_dims_c
+ * Purpose: Call H5Tget_member_dims to get number
+ * of dimensions of the field
+ * Inputs: type_id - identifier of the dataspace
+ * field_idx - Field index (0-based) of the field
+ * dims to retrieve
+ * Outputs: dims - number of dimensions of the field
+ * field_dims - buffer to store the dimensions of the field
+ * perm - buffer to store the permutation vector of the field
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Thursday, February 3, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_member_dims_c ( hid_t_f *type_id ,int_f* field_idx, int_f * dims, size_t_f * field_dims, int_f * perm )
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ int c_dims, i;
+ int* c_perm;
+ size_t * c_field_dims;
+ int c_field_idx;
+
+ c_field_dims = (size_t*)malloc(sizeof(size_t)*4);
+ if(!c_field_dims) return ret_value;
+
+ c_perm = (int*)malloc(sizeof(int)*4);
+ if(!c_perm) return ret_value;
+
+ c_type_id = *type_id;
+ c_field_idx = *field_idx;
+ c_dims = H5Tget_member_dims(c_type_id, c_field_idx, c_field_dims, c_perm);
+ if (c_dims < 0) return ret_value;
+
+ *dims = (int_f)c_dims;
+ for(i =0; i < c_dims; i++)
+ {
+ field_dims[c_dims-i-1] = (size_t_f)c_field_dims[i];
+ perm[c_dims-i-1] = (int_f)c_perm[i];
+ }
+
+ ret_value = 0;
+ HDfree(c_field_dims);
+ HDfree(c_perm);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_member_type_c
+ * Purpose: Call H5Tget_member_type to get the identifier of a copy of
+ * the datatype of the field
+ * Inputs: type_id - identifier of the datatype
+ * field_idx - Field index (0-based) of the field type to retrieve
+ * Outputs: datatype - identifier of a copy of the datatype of the field
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Thursday, February 3, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_member_type_c ( hid_t_f *type_id ,int_f* field_idx, hid_t_f * datatype)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ int c_field_idx;
+
+ c_type_id = *type_id;
+ c_field_idx = *field_idx;
+ *datatype = (hid_t_f)H5Tget_member_type(c_type_id, c_field_idx);
+ if(*datatype < 0) return ret_value;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5tcreate_c
+ * Purpose: Call H5Tcreate to create a datatype
+ * Inputs: class - class type
+ * size - size of the class memeber
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Thursday, February 17, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tcreate_c(int_f *class, size_t_f *size, hid_t_f *type_id)
+{
+ int ret_value = -1;
+ H5T_class_t c_class;
+ size_t c_size;
+
+ c_size =(size_t) *size;
+ c_class = (H5T_class_t) *class;
+
+ *type_id = (hid_t_f)H5Tcreate(c_class, c_size);
+ if(*type_id < 0) return ret_value;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tinsert_c
+ * Purpose: Call H5Tinsert to adds another member to the compound datatype
+ * Inputs: type_id - identifier of the datatype
+ * name - Name of the field to insert
+ * namelen - length of the name
+ * offset - Offset in memory structure of the field to insert
+ * field_id - datatype identifier of the new member
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Thursday, February 3, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tinsert_c(hid_t_f *type_id, _fcd name, int_f* namelen, size_t_f *offset, hid_t_f * field_id)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ hid_t c_field_id;
+ char* c_name;
+ int c_namelen;
+ size_t c_offset;
+ herr_t error;
+
+ c_offset =(size_t) *offset;
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ c_type_id = *type_id;
+ c_field_id = *field_id;
+ error = H5Tinsert(c_type_id, c_name, c_offset, c_field_id);
+ HDfree(c_name);
+ if(error < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5tpack_c
+ * Purpose: Call H5Tpack tor ecursively remove padding from
+ * within a compound datatype to make it more efficient
+ * (space-wise) to store that data
+ * Inputs: type_id - identifier of the datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Thursday, February 3, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tpack_c(hid_t_f * type_id)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t status;
+
+ c_type_id = *type_id;
+ status = H5Tpack(c_type_id);
+ if (status < 0) return ret_value;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tinsert_array_c
+ * Purpose: Call H5Tinsert_array to add a new member to the
+ * compound datatype parent_id.
+ * Inputs: parent_id - identifier of the parent compound datatype
+ * name - name of the new member
+ * namelen - length of the name
+ * offset - Offset to start of new member within compound datatype
+ * ndims - Dimensionality of new member. Valid values
+ * are 0 (zero) through 4 (four).
+ * dims - Size of new member array
+ * member_id - identifier of the datatype of the new member
+ * perm - Pointer to buffer to store the permutation
+ * vector of the field
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Thursday, February 3, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5tinsert_array_c(hid_t_f * parent_id, _fcd name, int_f* namelen, size_t_f* offset, int_f* ndims, size_t_f* dims, hid_t_f* member_id, int_f* perm )
+{
+ int ret_value = -1;
+ hid_t c_parent_id;
+ hid_t c_member_id;
+ int c_ndims;
+ herr_t status;
+ size_t c_offset;
+ size_t * c_dims;
+ char* c_name;
+ int c_namelen;
+ int * c_perm, i;
+
+ c_offset = *offset;
+ c_dims = (size_t*)malloc(sizeof(size_t)*(*ndims));
+ if(!c_dims) return ret_value;
+
+ c_perm = (int*)malloc(sizeof(int)*(*ndims));
+ if(!c_perm) return ret_value;
+
+ /*
+ * Transpose dimension arrays because of C-FORTRAN storage order
+ */
+ for (i = 0; i < *ndims ; i++) {
+ c_dims[i] = (size_t)dims[*ndims - i - 1];
+ c_perm[i] = (int)perm[*ndims - i - 1];
+ }
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ c_parent_id = *parent_id;
+ c_member_id = *member_id;
+ c_ndims = *ndims;
+ status = H5Tinsert_array(c_parent_id, c_name, c_offset,c_ndims, c_dims, c_perm, c_member_id);
+
+ if(status < 0) return ret_value;
+ ret_value = 0;
+
+ return ret_value;
+
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5tinsert_array_c2
+ * Purpose: Call H5Tinsert_array to add a new member to the
+ * compound datatype parent_id.
+ * the difference between this function and h5tinsert_array_c
+ * is that this one doesn't take perm array as input
+ * Inputs: parent_id - identifier of the parent compound datatype
+ * name - name of the new member
+ * namelen - length of the name
+ * offset - Offset to start of new member within compound datatype
+ * ndims - Dimensionality of new member. Valid values
+ * are 0 (zero) through 4 (four).
+ * dims - Size of new member array
+ * member_id - identifier of the datatype of the new member
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Thursday, February 3, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5tinsert_array_c2(hid_t_f * parent_id, _fcd name, int_f* namelen, size_t_f* offset, int_f* ndims, size_t_f* dims, hid_t_f* member_id )
+{
+ int ret_value = -1;
+ hid_t c_parent_id;
+ hid_t c_member_id;
+ int c_ndims;
+ herr_t status;
+ size_t c_offset;
+ size_t * c_dims;
+ char* c_name;
+ int c_namelen;
+ int i;
+
+ c_offset = *offset;
+ c_dims = (size_t*)malloc(sizeof(size_t)*(*ndims));
+ if(!c_dims) return ret_value;
+
+ /*
+ * Transpose dimension arrays because of C-FORTRAN storage order
+ */
+ for (i = 0; i < *ndims ; i++) {
+ c_dims[i] = (size_t)dims[*ndims - i - 1];
+ }
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ c_parent_id = *parent_id;
+ c_member_id = *member_id;
+ c_ndims = *ndims;
+ status = H5Tinsert_array(c_parent_id, c_name, c_offset, c_ndims, c_dims, NULL, c_member_id);
+
+ if(status < 0) return ret_value;
+ ret_value = 0;
+
+ return ret_value;
+
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tenum_create_c
+ * Purpose: Call H5Tenum_create to create a new enumeration datatype
+ * Inputs: parent_id - Datatype identifier for the base datatype
+ * Outputs: new_type_id - datatype identifier for the new
+ * enumeration datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Xiangyang Su
+ * Tuesday, February 15, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tenum_create_c ( hid_t_f *parent_id , hid_t_f *new_type_id)
+{
+ int ret_value = 0;
+ hid_t c_parent_id;
+ hid_t c_new_type_id;
+
+ c_parent_id = *parent_id;
+ c_new_type_id = H5Tenum_create(c_parent_id);
+ if ( c_new_type_id < 0 ) ret_value = -1;
+
+ *new_type_id = (hid_t_f)c_new_type_id;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tenum_insert_c
+ * Purpose: Call H5Tenum_insert to insert a new enumeration datatype member.
+ * Inputs: type_id - identifier of the datatype
+ * name - Name of the new member
+ * namelen - length of the name
+ * value - value of the new member
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Thursday, February 3, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ char* c_name;
+ int c_namelen;
+ int c_value;
+ herr_t error;
+
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ c_type_id = *type_id;
+ c_value = *value;
+ error = H5Tenum_insert(c_type_id, c_name, (void*)c_value);
+ HDfree(c_name);
+ if(error < 0) return ret_value;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5tenum_nameof_c
+ * Purpose: Call H5Tenum_nameof to find the symbol name that corresponds to
+ * the specified value of the enumeration datatype type
+ * Inputs: type_id - identifier of the datatype
+ * namelen - length of the name
+ * value - value of the enumeration datatype
+ * Output: name - Name of the enumeration datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Thursday, February 3, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tenum_nameof_c(hid_t_f *type_id, int_f* value, _fcd name, size_t_f* namelen)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ char* c_name;
+ size_t c_namelen;
+ herr_t error;
+ int c_value;
+ c_value = *value;
+ c_namelen = (size_t)*namelen;
+ c_name = (char *)malloc(sizeof(char)*c_namelen);
+ c_type_id = *type_id;
+ error = H5Tenum_nameof(c_type_id, &c_value, c_name, c_namelen);
+ HDpackFstring(c_name, _fcdtocp(name), strlen(c_name));
+ HDfree(c_name);
+
+ if(error < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tenum_valueof_c
+ * Purpose: Call H5Tenum_valueof to find the value of that corresponds to
+ * the specified name of the enumeration datatype type
+ * Inputs: type_id - identifier of the datatype
+ * name - Name of the enumeration datatype
+ * namelen - length of name
+ * Output: value - value of the enumeration datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Thursday, February 3, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ char* c_name;
+ int c_namelen;
+ int c_value;
+ herr_t error;
+ c_namelen = *namelen;
+ c_name = (char *)HD5f2cstring(name, c_namelen);
+ if (c_name == NULL) return ret_value;
+
+ c_type_id = *type_id;
+ error = H5Tenum_valueof(c_type_id, c_name, &c_value);
+ HDfree(c_name);
+ if(error < 0) return ret_value;
+ *value = (int_f)c_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_member_value_c
+ * Purpose: Call H5Tget_member_value to get the value of an
+ * enumeration datatype member
+ * Inputs: type_id - identifier of the datatype
+ * member_no - Number of the enumeration datatype member.
+ * Output: value - value of the enumeration datatype
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Thursday, February 3, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5tget_member_value_c(hid_t_f *type_id, int_f* member_no, int_f* value)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ int c_member_no;
+ int c_value;
+ herr_t error;
+
+ c_type_id = *type_id;
+ c_member_no = *member_no;
+ error = H5Tget_member_value(c_type_id, c_member_no, &c_value);
+ if(error < 0) return ret_value;
+
+ *value = (int_f)c_value;
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tset_tag_c
+ * Inputs: type_id - identifier of the dataspace
+ * Purpose: Call H5Tset_tag to set an opaque datatype tag
+ * Inputs: type_id - identifier of the dataspace
+ * tag - Unique ASCII string with which the opaque
+ * datatype is to be tagged
+ * namelen - length of tag
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Wednesday, January 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5tset_tag_c(hid_t_f* type_id, _fcd tag, int_f* namelen)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t status;
+ char* c_tag;
+ int c_namelen;
+
+ c_namelen = *namelen;
+ c_tag = (char *)HD5f2cstring(tag, c_namelen);
+
+ c_type_id = *type_id;
+ status = H5Tset_tag(c_type_id, c_tag);
+ HDfree(c_tag);
+ if ( status < 0 ) return ret_value;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5tget_tag_c
+ * Inputs: type_id - identifier of the dataspace
+ * Purpose: Call H5Tset_tag to set an opaque datatype tag
+ * Inputs: type_id - identifier of the dataspace
+ * Outputs: tag - Unique ASCII string with which the opaque
+ * datatype is to be tagged
+ * taglen - length of tag
+ * Returns: 0 on success, -1 on failure
+ * Programmer: XIANGYANG SU
+ * Wednesday, January 26, 2000
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5tget_tag_c(hid_t_f* type_id, _fcd tag, int_f* taglen)
+{
+ int ret_value = -1;
+ hid_t c_type_id;
+ char *c_tag;
+
+ c_type_id = *type_id;
+ c_tag = H5Tget_tag(c_type_id);
+ if (c_tag == NULL ) return ret_value;
+
+ HDpackFstring(c_tag, _fcdtocp(tag), strlen(c_tag));
+ *taglen = strlen(c_tag);
+ HDfree(c_tag);
+ ret_value = 0;
+ return ret_value;
+}
diff --git a/fortran/src/H5Tff.f90 b/fortran/src/H5Tff.f90
new file mode 100644
index 0000000..5560dc8
--- /dev/null
+++ b/fortran/src/H5Tff.f90
@@ -0,0 +1,599 @@
+!
+! This file contains FORTRAN90 interfaces for H5T functions
+!
+ MODULE H5T
+
+ USE H5FORTRAN_TYPES
+ USE H5FORTRAN_FLAGS
+
+ CONTAINS
+
+ SUBROUTINE h5topen_f(loc_id, name, type_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name
+ ! Datatype name within file or group
+ INTEGER(HID_T), INTENT(OUT) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: namelen ! Name length
+ INTEGER, EXTERNAL :: h5topen_c
+ namelen = LEN(name)
+ hdferr = h5topen_c(loc_id, name, namelen, type_id)
+ END SUBROUTINE h5topen_f
+
+ SUBROUTINE h5tcommit_f(loc_id, name, type_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name
+ ! Datatype name within file or group
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: namelen ! Name length
+ INTEGER, EXTERNAL :: h5tcommit_c
+ namelen = LEN(name)
+ hdferr = h5tcommit_c(loc_id, name, namelen, type_id)
+ END SUBROUTINE h5tcommit_f
+
+
+ SUBROUTINE h5tcopy_f(type_id, new_type_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(OUT) :: new_type_id
+ ! Identifier of datatype's copy
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tcopy_c
+ hdferr = h5tcopy_c(type_id, new_type_id)
+ END SUBROUTINE h5tcopy_f
+
+ SUBROUTINE h5tequal_f(type1_id, type2_id, flag, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type1_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type2_id ! Datatype identifier
+ LOGICAL, INTENT(OUT) :: flag ! TRUE/FALSE flag to indicate if two
+ ! datatypes are equal
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: c_flag
+ INTEGER, EXTERNAL :: h5tequal_c
+ flag = .FALSE.
+ hdferr = h5tequal_c(type1_id, type2_id, c_flag)
+ if(c_flag .gt. 0) flag = .TRUE.
+ END SUBROUTINE h5tequal_f
+
+
+ SUBROUTINE h5tclose_f(type_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tclose_c
+ hdferr = h5tclose_c(type_id)
+ END SUBROUTINE h5tclose_f
+
+
+ SUBROUTINE h5tget_class_f(type_id, class, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: class
+ ! Datatype class, possible values are:
+ ! H5T_NO_CLASS_F (-1)
+ ! H5T_INTEGER_F (0)
+ ! H5T_FLOAT_F (1)
+ ! H5T_TIME_F (2)
+ ! H5T_STRING_F (3)
+ ! H5T_BITFIELD_F (4)
+ ! H5T_OPAQUE_F (5)
+ ! H5T_COMPOUND_F (6)
+ ! H5T_REFERENCE_F (7)
+ ! H5T_ENUM_F (8)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_class_c
+ hdferr = h5tget_class_c(type_id, class)
+ END SUBROUTINE h5tget_class_f
+
+
+ SUBROUTINE h5tget_size_f(type_id, size, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(SIZE_T), INTENT(OUT) :: size ! Datatype size
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_size_c
+ hdferr = h5tget_size_c(type_id, size)
+ END SUBROUTINE h5tget_size_f
+
+
+ SUBROUTINE h5tset_size_f(type_id, size, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(SIZE_T), INTENT(IN) :: size ! Datatype size
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tset_size_c
+ hdferr = h5tset_size_c(type_id, size)
+ END SUBROUTINE h5tset_size_f
+
+
+ SUBROUTINE h5tget_order_f(type_id, order, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: order
+ ! Datatype byte order, bossible values are:
+ ! H5T_ORDER_LE (0)
+ ! H5T_ORDER_BE (1)
+ ! H5T_ORDER_VAX (2)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_order_c
+ hdferr = h5tget_order_c(type_id, order)
+ END SUBROUTINE h5tget_order_f
+
+
+ SUBROUTINE h5tset_order_f(type_id, order, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: order ! Datatype byte order, bossible values
+ ! are:
+ ! H5T_ORDER_LE (0)
+ ! H5T_ORDER_BE (1)
+ ! H5T_ORDER_VAX (2)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tset_order_c
+ hdferr = h5tset_order_c(type_id, order)
+ END SUBROUTINE h5tset_order_f
+
+
+ SUBROUTINE h5tget_precision_f(type_id, precision, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(SIZE_T), INTENT(OUT) :: precision ! Datatype precision
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_precision_c
+ hdferr = h5tget_precision_c(type_id, precision)
+ END SUBROUTINE h5tget_precision_f
+
+ SUBROUTINE h5tset_precision_f(type_id, precision, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(SIZE_T), INTENT(IN) :: precision ! Datatype precision
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tset_precision_c
+ hdferr = h5tset_precision_c(type_id, precision)
+ END SUBROUTINE h5tset_precision_f
+
+ SUBROUTINE h5tget_offset_f(type_id, offset, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(SIZE_T), INTENT(OUT) :: offset ! Datatype bit offset of the
+ ! first significant bit
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_offset_c
+ hdferr = h5tget_offset_c(type_id, offset)
+ END SUBROUTINE h5tget_offset_f
+
+ SUBROUTINE h5tset_offset_f(type_id, offset, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(SIZE_T), INTENT(IN) :: offset ! Datatype bit offset of the
+ ! first significant bit
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tset_offset_c
+ hdferr = h5tset_offset_c(type_id, offset)
+ END SUBROUTINE h5tset_offset_f
+
+ SUBROUTINE h5tget_pad_f(type_id, lsbpad, msbpad, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: lsbpad ! padding type of the
+ ! least significant bit
+ INTEGER, INTENT(OUT) :: msbpad ! padding type of the
+ ! most significant bit
+ ! Possible values of padding type are:
+ ! H5T__PAD_ZERO_F = 0
+ ! H5T__PAD_ONE_F = 1
+ ! H5T__PAD_BACKGROUND_F = 2
+ ! H5T_PAD_ERROR_F = -1
+ ! H5T_PAD_NPAD_F = 3
+
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_pad_c
+ hdferr = h5tget_pad_c(type_id, lsbpad, msbpad)
+ END SUBROUTINE h5tget_pad_f
+
+ SUBROUTINE h5tset_pad_f(type_id, lsbpad, msbpad, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: lsbpad ! padding type of the
+ ! least significant bit
+ INTEGER, INTENT(IN) :: msbpad ! padding type of the
+ ! most significant bit
+ ! Possible values of padding type are:
+ ! H5T_PAD_ZERO_F = 0
+ ! H5T_PAD_ONE_F = 1
+ ! H5T_PAD_BACKGROUND_F = 2
+ ! H5T_PAD_ERROR_F = -1
+ ! H5T_PAD_NPAD_F = 3
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tset_pad_c
+ hdferr = h5tset_pad_c(type_id, lsbpad, msbpad)
+ END SUBROUTINE h5tset_pad_f
+
+ SUBROUTINE h5tget_sign_f(type_id, sign, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: sign ! sign type for an integer type
+ !possible values are:
+ !Unsigned integer type H5T_SGN_NONE_F = 0
+ !Two's complement signed integer type
+ !H5T_SGN_2_F = 1
+ !or error value: H5T_SGN_ERROR_F=-1
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_sign_c
+ hdferr = h5tget_sign_c(type_id, sign)
+ END SUBROUTINE h5tget_sign_f
+
+ SUBROUTINE h5tset_sign_f(type_id, sign, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: sign !sign type for an integer type
+ !possible values are:
+ !Unsigned integer type H5T_SGN_NONE_F = 0
+ !Two's complement signed integer type
+ !H5T_SGN_2_F = 1
+ !or error value: H5T_SGN_ERROR_F=-1
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tset_sign_c
+ hdferr = h5tset_sign_c(type_id, sign)
+ END SUBROUTINE h5tset_sign_f
+
+ SUBROUTINE h5tget_fields_f(type_id, epos, esize, mpos, msize, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: epos ! exponent bit-position
+ INTEGER, INTENT(OUT) :: esize ! size of exponent in bits
+ INTEGER, INTENT(OUT) :: mpos ! mantissa bit-position
+ INTEGER, INTENT(OUT) :: msize ! size of mantissa in bits
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5tget_fields_c
+ hdferr = h5tget_fields_c(type_id, epos, esize, mpos, msize, hdferr)
+ END SUBROUTINE h5tget_fields_f
+
+ SUBROUTINE h5tset_fields_f(type_id, epos, esize, mpos, msize, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: epos ! exponent bit-position
+ INTEGER, INTENT(IN) :: esize ! size of exponent in bits
+ INTEGER, INTENT(IN) :: mpos ! mantissa bit-position
+ INTEGER, INTENT(IN) :: msize ! size of mantissa in bits
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, EXTERNAL :: h5tset_fields_c
+ hdferr = h5tset_fields_c(type_id, epos, esize, mpos, msize)
+ END SUBROUTINE h5tset_fields_f
+
+ SUBROUTINE h5tget_ebias_f(type_id, ebias, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(SIZE_T), INTENT(OUT) :: ebias ! Datatype exponent bias of a floating-point type
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_ebias_c
+ hdferr = h5tget_ebias_c(type_id, ebias)
+ END SUBROUTINE h5tget_ebias_f
+
+
+ SUBROUTINE h5tset_ebias_f(type_id, ebias, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(SIZE_T), INTENT(IN) :: ebias !Datatype exponent bias of a floating-point type
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tset_ebias_c
+ hdferr = h5tset_ebias_c(type_id, ebias)
+ END SUBROUTINE h5tset_ebias_f
+
+ SUBROUTINE h5tget_norm_f(type_id, norm, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: norm !mantissa normalization of a floating-point datatype
+ !Valid normalization types are:
+ !H5T_NORM_IMPLIED_F(0),MSB of mantissa is not
+ !stored, always 1, H5T_NORM_MSBSET_F(1), MSB of
+ !mantissa is always 1, H5T_NORM_NONE_F(2)
+ !Mantissa is not normalize
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_norm_c
+ hdferr = h5tget_norm_c(type_id, norm)
+ END SUBROUTINE h5tget_norm_f
+
+
+ SUBROUTINE h5tset_norm_f(type_id, norm, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: norm !mantissa normalization of a floating-point datatype
+ !Valid normalization types are:
+ !H5T_NORM_IMPLIED_F(0),MSB of mantissa is not
+ !stored, always 1, H5T_NORM_MSBSET_F(1), MSB of
+ !mantissa is always 1, H5T_NORM_NONE_F(2)
+ !Mantissa is not normalize
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tset_norm_c
+ hdferr = h5tset_norm_c(type_id, norm)
+ END SUBROUTINE h5tset_norm_f
+
+ SUBROUTINE h5tget_inpad_f(type_id, padtype, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: padtype ! padding type for unused bits
+ ! in floating-point datatypes.
+ ! Possible values of padding type are:
+ ! H5T__PAD_ZERO_F = 0
+ ! H5T__PAD_ONE_F = 1
+ ! H5T__PAD_BACKGROUND_F = 2
+
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_inpad_c
+ hdferr = h5tget_inpad_c(type_id, padtype)
+ END SUBROUTINE h5tget_inpad_f
+
+ SUBROUTINE h5tset_inpad_f(type_id, padtype, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: padtype ! padding type for unused bits
+ ! in floating-point datatypes.
+ ! Possible values of padding type are:
+ ! H5T__PAD_ZERO_F = 0
+ ! H5T__PAD_ONE_F = 1
+ ! H5T__PAD_BACKGROUND_F = 2
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tset_inpad_c
+ hdferr = h5tset_inpad_c(type_id, padtype)
+ END SUBROUTINE h5tset_inpad_f
+
+ SUBROUTINE h5tget_cset_f(type_id, cset, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: cset ! character set type of a string datatype
+ ! Possible values of padding type are:
+ !H5T_CSET_ASCII_F = 0
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_cset_c
+ hdferr = h5tget_cset_c(type_id, cset)
+ END SUBROUTINE h5tget_cset_f
+
+ SUBROUTINE h5tset_cset_f(type_id, cset, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: cset !character set type of a string datatype
+ !Possible values of padding type are:
+ !H5T_CSET_ASCII_F = 0
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tset_cset_c
+ hdferr = h5tset_cset_c(type_id, cset)
+ END SUBROUTINE h5tset_cset_f
+
+ SUBROUTINE h5tget_strpad_f(type_id, strpad, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: strpad ! string padding method for a string datatype
+ ! Possible values of padding type are:
+ !Pad with zeros (as C does): H5T_STR_NULL_F(0),
+ !Pad with spaces (as FORTRAN does):
+ !H5T_STR_SPACE_F(1)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_strpad_c
+ hdferr = h5tget_strpad_c(type_id, strpad)
+ END SUBROUTINE h5tget_strpad_f
+
+ SUBROUTINE h5tset_strpad_f(type_id, strpad, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: strpad ! string padding method for a string datatype
+ ! Possible values of padding type are:
+ !Pad with zeros (as C does): H5T_STR_NULL_F(0),
+ !Pad with spaces (as FORTRAN does):
+ !H5T_STR_SPACE_F(1)
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tset_strpad_c
+ hdferr = h5tset_strpad_c(type_id, strpad)
+ END SUBROUTINE h5tset_strpad_f
+
+
+ SUBROUTINE h5tget_nmembers_f(type_id, num_members, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: num_members !number of fields in a compound datatype
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_nmembers_c
+ hdferr = h5tget_nmembers_c(type_id, num_members)
+ END SUBROUTINE h5tget_nmembers_f
+
+ SUBROUTINE h5tget_member_name_f(type_id,index, member_name, namelen, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: index !Field index (0-based) of the field name to retrieve
+ CHARACTER(LEN=*), INTENT(OUT) :: member_name !name of a field of
+ !a compound datatype
+ INTEGER, INTENT(OUT) :: namelen ! Length the name
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_member_name_c
+ hdferr = h5tget_member_name_c(type_id, index, member_name, namelen)
+ END SUBROUTINE h5tget_member_name_f
+
+ SUBROUTINE h5tget_member_offset_f(type_id, member_no, offset, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: member_no !Number of the field
+ !whose offset is requested
+ INTEGER(SIZE_T), INTENT(OUT) :: offset !byte offset of the the beginning of the field
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_member_offset_c
+ hdferr = h5tget_member_offset_c(type_id, member_no, offset )
+ END SUBROUTINE h5tget_member_offset_f
+
+ SUBROUTINE h5tget_member_dims_f(type_id, field_idx,dims, field_dims, perm, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: field_idx !Field index (0-based) of
+ !field_dims, perm)
+ INTEGER, INTENT(OUT) :: dims !number of dimensions of the field
+
+ INTEGER(SIZE_T),DIMENSION(*), INTENT(OUT) :: field_dims !buffer to store the
+ !dimensions of the field
+ INTEGER, DIMENSION(*), INTENT(OUT) :: perm !buffer to store the
+ !permutation vector of the field
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_member_dims_c
+ hdferr = h5tget_member_dims_c(type_id, field_idx, dims, field_dims, perm)
+
+ END SUBROUTINE h5tget_member_dims_f
+
+ SUBROUTINE h5tget_member_type_f(type_id, field_idx, datatype, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: field_idx !Field index (0-based) of the field type to retrieve
+ INTEGER(HID_T), INTENT(OUT) :: datatype !identifier of a copy of
+ !the datatype of the field
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_member_type_c
+ hdferr = h5tget_member_type_c(type_id, field_idx , datatype)
+ END SUBROUTINE h5tget_member_type_f
+
+
+ SUBROUTINE h5tcreate_f(class, size, type_id, hdferr)
+ IMPLICIT NONE
+ INTEGER, INTENT(IN) :: class ! Datatype class cna be one of
+ ! H5T_COMPOUND_F (6)
+ ! H5T_ENUM_F (8)
+ ! H5T_OPAQUE_F (9)
+ INTEGER(SIZE_T), INTENT(IN) :: size ! Size of the datatype
+ INTEGER(HID_T), INTENT(OUT) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tcreate_c
+
+ hdferr = h5tcreate_c(class, size, type_id)
+ END SUBROUTINE h5tcreate_f
+
+ SUBROUTINE h5tinsert_f(type_id, name, offset, field_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name !Name of the field to insert
+ INTEGER(SIZE_T), INTENT(IN) :: offset !Offset in memory structure of the field to insert
+ INTEGER(HID_T), INTENT(IN) :: field_id !datatype identifier of the new member
+
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: namelen
+ INTEGER, EXTERNAL :: h5tinsert_c
+ namelen = LEN(name)
+ hdferr = h5tinsert_c(type_id, name, namelen, offset, field_id )
+ END SUBROUTINE h5tinsert_f
+
+ SUBROUTINE h5tpack_f(type_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tpack_c
+ hdferr = h5tpack_c(type_id)
+ END SUBROUTINE h5tpack_f
+
+ SUBROUTINE h5tinsert_array_f(parent_id,name,offset, ndims, dims, member_id, hdferr, perm)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: parent_id ! identifier of the parent compound datatype
+ CHARACTER(LEN=*), INTENT(IN) :: name !Name of the new member
+ INTEGER(SIZE_T), INTENT(IN) :: offset !Offset to start of new member
+ !within compound datatype
+ INTEGER, INTENT(IN) :: ndims !Dimensionality of new member.
+ !Valid values are 0 (zero) through 4 (four)
+ INTEGER(SIZE_T), DIMENSION(*), INTENT(IN) :: dims !Size of new member array
+ INTEGER(HID_T), INTENT(IN) :: member_id ! identifier of the datatype of the new member
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+ INTEGER, DIMENSION(*), OPTIONAL, INTENT(IN) :: perm
+ !Pointer to buffer to store
+ !the permutation vector of the field
+ INTEGER :: namelen, sizeofperm
+ INTEGER, EXTERNAL :: h5tinsert_array_c, h5tinsert_array_c2
+ namelen = LEN(name)
+ if (present(perm)) then
+ hdferr = h5tinsert_array_c(parent_id, name, namelen, offset, ndims,dims, member_id, perm)
+ else
+ hdferr = h5tinsert_array_c2(parent_id, name, namelen, offset, ndims,dims, member_id)
+ end if
+
+ END SUBROUTINE h5tinsert_array_f
+
+ SUBROUTINE h5tenum_create_f(parent_id, new_type_id, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: parent_id ! Datatype identifier for
+ ! the base datatype
+ INTEGER(HID_T), INTENT(OUT) :: new_type_id
+ !datatype identifier for the
+ ! new enumeration datatype
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tenum_create_c
+ hdferr = h5tenum_create_c(parent_id, new_type_id)
+ END SUBROUTINE h5tenum_create_f
+
+ SUBROUTINE h5tenum_insert_f(type_id, name, value, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name !Name of the new member
+ INTEGER, INTENT(IN) :: value !value of the new member
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: namelen
+ INTEGER, EXTERNAL :: h5tenum_insert_c
+ namelen = LEN(name)
+ hdferr = h5tenum_insert_c(type_id, name, namelen, value)
+ END SUBROUTINE h5tenum_insert_f
+
+ SUBROUTINE h5tenum_nameof_f(type_id, name, namelen, value, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ CHARACTER(LEN=*), INTENT(OUT) :: name !Name of the enumeration datatype.
+ INTEGER(SIZE_T), INTENT(IN) :: namelen !length of the name
+ INTEGER, INTENT(IN) :: value !value of the enumeration datatype.
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tenum_nameof_c
+ hdferr = h5tenum_nameof_c(type_id, value, name, namelen)
+ END SUBROUTINE h5tenum_nameof_f
+
+ SUBROUTINE h5tenum_valueof_f(type_id, name, value, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name !Name of the enumeration datatype.
+ INTEGER, INTENT(OUT) :: value !value of the enumeration datatype.
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: namelen
+ INTEGER, EXTERNAL :: h5tenum_valueof_c
+ namelen = LEN(name)
+ hdferr = h5tenum_valueof_c(type_id, name, namelen, value)
+ END SUBROUTINE h5tenum_valueof_f
+
+ SUBROUTINE h5tget_member_value_f(type_id, member_no, value, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: member_no !Number of the enumeration datatype member
+ INTEGER, INTENT(OUT) :: value !value of the enumeration datatype.
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_member_value_c
+ hdferr = h5tget_member_value_c(type_id, member_no, value)
+ END SUBROUTINE h5tget_member_value_f
+
+ SUBROUTINE h5tset_tag_f(type_id, tag, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ CHARACTER(LEN=*), INTENT(IN) :: tag !Unique ASCII string with which
+ !the opaque datatype is to be tagged
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER :: namelen
+ INTEGER, EXTERNAL :: h5tset_tag_c
+ namelen = LEN(tag)
+ hdferr = h5tset_tag_c(type_id, tag, namelen)
+ END SUBROUTINE h5tset_tag_f
+
+ SUBROUTINE h5tget_tag_f(type_id, tag,taglen, hdferr)
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ CHARACTER(LEN=*), INTENT(OUT) :: tag !Unique ASCII string with which
+ !the opaque datatype is to be tagged
+ INTEGER, INTENT(OUT) :: taglen !length of tag
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, EXTERNAL :: h5tget_tag_c
+ hdferr = h5tget_tag_c(type_id, tag, taglen)
+ END SUBROUTINE h5tget_tag_f
+
+ END MODULE H5T
diff --git a/fortran/src/H5f90.h b/fortran/src/H5f90.h
new file mode 100644
index 0000000..c01cd1f
--- /dev/null
+++ b/fortran/src/H5f90.h
@@ -0,0 +1,77 @@
+#ifndef _H5f90_H
+#define _H5f90_H
+
+#include <hdf5.h>
+#include "H5f90i.h"
+#include "H5f90proto.h"
+
+
+/* Constants from the H5Ff.c and H5Fff.f90 files */
+
+
+#define H5F_ACC_RDWR_F 1
+#define H5F_ACC_RDONLY_F 2
+#define H5F_ACC_TRUNC_F 3
+#define H5F_ACC_EXCL_F 4
+#define H5F_ACC_DEBUG_F 5
+#define H5P_DEFAULT_F 6 /* Can Fortran program use combination
+ of those flags? */
+#define H5F_SCOPE_LOCAL_F 0
+#define H5F_SCOPE_GLOBAL_F 1
+
+/* Constants used in the H5Gf.c and H5Gff.f90 files */
+
+#define OBJECT_NAMELEN_DEFAULT_F -1
+#define H5G_LINK_F 0
+#define H5G_GROUP_F 1
+#define H5G_DATASET_F 2
+#define H5G_TYPE_F 3
+
+
+/* Constants used in H5Df.c and H5Dff.f90 files */
+
+#define H5S_ALL_F -2
+
+/* Constants used in H5Sf.c and H5Sff.f90 files */
+
+#define H5S_NO_CLASS_F -1
+#define H5S_SCALAR_F 0
+#define H5S_SIMPLE_F 1
+#define H5S_SELECT_SET_F 0
+#define H5S_SELECT_OR_F 1
+
+/* Constants ised in H5Tf.c and H5Tff.f90 files */
+
+
+#define H5T_NO_CLASS_F -1
+#define H5T_INTEGER_F 0
+#define H5T_FLOAT_F 1
+#define H5T_TIME_F 2
+#define H5T_STRING_F 3
+#define H5T_BITFIELD_F 4
+#define H5T_OPAQUE_F 5
+#define H5T_COMPOUND_F 6
+#define H5T_REFERENCE_F 7
+#define H5T_ENUM_F 8
+
+#define H5T_ORDER_LE_F 0
+#define H5T_ORDER_BE_F 1
+#define H5T_ORDER_VAX_F 2
+
+
+/* Constants used in H5Pf.c and H5Pff.f90 files */
+
+
+#define H5P_NO_CLASS_F -1
+#define H5P_FILE_CREATE_F 0
+#define H5P_FILE_ACCESS_F 1
+#define H5P_DATASET_CREATE_F 2
+#define H5P_DATASET_XFER_F 3
+#define H5P_MOUNT_F 4
+
+/* Constants used in H5Pf_parallel.c and H5Pff_parallel.f90 files */
+#define H5D_XFER_INDEPENDENT_F 0
+#define H5D_XFER_COLLECTIVE_F 1
+#define H5D_XFER_DFLT_F 2
+
+#endif /* _H5f90_H */
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90
new file mode 100644
index 0000000..078870b
--- /dev/null
+++ b/fortran/src/H5f90global.f90
@@ -0,0 +1,105 @@
+ MODULE H5GLOBAL
+ USE H5FORTRAN_TYPES
+ INTEGER, PARAMETER :: PREDEF_TYPES_LEN = 6 ! Do not forget to change this
+ ! value when new predefined
+ ! datatypes are added
+ ! Do not forget to change the following line when new predefined
+ ! floating data types are added
+ INTEGER, PARAMETER :: FLOATING_TYPES_LEN = 4
+
+ ! Do not forget to change the following line when new predefined
+ ! integer data types are added
+ INTEGER, PARAMETER :: INTEGER_TYPES_LEN = 16
+
+ INTEGER(HID_T) H5T_NATIVE_INTEGER, &
+ H5T_NATIVE_REAL, &
+ H5T_NATIVE_DOUBLE, &
+ H5T_NATIVE_CHARACTER , &
+ H5T_STD_REF_OBJ, &
+ H5T_STD_REF_DSETREG, &
+ H5T_IEEE_F32BE, &
+ H5T_IEEE_F32LE, &
+ H5T_IEEE_F64BE, &
+ H5T_IEEE_F64LE, &
+ H5T_STD_I8BE, &
+ H5T_STD_I8LE, &
+ H5T_STD_I16BE, &
+ H5T_STD_I16LE, &
+ H5T_STD_I32BE, &
+ H5T_STD_I32LE, &
+ H5T_STD_I64BE, &
+ H5T_STD_I64LE, &
+ H5T_STD_U8BE, &
+ H5T_STD_U8LE, &
+ H5T_STD_U16BE, &
+ H5T_STD_U16LE, &
+ H5T_STD_U32BE, &
+ H5T_STD_U32LE, &
+ H5T_STD_U64BE, &
+ H5T_STD_U64LE
+
+
+ INTEGER(HID_T), DIMENSION(PREDEF_TYPES_LEN) :: predef_types
+ EQUIVALENCE (predef_types(1), H5T_NATIVE_INTEGER)
+ EQUIVALENCE (predef_types(2), H5T_NATIVE_REAL)
+ EQUIVALENCE (predef_types(3), H5T_NATIVE_DOUBLE)
+ EQUIVALENCE (predef_types(4), H5T_NATIVE_CHARACTER)
+ EQUIVALENCE (predef_types(5), H5T_STD_REF_OBJ)
+ EQUIVALENCE (predef_types(6), H5T_STD_REF_DSETREG)
+
+ INTEGER(HID_T), DIMENSION(FLOATING_TYPES_LEN) :: floating_types
+ EQUIVALENCE (floating_types(1), H5T_IEEE_F32BE )
+ EQUIVALENCE (floating_types(2), H5T_IEEE_F32LE)
+ EQUIVALENCE (floating_types(3), H5T_IEEE_F64BE)
+ EQUIVALENCE (floating_types(4), H5T_IEEE_F64LE)
+
+ INTEGER(HID_T), DIMENSION(INTEGER_TYPES_LEN) :: integer_types
+ EQUIVALENCE (integer_types(1), H5T_STD_I8BE )
+ EQUIVALENCE (integer_types(2), H5T_STD_I8LE)
+ EQUIVALENCE (integer_types(3), H5T_STD_I16BE)
+ EQUIVALENCE (integer_types(4), H5T_STD_I16LE)
+ EQUIVALENCE (integer_types(5), H5T_STD_I32BE)
+ EQUIVALENCE (integer_types(6), H5T_STD_I32LE)
+ EQUIVALENCE (integer_types(7), H5T_STD_I64BE)
+ EQUIVALENCE (integer_types(8), H5T_STD_I64LE)
+ EQUIVALENCE (integer_types(9), H5T_STD_U8BE)
+ EQUIVALENCE (integer_types(10), H5T_STD_U8LE)
+ EQUIVALENCE (integer_types(11), H5T_STD_U16BE)
+ EQUIVALENCE (integer_types(12), H5T_STD_U16LE)
+ EQUIVALENCE (integer_types(13), H5T_STD_U32BE)
+ EQUIVALENCE (integer_types(14), H5T_STD_U32LE)
+ EQUIVALENCE (integer_types(15), H5T_STD_U64BE)
+ EQUIVALENCE (integer_types(16), H5T_STD_U64LE)
+
+
+ COMMON /PREDEFINED_TYPES/ H5T_NATIVE_INTEGER, &
+ H5T_NATIVE_REAL, &
+ H5T_NATIVE_DOUBLE, &
+ H5T_NATIVE_CHARACTER, &
+ H5T_STD_REF_OBJ, &
+ H5T_STD_REF_DSETREG
+
+ COMMON /FLOATING_TYPES/ H5T_IEEE_F32BE, &
+ H5T_IEEE_F32LE, &
+ H5T_IEEE_F64BE, &
+ H5T_IEEE_F64LE
+
+ COMMON /INTEGER_TYPES/ H5T_STD_I8BE, &
+ H5T_STD_I8LE, &
+ H5T_STD_I16BE, &
+ H5T_STD_I16LE, &
+ H5T_STD_I32BE, &
+ H5T_STD_I32LE, &
+ H5T_STD_I64BE, &
+ H5T_STD_I64LE, &
+ H5T_STD_U8BE, &
+ H5T_STD_U8LE, &
+ H5T_STD_U16BE, &
+ H5T_STD_U16LE, &
+ H5T_STD_U32BE, &
+ H5T_STD_U32LE, &
+ H5T_STD_U64BE, &
+ H5T_STD_U64LE
+
+ END MODULE H5GLOBAL
+
diff --git a/fortran/src/H5f90i.h b/fortran/src/H5f90i.h
new file mode 100644
index 0000000..9d19ef4
--- /dev/null
+++ b/fortran/src/H5f90i.h
@@ -0,0 +1,286 @@
+#ifndef _H5f90i_H
+#define _H5f90i_H
+
+#ifdef GOT_MACHINE
+#undef GOT_MACHINE
+#endif
+
+#define DFMT_IRIX 0x1111
+
+/*
+ * Standard header files needed all the time
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <limits.h>
+#include <string.h>
+
+#if (defined (UNICOS) || (defined (_UNICOS)))
+
+#ifndef UNICOS
+#define UNICOS
+#endif
+
+#include <memory.h>
+#include <fortran.h>
+#ifndef O_RDONLY
+#include <fcntl.h> /* for unbuffered i/o stuff */
+#define L_INCR 1
+#include <sys/stat.h>
+#endif /*O_RDONLY*/
+
+#ifdef _CRAYIEEE
+#define DF_MT DFMT_UNICOSIEEE
+#else
+#define DF_MT DFMT_UNICOS
+#endif
+/*typedef char* _fcd;*/
+typedef long hsize_t_f;
+typedef long hssize_t_f;
+typedef long size_t_f;
+typedef long int_f;
+typedef long hid_t_f;
+typedef double real_f;
+#define DF_CAPFNAMES
+/*#define _fcdtocp(desc) (desc)*/
+
+#endif /* UNICOS */
+
+
+/* LINUX definitions */
+#if defined(i386) && defined(linux)
+#define DF_MT DFMT_LINIX
+typedef char *_fcd;
+typedef long long hsize_t_f;
+typedef long long hssize_t_f;
+typedef int size_t_f;
+typedef int int_f;
+typedef int hid_t_f;
+typedef float real_f;
+#define FNAME_POST_UNDERSCORE
+#define _fcdtocp(desc) (desc)
+
+#endif /*LINUX*/
+
+#if defined(IRIX) || defined(IRIS4) || defined(sgi) || defined(__sgi__) || defined(__sgi)
+
+#ifndef IRIX
+#define IRIX
+#endif
+
+#if (_MIPS_SZLONG == 64)
+/* IRIX 64 bits objects. It is nearly the same as the conventional
+ * 32 bits objects. Let them share IRIX definitions for now.
+ */
+#define IRIX64
+#endif
+
+
+#ifdef GOT_MACHINE
+If you get an error on this line more than one machine type has been defined.
+Please check your Makefile.
+#endif
+#define GOT_MACHINE 1
+
+# define BSD
+#ifndef __GNUC__
+#include <memory.h>
+#endif /* __GNUC__ */
+#include <sys/file.h> /* for unbuffered i/o stuff */
+#include <sys/stat.h>
+#define DF_MT DFMT_IRIX
+typedef char *_fcd;
+
+typedef long hsize_t_f;
+typedef long hssize_t_f;
+typedef long size_t_f;
+typedef int int_f;
+typedef int hid_t_f;
+typedef float real_f;
+#define FNAME_POST_UNDERSCORE
+#define _fcdtocp(desc) (desc)
+#ifdef IRIX64
+#define BIG_LONGS
+#endif
+
+
+#define HAVE_STDC
+#define INCLUDES_ARE_ANSI
+
+#endif /* IRIX */
+
+#if (defined(SUN) || defined(sun) || defined(__sun__) || defined(__SUNPRO_C)) & !defined(__i386)
+#ifdef __STDC__
+#define ANSISUN
+#else /* __STDC__ */
+#define KNRSUN
+#endif /* __STDC__ */
+#endif /* SUN || sun */
+
+#if defined(ANSISUN)
+
+#if !defined(SUN)
+#define SUN
+#endif
+
+#ifdef GOT_MACHINE
+If you get an error on this line more than one machine type has been defined.
+Please check your Makefile.
+#endif
+#define GOT_MACHINE
+
+#include <unistd.h> /* for some file I/O stuff */
+#include <sys/time.h>
+#include <sys/file.h> /* for unbuffered i/o stuff */
+#include <sys/stat.h>
+#define DF_MT DFMT_SUN
+typedef char *_fcd;
+typedef int hsize_t_f;
+typedef int hssize_t_f;
+typedef int size_t_f;
+typedef int int_f;
+typedef int hid_t_f;
+typedef float real_f;
+#define FNAME_POST_UNDERSCORE
+#define _fcdtocp(desc) (desc)
+
+#endif /*SUN*/
+
+
+#if defined DEC_ALPHA || (defined __alpha && defined __unix__)
+
+#ifndef DEC_ALPHA
+#define DEC_ALPHA
+#endif
+
+#ifdef GOT_MACHINE
+If you get an error on this line more than one machine type has been defined.
+Please check your Makefile.
+#endif
+#define GOT_MACHINE
+
+#include <sys/file.h> /* for unbuffered i/o stuff */
+#include <sys/stat.h>
+#define DF_MT DFMT_ALPHA
+typedef char *_fcd;
+typedef long hsize_t_f;
+typedef long hssize_t_f;
+typedef long size_t_f;
+typedef int int_f;
+typedef int hid_t_f;
+typedef float real_f;
+#define FNAME_POST_UNDERSCORE
+#define _fcdtocp(desc) (desc)
+
+#endif /* DEC_ALPHA */
+
+
+#if defined(HP9000) || (!defined(__convexc__) && (defined(hpux) || defined(__hpux)))
+
+#ifndef HP9000
+#define HP9000
+#endif
+
+#ifdef GOT_MACHINE
+If you get an error on this line more than one machine type has been defined.
+Please check your Makefile.
+#endif
+#define GOT_MACHINE
+
+#ifndef HAVE_UNISTD_H
+#define HAVE_UNISTD_H /* unistd.h - close, fork,..etc */
+#endif
+
+# define BSD
+#ifndef __GNUC__
+#include <memory.h>
+#endif /* __GNUC__ */
+#include <sys/file.h> /* for unbuffered i/o stuff */
+#include <sys/stat.h>
+#define DF_MT DFMT_HP9000
+typedef char *_fcd;
+typedef long hsize_t_f;
+typedef long hssize_t_f;
+typedef long size_t_f;
+typedef int int_f;
+typedef int hid_t_f;
+typedef float real_f;
+#define _fcdtocp(desc) (desc)
+#ifdef HAVE_FMPOOL
+#define FILELIB PAGEBUFIO /* enable page buffering */
+#else
+#define FILELIB UNIXBUFIO
+#endif
+
+#endif /* HP9000 */
+
+
+#if defined _WINDOWS || defined WIN32
+#define GOT_MACHINE 1
+
+#pragma comment( lib, "oldnames" )
+#include <fcntl.h>
+#include <sys\types.h>
+#include <sys\stat.h>
+#include <io.h>
+#include <conio.h>
+#include <malloc.h>
+#include <ctype.h> /* for character macros */
+#ifdef __WATCOMC__
+#include <stddef.h> /* for the 'fortran' pragma */
+#endif
+
+#define DF_MT DFMT_PC
+
+typedef char *_fcd;
+typedef int hsize_t_f;
+typedef int hssize_t_f;
+typedef int size_t_f;
+typedef int int_f;
+typedef int hid_t_f;
+typedef float real_f;
+
+#if defined _M_ALPHA
+#define FNAME_PRE_UNDERSCORE
+#endif
+
+#define DF_CAPFNAMES
+#define _fcdtocp(desc) (desc)
+
+#ifdef HAVE_FMPOOL
+#define FILELIB PAGEBUFIO /* enable page buffering */
+#else
+#define FILELIB UNIXBUFIO
+#endif
+
+#endif /*WINDOWS */
+
+/*----------------------------------------------------------------
+** MACRO FNAME for any fortran callable routine name.
+**
+** This macro prepends, appends, or does not modify a name
+** passed as a macro parameter to it based on the FNAME_PRE_UNDERSCORE,
+** FNAME_POST_UNDERSCORE macros set for a specific system.
+**
+**---------------------------------------------------------------*/
+#if defined(FNAME_PRE_UNDERSCORE) && defined(FNAME_POST_UNDERSCORE)
+# define FNAME(x) _##x##_
+#endif
+#if defined(FNAME_PRE_UNDERSCORE) && !defined(FNAME_POST_UNDERSCORE)
+# define FNAME(x) _##x
+#endif
+#if !defined(FNAME_PRE_UNDERSCORE) && defined(FNAME_POST_UNDERSCORE)
+# define FNAME(x) x##_
+#endif
+#if !defined(FNAME_PRE_UNDERSCORE) && !defined(FNAME_POST_UNDERSCORE)
+# define FNAME(x) x
+#endif
+
+# define HDfree(p) (free((void*)p))
+# define HDmalloc(s) (malloc((size_t)s))
+# define HDstrlen(s) (strlen((const char *)(s)))
+# define HDmemcpy(dst,src,n) (memcpy((void *)(dst),(const void *)(src),(size_t)(n)))
+
+
+#endif /* _H5f90i_H */
diff --git a/fortran/src/H5f90kit.c b/fortran/src/H5f90kit.c
new file mode 100644
index 0000000..a0a6962
--- /dev/null
+++ b/fortran/src/H5f90kit.c
@@ -0,0 +1,105 @@
+#include <ctype.h>
+#include <stddef.h>
+#include "H5f90.h"
+
+
+/*
+ * Routines from HDF4 to deal with C-FORTRAN issues.
+ *
+ * HD5c2fstr -- convert a C string into a Fortran string IN PLACE
+ * HD5f2cstring -- convert a Fortran string to a C string
+ */
+
+/* ------------------------------- HDc2fstr -------------------------------
+NAME
+ HD5c2fstr -- convert a C string into a Fortran string IN PLACE
+USAGE
+ int HD5c2fstr(str, len)
+ char * str; IN: string to convert
+ int len; IN: length of Fortran string
+RETURNS
+ SUCCEED
+DESCRIPTION
+ Change a C string (NULL terminated) into a Fortran string.
+ Basically, all that is done is that the NULL is ripped out
+ and the string is padded with spaces
+
+---------------------------------------------------------------------------*/
+int
+HD5c2fstr(char *str, int len)
+{
+ int i;
+
+ i=(int)HDstrlen(str);
+ for (; i < len; i++)
+ str[i] = ' ';
+ return 0;
+} /* HD5c2fstr */
+
+/* ----------------------------- HDf2cstring ------------------------------ */
+/*
+NAME
+ HD5f2cstring -- convert a Fortran string to a C string
+USAGE
+ char * HDf2cstring(fdesc, len)
+ _fcd fdesc; IN: Fortran string descriptor
+ int len; IN: length of Fortran string
+RETURNS
+ Pointer to the C string if success, else NULL
+DESCRIPTION
+ Chop off trailing blanks off of a Fortran string and
+ move it into a newly allocated C string. It is up
+ to the user to free this string.
+
+---------------------------------------------------------------------------*/
+char *
+HD5f2cstring(_fcd fdesc, int len)
+{
+ char *cstr, *str;
+ int i;
+
+ str = _fcdtocp(fdesc);
+ /* This should be equivalent to the above test -QAK */
+ for(i=len-1; i>=0 && !isgraph((int)str[i]); i--)
+ /*EMPTY*/;
+ cstr = (char *) HDmalloc( (i + 2));
+ if (!cstr) return NULL;
+ cstr[i + 1] = '\0';
+ HDmemcpy(cstr,str,i+1);
+ return cstr;
+} /* HD5f2cstring */
+
+/* ---------------------------- HDpackFstring ----------------------------- */
+/*
+NAME
+ HDpackFstring -- convert a C string into a Fortran string
+USAGE
+ intn HDpackFstring(src, dest, len)
+ char * src; IN: source string
+ char * dest; OUT: destination
+ intn len; IN: length of string
+RETURNS
+ SUCCEED / FAIL
+DESCRIPTION
+ given a NULL terminated C string 'src' convert it to
+ a space padded Fortran string 'dest' of length 'len'
+
+ This is very similar to HDc2fstr except that function does
+ it in place and this one copies. We should probably only
+ support one of these.
+
+---------------------------------------------------------------------------*/
+int
+HDpackFstring(char *src, char *dest, int len)
+{
+ int sofar;
+
+ for (sofar = 0; (sofar < len) && (*src != '\0'); sofar++)
+ *dest++ = *src++;
+
+ while (sofar++ < len)
+ *dest++ = ' ';
+
+ return 0;
+} /* HDpackFstring */
+
diff --git a/fortran/src/H5f90misc.c b/fortran/src/H5f90misc.c
new file mode 100644
index 0000000..728b50a
--- /dev/null
+++ b/fortran/src/H5f90misc.c
@@ -0,0 +1,139 @@
+#include "H5f90.h"
+
+/*---------------------------------------------------------------------------
+ * Name: h5init_types_c
+ * Purpose: Initialize predefined datatypes in Fortran
+ * Inputs: types - array with the predefined Native Fortran
+ * type, its element and length must be the
+ * same as the types array defined in the
+ * H5f90global.f90
+ * floatingtypes - array with the predefined Floating Fortran
+ * type, its element and length must be the
+ * same as the floatingtypes array defined in the
+ * H5f90global.f90
+ * integertypes - array with the predefined Integer Fortran
+ * type, its element and length must be the
+ * same as the integertypes array defined in the
+ * H5f90global.f90
+ * Outputs: None
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, August 3, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5init_types_c( hid_t_f * types, hid_t_f * floatingtypes, hid_t_f * integertypes )
+{
+
+ int ret_value = -1;
+ hid_t c_type_id;
+ if ((types[0] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0) return ret_value;
+#if defined(_UNICOS)
+ if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
+#else
+ if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0) return ret_value;
+#endif
+ if ((types[2] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
+/*
+ if ((types[3] = H5Tcopy(H5T_NATIVE_UINT8)) < 0) return ret_value;
+*/
+ if ((c_type_id = H5Tcopy(H5T_FORTRAN_S1)) < 0) return ret_value;
+ if(H5Tset_size(c_type_id, 1) < 0) return ret_value;
+ if(H5Tset_strpad(c_type_id, H5T_STR_SPACEPAD) < 0) return ret_value;
+ types[3] = (hid_t_f)c_type_id;
+
+
+
+/*
+ if ((types[3] = H5Tcopy(H5T_C_S1)) < 0) return ret_value;
+ if(H5Tset_strpad(types[3],H5T_STR_NULLTERM) < 0) return ret_value;
+ if(H5Tset_size(types[3],1) < 0) return ret_value;
+*/
+
+
+/* if ((types[3] = H5Tcopy(H5T_STD_I8BE)) < 0) return ret_value;
+*/
+ if ((types[4] = (hid_t_f)H5Tcopy(H5T_STD_REF_OBJ)) < 0) return ret_value;
+ if ((types[5] = (hid_t_f)H5Tcopy(H5T_STD_REF_DSETREG)) < 0) return ret_value;
+
+ if ((floatingtypes[0] = (hid_t_f)H5Tcopy(H5T_IEEE_F32BE)) < 0) return ret_value;
+ if ((floatingtypes[1] = (hid_t_f)H5Tcopy(H5T_IEEE_F32LE)) < 0) return ret_value;
+ if ((floatingtypes[2] = (hid_t_f)H5Tcopy(H5T_IEEE_F64BE)) < 0) return ret_value;
+ if ((floatingtypes[3] = (hid_t_f)H5Tcopy(H5T_IEEE_F64LE)) < 0) return ret_value;
+
+ if ((integertypes[0] = (hid_t_f)H5Tcopy(H5T_STD_I8BE)) < 0) return ret_value;
+ if ((integertypes[1] = (hid_t_f)H5Tcopy(H5T_STD_I8LE)) < 0) return ret_value;
+ if ((integertypes[2] = (hid_t_f)H5Tcopy(H5T_STD_I16BE)) < 0) return ret_value;
+ if ((integertypes[3] = (hid_t_f)H5Tcopy(H5T_STD_I16LE)) < 0) return ret_value;
+ if ((integertypes[4] = (hid_t_f)H5Tcopy(H5T_STD_I32BE)) < 0) return ret_value;
+ if ((integertypes[5] = (hid_t_f)H5Tcopy(H5T_STD_I32LE)) < 0) return ret_value;
+ if ((integertypes[6] = (hid_t_f)H5Tcopy(H5T_STD_I64BE)) < 0) return ret_value;
+ if ((integertypes[7] = (hid_t_f)H5Tcopy(H5T_STD_I64LE)) < 0) return ret_value;
+ if ((integertypes[8] = (hid_t_f)H5Tcopy(H5T_STD_U8BE)) < 0) return ret_value;
+ if ((integertypes[9] = (hid_t_f)H5Tcopy(H5T_STD_U8LE)) < 0) return ret_value;
+ if ((integertypes[10] = (hid_t_f)H5Tcopy(H5T_STD_U16BE)) < 0) return ret_value;
+ if ((integertypes[11] = (hid_t_f)H5Tcopy(H5T_STD_U16LE)) < 0) return ret_value;
+ if ((integertypes[12] = (hid_t_f)H5Tcopy(H5T_STD_U32BE)) < 0) return ret_value;
+ if ((integertypes[13] = (hid_t_f)H5Tcopy(H5T_STD_U32LE)) < 0) return ret_value;
+ if ((integertypes[14] = (hid_t_f)H5Tcopy(H5T_STD_U64BE)) < 0) return ret_value;
+ if ((integertypes[15] = (hid_t_f)H5Tcopy(H5T_STD_U64LE)) < 0) return ret_value;
+
+ ret_value = 0;
+ return ret_value;
+}
+
+/*---------------------------------------------------------------------------
+ * Name: h5close_types_c
+ * Purpose: Closes predefined datatype in Fortran
+ * Inputs: types - array with the predefined Native Fortran
+ * type, its element and length must be the
+ * same as the types array defined in the
+ * H5f90global.f90
+ * lentypes - length of the types array, which must be the
+ * same as the length of types array defined
+ * in the H5f90global.f90
+ * floatingtypes - array with the predefined Floating Fortran
+ * type, its element and length must be the
+ * same as the floatingtypes array defined in the
+ * H5f90global.f90
+ * floatinglen - length of the floatingtypes array, which must be the
+ * same as the length of floatingtypes array defined
+ * in the H5f90global.f90
+ * integertypes - array with the predefined Integer Fortran
+ * type, its element and length must be the
+ * same as the integertypes array defined in the
+ * H5f90global.f90
+ * integerlen - length of the floatingtypes array, which must be the
+ * same as the length of floatingtypes array defined
+ * in the H5f90global.f90
+ * Outputs: None
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Tuesday, August 3, 1999
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5close_types_c( hid_t_f * types, int_f *lentypes,
+ hid_t_f * floatingtypes, int_f* floatinglen,
+ hid_t_f * integertypes, int_f * integerlen )
+{
+
+ int ret_value = -1;
+ hid_t c_type_id;
+ herr_t err;
+ int i;
+ for (i = 0; i < *lentypes; i++) {
+ c_type_id = types[i];
+ if ( (err = H5Tclose(c_type_id)) < 0) return ret_value;
+ }
+ for (i = 0; i < *floatinglen; i++) {
+ c_type_id = floatingtypes[i];
+ if ( (err = H5Tclose(c_type_id)) < 0) return ret_value;
+ }
+ for (i = 0; i < *integerlen; i++) {
+ c_type_id = integertypes[i];
+ if ( (err = H5Tclose(c_type_id)) < 0) return ret_value;
+ }
+ ret_value = 0;
+ return ret_value;
+}
diff --git a/fortran/src/H5f90miscf.f90 b/fortran/src/H5f90miscf.f90
new file mode 100644
index 0000000..a345019
--- /dev/null
+++ b/fortran/src/H5f90miscf.f90
@@ -0,0 +1,22 @@
+ SUBROUTINE h5init_types_f(error)
+ USE H5GLOBAL
+
+ IMPLICIT NONE
+ INTEGER, INTENT(OUT) :: error
+ INTEGER, EXTERNAL :: h5init_types_c
+ error = h5init_types_c(predef_types, floating_types, integer_types)
+
+ END SUBROUTINE h5init_types_f
+
+ SUBROUTINE h5close_types_f(error)
+ USE H5GLOBAL
+
+ IMPLICIT NONE
+ INTEGER, INTENT(OUT) :: error
+ INTEGER, EXTERNAL :: h5close_types_c
+ error = h5close_types_c(predef_types, PREDEF_TYPES_LEN, &
+ floating_types, FLOATING_TYPES_LEN, &
+ integer_types, INTEGER_TYPES_LEN )
+
+ END SUBROUTINE h5close_types_f
+
diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h
new file mode 100644
index 0000000..f759038
--- /dev/null
+++ b/fortran/src/H5f90proto.h
@@ -0,0 +1,872 @@
+#ifndef _H5f90proto_H
+#define _H5f90proto_H
+
+#include "H5Git.h"
+extern int HD5c2fstr(char *str, int len);
+extern char * HD5fcstring (_fcd fdesc, int len);
+extern int HDpackFstring(char *src, char *dest, int len);
+
+/*
+ * Functions from H5Ff.c
+ */
+#ifndef H5Ff90_FNAMES
+# define H5Ff90_FNAMES
+#ifdef DF_CAPFNAMES
+# define nh5fcreate_c FNAME(H5FCREATE_C)
+# define nh5fflush_c FNAME(H5FFLUSH_C)
+# define nh5fclose_c FNAME(H5FCLOSE_C)
+# define nh5fopen_c FNAME(H5FOPEN_C)
+# define nh5fis_hdf5_c FNAME(H5FIS_HDF5_C)
+# define nh5fmount_c FNAME(H5FMOUNT_C)
+# define nh5funmount_c FNAME(H5FUNMOUNT_C)
+# define nh5freopen_c FNAME(H5FREOPEN_C)
+# define nh5fget_create_plist_c FNAME(H5FGET_CREATE_PLIST_C)
+# define nh5fget_access_plist_c FNAME(H5FGET_ACCESS_PLIST_C)
+#else /* !DF_CAPFNAMES */
+# define nh5fcreate_c FNAME(h5fcreate_c)
+# define nh5fflush_c FNAME(h5fflush_c)
+# define nh5fclose_c FNAME(h5fclose_c)
+# define nh5fopen_c FNAME(h5fopen_c)
+# define nh5fis_hdf5_c FNAME(h5fis_hdf5_c)
+# define nh5fmount_c FNAME(h5fmount_c)
+# define nh5funmount_c FNAME(h5funmount_c)
+# define nh5freopen_c FNAME(h5freopen_c)
+# define nh5fget_create_plist_c FNAME(h5fget_create_plist_c)
+# define nh5fget_access_plist_c FNAME(h5fget_access_plist_c)
+#endif /* DF_CAPFNAMES */
+#endif /* H5Ff90_FNAMES */
+
+extern int_f nh5fcreate_c
+(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *crt_prp, hid_t_f *acc_prp, hid_t_f *file_id);
+
+extern int_f nh5fopen_c
+(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hid_t_f *file_id);
+
+extern int_f nh5fis_hdf5_c
+(_fcd name, int_f *namelen, int_f *flag);
+
+extern int_f nh5fclose_c (hid_t_f *file_id);
+extern int_f nh5fmount_c
+(hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, hid_t_f *acc_prp);
+extern int_f nh5funmount_c
+(hid_t_f *loc_id, _fcd dsetname, int_f *namelen);
+extern int_f nh5freopen_c (hid_t_f *file_id1, hid_t_f *file_id2);
+extern int_f nh5fget_create_plist_c (hid_t_f *file_id, hid_t_f *prop_id);
+extern int_f nh5fget_access_plist_c (hid_t_f *file_id, hid_t_f *access_id);
+/*
+ * Functions from H5Sf.c
+ */
+#ifndef H5Sf90_FNAMES
+# define H5Sf90_FNAMES
+#ifdef DF_CAPFNAMES
+# define nh5screate_simple_c FNAME(H5SCREATE_SIMPLE_C)
+# define nh5sclose_c FNAME(H5SCLOSE_C)
+# define nh5screate_c FNAME(H5SCREATE_C)
+# define nh5scopy_c FNAME(H5SCOPY_C)
+# define nh5sget_select_hyper_nblocks_c FNAME(H5SGET_SELECT_HYPER_NBLOCKS_C)
+# define nh5sget_select_hyper_blocklist_c FNAME(H5SGET_SELECT_HYPER_BLOCKLIST_C)
+# define nh5sget_select_elem_npoints_c FNAME(H5SGET_SELECT_ELEM_NPOINTS_C)
+# define nh5sget_select_elem_pointlist_c FNAME(H5SGET_SELECT_ELEM_POINTLIST_C)
+# define nh5sget_select_bounds_c FNAME(H5SGET_SELECT_BOUNDS_C)
+# define nh5sselect_all_c FNAME(H5SSELECT_ALL_C)
+# define nh5sselect_none_c FNAME(H5SSELECT_NONE_C)
+# define nh5sselect_valid_c FNAME(H5SSELECT_VALID_C)
+# define nh5sget_simple_extent_npoints_c FNAME(H5SGET_SIMPLE_EXTENT_NPOINTS_C)
+# define nh5sget_select_npoints_c FNAME(H5SGET_SELECT_NPOINTS_C)
+# define nh5sget_simple_extent_ndims_c FNAME(H5SGET_SIMPLE_EXTENT_NDIMS_C)
+# define nh5sget_simple_extent_type_c FNAME(H5SGET_SIMPLE_EXTENT_TYPE_C)
+# define nh5soffset_simple_c FNAME(H5SOFFSET_SIMPLE_C)
+# define nh5sset_extent_simple_c FNAME(H5SSET_EXTENT_SIMPLE_C)
+# define nh5sis_simple_c FNAME(H5SIS_SIMPLE_C)
+# define nh5sextent_class_c FNAME(H5SEXTENT_CLASS_C)
+# define nh5sget_simple_extent_dims_c FNAME(H5SGET_SIMPLE_EXTENT_DIMS_C)
+# define nh5sextent_copy_c FNAME(H5SEXTENT_COPY_C)
+# define nh5sset_extent_none_c FNAME(H5SSET_EXTENT_NONE_C)
+# define nh5sselect_hyperslab_c FNAME(H5SSELECT_HYPERSLAB_C)
+# define nh5sselect_elements_c FNAME(H5SSELECT_ELEMENTS_C)
+#else /* !DF_CAPFNAMES */
+# define nh5screate_simple_c FNAME(h5screate_simple_c)
+# define nh5sclose_c FNAME(h5sclose_c)
+# define nh5screate_c FNAME(h5screate_c)
+# define nh5scopy_c FNAME(h5scopy_c)
+# define nh5sget_select_hyper_nblocks_c FNAME(h5sget_select_hyper_nblocks_c)
+# define nh5sget_select_hyper_blocklist_c FNAME(h5sget_select_hyper_blocklist_c)
+# define nh5sget_select_elem_npoints_c FNAME(h5sget_select_elem_npoints_c)
+# define nh5sget_select_bounds_c FNAME(h5sget_select_bounds_c)
+# define nh5sget_select_elem_pointlist_c FNAME(h5sget_select_elem_pointlist_c)
+# define nh5sselect_all_c FNAME(h5sselect_all_c)
+# define nh5sselect_none_c FNAME(h5sselect_none_c)
+# define nh5sselect_valid_c FNAME(h5sselect_valid_c)
+# define nh5sget_simple_extent_npoints_c FNAME(h5sget_simple_extent_npoints_c)
+# define nh5sget_select_npoints_c FNAME(h5sget_select_npoints_c)
+# define nh5sget_simple_extent_ndims_c FNAME(h5sget_simple_extent_ndims_c)
+# define nh5sget_simple_extent_type_c FNAME(h5sget_simple_extent_type_c)
+# define nh5soffset_simple_c FNAME(h5soffset_simple_c)
+# define nh5sset_extent_simple_c FNAME(h5sset_extent_simple_c)
+# define nh5sis_simple_c FNAME(h5sis_simple_c)
+# define nh5sextent_class_c FNAME(h5sextent_class_c)
+# define nh5sget_simple_extent_dims_c FNAME(h5sget_simple_extent_dims_c)
+# define nh5sextent_copy_c FNAME(h5sextent_copy_c)
+# define nh5sset_extent_none_c FNAME(h5sset_extent_none_c)
+# define nh5sselect_hyperslab_c FNAME(h5sselect_hyperslab_c)
+# define nh5sselect_elements_c FNAME(h5sselect_elements_c)
+#endif /* DF_CAPFNAMES */
+#endif
+
+extern int_f nh5screate_simple_c
+( int_f *rank, hsize_t_f *dims, hsize_t_f *maxdims, hid_t_f *space_id );
+
+extern int_f nh5sclose_c ( hid_t_f *space_id );
+
+extern int_f nh5screate_c ( int_f *classtype, hid_t_f *space_id );
+
+extern int_f nh5scopy_c ( hid_t_f *space_id , hid_t_f *new_space_id);
+extern int_f nh5sget_select_hyper_nblocks_c( hid_t_f *space_id , hssize_t_f * num_blocks);
+extern int_f nh5sget_select_hyper_blocklist_c( hid_t_f *space_id ,hsize_t_f * startblock, hsize_t_f * num_blocks, hsize_t_f * buf);
+
+extern int_f nh5sget_select_bounds_c( hid_t_f *space_id , hsize_t_f * start, hsize_t_f * end);
+
+extern int_f nh5sget_select_elem_npoints_c( hid_t_f *space_id , hssize_t_f * num_points);
+
+extern int_f nh5sget_select_elem_pointlist_c( hid_t_f *space_id ,hsize_t_f * startpoint, hsize_t_f * numpoints, hsize_t_f * buf);
+extern int_f nh5sselect_all_c ( hid_t_f *space_id );
+
+extern int_f nh5sselect_none_c ( hid_t_f *space_id );
+
+extern int_f nh5sselect_valid_c ( hid_t_f *space_id , int_f *flag );
+
+extern int_f nh5sget_simple_extent_npoints_c ( hid_t_f *space_id , hsize_t_f *npoints );
+
+extern int_f nh5sget_select_npoints_c ( hid_t_f *space_id , hssize_t_f *npoints );
+
+extern int_f nh5sget_simple_extent_ndims_c ( hid_t_f *space_id , int_f *ndims );
+
+extern int_f nh5sget_simple_extent_type_c ( hid_t_f *space_id , int_f *classtype);
+
+extern int_f nh5soffset_simple_c ( hid_t_f *space_id , hssize_t_f *offset);
+
+extern int_f nh5sset_extent_simple_c ( hid_t_f *space_id , int_f *rank, hsize_t_f * current_size, hsize_t_f *maximum_size);
+
+extern int_f nh5sis_simple_c ( hid_t_f *space_id , int_f *flag );
+
+extern int_f nh5sextent_class_c ( hid_t_f *space_id , int_f *classtype);
+
+extern int_f nh5sget_simple_extent_dims_c ( hid_t_f *space_id , hsize_t_f *dims, hsize_t_f *maxdims);
+
+extern int_f nh5sextent_copy_c ( hid_t_f *dest_space_id , hid_t_f *source_space_id);
+
+extern int_f nh5sset_extent_none_c ( hid_t_f *space_id );
+
+extern int_f nh5sselect_hyperslab_c ( hid_t_f *space_id , int_f *op, hssize_t_f *start, hsize_t_f *count, hsize_t_f *stride, hsize_t_f *block);
+
+extern int_f nh5sselect_elements_c ( hid_t_f *space_id , int_f *op, size_t_f *nelements, hssize_t_f *coord);
+
+
+/*
+ * Functions from H5Df.c
+ */
+
+#ifndef H5Df90_FNAMES
+# define H5Df90_FNAMES
+#ifdef DF_CAPFNAMES
+# define nh5dcreate_c FNAME(H5DCREATE_C)
+# define nh5dclose_c FNAME(H5DCLOSE_C)
+# define nh5dopen_c FNAME(H5DOPEN_C)
+# define nh5dwrite_c FNAME(H5DWRITE_C)
+# define nh5dwritec_c FNAME(H5DWRITEC_C)
+# define nh5dread_c FNAME(H5DREAD_C)
+# define nh5dreadc_c FNAME(H5DREADC_C)
+# define nh5dget_space_c FNAME(H5DGET_SPACE_C)
+# define nh5dget_type_c FNAME(H5DGET_TYPE_C)
+# define nh5dget_create_plist_c FNAME(H5DGET_CREATE_PLIST_C)
+# define nh5dextend_c FNAME(H5DEXTEND_C)
+#else /* !DF_CAPFNAMES */
+# define nh5dcreate_c FNAME(h5dcreate_c)
+# define nh5dclose_c FNAME(h5dclose_c)
+# define nh5dopen_c FNAME(h5dopen_c)
+# define nh5dwrite_c FNAME(h5dwrite_c)
+# define nh5dwritec_c FNAME(h5dwritec_c)
+# define nh5dread_c FNAME(h5dread_c)
+# define nh5dreadc_c FNAME(h5dreadc_c)
+# define nh5dget_space_c FNAME(h5dget_space_c)
+# define nh5dget_type_c FNAME(h5dget_type_c)
+# define nh5dget_create_plist_c FNAME(h5dget_create_plist_c)
+# define nh5dextend_c FNAME(h5dextend_c)
+#endif /* DF_CAPFNAMES */
+#endif
+
+extern int_f nh5dcreate_c
+(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *dset_id);
+
+extern int_f nh5dopen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *dset_id);
+
+extern int_f nh5dclose_c ( hid_t_f *dset_id );
+
+extern int_f nh5dwrite_c
+(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf);
+
+
+extern int_f nh5dwritec_c
+(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf);
+
+extern int_f nh5dread_c
+(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf);
+
+
+extern int_f nh5dreadc_c
+(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf);
+
+extern int_f nh5dget_space_c ( hid_t_f *dset_id , hid_t_f *space_id);
+
+extern int_f nh5dget_type_c ( hid_t_f *dset_id , hid_t_f *type_id);
+
+extern int_f nh5dget_create_plist_c ( hid_t_f *dset_id , hid_t_f *plist_id);
+
+extern int_f nh5dextend_c ( hid_t_f *dset_id , hsize_t_f *dims);
+/*
+ * Functions from H5Gf.c
+ */
+
+#ifndef H5Gf90_FNAMES
+# define H5Gf90_FNAMES
+#ifdef DF_CAPFNAMES
+# define nh5gcreate_c FNAME(H5GCREATE_C)
+# define nh5gclose_c FNAME(H5GCLOSE_C)
+# define nh5gopen_c FNAME(H5GOPEN_C)
+# define nh5gget_obj_info_idx_c FNAME(H5GGET_OBJ_INFO_IDX_C)
+# define nh5gn_members_c FNAME(H5GN_MEMBERS_C)
+# define nh5glink_c FNAME(H5GLINK_C)
+# define nh5gunlink_c FNAME(H5GUNLINK_C)
+# define nh5gmove_c FNAME(H5GMOVE_C)
+# define nh5gget_linkval_c FNAME(H5GGET_LINKVAL_C)
+# define nh5gset_comment_c FNAME(H5GSET_COMMENT_C)
+# define nh5gget_comment_c FNAME(H5GGET_COMMENT_C)
+#else /* !DF_CAPFNAMES */
+# define nh5gcreate_c FNAME(h5gcreate_c)
+# define nh5gclose_c FNAME(h5gclose_c)
+# define nh5gopen_c FNAME(h5gopen_c)
+# define nh5gget_obj_info_idx_c FNAME(h5gget_obj_info_idx_c)
+# define nh5gn_members_c FNAME(h5gn_members_c)
+# define nh5glink_c FNAME(h5glink_c)
+# define nh5gunlink_c FNAME(h5gunlink_c)
+# define nh5gmove_c FNAME(h5gmove_c)
+# define nh5gget_linkval_c FNAME(h5gget_linkval_c)
+# define nh5gset_comment_c FNAME(h5gset_comment_c)
+# define nh5gget_comment_c FNAME(h5gget_comment_c)
+#endif /* DF_CAPFNAMES */
+#endif
+
+extern int_f nh5gcreate_c
+(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size_hint, hid_t_f *grp_id);
+
+extern int_f nh5gopen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *grp_id);
+
+extern int_f nh5gclose_c ( hid_t_f *grp_id );
+
+extern int_f nh5gget_obj_info_idx_c
+(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *idx, _fcd obj_name, int_f *obj_namelen, int_f *obj_type);
+
+extern int_f nh5gn_members_c
+(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *nmembers);
+
+extern int_f nh5glink_c
+(hid_t_f *loc_id, int_f *link_type, _fcd current_name, int_f *current_namelen, _fcd new_name, int_f *new_namelen);
+
+extern int_f nh5gunlink_c
+(hid_t_f *loc_id, _fcd name, int_f *namelen);
+
+extern int_f nh5gmove_c
+(hid_t_f *loc_id, _fcd src_name, int_f *src_namelen, _fcd dst_name, int_f *dst_namelen);
+
+extern int_f nh5gget_linkval_c
+(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size, _fcd value );
+
+extern int_f nh5gset_comment_c
+(hid_t_f *loc_id, _fcd name, int_f *namelen, _fcd comment, int_f *commentlen);
+
+extern int_f nh5gget_comment_c
+(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize, _fcd comment);
+
+
+/*
+ * Functions from H5Af.c
+ */
+
+#ifndef H5Af90_FNAMES
+# define H5Af90_FNAMES
+#ifdef DF_CAPFNAMES
+# define nh5acreate_c FNAME(H5ACREATE_C)
+# define nh5aclose_c FNAME(H5ACLOSE_C)
+# define nh5aopen_name_c FNAME(H5AOPEN_NAME_C)
+# define nh5awrite_c FNAME(H5AWRITE_C)
+# define nh5awritec_c FNAME(H5AWRITEC_C)
+# define nh5aread_c FNAME(H5AREAD_C)
+# define nh5areadc_c FNAME(H5AREADC_C)
+# define nh5aget_name_c FNAME(H5AGET_NAME_C)
+# define nh5aopen_idx_c FNAME(H5AOPEN_IDX_C)
+# define nh5aget_space_c FNAME(H5AGET_SPACE_C)
+# define nh5aget_type_c FNAME(H5AGET_TYPE_C)
+# define nh5aget_num_attrs_c FNAME(H5AGET_NUM_ATTRS_C)
+# define nh5adelete_c FNAME(H5ADELETE_C)
+#else /* !DF_CAPFNAMES */
+# define nh5acreate_c FNAME(h5acreate_c)
+# define nh5aclose_c FNAME(h5aclose_c)
+# define nh5aopen_name_c FNAME(h5aopen_name_c)
+# define nh5awrite_c FNAME(h5awrite_c)
+# define nh5awritec_c FNAME(h5awritec_c)
+# define nh5aread_c FNAME(h5aread_c)
+# define nh5areadc_c FNAME(h5areadc_c)
+# define nh5aget_name_c FNAME(h5aget_name_c)
+# define nh5aopen_idx_c FNAME(h5aopen_idx_c)
+# define nh5aget_space_c FNAME(h5aget_space_c)
+# define nh5aget_type_c FNAME(h5aget_type_c)
+# define nh5aget_num_attrs_c FNAME(h5aget_num_attrs_c)
+# define nh5adelete_c FNAME(h5adelete_c)
+#endif /* DF_CAPFNAMES */
+#endif
+
+
+extern int_f nh5acreate_c (hid_t_f *obj_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *attr_id);
+
+extern int_f
+nh5aopen_name_c (hid_t_f *obj_id, _fcd name, int_f *namelen, hid_t_f *attr_id);
+
+extern int_f nh5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf);
+
+extern int_f nh5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf);
+
+extern int_f nh5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf);
+
+extern int_f nh5aread_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf);
+
+extern int_f nh5aclose_c ( hid_t_f *attr_id );
+
+extern int_f nh5adelete_c (hid_t_f *obj_id, _fcd name, int_f *namelen);
+
+extern int_f nh5aopen_idx_c (hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id);
+
+extern int_f nh5aget_space_c (hid_t_f *attr_id, hid_t_f *space_id);
+
+extern int_f nh5aget_type_c (hid_t_f *attr_id, hid_t_f *type_id);
+
+extern int_f nh5aget_num_attrs_c (hid_t_f *obj_id, int_f *attr_num);
+
+extern int_f nh5aget_name_c(hid_t_f *attr_id, size_t_f *size, _fcd buf);
+
+/*
+ * Functions form H5Tf.c file
+ */
+#ifndef H5Tf90_FNAMES
+# define H5Tf90_FNAMES
+#ifdef DF_CAPFNAMES
+# define nh5topen_c FNAME(H5TOPEN_C)
+# define nh5tcommit_c FNAME(H5TCOMMIT_C)
+# define nh5tcommitted_c FNAME(H5TCOMMITTED_C)
+# define nh5tclose_c FNAME(H5TCLOSE_C)
+# define nh5tcopy_c FNAME(H5TCOPY_C)
+# define nh5tequal_c FNAME(H5TEQUAL_C)
+# define nh5tget_class_c FNAME(H5TGET_CLASS_C)
+# define nh5tget_order_c FNAME(H5TGET_ORDER_C)
+# define nh5tset_order_c FNAME(H5TSET_ORDER_C)
+# define nh5tget_size_c FNAME(H5TGET_SIZE_C)
+# define nh5tset_size_c FNAME(H5TSET_SIZE_C)
+# define nh5tget_precision_c FNAME(H5TGET_PRECISION_C)
+# define nh5tset_precision_c FNAME(H5TSET_PRECISION_C)
+# define nh5tget_offset_c FNAME(H5TGET_OFFSET_C)
+# define nh5tset_offset_c FNAME(H5TSET_OFFSET_C)
+# define nh5tget_pad_c FNAME(H5TGET_PAD_C)
+# define nh5tset_pad_c FNAME(H5TSET_PAD_C)
+# define nh5tget_sign_c FNAME(H5TGET_SIGN_C)
+# define nh5tset_sign_c FNAME(H5TSET_SIGN_C)
+# define nh5tget_fields_c FNAME(H5TGET_FIELDS_C)
+# define nh5tset_fields_c FNAME(H5TSET_FIELDS_C)
+# define nh5tget_ebias_c FNAME(H5TGET_EBIAS_C)
+# define nh5tset_ebias_c FNAME(H5TSET_EBIAS_C)
+# define nh5tget_norm_c FNAME(H5TGET_NORM_C)
+# define nh5tset_norm_c FNAME(H5TSET_NORM_C)
+# define nh5tget_inpad_c FNAME(H5TGET_INPAD_C)
+# define nh5tset_inpad_c FNAME(H5TSET_INPAD_C)
+# define nh5tget_cset_c FNAME(H5TGET_CSET_C)
+# define nh5tset_cset_c FNAME(H5TSET_CSET_C)
+# define nh5tget_strpad_c FNAME(H5TGET_STRPAD_C)
+# define nh5tset_strpad_c FNAME(H5TSET_STRPAD_C)
+# define nh5tget_nmembers_c FNAME(H5TGET_NMEMBERS_C)
+# define nh5tget_member_name_c FNAME(H5TGET_MEMBER_NAME_C)
+# define nh5tget_member_offset_c FNAME(H5TGET_MEMBER_OFFSET_C)
+# define nh5tget_member_dims_c FNAME(H5TGET_MEMBER_DIMS_C)
+# define nh5tget_member_type_c FNAME(H5TGET_MEMBER_TYPE_C)
+# define nh5tinsert_c FNAME(H5TINSERT_C)
+# define nh5tcreate_c FNAME(H5TCREATE_C)
+# define nh5tpack_c FNAME(H5TPACK_C)
+# define nh5tinsert_array_c FNAME(H5TINSERT_ARRAY_C)
+# define nh5tinsert_array_c2 FNAME(H5TINSERT_ARRAY_C2)
+# define nh5tenum_create_c FNAME(H5TENUM_CREATE_C)
+# define nh5tenum_insert_c FNAME(H5TENUM_INSERT_C)
+# define nh5tenum_nameof_c FNAME(H5TENUM_NAMEOF_C)
+# define nh5tenum_valueof_c FNAME(H5TENUM_VALUEOF_C)
+# define nh5tget_member_value_c FNAME(H5TGET_MEMBER_VALUE_C)
+# define nh5set_tag_c FNAME(H5TSET_TAG_C)
+# define nh5get_tag_c FNAME(H5TGET_TAG_C)
+#else
+# define nh5topen_c FNAME(h5topen_c)
+# define nh5tcommit_c FNAME(h5tcommit_c)
+# define nh5tcommitted_c FNAME(h5tcommitted_c)
+# define nh5tclose_c FNAME(h5tclose_c)
+# define nh5tcopy_c FNAME(h5tcopy_c)
+# define nh5tequal_c FNAME(h5tequal_c)
+# define nh5tget_class_c FNAME(h5tget_class_c)
+# define nh5tget_order_c FNAME(h5tget_order_c)
+# define nh5tset_order_c FNAME(h5tset_order_c)
+# define nh5tget_size_c FNAME(h5tget_size_c)
+# define nh5tset_size_c FNAME(h5tset_size_c)
+# define nh5tget_precision_c FNAME(h5tget_precision_c)
+# define nh5tset_precision_c FNAME(h5tset_precision_c)
+# define nh5tget_offset_c FNAME(h5tget_offset_c)
+# define nh5tset_offset_c FNAME(h5tset_offset_c)
+# define nh5tget_pad_c FNAME(h5tget_pad_c)
+# define nh5tset_pad_c FNAME(h5tset_pad_c)
+# define nh5tget_sign_c FNAME(h5tget_sign_c)
+# define nh5tset_sign_c FNAME(h5tset_sign_c)
+# define nh5tget_fields_c FNAME(h5tget_fields_c)
+# define nh5tset_fields_c FNAME(h5tset_fields_c)
+# define nh5tget_ebias_c FNAME(h5tget_ebias_c)
+# define nh5tset_ebias_c FNAME(h5tset_ebias_c)
+# define nh5tget_norm_c FNAME(h5tget_norm_c)
+# define nh5tset_norm_c FNAME(h5tset_norm_c)
+# define nh5tget_inpad_c FNAME(h5tget_inpad_c)
+# define nh5tset_inpad_c FNAME(h5tset_inpad_c)
+# define nh5tget_cset_c FNAME(h5tget_cset_c)
+# define nh5tset_cset_c FNAME(h5tset_cset_c)
+# define nh5tget_strpad_c FNAME(h5tget_strpad_c)
+# define nh5tset_strpad_c FNAME(h5tset_strpad_c)
+# define nh5tget_nmembers_c FNAME(h5tget_nmembers_c)
+# define nh5tget_member_name_c FNAME(h5tget_member_name_c)
+# define nh5tget_member_offset_c FNAME(h5tget_member_offset_c)
+# define nh5tget_member_dims_c FNAME(h5tget_member_dims_c)
+# define nh5tget_member_type_c FNAME(h5tget_member_type_c)
+# define nh5tinsert_c FNAME(h5tinsert_c)
+# define nh5tcreate_c FNAME(h5tcreate_c)
+# define nh5tpack_c FNAME(h5tpack_c)
+# define nh5tinsert_array_c FNAME(h5tinsert_array_c)
+# define nh5tinsert_array_c2 FNAME(h5tinsert_array_c2)
+# define nh5tenum_create_c FNAME(h5tenum_create_c)
+# define nh5tenum_insert_c FNAME(h5tenum_insert_c)
+# define nh5tenum_nameof_c FNAME(h5tenum_nameof_c)
+# define nh5tenum_valueof_c FNAME(h5tenum_valueof_c)
+# define nh5tget_member_value_c FNAME(h5tget_member_value_c)
+# define nh5tset_tag_c FNAME(h5tset_tag_c)
+# define nh5tget_tag_c FNAME(h5tget_tag_c)
+#endif
+#endif
+
+extern int_f nh5tcreate_c(int_f *class, size_t_f *size, hid_t_f *type_id);
+
+extern int_f nh5topen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id);
+
+extern int_f
+nh5tcommit_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id);
+
+extern int_f nh5tclose_c ( hid_t_f *type_id );
+
+extern int_f nh5tequal_c ( hid_t_f *type1_id , hid_t_f *type2_id, int_f *c_flag);
+
+extern int_f nh5tcopy_c ( hid_t_f *type_id , hid_t_f *new_type_id);
+
+extern int_f nh5tget_class_c ( hid_t_f *type_id , int_f *classtype);
+
+extern int_f nh5tget_order_c ( hid_t_f *type_id , int_f *order);
+
+extern int_f nh5tset_order_c ( hid_t_f *type_id , int_f *order);
+
+extern int_f nh5tget_size_c ( hid_t_f *type_id , size_t_f *size);
+
+extern int_f nh5tset_size_c ( hid_t_f *type_id , size_t_f *size);
+extern int_f nh5tcommitted_c (hid_t_f *type_id);
+extern int_f nh5tget_precision_c ( hid_t_f *type_id , size_t_f *precision);
+extern int_f nh5tset_precision_c ( hid_t_f *type_id , size_t_f *precision);
+extern int_f nh5tget_offset_c ( hid_t_f *type_id , size_t_f *offset);
+extern int_f nh5tset_offset_c ( hid_t_f *type_id , size_t_f *offset);
+extern int_f nh5tget_pad_c ( hid_t_f *type_id , int_f * lsbpad, int_f * msbpad);
+extern int_f nh5tset_pad_c ( hid_t_f *type_id, int_f * lsbpad, int_f * msbpad );
+extern int_f nh5tget_sign_c ( hid_t_f *type_id , int_f* sign);
+extern int_f nh5tset_sign_c ( hid_t_f *type_id , int_f *sign);
+extern int_f nh5tget_fields_c ( hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f* esize, size_t_f* mpos, size_t_f* msize);
+extern int_f nh5tset_fields_c ( hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f* esize, size_t_f* mpos, size_t_f* msize);
+extern int_f nh5tget_ebias_c ( hid_t_f *type_id , size_t_f *ebias);
+
+extern int_f nh5tset_ebias_c ( hid_t_f *type_id , size_t_f *ebias);
+extern int_f nh5tget_norm_c ( hid_t_f *type_id , int_f *norm);
+
+extern int_f nh5tset_norm_c ( hid_t_f *type_id , int_f *norm);
+extern int_f nh5tget_inpad_c ( hid_t_f *type_id, int_f * padtype);
+extern int_f nh5tset_inpad_c ( hid_t_f *type_id, int_f * padtype);
+extern int_f nh5tget_cset_c ( hid_t_f *type_id, int_f * cset);
+extern int_f nh5tset_cset_c ( hid_t_f *type_id, int_f * cset);
+extern int_f nh5tget_strpad_c ( hid_t_f *type_id, int_f * strpad);
+extern int_f nh5tset_strpad_c ( hid_t_f *type_id, int_f * strpad);
+extern int_f nh5tget_nmembers_c ( hid_t_f *type_id , int_f * num_members);
+extern int_f nh5tget_member_name_c ( hid_t_f *type_id ,int_f* index, _fcd member_name, int_f *namelen);
+extern int_f nh5tget_member_dims_c ( hid_t_f *type_id ,int_f* field_idx, int_f * dims, size_t_f * field_dims, int_f * perm );
+extern int_f nh5tget_member_offset_c ( hid_t_f *type_id ,int_f* member_no, size_t_f* offset);
+extern int_f nh5tget_member_type_c ( hid_t_f *type_id ,int_f* field_idx, hid_t_f * datatype);
+extern int_f nh5tinsert_c(hid_t_f *type_id, _fcd name, int_f* namelen, size_t_f *offset, hid_t_f * field_id);
+extern int_f nh5tpack_c(hid_t_f * type_id);
+
+extern int_f nh5tinsert_array_c(hid_t_f * parent_id, _fcd name, int_f* namelen, size_t_f* offset, int_f* ndims, size_t_f* dims, hid_t_f* member_id, int_f* perm );
+
+extern int_f nh5tinsert_array_c2(hid_t_f * parent_id, _fcd name, int_f* namelen, size_t_f* offset, int_f* ndims, size_t_f* dims, hid_t_f* member_id);
+
+extern int_f nh5tenum_create_c ( hid_t_f *parent_id , hid_t_f *new_type_id);
+
+extern int_f nh5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value);
+extern int_f
+nh5tenum_nameof_c(hid_t_f *type_id, int_f* value, _fcd name, size_t_f* namelen);
+extern int_f
+nh5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value);
+extern int_f
+nh5tget_member_value_c(hid_t_f *type_id, int_f* member_no, int_f* value);
+extern int_f
+nh5tset_tag_c(hid_t_f* type_id, _fcd tag, int_f* namelen);
+extern int_f
+nh5tget_tag_c(hid_t_f* type_id, _fcd tag, int_f* namelen);
+
+
+/*
+ * Functions from H5Pf.c
+ */
+
+#ifndef H5Pf90_FNAMES
+# define H5Pf90_FNAMES
+#ifdef DF_CAPFNAMES
+# define nh5pcreate_c FNAME(H5PCREATE_C)
+# define nh5pclose_c FNAME(H5PCLOSE_C)
+# define nh5pcopy_c FNAME(H5PCOPY_C)
+# define nh5pget_class_c FNAME(H5PGET_CLASS_C)
+# define nh5pset_deflate_c FNAME(H5PSET_DEFLATE_C)
+# define nh5pset_preserve_c FNAME(H5PSET_PRESERVE_C)
+# define nh5pget_preserve_c FNAME(H5PGET_PRESERVE_C)
+# define nh5pset_chunk_c FNAME(H5PSET_CHUNK_C)
+# define nh5pget_chunk_c FNAME(H5PGET_CHUNK_C)
+# define nh5pset_fill_valuec_c FNAME(H5PSET_FILL_VALUEC_C)
+# define nh5pset_fill_value_c FNAME(H5PSET_FILL_VALUE_C)
+# define nh5pget_fill_valuec_c FNAME(H5PGET_FILL_VALUEC_C)
+# define nh5pget_fill_value_c FNAME(H5PGET_FILL_VALUE_C)
+# define nh5pget_version_c FNAME(H5PGET_VERSION_C)
+# define nh5pget_userblock_c FNAME(H5PGET_USERBLOCK_C)
+# define nh5pset_userblock_c FNAME(H5PSET_USERBLOCK_C)
+# define nh5pset_sizes_c FNAME(H5PSET_SIZES_C)
+# define nh5pget_sizes_c FNAME(H5PGET_SIZES_C)
+# define nh5pget_sym_k_c FNAME(H5PGET_SYM_K_C)
+# define nh5pset_sym_k_c FNAME(H5PSET_SYM_K_C)
+# define nh5pget_istore_k_c FNAME(H5PGET_ISTORE_K_C)
+# define nh5pset_istore_k_c FNAME(H5PSET_ISTORE_K_C)
+# define nh5pget_driver_c FNAME(H5PGET_DRIVER_C)
+# define nh5pset_stdio_c FNAME(H5PSET_STDIO_C)
+# define nh5pget_stdio_c FNAME(H5PGET_STDIO_C)
+# define nh5pset_sec2_c FNAME(H5PSET_SEC2_C)
+# define nh5pget_sec2_c FNAME(H5PGET_SEC2_C)
+# define nh5pset_alignment_c FNAME(H5PSET_ALIGNMENT_C)
+# define nh5pget_alignment_c FNAME(H5PGET_ALIGNMENT_C)
+# define nh5pset_core_c FNAME(H5PSET_CORE_C)
+# define nh5pget_core_c FNAME(H5PGET_CORE_C)
+# define nh5pset_family_c FNAME(H5PSET_FAMILY_C)
+# define nh5pget_family_c FNAME(H5PGET_FAMILY_C)
+# define nh5pset_cache_c FNAME(H5PSET_CACHE_C)
+# define nh5pget_cache_c FNAME(H5PGET_CACHE_C)
+# define nh5pset_split_c FNAME(H5PSET_SPLIT_C)
+# define nh5pget_split_c FNAME(H5PGET_SPLIT_C)
+# define nh5pset_gc_refernces_c FNAME(H5PSET_GC_REFERENCES_C)
+# define nh5pget_gc_refernces_c FNAME(H5PGET_GC_REFERENCES_C)
+# define nh5pset_layout_c FNAME(H5PSET_LAYOUT_C)
+# define nh5pget_layout_c FNAME(H5PGET_LAYOUT_C)
+# define nh5pset_filter_c FNAME(H5PSET_FILTER_C)
+# define nh5pget_nfilters_c FNAME(H5PGET_NFILTERS_C)
+# define nh5pget_filter_c FNAME(H5PGET_FILTER_C)
+# define nh5pset_external_c FNAME(H5PSET_EXTERNAL_C)
+# define nh5pget_external_count_c FNAME(H5PGET_EXTERNAL_COUNT_C)
+# define nh5pget_external_c FNAME(H5PGET_EXTERNAL_C)
+# define nh5pset_hyper_cache_c FNAME(H5PSET_HYPER_CACHE_C)
+# define nh5pget_hyper_cache_c FNAME(H5PGET_HYPER_CACHE_C)
+# define nh5pget_btree_ratios_c FNAME(H5PGET_BTREE_RATIOS_C)
+# define nh5pset_btree_ratios_c FNAME(H5PSET_BTREE_RATIOS_C)
+# define nh5pset_mpi_c FNAME(H5PSET_MPI_C)
+# define nh5pget_mpi_c FNAME(H5PGET_MPI_C)
+# define nh5pset_xfer_c FNAME(H5PSET_XFER_C)
+# define nh5pget_xfer_c FNAME(H5PGET_XFER_C)
+
+#else
+# define nh5pcreate_c FNAME(h5pcreate_c)
+# define nh5pclose_c FNAME(h5pclose_c)
+# define nh5pcopy_c FNAME(h5pcopy_c)
+# define nh5pget_class_c FNAME(h5pget_class_c)
+# define nh5pset_deflate_c FNAME(h5pset_deflate_c)
+# define nh5pset_preserve_c FNAME(h5pset_preserve_c)
+# define nh5pget_preserve_c FNAME(h5pget_preserve_c)
+# define nh5pset_chunk_c FNAME(h5pset_chunk_c)
+# define nh5pget_chunk_c FNAME(h5pget_chunk_c)
+# define nh5pset_fill_valuec_c FNAME(h5pset_fill_valuec_c)
+# define nh5pset_fill_value_c FNAME(h5pset_fill_value_c)
+# define nh5pget_fill_valuec_c FNAME(h5pget_fill_valuec_c)
+# define nh5pget_fill_value_c FNAME(h5pget_fill_value_c)
+# define nh5pget_version_c FNAME(h5pget_version_c)
+# define nh5pget_userblock_c FNAME(h5pget_userblock_c)
+# define nh5pset_userblock_c FNAME(h5pset_userblock_c)
+# define nh5pset_sizes_c FNAME(h5pset_sizes_c)
+# define nh5pget_sizes_c FNAME(h5pget_sizes_c)
+# define nh5pget_sym_k_c FNAME(h5pget_sym_k_c)
+# define nh5pset_sym_k_c FNAME(h5pset_sym_k_c)
+# define nh5pget_istore_k_c FNAME(h5pget_istore_k_c)
+# define nh5pset_istore_k_c FNAME(h5pset_istore_k_c)
+# define nh5pget_driver_c FNAME(h5pget_driver_c)
+# define nh5pset_stdio_c FNAME(h5pset_stdio_c)
+# define nh5pget_stdio_c FNAME(h5pget_stdio_c)
+# define nh5pset_sec2_c FNAME(h5pset_sec2_c)
+# define nh5pget_sec2_c FNAME(h5pget_sec2_c)
+# define nh5pset_alignment_c FNAME(h5pset_alignment_c)
+# define nh5pget_alignment_c FNAME(h5pget_alignment_c)
+# define nh5pset_core_c FNAME(h5pset_core_c)
+# define nh5pget_core_c FNAME(h5pget_core_c)
+# define nh5pset_family_c FNAME(h5pset_family_c)
+# define nh5pget_family_c FNAME(h5pget_family_c)
+# define nh5pset_cache_c FNAME(h5pset_cache_c)
+# define nh5pget_cache_c FNAME(h5pget_cache_c)
+# define nh5pset_split_c FNAME(h5pset_split_c)
+# define nh5pget_split_c FNAME(h5pget_split_c)
+# define nh5pset_gc_references_c FNAME(h5pset_gc_references_c)
+# define nh5pget_gc_references_c FNAME(h5pget_gc_references_c)
+# define nh5pset_layout_c FNAME(h5pset_layout_c)
+# define nh5pget_layout_c FNAME(h5pget_layout_c)
+# define nh5pset_filter_c FNAME(h5pset_filter_c)
+# define nh5pget_nfilters_c FNAME(h5pget_nfilters_c)
+# define nh5pget_filter_c FNAME(h5pget_filter_c)
+# define nh5pset_external_c FNAME(h5pset_external_c)
+# define nh5pget_external_count_c FNAME(h5pget_external_count_c)
+# define nh5pget_external_c FNAME(h5pget_external_c)
+# define nh5pset_hyper_cache_c FNAME(h5pset_hyper_cache_c)
+# define nh5pget_hyper_cache_c FNAME(h5pget_hyper_cache_c)
+# define nh5pget_btree_ratios_c FNAME(h5pget_btree_ratios_c)
+# define nh5pset_btree_ratios_c FNAME(h5pset_btree_ratios_c)
+# define nh5pset_mpi_c FNAME(h5pset_mpi_c)
+# define nh5pget_mpi_c FNAME(h5pget_mpi_c)
+# define nh5pset_xfer_c FNAME(h5pset_xfer_c)
+# define nh5pget_xfer_c FNAME(h5pget_xfer_c)
+
+#endif
+#endif
+
+extern int_f nh5pcreate_c ( int_f *classtype, hid_t_f *prp_id );
+
+extern int_f nh5pclose_c ( hid_t_f *prp_id );
+
+extern int_f nh5pcopy_c ( hid_t_f *prp_id , hid_t_f *new_prp_id);
+
+extern int_f nh5pget_class_c ( hid_t_f *prp_id , int_f *classtype);
+
+extern int_f nh5pset_deflate_c ( hid_t_f *prp_id , int_f *level);
+
+extern int_f nh5pset_chunk_c ( hid_t_f *prp_id, int_f *rank, hsize_t_f *dims );
+
+extern int_f nh5pget_chunk_c ( hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims );
+
+extern int_f
+nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue);
+
+extern int_f
+nh5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+
+extern int_f
+nh5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue);
+
+extern int_f
+nh5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+
+extern int_f
+nh5pset_preserve_c ( hid_t_f *prp_id , int_f *flag);
+
+extern int_f
+nh5pget_preserve_c ( hid_t_f *prp_id , int_f *flag);
+extern int_f
+nh5pget_version_c (hid_t_f *prp_id, int_f * boot,int_f * freelist, int_f * stab, int_f *shhdr);
+extern int_f
+nh5pset_userblock_c (hid_t_f *prp_id, hsize_t_f * size);
+extern int_f
+nh5pget_userblock_c (hid_t_f *prp_id, hsize_t_f * size);
+extern int_f
+nh5pget_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size);
+extern int_f
+nh5pset_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size);
+extern int_f
+nh5pset_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk);
+extern int_f
+nh5pget_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk);
+extern int_f
+nh5pset_istore_k_c (hid_t_f *prp_id, int_f* ik);
+extern int_f
+nh5pget_istore_k_c (hid_t_f *prp_id, int_f* ik);
+extern int_f
+nh5pget_driver_c (hid_t_f *prp_id, int_f*driver);
+extern int_f
+nh5pset_stdio_c (hid_t_f *prp_id);
+extern int_f
+nh5pget_stdio_c (hid_t_f *prp_id, int_f* io);
+extern int_f
+nh5pset_sec2_c (hid_t_f *prp_id);
+extern int_f
+nh5pget_sec2_c (hid_t_f *prp_id, int_f* sec2);
+extern int_f
+nh5pset_alignment_c(hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment);
+extern int_f
+nh5pget_alignment_c(hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment);
+extern int_f
+nh5pget_core_c (hid_t_f *prp_id, size_t_f* increment);
+extern int_f
+nh5pset_core_c (hid_t_f *prp_id, size_t_f* increment);
+extern int_f
+nh5pset_family_c (hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist );
+extern int_f
+nh5pget_family_c (hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist );
+extern int_f
+nh5pset_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, int_f* rdcc_nelmts, size_t_f* rdcc_nbytes, real_f* rdcc_w0);
+extern int_f
+nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, int_f* rdcc_nelmts, size_t_f* rdcc_nbytes, real_f* rdcc_w0);
+extern int_f
+nh5pget_split_c(hid_t_f *prp_id, size_t_f* meta_ext_size , _fcd meta_ext, hid_t_f* meta_plist, size_t_f* raw_ext_size, _fcd raw_ext, hid_t_f * raw_plist);
+extern int_f
+nh5pset_split_c(hid_t_f *prp_id, int_f* meta_len, _fcd meta_ext, hid_t_f* meta_plist, int_f* raw_len, _fcd raw_ext, hid_t_f * raw_plist);
+extern int_f
+nh5pset_gc_references_c(hid_t_f *prp_id, int_f* gc_references);
+extern int_f
+nh5pget_gc_references_c(hid_t_f *prp_id, int_f* gc_references);
+extern int_f
+nh5pset_layout_c (hid_t_f *prp_id, int_f* layout);
+extern int_f
+nh5pget_layout_c (hid_t_f *prp_id, int_f* layout);
+extern int_f
+nh5pset_filter_c (hid_t_f *prp_id, int_f* filter, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values );
+extern int_f
+nh5pget_nfilters_c (hid_t_f *prp_id, int_f* nfilters);
+extern int_f
+nh5pget_filter_c(hid_t_f *prp_id, int_f* filter_number, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values, size_t_f *namelen, _fcd name, int_f* filter_id);
+extern int_f
+nh5pset_external_c (hid_t_f *prp_id, _fcd name, int_f* namelen, int_f* offset, hsize_t_f*bytes);
+extern int_f
+nh5pget_external_count_c (hid_t_f *prp_id, int_f* count);
+extern int_f
+nh5pget_external_c(hid_t_f *prp_id,int*idx, size_t_f* name_size, _fcd name, int_f* offset, hsize_t_f*bytes);
+extern int_f
+nh5pset_hyper_cache_c(hid_t_f *prp_id, int_f* cache, int_f* limit);
+extern int_f
+nh5pget_hyper_cache_c(hid_t_f *prp_id, int_f* cache, int_f* limit);
+extern int_f
+nh5pget_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* right);
+extern int_f
+nh5pset_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* right);
+extern int_f
+nh5pget_mpi_c(hid_t_f *prp_id, int_f* comm, int_f* info);
+extern int_f
+nh5pset_mpi_c(hid_t_f *prp_id, int_f* comm, int_f* info);
+extern int_f
+nh5pget_xfer_c(hid_t_f *prp_id, int_f* data_xfer_mode);
+extern int_f
+nh5pset_xfer_c(hid_t_f *prp_id, int_f* data_xfer_mode);
+
+/*
+ * Functions frome H5Rf.c
+ */
+#ifndef H5Rf90_FNAMES
+# define H5Rf90_FNAMES
+#ifdef DF_CAPFNAMES
+# define nh5rcreate_object_c FNAME(H5RCREATE_OBJECT_C)
+# define nh5rcreate_region_c FNAME(H5RCREATE_REGION_C)
+# define nh5rdereference_region_c FNAME(H5RDEREFERENCE_REGION_C)
+# define nh5rdereference_object_c FNAME(H5RDEREFERENCE_OBJECT_C)
+# define nh5rget_region_region_c FNAME(H5RGET_REGION_REGION_C)
+# define nh5rget_object_type_obj_c FNAME(H5RGET_OBJECT_TYPE_OBJ_C)
+#else /* !DF_CAPFNAMES */
+# define nh5rcreate_object_c FNAME(h5rcreate_object_c)
+# define nh5rcreate_region_c FNAME(h5rcreate_region_c)
+# define nh5rdereference_region_c FNAME(h5rdereference_region_c)
+# define nh5rdereference_object_c FNAME(h5rdereference_object_c)
+# define nh5rget_region_region_c FNAME(h5rget_region_region_c)
+# define nh5rget_object_type_obj_c FNAME(h5rget_object_type_obj_c)
+#endif /* DF_CAPFNAMES */
+#endif /* H5Rf90_FNAMES */
+
+extern int_f
+nh5rcreate_object_c (_fcd ref, hid_t_f *loc_id, _fcd name, int_f *namelen);
+
+
+extern int_f
+nh5rcreate_region_c (_fcd ref, hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *space_id);
+
+extern int_f
+nh5rdereference_region_c (hid_t_f *dset_id, _fcd ref, hid_t_f *obj_id);
+
+extern int_f
+nh5rdereference_object_c (hid_t_f *dset_id, _fcd ref, hid_t_f *obj_id);
+
+extern int_f
+nh5rget_region_region_c (hid_t_f *dset_id, _fcd ref, hid_t_f *space_id);
+
+extern int_f
+nh5rget_object_type_obj_c (hid_t_f *dset_id, _fcd ref, int_f *obj_type);
+
+/*
+ * Functions from H5If.c
+ */
+#ifndef H5If90_FNAMES
+# define H5If90_FNAMES
+#ifdef DF_CAPFNAMES
+# define nh5iget_type_c FNAME(H5IGET_TYPE_C)
+#else
+# define nh5iget_type_c FNAME(h5iget_type_c)
+#endif
+#endif
+
+extern int_f nh5iget_type_c(hid_t_f *obj_id, int_f *type);
+
+
+#ifndef H5Ef90_FNAMES
+# define H5Ef90_FNAMES
+#ifdef DF_CAPFNAMES
+# define nh5eclear_c FNAME(H5ECLEAR_C)
+# define nh5eprint_c1 FNAME(H5EPRINT_C1)
+# define nh5eprint_c2 FNAME(H5EPRINT_C2)
+# define nh5eget_major_c FNAME(H5EGET_MAJOR_C)
+# define nh5eget_minor_c FNAME(H5EGET_MINOR_C)
+# define nh5eset_auto_c FNAME(H5ESET_AUTO_C)
+#else
+# define nh5eclear_c FNAME(h5eclear_c)
+# define nh5eprint_c1 FNAME(h5eprint_c1)
+# define nh5eprint_c2 FNAME(h5eprint_c2)
+# define nh5eget_major_c FNAME(h5eget_major_c)
+# define nh5eget_minor_c FNAME(h5eget_minor_c)
+# define nh5eset_auto_c FNAME(h5eset_auto_c)
+#endif
+#endif
+
+extern int_f nh5eclear_c();
+extern int_f nh5eprint_c1(_fcd name, int_f* namelen);
+extern int_f nh5eprint_c2();
+extern int_f nh5eget_major_c(int_f* error_no, _fcd name);
+extern int_f nh5eget_minor_c(int_f* error_no, _fcd name);
+extern int_f nh5eset_auto_c(int_f* printflag);
+
+/*
+ * Functions from H5f90misc.c
+ */
+#ifndef H5MISCf90_FNAMES
+# define H5MISCf90_FNAMES
+#ifdef DF_CAPFNAMES
+# define nh5init_types_c FNAME(H5INIT_TYPES_C)
+# define nh5close_types_c FNAME(H5CLOSE_TYPES_C)
+#else
+# define nh5init_types_c FNAME(h5init_types_c)
+# define nh5close_types_c FNAME(h5close_types_c)
+#endif
+#endif
+
+extern int_f nh5init_types_c(hid_t_f *types, hid_t_f * floatingtypes, hid_t_f * integertypes);
+extern int_f nh5close_types_c(hid_t_f *types, int_f *lentypes, hid_t_f * floatingtypes, int_f * floatinglen, hid_t_f * integertypes, int_f * integerlen);
+
+#endif /* _H5f90proto_H */
diff --git a/fortran/src/H5fortran_flags.f90 b/fortran/src/H5fortran_flags.f90
new file mode 100644
index 0000000..d3bb5c0
--- /dev/null
+++ b/fortran/src/H5fortran_flags.f90
@@ -0,0 +1,141 @@
+ MODULE H5FORTRAN_FLAGS
+
+!H5F file interface related flags
+ INTEGER, PARAMETER :: H5F_ACC_RDWR_F = 1 , &
+ H5F_ACC_RDONLY_F = 2, &
+ H5F_ACC_TRUNC_F = 3, &
+ H5F_ACC_EXCL_F = 4, &
+ H5F_ACC_DEBUG_F = 5, &
+ H5F_SCOPE_LOCAL_F = 0, &
+ H5F_SCOPE_GLOBAL_F = 1
+
+!H5G group interface related flags
+ INTEGER, PARAMETER :: H5G_UNKNOWN_F = -1
+ INTEGER, PARAMETER :: H5G_LINK_F = 0
+ INTEGER, PARAMETER :: H5G_GROUP_F =1
+ INTEGER, PARAMETER :: H5G_DATASET_F =2
+ INTEGER, PARAMETER :: H5G_TYPE_F =3
+
+!H5P Property interface related flags
+
+ INTEGER, PARAMETER :: H5P_FILE_CREATE_F = 0
+ INTEGER, PARAMETER :: H5P_FILE_ACCESS_F = 1
+ INTEGER, PARAMETER :: H5P_DATASET_CREATE_F = 2
+ INTEGER, PARAMETER :: H5P_DATASET_XFER_F = 3
+ INTEGER, PARAMETER :: H5P_MOUNT_F = 4
+ INTEGER, PARAMETER :: H5P_DEFAULT_F = 6
+
+!H5R Reference interface related flags
+ INTEGER, PARAMETER :: H5R_OBJECT_F = 0
+ INTEGER, PARAMETER :: H5R_DATASET_REGION_F = -2
+
+!H5S Dataspace interface related flags
+ INTEGER, PARAMETER :: H5S_SCALAR_F = 0
+ INTEGER, PARAMETER :: H5S_SIMPLE_F = 1
+ INTEGER, PARAMETER :: H5S_SELECT_SET_F = 0
+ INTEGER, PARAMETER :: H5S_SELECT_OR_F =1
+ INTEGER, PARAMETER :: H5S_UNLIMITED_F = -1
+ INTEGER, PARAMETER :: H5S_ALL_F = -2
+!USED IN PROERTY INTERFACE
+ INTEGER, PARAMETER :: H5D_COMPACT_F = 0
+
+ INTEGER, PARAMETER :: H5D_CONTIGUOUS_F = 1
+ INTEGER, PARAMETER :: H5D_CHUNKED_F = 2
+ INTEGER, PARAMETER :: H5D_XFER_INDEPENDENT_F = 0
+ INTEGER, PARAMETER :: H5D_XFER_COLLECTIVE_F = 1
+ INTEGER, PARAMETER :: H5D_XFER_DFLT_F = 2
+
+!H5T Data type interface related flags
+ INTEGER, PARAMETER :: H5T_NO_CLASS_F = -1
+ INTEGER, PARAMETER :: H5T_INTEGER_F = 0
+ INTEGER, PARAMETER :: H5T_FLOAT_F = 1
+ INTEGER, PARAMETER :: H5T_TIME_F = 2
+ INTEGER, PARAMETER :: H5T_STRING_F = 3
+ INTEGER, PARAMETER :: H5T_BITFIELD_F = 4
+ INTEGER, PARAMETER :: H5T_OPAQUE_F = 5
+ INTEGER, PARAMETER :: H5T_COMPOUND_F = 6
+ INTEGER, PARAMETER :: H5T_REFERENCE_F = 7
+ INTEGER, PARAMETER :: H5T_ENUM_F = 8
+ INTEGER, PARAMETER :: H5T_ORDER_LE_F = 0
+ INTEGER, PARAMETER :: H5T_ORDER_BE_F = 1
+ INTEGER, PARAMETER :: H5T_ORDER_VAX_F = 2
+
+ INTEGER, PARAMETER :: H5T_PAD_ZERO_F = 0
+ INTEGER, PARAMETER :: H5T_PAD_ONE_F = 1
+ INTEGER, PARAMETER :: H5T_PAD_BACKGROUND_F = 2
+ INTEGER, PARAMETER :: H5T_PAD_ERROR_F = -1
+ INTEGER, PARAMETER :: H5T_PAD_NPAD_F = 3
+
+ !Unsigned integer type
+ INTEGER, PARAMETER :: H5T_SGN_NONE_F = 0
+ !Two's complement signed integer type
+ INTEGER, PARAMETER :: H5T_SGN_2_F = 1
+
+ INTEGER, PARAMETER :: H5T_SGN_ERROR_F = -1
+ !MSB of mantissa is not stored, always 1
+ INTEGER, PARAMETER :: H5T_NORM_IMPLIED_F = 0
+ !MSB of mantissa is always 1
+ INTEGER, PARAMETER :: H5T_NORM_MSBSET_F = 1
+ !Mantissa is not normalized
+ INTEGER, PARAMETER :: H5T_NORM_NONE_F = 2
+ !Character set is US ASCII
+ INTEGER, PARAMETER :: H5T_CSET_ASCII_F = 0
+ !Pad with zeros (as C does)
+ INTEGER, PARAMETER :: H5T_STR_NULL_F = 0
+ !Pad with spaces (as FORTRAN does)
+ INTEGER, PARAMETER :: H5T_STR_SPACE_F = 1
+
+!H5P interface related fortran flags:
+ !identifier of the low-level file driver.
+ INTEGER, PARAMETER :: H5F_LOW_STDIO_F = 0
+ INTEGER, PARAMETER :: H5F_LOW_SEC2_F = 1
+ INTEGER, PARAMETER :: H5F_LOW_MPIO_F = 2
+ INTEGER, PARAMETER :: H5F_LOW_CORE_F = 3
+ INTEGER, PARAMETER :: H5F_LOW_SPLIT_F = 4
+ INTEGER, PARAMETER :: H5F_LOW_FAMILY_F = 5
+
+!H5I interface related fortran flags:
+ INTEGER, PARAMETER :: H5I_FILE_F = 1
+ INTEGER, PARAMETER :: H5I_GROUP_F = 2
+ INTEGER, PARAMETER :: H5I_DATATYPE_F = 3
+ INTEGER, PARAMETER :: H5I_DATASPACE_F = 4
+ INTEGER, PARAMETER :: H5I_DATASET_F = 5
+ INTEGER, PARAMETER :: H5I_ATTR_F = 6
+ INTEGER, PARAMETER :: H5I_BADID_F = -1
+
+!H5E interface related fortran flags:
+ !Turn on automatic printing of errors
+ INTEGER, PARAMETER :: PRINTON = 1
+
+ !Turn off automatic printing of errors
+ INTEGER, PARAMETER :: PRINTOFF = 0
+
+ !Error flags same as H5E_major_t
+
+ INTEGER, PARAMETER :: H5E_NONE_MAJOR_F = 0 !special zero, no error
+ INTEGER, PARAMETER :: H5E_ARGS_F = 1 !invalid arguments to routine
+ INTEGER, PARAMETER :: H5E_RESOURCE_F = 2 !resource unavailable
+ INTEGER, PARAMETER :: H5E_INTERNAL_F = 3 !Internal error (too specific to
+ !document in detail)
+ INTEGER, PARAMETER :: H5E_FILE_F = 4 !file Accessability
+ INTEGER, PARAMETER :: H5E_IO_F = 5 !Low-level I/O
+ INTEGER, PARAMETER :: H5E_FUNC_F = 6 !function Entry/Exit
+ INTEGER, PARAMETER :: H5E_ATOM_F = 7 !object Atom
+ INTEGER, PARAMETER :: H5E_CACHE_F = 8 !object Cache
+ INTEGER, PARAMETER :: H5E_BTREE_F = 9 !B-Tree Node
+ INTEGER, PARAMETER :: H5E_SYM_F = 10 !symbol Table
+ INTEGER, PARAMETER :: H5E_HEAP_F = 11 !Heap
+ INTEGER, PARAMETER :: H5E_OHDR_F = 12 !object Header
+ INTEGER, PARAMETER :: H5E_DATATYPE_F = 13 !Datatype
+ INTEGER, PARAMETER :: H5E_DATASPACE_F = 14 ! Dataspace
+ INTEGER, PARAMETER :: H5E_DATASET_F = 15 !Dataset
+ INTEGER, PARAMETER :: H5E_STORAGE_F = 16 !data storage
+ INTEGER, PARAMETER :: H5E_PLIST_F = 17 !Property lists
+ INTEGER, PARAMETER :: H5E_ATTR_F = 18 !Attribute
+ INTEGER, PARAMETER :: H5E_PLINE_F = 19 !Data filters
+ INTEGER, PARAMETER :: H5E_EFL_F = 20 !External file list
+ INTEGER, PARAMETER :: H5E_RAGGED_F = 21 !Ragged arrays
+ INTEGER, PARAMETER :: H5E_REFERENCE_F = 22 !References
+
+
+ END MODULE H5FORTRAN_FLAGS
diff --git a/fortran/src/H5fortran_types.f90.in b/fortran/src/H5fortran_types.f90.in
new file mode 100644
index 0000000..9010d7f
--- /dev/null
+++ b/fortran/src/H5fortran_types.f90.in
@@ -0,0 +1,29 @@
+!
+! This file contains HDF5 Fortran90 type definitions
+!
+ MODULE H5FORTRAN_TYPES
+ !
+ ! HDF5 integers
+ !
+ ! Each of the arguments of SELECTED_INT_KIND function should be
+ ! determined by configure.
+ ! R_LARGE is the number of digits for the biggest integer supported.
+ ! R_INTEGER is the number of digits in INTEGER
+ ! For example:
+ ! On 64 bit machine ( DEC ALPHA) R_LARGE = 18 and R_INTEGER = 9
+ ! On 32 bit machines ( Sparc Solaris ) R_LARGE = 9 and R_INTEGER = 9
+ !
+ INTEGER, PARAMETER :: R_LARGE = @R_LARGE@
+ INTEGER, PARAMETER :: R_INTEGER = @R_INTEGER@
+ INTEGER, PARAMETER :: HSIZE_T = @HSIZE_T@
+ INTEGER, PARAMETER :: HSSIZE_T = @HSSIZE_T@
+ INTEGER, PARAMETER :: HID_T = @HID_T@
+ INTEGER, PARAMETER :: SIZE_T = @SIZE_T@
+
+ !
+ ! Some HDF5 FORTARN90 default values ( here for now 8/5/99 EIP )
+ !
+
+ INTEGER(SIZE_T), PARAMETER :: OBJECT_NAMELEN_DEFAULT_F = @OBJECT_NAMELEN_DEFAULT_F@
+
+ END MODULE H5FORTRAN_TYPES
diff --git a/fortran/src/HDF5.f90 b/fortran/src/HDF5.f90
new file mode 100644
index 0000000..264eb13
--- /dev/null
+++ b/fortran/src/HDF5.f90
@@ -0,0 +1,14 @@
+
+ MODULE HDF5
+ USE H5GLOBAL
+ USE H5F
+ USE H5G
+ USE H5E
+ USE H5I
+ USE H5S
+ USE H5D
+ USE H5A
+ USE H5T
+ USE H5P
+ USE H5R
+ END MODULE HDF5
diff --git a/fortran/src/HDF5_parallel.f90 b/fortran/src/HDF5_parallel.f90
new file mode 100644
index 0000000..d44ba17
--- /dev/null
+++ b/fortran/src/HDF5_parallel.f90
@@ -0,0 +1,15 @@
+
+ MODULE HDF5
+ USE H5GLOBAL
+ USE H5F
+ USE H5E
+ USE H5G
+ USE H5I
+ USE H5S
+ USE H5D
+ USE H5A
+ USE H5T
+ USE H5P
+ USE H5P_parallel
+ USE H5R
+ END MODULE HDF5
diff --git a/fortran/src/Makefile.in b/fortran/src/Makefile.in
new file mode 100644
index 0000000..c3f2ff1
--- /dev/null
+++ b/fortran/src/Makefile.in
@@ -0,0 +1,38 @@
+##
+## HDF5 Forgran Library Makefile(.in)
+##
+## Copyright (C) 2000 National Center for Supercomputing Applications.
+## All rights reserved.
+##
+top_srcdir=@top_srcdir@
+top_builddir=..
+srcdir=@srcdir@
+@COMMENCE@
+
+hdf5_dir=$(top_srcdir)/../src
+
+TRACE=perl $(top_srcdir)/bin/trace
+
+## Add `-I.' to the C preprocessor flags.
+CPPFLAGS=-I. -I$(hdf5_dir) @CPPFLAGS@
+
+## This is our main target
+LIB=libhdf5_fortran.la
+CLEAN=H5fortran_types.f90
+
+## Source and object files for the library
+CPARALLEL=${PARALLEL:yes="H5Pf_parallel.c"}
+CLIB_SRC=H5f90kit.c H5f90misc.c H5Git.c H5Rf.c H5Ff.c H5Sf.c H5Df.c H5Gf.c \
+ H5Af.c H5Tf.c H5Pf.c H5If.c H5Ef.c ${CPARALLEL:no=}
+
+FPARALLEL=${PARALLEL:yes="H5Pff_parallel.f90 HDF5_parallel.f90"}
+FLIB_SRC=H5fortran_types.f90 H5fortran_flags.f90 H5f90global.f90 H5f90miscf.f90 \
+ H5Rff.f90 H5Fff.f90 H5Sff.f90 H5Dff.f90 H5Gff.f90 H5Aff.f90 H5Tff.f90 \
+ H5Pff.f90 H5Iff.f90 H5Eff.f90 HDF5.f90 ${FPARALLEL:no=}
+
+LIB_SRC=$(CLIB_SRC) $(FLIB_SRC)
+LIB_OBJ=$(CLIB_SRC:.c=.lo) $(FLIB_SRC:.f90=.lo)
+
+ARFLAGS=rc
+
+@CONCLUDE@
diff --git a/fortran/src/README b/fortran/src/README
new file mode 100644
index 0000000..6dcc0e0
--- /dev/null
+++ b/fortran/src/README
@@ -0,0 +1,240 @@
+
+ README for the FORTRAN90 Prototype APIs to HDF5
+
+
+This distribution contains the HDF5 FORTRAN90 APIs source code (prototype)
+based on the HDF5 1.2.2 release (ftp://ftp.ncsa.uiuc.edu/HDF/HDF5/current),
+tests and examples.
+
+This prototype supports a selected subset of the HDF5 Library functionality.
+A complete list of the Fortran subroutines can be found in the HDF5
+Reference Manual provided with this release.
+Check the online documentation at http://hdf.ncsa.uiuc.edu/HDF5/doc (select
+the "HDF5 Fortran90 Docs" link at the bottom of the left-hand column) or
+H5_F90.R1.2.2.RefMan.tar at ftp://hdf.ncsa.uiuc.edu/HDF5/fortran .
+
+Changes since last release (October 1999)
+=========================================
+* Support for Linux
+* Support for parallel features (tested on O2K platform only)
+* Most of the functions from the H5R, H5P, H5T, H5E and H5I interfaces were
+ implemented. See Reference Manual for complete list. The new functions
+ include support for object and dataset region references, and for
+ compound datatypes.
+* This prototype supports more predefined types. See list below in
+ the "About the Fortran APIs" section.
+* This prototype supports T3E and T3E with mpt 1.3. One has to modify
+ H5Dff.f90, H5Aff.f90, H5Pff.f90 to comment lines with the module procedures for
+ double precision datatypes. See source code.
+
+Supported platforms
+===================
+The FORTRAN90 APIs provided here are known to work with the
+following platforms and compilers:
+
+ * SunOS 5.6 with WorkshopCompilers 4.2 Fortran 90 1.2
+ * SunOS 5.7 with WorkshopCompilers 5.0 Fortran 90 2.0
+ * OSF1 V4.0 with Digital Fortran 90 4.1
+ * IRIX64 6.5 (64 option only) with MIPSpro Compilers: Version 7.3.1m
+ mpt.1.4
+ * Linux RedHat 6.1, Kernel 2.2.12 with PGF90
+ * T3E with Cray Fortran: Version 3.4.0.0
+ with mpt 1.3
+
+Compilation
+===========
+
+1. Install HDF5 Release 1.2.2 on your system
+ (ftp://ftp.ncsa.uiuc.edu/HDF/HDF5/current). If you are using a
+ binary distribution provided by the HDF group, make sure that a GZIP
+ library is installed on your system. If you do not have a GZIP library,
+ you may copy it from the HDF FTP server.
+
+2. In the src directory copy H5fortran_types.f90_<system> to
+ H5fortran_types.f90, where <system> is one of the following:
+
+ solaris
+ digunix
+ irix
+ linux
+
+ Example: On Digital Unix systems use the following command
+ cp H5fortran_types.f90_digunix H5fortran_types.f90
+
+3. Edit Makefile_<system >in the src/, test/ and examples/ directories
+ to specify the locations of the HDF5 C Library, the GZIP Library, and the
+ corresponding include files on your system.
+
+4. In the src directory, run make to create the HDF5 FORTRAN90 library
+ hdf5_fortran.a
+ make -f Makefile_<system>
+
+ Example: On Solaris run
+ make -f Makefile_solaris
+
+ The Fortran library hdf5_fortran.a will be created.
+
+5. In the test directory, build tests by running
+ make -f Makefile_<system>
+ This command will build fortranlib_test, fflush1 and fflush2 executables.
+ Run those executables to make sure that the library works on your system.
+
+6. In the examples directory, run
+ make -f Makefile_<system>
+ to build the following examples:
+
+ fileexample - creates an HDF5 file
+ dsetexample - creates an empty dataset of integers
+ rwdsetexample - writes and reads to the dataset created by dsetexample
+ groupexample - creates a group in the file
+ grpsexample - creates groups using absolute and relative names
+ grpdsetexample - creates datasets in the groups
+ hyperslabexample - writes and reads a hyperslab
+ selectele - writes element selections
+ grpit - iterates through the members of the group
+ attrexample - creates and writes a dataset attribute
+ compound - creates, writes and reads one dim array of structures
+ mountexample - shows how to use mounting files to access a dataset
+ refobjexample - creates and stores references to the objects
+ refregexample - creates and stores references to the dataset regions
+
+ The script run_example.sh runs the examples in the appropriate order.
+
+ Use the HDF5 utility, h5dump, to see the content of the created HDF5 files.
+
+7. Install the HDF5 Reference Manual (in HTML format). The manual
+ can be found in the Unix tar file H5_F90.R1.2.2.RefMan.tar
+ on the ftp server and is served over the Web from
+ http://hdf.ncsa.uiuc.edu/HDF5/doc/ (select the "HDF5 Fortran90 Docs"
+ link at the bottom of the left-hand column).
+
+
+8. Send bug reports and comments to hdfhelp@ncsa.uiuc.edu
+
+User's Guide Notes
++++++++++++++++++++
+
+About the source code organization
+==================================
+
+The Fortran APIs are organized in modules parallel to the HDF5 Interfaces.
+Each module is in a separate file with the name H5*ff.f. Corresponding C
+stubs are in the H5*f.c files. For example, the Fortran File APIs are in
+the file H5Fff.f and the corresponding C stubs are in the file H5Ff.c.
+
+Each module contains Fortran definitions of the constants, interfaces to
+the subroutines if needed, and the subroutines themselves.
+
+Users must use constant names in their programs instead of the numerical
+values, as the numerical values are subject to change without notice.
+
+About the Fortran APIs
+=======================
+
+* The Fortran APIs come in the form of Fortran subroutines.
+
+* Each Fortran subroutine name is derived from the corresponding C function
+ name by adding "_f" to the name. For example, the name of the C function
+ to create an HDF5 file is H5Fcreate; the corresponding Fortran subroutine
+ is h5fcreate_f.
+
+* A description of each Fortran subroutine and its parameters can be found
+ following the description of the corresponding C function in the
+ Reference Manual provided with this release. The manual can be found in
+ the Unix tar file H5_F90.R1.2.2.tar in this directory and
+ is served over the Web from http://hdf.ncsa.uiuc.edu/HDF5/doc/ (select
+ the "HDF5 Fortran90 Docs" link at the bottom of the left-hand column).
+
+* The parameter list for each Fortran subroutine has two more parameters
+ than the corresponding C function. These additional parameters hold
+ the return value and an error code. The order of the Fortran subroutine
+ parameters may differ from the order of the C function parameters.
+ The Fortran subroutine parameters are listed in the following order:
+ -- required input parameters,
+ -- output parameters, including return value and error code, and
+ -- optional input parameters.
+ For example, the C function to create a dataset has the following
+ prototype:
+
+ hid_t H5Dcreate(hid_it loc_id, char *name, hid_t type_id,
+ hid_t space_id, hid_t creation_prp);
+
+ The corresponding Fortran subroutine has the following form:
+
+ SUBROUTINE h5dcreate_f(loc_id, name, type_id, space_id, dset_id,
+ hdferr, creation_prp)
+
+ The first four parameters of the Fortran subroutine correspond to the
+ C function parameters. The fifth parameter dset_id is an output
+ parameter and contains a valid dataset identifier if the value of the
+ sixth output parameter hdferr indicates successful completion.
+ (Error code descriptions are provided with the subroutine descriptions
+ in the Reference Manual.) The seventh input parameter creation_prp
+ is optional, and may be omitted when the default creation property
+ list is used.
+
+* Parameters to the Fortran subroutines have one of the following
+ predefined datatypes (see the file H5fortran_types.f90 for KIND
+ definitions):
+
+ INTEGER(HID_T) compares with hid_t type in HDF5 C APIs
+ INTEGER(HSIZE_T) compares with hsize_t in HDF5 C APIs
+ INTEGER(HSSIZE_T) compares with hssize_t in HDF5 C APIs
+ INTEGER(SIZE_T) compares with the C size_t type
+ These integer types usually correspond to 4 or 8 byte integers,
+ depending on the FORTRAN90 compiler and corresponding HDF5
+ C library definitions.
+
+ The H5R module defines two types:
+ TYPE(HOBJ_REF_T_F) compares to the hobj_ref_t in HDF5 C API
+ TYPE(HDSET_REG_REF_T_F) compares to hdset_reg_ref_t in HDF5 C API
+ These types are represented by character arrays now.
+ The internal representation can be changed in the future.
+
+* Each Fortran application must call the h5init_types subroutine to
+ initialize the Fortran predefined datatypes before calling the HDF5 Fortran
+ subroutines. The application must call the h5close_types subroutine
+ after all calls to the HDF5 Fortran Library.
+
+* The following predefined types are implemented in this prototype:
+
+ H5T_NATIVE_INTEGER
+ H5T_NATIVE_REAL
+ H5T_NATIVE_DOUBLE
+ H5T_NATIVE_CHARACTER
+ H5T_STD_REF_OBJ
+ H5T_STD_REF_DSETREG
+ H5T_IEEE_F32BE
+ H5T_IEEE_F32LE
+ H5T_IEEE_F64BE
+ H5T_IEEE_F64LE
+ H5T_STD_I8BE
+ H5T_STD_I8LE
+ H5T_STD_I16BE
+ H5T_STD_I16LE
+ H5T_STD_I32BE
+ H5T_STD_I32LE
+ H5T_STD_I64BE
+ H5T_STD_I64LE
+ H5T_STD_U8BE
+ H5T_STD_U8LE
+ H5T_STD_U16BE
+ H5T_STD_U16LE
+ H5T_STD_U32BE
+ H5T_STD_U32LE
+ H5T_STD_U64BE
+ H5T_STD_U64LE
+
+
+* When a C application reads data stored from a Fortran program, the data
+ will appear to be transposed due to the difference in the C - Fortran
+ storage order. For example, if Fortran writes a 4x6 two-dimensional dataset
+ to the file, a C program will read it as a 6x4 two-dimensional dataset into
+ memory. The HDF5 C utilities h5dump and h5ls display transposed data, if
+ data is written from a Fortran program.
+
+* Fortran indices are 1 based.
+
+* Compound datatype datasets can be written or read by atomic fields only.
+
+Not all of the APIs provided with this prototype have been fully tested.