From 429079fc1167acceb8b143b6b7d85da3e60343ac Mon Sep 17 00:00:00 2001
From: Frank Baker <fbaker@hdfgroup.org>
Date: Wed, 22 Oct 2003 14:45:45 -0500
Subject: [svn-r7694] Description:     Integrate Fortran90 function
 descriptions         Remove "Non-C APIs" sections; add "Fortran90 Interface"
 sections         Remove note that Fortran APIs are described in a separate
 window

Platforms tested:
    Safari
---
 doc/html/RM_H5S.html | 549 ++++++++++++++++++++++++++++++++++++++++-----------
 1 file changed, 437 insertions(+), 112 deletions(-)

diff --git a/doc/html/RM_H5S.html b/doc/html/RM_H5S.html
index 7bb5286..aaf069f 100644
--- a/doc/html/RM_H5S.html
+++ b/doc/html/RM_H5S.html
@@ -161,18 +161,10 @@ elements of a dataset.
 
 <br>
 <strong>The FORTRAN90 Interfaces:</strong>
-
 <br>
-<font size=-1>
-<i>In general, each FORTRAN90 subroutine performs exactly the same task 
-as the corresponding C function.  The links below (electronic versions only) go to the C function 
-descriptions, which serve as general descriptions for both.  A button, 
-under <strong>Non-C API(s)</strong> at the end of the C function description,
-opens an external browser window displaying the FORTRAN90-specific 
-information.  You will probably want to adjust the size and location of 
-this external window so that both browser windows are visible and to 
-facilitate moving easily between them.</i>
-</font><br>
+In general, each FORTRAN90 subroutine performs exactly the same task 
+as the corresponding C function.  
+<br>
 
 <table border=0>
 <tr><td valign=top>
@@ -265,10 +257,20 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a non-negative value if successful;
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sclose_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sclose_f
+    <dd>
+	<pre>
+SUBROUTINE h5sclose_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 h5sclose_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -297,10 +299,21 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a dataspace identifier if successful; 
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5scopy_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5scopy_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 copy 
+  INTEGER, INTENT(OUT) :: hdferr              ! Error code
+                                              ! 0 on success and -1 on failure
+END SUBROUTINE h5scopy_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -329,10 +342,25 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a dataspace identifier if successful; 
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5screate_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5screate_f
+    <dd>
+	<pre>
+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 
+                                          !    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>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -384,10 +412,25 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a dataspace identifier if successful; 
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5screate_simple_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5screate_simple_f
+    <dd>
+	<pre>
+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(HID_T), INTENT(OUT) :: space_id ! Dataspace identifier 
+  INTEGER, INTENT(OUT) :: hdferr          ! Error code
+                                          ! 0 on success and -1 on failure
+  INTEGER(HSIZE_T), OPTIONAL, INTENT(IN) :: maxdims(*) 
+                                          ! Array with the maximum 
+                                          ! dimension sizes 
+END SUBROUTINE h5screate_simple_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -420,10 +463,23 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a non-negative value if successful;
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sextent_copy_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sextent_copy_f
+    <dd>
+	<pre>
+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
+                                                ! 0 on success and -1 on failure 
+END SUBROUTINE h5sextent_copy_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -472,11 +528,17 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a non-negative value if successful;
         otherwise returns a negative value.
+<dt><strong>Fortran90 Interface:</strong>
+    <dd>None.
 <!--
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sget_select_bounds_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
--->     <!--
+	<pre>
+
+	</pre>		
+-->
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -503,10 +565,21 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns the number of element points in the current dataspace selection if successful.
         Otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sget_select_elem_npoints_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sget_select_elem_npoints_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 
+                                         ! the current elements selection
+  INTEGER, INTENT(OUT) :: hdferr         ! Error code
+END SUBROUTINE h5sget_select_elem_npoints_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -562,10 +635,25 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a non-negative value if successful;
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sget_select_elem_pointlist_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sget_select_elem_pointlist_f
+    <dd>
+	<pre>
+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 
+                                             ! 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>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -622,10 +710,26 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a non-negative value if successful;
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sget_select_hyper_blocklist_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sget_select_hyper_blocklist_f
+    <dd>
+	<pre>
+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), DIMENSION(*), INTENT(OUT) :: buf
+                                             ! List of hyperslab blocks selected
+  INTEGER, INTENT(OUT) :: hdferr             ! Error code
+END SUBROUTINE h5sget_select_hyper_blocklist_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -653,10 +757,21 @@ of the <cite>HDF5 User's Guide.</cite>.
     <dd>Returns the number of hyperslab blocks in 
         the current dataspace selection if successful.
         Otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sget_select_hyper_nblocks_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sget_select_hyper_nblocks_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 
+                                         ! the current hyperslab selection
+  INTEGER, INTENT(OUT) :: hdferr         ! Error code
+END SUBROUTINE h5sget_select_hyper_nblocks_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -682,10 +797,22 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns the number of elements in the selection if successful; 
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sget_select_npoints_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sget_select_npoints_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
+                                             ! selection 
+  INTEGER, INTENT(OUT) :: hdferr             ! Error code
+                                             ! 0 on success and -1 on failure 
+END SUBROUTINE h5sget_select_npoints_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -736,10 +863,26 @@ of the <cite>HDF5 User's Guide.</cite>.
         </table>
         </center>
         Otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sget_select_type_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sget_select_type_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 
+  INTEGER, INTENT(OUT) :: hdferr         ! Error code
+END SUBROUTINE h5sget_select_type_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -780,10 +923,25 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns the number of dimensions in the dataspace if successful;
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sget_simple_extent_dims_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sget_simple_extent_dims_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(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
+                                           ! Dataspace rank on success 
+                                           ! and -1 on failure
+END SUBROUTINE h5sget_simple_extent_dims_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -809,10 +967,21 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns the number of dimensions in the dataspace if successful;
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sget_simple_extent_ndims_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sget_simple_extent_ndims_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>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -839,10 +1008,21 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns the number of elements in the dataspace if successful; 
         otherwise returns 0.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sget_simple_extent_npoints_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sget_simple_extent_npoints_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, INTENT(OUT) :: hdferr            ! Error code
+                                            ! 0 on success and -1 on failure
+END SUBROUTINE h5sget_simple_extent_npoints_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -873,10 +1053,25 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a dataspace class name if successful; 
         otherwise H5S_NO_CLASS (-1).
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sget_simple_extent_type_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sget_simple_extent_type_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
+END SUBROUTINE h5sget_simple_extent_type_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -904,10 +1099,23 @@ of the <cite>HDF5 User's Guide.</cite>.
     <dd>When successful, returns a positive value, for <code>TRUE</code>,
         or <code>0</code> (zero), for <code>FALSE</code>.
         Otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sis_simple_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sis_simple_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, indicates if dataspace
+                                            ! 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>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -945,10 +1153,23 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a non-negative value if successful;
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5soffset_simple_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5soffset_simple_f
+    <dd>
+	<pre>
+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
+                                            ! 0 on success and -1 on failure
+END SUBROUTINE h5soffset_simple_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -980,10 +1201,20 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a non-negative value if successful;
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sselect_all_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sselect_all_f
+    <dd>
+	<pre>
+SUBROUTINE h5sselect_all_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 h5sselect_all_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -1060,10 +1291,29 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a non-negative value if successful; 
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sselect_elements_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sselect_elements_f
+    <dd>
+	<pre>
+SUBROUTINE h5sselect_elements_f(space_id, operator, num_elements, &
+                                coord, hdferr) 
+  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
+  INTEGER(HSSIZE_T), DIMENSION(*,*), INTENT(IN) :: coord 
+                                          ! Array with the coordinates
+                                          ! 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>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -1197,10 +1447,34 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a non-negative value if successful;
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sselect_hyperslab_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sselect_hyperslab_f
+    <dd>
+	<pre>
+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) :: op               ! Flag, valid values are:
+                                          !    H5S_SELECT_SET_F
+                                          !    H5S_SELECT_OR_F
+  INTEGER(HSSIZE_T), DIMENSION(*), INTENT(IN) :: start
+                                          ! 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
+  INTEGER(HSIZE_T), DIMENSION(*), OPTIONAL, INTENT(IN) :: block 
+                                          ! Size of the element block 
+END SUBROUTINE h5sselect_hyperslab_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -1227,10 +1501,20 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a non-negative value if successful;
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sselect_none_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sselect_none_f
+    <dd>
+	<pre>
+SUBROUTINE h5sselect_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 h5sselect_none_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -1260,10 +1544,23 @@ of the <cite>HDF5 User's Guide.</cite>.
         or <code>0</code> (zero), for <code>FALSE</code>, if it is not.
         Returns a negative value on error conditions 
         such as the selection or extent not being defined.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sselect_valid_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sselect_valid_f
+    <dd>
+	<pre>
+SUBROUTINE h5sselect_valid_f(space_id, flag, hdferr) 
+  IMPLICIT NONE
+  INTEGER(HID_T), INTENT(IN) :: space_id  ! Dataspace identifier 
+  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
+END SUBROUTINE h5sselect_valid_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -1290,10 +1587,20 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a non-negative value if successful;
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sset_extent_none_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sset_extent_none_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>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -1342,10 +1649,28 @@ of the <cite>HDF5 User's Guide.</cite>.
 <dt><strong>Returns:</strong>
     <dd>Returns a dataspace identifier if successful; 
         otherwise returns a negative value.
-<dt><strong>Non-C API(s):</strong>
-    <dd><a href="fortran/h5s_FORTRAN.html#h5sset_extent_simple_f" 
-        target="FortranWin"><img src="Graphics/FORTRAN.gif" border=0></a>
-        <!--
+<dt><strong>Fortran90 Interface:</strong> h5sset_extent_simple_f
+    <dd>
+	<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(HSIZE_T), DIMENSION(rank), INTENT(IN) :: current_size 
+                                             ! 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
+END SUBROUTINE h5sset_extent_simple_f
+	</pre>		
+		
+		<!--<dt><strong>Non-C API(s):</strong>
+    	<dd>
+        
         <img src="Graphics/Java.gif"> 
         <img src="Graphics/C++.gif">
         -->
@@ -1473,7 +1798,7 @@ And in this document, the
 Describes HDF5 Release 1.6.0, July 2003
 </address><!-- #EndLibraryItem --><SCRIPT LANGUAGE="JAVASCRIPT">
 <!--
-document.writeln("Last modified: 3 October 2003");
+document.writeln("Last modified: 21 October 2003");
 -->
 </SCRIPT> 
 
-- 
cgit v0.12