summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--fortran/src/H5Tf.c35
-rw-r--r--fortran/src/H5Tff.f9071
2 files changed, 49 insertions, 57 deletions
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c
index df581ee..32cdb72 100644
--- a/fortran/src/H5Tf.c
+++ b/fortran/src/H5Tf.c
@@ -225,31 +225,32 @@ nh5tequal_c ( hid_t_f *type1_id , hid_t_f *type2_id, int_f *c_flag)
return ret_value;
}
-
/****if* H5Tf/h5tget_class_c
* NAME
- * h5tget_class_c
+ * h5tget_class_c
* PURPOSE
- * Call H5Tget_class to determine the datatype class
+ * Call H5Tget_class to determine the datatype class
* INPUTS
- * type_id - identifier of the dataspace
+ * 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)
+ * 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_ENUM_F (8)
+ * H5T_VLEN_F (9)
+ * H5T_ARRAY_F (10)
* RETURNS
- * 0 on success, -1 on failure
+ * 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
- * Saturday, August 14, 1999
+ * Saturday, August 14, 1999
* HISTORY
*
* SOURCE
diff --git a/fortran/src/H5Tff.f90 b/fortran/src/H5Tff.f90
index 89bd972..0e1dbb0 100644
--- a/fortran/src/H5Tff.f90
+++ b/fortran/src/H5Tff.f90
@@ -335,20 +335,22 @@ CONTAINS
! Returns the datatype class identifier.
!
! INPUTS
-! type_id - datatype identifier
+! type_id - Datatype identifier
! OUTPUTS
-! class - 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)
-! hdferr - Returns 0 if successful and -1 if fails
+! class - 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)
+! H5T_VLEN_F (9)
+! H5T_ARRAY_F (10)
+! hdferr - Returns 0 if successful and -1 if fails
!
! AUTHOR
! Elena Pourmal
@@ -361,35 +363,24 @@ CONTAINS
!
! SOURCE
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
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER, INTENT(OUT) :: class
+ INTEGER, INTENT(OUT) :: hdferr
!*****
- INTERFACE
- INTEGER FUNCTION h5tget_class_c(type_id, class)
- USE H5GLOBAL
- !DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_CLASS_C'::h5tget_class_c
- !DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: type_id
- INTEGER, INTENT(OUT) :: class
- END FUNCTION h5tget_class_c
- END INTERFACE
+ INTERFACE
+ INTEGER FUNCTION h5tget_class_c(type_id, class)
+ USE H5GLOBAL
+ !DEC$IF DEFINED(HDF5F90_WINDOWS)
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_CLASS_C'::h5tget_class_c
+ !DEC$ENDIF
+ INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER, INTENT(OUT) :: class
+ END FUNCTION h5tget_class_c
+ END INTERFACE
- hdferr = h5tget_class_c(type_id, class)
- END SUBROUTINE h5tget_class_f
+ hdferr = h5tget_class_c(type_id, class)
+ END SUBROUTINE h5tget_class_f
!
!****s* H5T/h5tget_size_f
!