From a72cb6e43e74c4aab0ce64017a306b6594288566 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Tue, 5 Aug 2014 09:06:35 -0500
Subject: [svn-r25510] Added the parameters to the code comment section:

             H5T_VLEN_F (9)
             H5T_ARRAY_F (10)

No source changes.
---
 fortran/src/H5Tf.c    | 35 +++++++++++++------------
 fortran/src/H5Tff.f90 | 71 ++++++++++++++++++++++-----------------------------
 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
 !
-- 
cgit v0.12