[svn-r7693]

Purpose:
    Formatting and copy edits within Fortran90 descriptions

Platforms tested:
    Safari
This commit is contained in:
Frank Baker
2003-10-22 14:44:16 -05:00
parent 09fc43ba75
commit c54bafe243

View File

@@ -304,14 +304,11 @@ END SUBROUTINE h5sclose_f
<dd>
<pre>
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
! 0 on success and -1 on failure
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
! 0 on success and -1 on failure
END SUBROUTINE h5scopy_f
</pre>
@@ -354,12 +351,11 @@ SUBROUTINE h5screate_f(classtype, space_id, hdferr)
INTEGER, INTENT(IN) :: classtype ! The type of the dataspace
! to be created. Possible values
! are:
! H5S_SCALAR_F
! H5S_SIMPLE_F
! H5S_SCALAR_F
! H5S_SIMPLE_F
INTEGER(HID_T), INTENT(OUT) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
! 0 on success and -1 on failure
END SUBROUTINE h5screate_f
</pre>
@@ -423,8 +419,7 @@ END SUBROUTINE h5screate_f
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(*) ! Array with the dimension
! sizes
INTEGER(HSIZE_T), INTENT(IN) :: dims(*) ! Array with the dimension sizes
INTEGER(HID_T), INTENT(OUT) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
! 0 on success and -1 on failure
@@ -575,14 +570,11 @@ END SUBROUTINE h5sextent_copy_f
<dd>
<pre>
SUBROUTINE h5sget_select_elem_npoints_f(space_id, num_points, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: num_points ! number of points in
INTEGER, INTENT(OUT) :: num_points ! Number of points in
! the current elements selection
INTEGER, INTENT(OUT) :: hdferr ! Error code
END SUBROUTINE h5sget_select_elem_npoints_f
</pre>
@@ -650,14 +642,12 @@ 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), INTENT(IN) :: startpoint ! Element point to start with
INTEGER, INTENT(OUT) :: num_points ! number of points to get in
INTEGER, INTENT(OUT) :: num_points ! Number of points to get in
! the current element selection
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
! List of points selected
INTEGER, INTENT(OUT) :: hdferr ! Error code
END SUBROUTINE h5sget_select_elem_pointlist_f
</pre>
@@ -727,15 +717,13 @@ END SUBROUTINE h5sget_select_elem_pointlist_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), INTENT(IN) :: startblock
!Hyperslab block to start with
INTEGER, INTENT(OUT) :: num_blocks ! number of hyperslab blocks to get in
! the current hyperslab selection
INTEGER(HSIZE_T), INTENT(IN) :: startblock ! Hyperslab block to start with
INTEGER, INTENT(OUT) :: num_blocks ! Number of hyperslab blocks to
! get in the current hyperslab
! selection
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
! List of hyperslab blocks selected
! List of hyperslab blocks selected
INTEGER, INTENT(OUT) :: hdferr ! Error code
END SUBROUTINE h5sget_select_hyper_blocklist_f
</pre>
@@ -774,11 +762,9 @@ END SUBROUTINE h5sget_select_hyper_blocklist_f
<dd>
<pre>
SUBROUTINE h5sget_select_hyper_nblocks_f(space_id, num_blocks, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: num_blocks ! number of hyperslab blocks in
INTEGER, INTENT(OUT) :: num_blocks ! Number of hyperslab blocks in
! the current hyperslab selection
INTEGER, INTENT(OUT) :: hdferr ! Error code
END SUBROUTINE h5sget_select_hyper_nblocks_f
@@ -816,7 +802,6 @@ END SUBROUTINE h5sget_select_hyper_nblocks_f
<dd>
<pre>
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
@@ -883,17 +868,15 @@ END SUBROUTINE h5sget_select_npoints_f
<dd>
<pre>
SUBROUTINE h5sget_select_type_f(space_id, type, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: type ! Selection type
! valid values are:
! H5S_SEL_ERROR_F
! H5S_SEL_NONE_F
! H5S_SEL_POINTS_F
! H5S_SEL_HYPERSLABS_F
! H5S_SEL_ALL_F
! Valid values are:
! H5S_SEL_ERROR_F
! H5S_SEL_NONE_F
! H5S_SEL_POINTS_F
! H5S_SEL_HYPERSLABS_F
! H5S_SEL_ALL_F
INTEGER, INTENT(OUT) :: hdferr ! Error code
END SUBROUTINE h5sget_select_type_f
</pre>
@@ -945,17 +928,15 @@ END SUBROUTINE h5sget_select_type_f
<dd>
<pre>
SUBROUTINE h5sget_simple_extent_dims_f(space_id, dims, maxdims, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: dims
! Array to store dimension sizes
! Array to store dimension sizes
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: maxdims
! Array to store max dimension
! sizes
INTEGER, INTENT(OUT) :: hdferr ! Error code
! Dataspace rank on success and -1 on failure
! Array to store max dimension sizes
INTEGER, INTENT(OUT) :: hdferr ! Error code
! Dataspace rank on success
! and -1 on failure
END SUBROUTINE h5sget_simple_extent_dims_f
</pre>
@@ -991,13 +972,11 @@ END SUBROUTINE h5sget_simple_extent_dims_f
<dd>
<pre>
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
! 0 on success and -1 on failure
END SUBROUTINE h5sget_simple_extent_ndims_f
</pre>
@@ -1034,14 +1013,11 @@ END SUBROUTINE h5sget_simple_extent_ndims_f
<dd>
<pre>
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(HSIZE_T), INTENT(OUT) :: npoints ! Number of elements in dataspace
INTEGER, INTENT(OUT) :: hdferr ! Error code
! 0 on success and -1 on failure
END SUBROUTINE h5sget_simple_extent_npoints_f
</pre>
@@ -1082,17 +1058,15 @@ END SUBROUTINE h5sget_simple_extent_npoints_f
<dd>
<pre>
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
! H5S_SCALAR_F
! H5S_SIMPLE_F
INTEGER, INTENT(OUT) :: hdferr ! Error code
! 0 on success and -1 on failure
INTEGER, INTENT(OUT) :: classtype ! Class type
! Valid values are:
! H5S_NO_CLASS_F
! H5S_SCALAR_F
! H5S_SIMPLE_F
INTEGER, INTENT(OUT) :: hdferr ! Error code
! 0 on success and -1 on failure
END SUBROUTINE h5sget_simple_extent_type_f
</pre>
@@ -1130,14 +1104,13 @@ END SUBROUTINE h5sget_simple_extent_type_f
<dd>
<pre>
SUBROUTINE h5sis_simple_f(space_id, flag, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
LOGICAL, INTENT(OUT) :: flag ! Flag, idicates if dataspace
! is simple or not ( TRUE or
! FALSE)
INTEGER, INTENT(OUT) :: hdferr ! Error code
! 0 on success and -1 on failure
! is simple or not:
! TRUE or FALSE
INTEGER, INTENT(OUT) :: hdferr ! Error code
! 0 on success and -1 on failure
END SUBROUTINE h5sis_simple_f
</pre>
@@ -1186,13 +1159,12 @@ END SUBROUTINE h5sis_simple_f
<pre>
SUBROUTINE h5soffset_simple_f(space_id, offset, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
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
! 0 on success and -1 on failure
! The offset at which to position
! the selection
INTEGER, INTENT(OUT) :: hdferr ! Error code
! 0 on success and -1 on failure
END SUBROUTINE h5soffset_simple_f
</pre>
@@ -1328,17 +1300,15 @@ SUBROUTINE h5sselect_elements_f(space_id, operator, num_elements, &
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(IN) :: op ! Flag, valid values are:
! H5S_SELECT_SET_F
! H5S_SELECT_OR_F
INTEGER, INTENT(IN) :: num_elements ! Number of elements to be
! selected
! H5S_SELECT_SET_F
! H5S_SELECT_OR_F
INTEGER, INTENT(IN) :: num_elements ! Number of elements to be selected
INTEGER(HSSIZE_T), DIMENSION(*,*), INTENT(IN) :: coord
! Array with the coordinates
! of the selected elements
! of the selected elements:
! coord(num_elements, rank)
INTEGER, INTENT(OUT) :: hdferr ! Error code
! 0 on success and -1 on failure
END SUBROUTINE h5sselect_elements_f
</pre>
@@ -1486,22 +1456,20 @@ SUBROUTINE h5sselect_hyperslab_f(space_id, operator, start, count, &
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(IN) :: op ! Flag, valid values are:
! H5S_SELECT_SET_F
! H5S_SELECT_OR_F
!
! H5S_SELECT_SET_F
! H5S_SELECT_OR_F
INTEGER(HSSIZE_T), DIMENSION(*), INTENT(IN) :: start
! Starting coordinates of the hyperslab
! Starting coordinates of hyperslab
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: count
! Number of blocks to select
! from dataspace
INTEGER, INTENT(OUT) :: hdferr ! Error code
! 0 on success and -1 on failure
INTEGER(HSIZE_T), DIMENSION(*), OPTIONAL, INTENT(IN) :: stride
! Array of how many elements to move
! in each direction
! Array of how many elements to
! move in each direction
INTEGER(HSIZE_T), DIMENSION(*), OPTIONAL, INTENT(IN) :: block
! Size of the element block
END SUBROUTINE h5sselect_hyperslab_f
</pre>
@@ -1586,8 +1554,8 @@ SUBROUTINE h5sselect_valid_f(space_id, flag, hdferr)
LOGICAL, INTENT(OUT) :: flag ! TRUE if the selection is
! contained within the extent,
! FALSE otherwise.
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 h5sselect_valid_f
</pre>
@@ -1624,12 +1592,10 @@ END SUBROUTINE h5sselect_valid_f
<dd>
<pre>
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
! 0 on success and -1 on failure
END SUBROUTINE h5sset_extent_none_f
</pre>
@@ -1689,19 +1655,17 @@ END SUBROUTINE h5sset_extent_none_f
<pre>
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(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
! Array with the new sizes
! of dimensions
INTEGER(HSIZE_T), DIMENSION(rank), INTENT(IN) ::
! Array with the new maximum
! sizes of dimensions
INTEGER, INTENT(OUT) :: hdferr ! Error code
! 0 on success and -1 on failure
! Array with the new maximum
! sizes of dimensions
INTEGER, INTENT(OUT) :: hdferr ! Error code
! 0 on success and -1 on failure
END SUBROUTINE h5sset_extent_simple_f
</pre>
@@ -1836,7 +1800,7 @@ And in this document, the
Describes HDF5 Release 1.6.1, October 2003
</address><!-- #EndLibraryItem --><SCRIPT LANGUAGE="JAVASCRIPT">
<!--
document.writeln("Last modified: 16 October 2003");
document.writeln("Last modified: 21 October 2003");
-->
</SCRIPT>