From a30c5459aacd7906d4b4cc05a7b75a566de3bba3 Mon Sep 17 00:00:00 2001 From: Frank Baker Date: Tue, 21 Oct 2003 14:15:43 -0500 Subject: [svn-r7686] Purpose: More formatting cleanup in the Fortran90 integration. Platforms tested: Safari --- doc/html/RM_H5A.html | 64 ++++++++++++++++++++++++++-------------------------- 1 file changed, 32 insertions(+), 32 deletions(-) diff --git a/doc/html/RM_H5A.html b/doc/html/RM_H5A.html index efff684..0a851b8 100644 --- a/doc/html/RM_H5A.html +++ b/doc/html/RM_H5A.html @@ -217,8 +217,8 @@ See Attributes in the SUBROUTINE h5aclose_f(attr_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier - INTEGER, INTENT(OUT) :: hdferr ! Error code - ! 0 on success and -1 on failure + INTEGER, INTENT(OUT) :: hdferr ! Error code: + ! 0 on success and -1 on failure END SUBROUTINE h5aclose_f @@ -304,11 +304,11 @@ SUBROUTINE h5acreate_f(obj_id, name, type_id, space_id, attr_id, & 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: - ! 0 on success and -1 on failure + INTEGER, INTENT(OUT) :: hdferr ! Error code: + ! 0 on success and -1 on failure INTEGER(HID_T), OPTIONAL, INTENT(IN) :: creation_prp - ! Attribute creation property - ! list identifier + ! Attribute creation property + ! list identifier END SUBROUTINE h5acreate_f @@ -349,7 +349,7 @@ 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, INTENT(OUT) :: hdferr ! Error code: ! 0 on success and -1 on failure END SUBROUTINE h5adelete_f @@ -403,7 +403,7 @@ SUBROUTINE h5aget_name_f(attr_id, size, buf, hdferr) 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 + INTEGER, INTENT(OUT) :: hdferr ! Error code: name length ! on success and -1 on failure END SUBROUTINE h5aget_name_f @@ -444,9 +444,8 @@ 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, INTENT(OUT) :: attr_num ! Number of attributes of the object + INTEGER, INTENT(OUT) :: hdferr ! Error code: ! 0 on success and -1 on failure END SUBROUTINE h5aget_num_attrs_f @@ -488,7 +487,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, INTENT(OUT) :: hdferr ! Error code: ! 0 on success and -1 on failure END SUBROUTINE h5aget_space_f @@ -534,10 +533,10 @@ 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
-                                         ! 0 on success and -1 on failure
+  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:
+                                           ! 0 on success and -1 on failure
 END SUBROUTINE h5aget_type_f
@@ -665,11 +664,11 @@ SUBROUTINE 
 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
-                                          ! 0 on success and -1 on failure
+  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:
+                                            ! 0 on success and -1 on failure
 END SUBROUTINE h5aopen_idx_f
@@ -717,11 +716,11 @@ END SUBROUTINE h5aopen_idx_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
-                                          ! 0 on success and -1 on failure
+  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:
+                                            ! 0 on success and -1 on failure
 END SUBROUTINE h5aopen_name_f
@@ -783,11 +782,11 @@ SUBROUTINE h5aread_f(attr_id, memtype_id, buf, dims, hdferr) DIMENSION(*), INTEGER(HSIZE_T), INTENT(IN) :: dims ! Array to hold corresponding ! dimension sizes of data buffer buf; - ! buf; dim(k) has value of the + ! dim(k) has value of the ! k-th dimension of buffer buf; ! values are ignored if buf is a ! scalar - INTEGER, INTENT(OUT) :: hdferr ! Error code + INTEGER, INTENT(OUT) :: hdferr ! Error code: ! 0 on success and -1 on failure END SUBROUTINE h5aread_f @@ -850,10 +849,11 @@ SUBROUTINE h5awrite_f(attr_id, memtype_id, buf, dims, hdferr) DIMENSION(*), INTEGER(HSIZE_T), INTENT(IN) :: dims ! Array to hold corresponding ! dimension sizes of data buffer buf; - ! dim(k) has value of the k-th - ! dimension of buffer buf;values are - ! ignored if buf is a scalar - INTEGER, INTENT(OUT) :: hdferr ! Error code + ! dim(k) has value of the + ! k-th dimension of buffer buf; + ! values are ignored if buf is + ! a scalar + INTEGER, INTENT(OUT) :: hdferr ! Error code: ! 0 on success and -1 on failure END SUBROUTINE h5awrite_f -- cgit v0.12