summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Sff.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2001-03-06 20:11:58 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2001-03-06 20:11:58 (GMT)
commit25f9168edfbf836aab6b4c20414173e95206a5f0 (patch)
tree75d9a5ac5268f11e444681c6362da980048e043b /fortran/src/H5Sff.f90
parent4811d326ef9698941627844e51e57d6ec0a210f9 (diff)
downloadhdf5-25f9168edfbf836aab6b4c20414173e95206a5f0.zip
hdf5-25f9168edfbf836aab6b4c20414173e95206a5f0.tar.gz
hdf5-25f9168edfbf836aab6b4c20414173e95206a5f0.tar.bz2
[svn-r3552]
Purpose: Window port and maintenance Description: Windows Fortran requires interface blocks for each C function called from F90 stub. I also added comment blocks for each F90 API. Solution: Added interface blocks. Platforms tested: LINUX (eirene)
Diffstat (limited to 'fortran/src/H5Sff.f90')
-rw-r--r--fortran/src/H5Sff.f90971
1 files changed, 943 insertions, 28 deletions
diff --git a/fortran/src/H5Sff.f90 b/fortran/src/H5Sff.f90
index 1df0569..881f5da 100644
--- a/fortran/src/H5Sff.f90
+++ b/fortran/src/H5Sff.f90
@@ -6,7 +6,32 @@
CONTAINS
-
+!----------------------------------------------------------------------
+! Name: h5screate_simple_f
+!
+! Purpose: Creates a new simple data space and opens it for access .
+!
+! Inputs:
+! rank - number of dimensions
+! dims - an array of the size of each dimension
+! Outputs:
+! space_id - dataspace identifier
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! maxdims - an array of the maximum size of each
+! dimension
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5screate_simple_f(rank, dims, space_id, hdferr, maxdims)
IMPLICIT NONE
@@ -20,7 +45,20 @@
! Array with the maximum
! dimension sizes
INTEGER(HSIZE_T), ALLOCATABLE, DIMENSION(:) :: f_maxdims
- INTEGER, EXTERNAL :: h5screate_simple_c
+
+! INTEGER, EXTERNAL :: h5screate_simple_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5screate_simple_c(rank, dims, maxdims, space_id)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SCREATE_SIMPLE_C'::h5screate_simple_c
+ INTEGER, INTENT(IN) :: rank
+ INTEGER(HSIZE_T), INTENT(IN) :: dims(rank)
+ INTEGER(HSIZE_T), DIMENSION(:),INTENT(IN) :: maxdims(rank)
+ INTEGER(HID_T), INTENT(OUT) :: space_id
+ END FUNCTION h5screate_simple_c
+ END INTERFACE
allocate (f_maxdims(rank), stat=hdferr)
if (hdferr .NE. 0) then
@@ -37,17 +75,76 @@
END SUBROUTINE h5screate_simple_f
+!----------------------------------------------------------------------
+! Name: h5sclose_f
+!
+! Purpose: Releases and terminates access to a dataspace.
+!
+! Inputs:
+! space_id - identifier of dataspace to release
+! Outputs:
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
+
SUBROUTINE h5sclose_f(space_id, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sclose_c
+
+! INTEGER, EXTERNAL :: h5sclose_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sclose_c(space_id)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SCLOSE_C'::h5sclose_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ END FUNCTION h5sclose_c
+ END INTERFACE
hdferr = h5sclose_c(space_id)
END SUBROUTINE h5sclose_f
+!----------------------------------------------------------------------
+! Name: h5screate_f
+!
+! Purpose: Creates a new dataspace of a specified type.
+!
+! Inputs:
+! classtype - the type of the dataspace to be created
+! Outputs:
+! space_id - dataspace identifier
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
+
SUBROUTINE h5screate_f(classtype, space_id, hdferr)
IMPLICIT NONE
@@ -58,11 +155,47 @@
! H5S_SIMPLE_F(1)
INTEGER(HID_T), INTENT(OUT) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5screate_c
+
+! INTEGER, EXTERNAL :: h5screate_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5screate_c(classtype, space_id)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SCREATE_C'::h5screate_c
+ INTEGER, INTENT(IN) :: classtype
+ INTEGER(HID_T), INTENT(OUT) :: space_id
+ END FUNCTION h5screate_c
+ END INTERFACE
+
hdferr = h5screate_c(classtype, space_id)
END SUBROUTINE h5screate_f
+!----------------------------------------------------------------------
+! Name: h5scopy_f
+!
+! Purpose: Creates an exact copy of a dataspace.
+!
+! Inputs:
+! space_id - dataspace identifier
+! Outputs:
+! new_space_id - identifier of dataspace's copy
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5scopy_f(space_id, new_space_id, hdferr)
@@ -71,11 +204,48 @@
INTEGER(HID_T), INTENT(OUT) :: new_space_id
! Identifier of dataspace's copy
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5scopy_c
+
+! INTEGER, EXTERNAL :: h5scopy_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5scopy_c(space_id, new_space_id)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SCOPY_C'::h5scopy_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HID_T), INTENT(OUT):: new_space_id
+ END FUNCTION h5scopy_c
+ END INTERFACE
+
hdferr = h5scopy_c(space_id, new_space_id)
END SUBROUTINE h5scopy_f
+!----------------------------------------------------------------------
+! Name: h5sget_select_hyper_nblocks_f
+!
+! Purpose: Get number of hyperslab blocks.
+!
+! Inputs:
+! space_id - dataspace identifier
+! Outputs:
+! num_blocks - number of hyperslab blocks in the current
+! hyperslab selection
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sget_select_hyper_nblocks_f(space_id, num_blocks, hdferr)
IMPLICIT NONE
@@ -85,11 +255,50 @@
!in the current dataspace
!selection
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sget_select_hyper_nblocks_c
+
+! INTEGER, EXTERNAL :: h5sget_select_hyper_nblocks_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sget_select_hyper_nblocks_c (space_id, num_blocks)
+ USE H5GLOBAL
+!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SELECT_HYPER_NBLOCKS_C'::h5sget_select_hyper_nblocks_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HSSIZE_T), INTENT(OUT) :: num_blocks
+ END FUNCTION h5sget_select_hyper_nblocks_c
+ END INTERFACE
+
hdferr = h5sget_select_hyper_nblocks_c (space_id, num_blocks)
END SUBROUTINE h5sget_select_hyper_nblocks_f
+!----------------------------------------------------------------------
+! Name: h5sget_select_hyper_blocklist_f
+!
+! Purpose: Gets the list of hyperslab blocks currently selected.
+!
+! Inputs:
+! space_id - dataspace identifier
+! startblock - hyperslab block to start with
+! num_blocks - number of blocks to get
+! Outputs:
+! buf - buffer to hold block list
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
+
SUBROUTINE h5sget_select_hyper_blocklist_f(space_id, startblock, &
num_blocks, buf, hdferr)
@@ -105,13 +314,55 @@
!List of hyperslab blocks selected
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sget_select_hyper_blocklist_c
+
+! INTEGER, EXTERNAL :: h5sget_select_hyper_blocklist_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sget_select_hyper_blocklist_c(space_id, startblock, &
+ num_blocks, buf )
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SGET_SELECT_HYPER_BLOCKLIST_C'::h5sget_select_hyper_blocklist_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: startblock
+ INTEGER(HSSIZE_T), INTENT(OUT) :: num_blocks
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
+ END FUNCTION h5sget_select_hyper_blocklist_c
+ END INTERFACE
+
hdferr = h5sget_select_hyper_blocklist_c(space_id, startblock, &
num_blocks, buf )
END SUBROUTINE h5sget_select_hyper_blocklist_f
+!----------------------------------------------------------------------
+! Name: h5sget_select_bounds_f
+!
+! Purpose: Gets the bounding box containing the current selection.
+!
+! Inputs:
+! space_id - dataspace identifier
+!
+! Outputs:
+! start - starting coordinates of bounding box
+! end - ending coordinates of bounding box
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
+
SUBROUTINE h5sget_select_bounds_f(space_id, start, end, hdferr)
IMPLICIT NONE
@@ -123,11 +374,49 @@
!i.e., the coordinates of the diagonally
!opposite corner
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sget_select_bounds_c
+
+! INTEGER, EXTERNAL :: h5sget_select_bounds_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sget_select_bounds_c(space_id, start, end)
+ USE H5GLOBAL
+!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SELECT_BOUNDS_C'::h5sget_select_bounds_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: start
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: end
+ END FUNCTION h5sget_select_bounds_c
+ END INTERFACE
+
hdferr = h5sget_select_bounds_c(space_id, start, end)
END SUBROUTINE h5sget_select_bounds_f
+!----------------------------------------------------------------------
+! Name: h5sget_select_elem_npoints_f
+!
+! Purpose: Gets the number of element points in the current selection
+!
+! Inputs:
+! space_id - dataspace identifier
+! Outputs:
+! num_points - number of element points in the current
+! dataspace selection
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sget_select_elem_npoints_f(space_id, num_points, hdferr)
IMPLICIT NONE
@@ -137,11 +426,50 @@
!in the current dataspace
!selection
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sget_select_elem_npoints_c
+
+! INTEGER, EXTERNAL :: h5sget_select_elem_npoints_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sget_select_elem_npoints_c (space_id, num_points)
+ USE H5GLOBAL
+!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SELECT_ELEM_NPOINTS_C'::h5sget_select_elem_npoints_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HSSIZE_T), INTENT(OUT) :: num_points
+ END FUNCTION h5sget_select_elem_npoints_c
+ END INTERFACE
+
hdferr = h5sget_select_elem_npoints_c (space_id, num_points)
END SUBROUTINE h5sget_select_elem_npoints_f
+!----------------------------------------------------------------------
+! Name: h5sget_select_elem_pointlist_f
+!
+! Purpose: Gets the list of element points currently selected.
+!
+! Inputs:
+! space_id - dataspace identifier
+! startpoint - element point to start with
+! num_points - number of elemnt points to get
+! Outputs:
+! buf - buffer with element points selected
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
+
SUBROUTINE h5sget_select_elem_pointlist_f(space_id, startpoint, &
num_points, buf, hdferr)
IMPLICIT NONE
@@ -153,11 +481,57 @@
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
!List of element points selected
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sget_select_elem_pointlist_c
+
+! INTEGER, EXTERNAL :: h5sget_select_elem_pointlist_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sget_select_elem_pointlist_c(space_id, startpoint, &
+ num_points, buf )
+ USE H5GLOBAL
+!MS$ATTRIBUTES C,reference,alias:'_H5SGET_SELECT_ELEM_POINTLIST_C'::h5sget_select_elem_pointlist_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HSIZE_T),DIMENSION(*), INTENT(IN) :: startpoint
+ INTEGER(HSIZE_T), INTENT(IN) :: num_points
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
+ END FUNCTION h5sget_select_elem_pointlist_c
+ END INTERFACE
+
hdferr = h5sget_select_elem_pointlist_c(space_id, startpoint, &
num_points, buf )
END SUBROUTINE h5sget_select_elem_pointlist_f
+!----------------------------------------------------------------------
+! Name: h5sselect_elements_f
+!
+! Purpose: Selects elements to be included in the selection for
+! a dataspace
+!
+! Inputs:
+! space_id - dataspace identifier
+! operator - flag, valid values are:
+! H5S_SELECT_SET_F (0)
+! H5S_SELECT_OR_F (1)
+! rank - number of dataspace dimensions
+! num_elements - number of elements to be selected
+! coord - 2D (rank x num_elements) array with the
+! elements coordinates
+! Outputs:
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sselect_elements_f(space_id, operator, rank, &
num_elements, coord, hdferr)
IMPLICIT NONE
@@ -174,9 +548,24 @@
! of the selected elements
! coord(rank, num_elements)
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sselect_elements_c
INTEGER(HSSIZE_T), ALLOCATABLE, DIMENSION(:,:) :: c_coord
INTEGER :: error, i,j
+
+! INTEGER, EXTERNAL :: h5sselect_elements_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sselect_elements_c(space_id, operator,&
+ num_elements,c_c_coord)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SSELECT_ELEMENTS_C'::h5sselect_elements_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER, INTENT(IN) :: operator
+ INTEGER, INTENT(IN) :: num_elements
+ INTEGER(HSSIZE_T),DIMENSION(*) :: c_c_coord
+ END FUNCTION h5sselect_elements_c
+ END INTERFACE
+
allocate(c_coord(rank, num_elements), stat = error)
if (error.NE. 0) then
hdferr = -1
@@ -191,29 +580,122 @@
END SUBROUTINE h5sselect_elements_f
+!----------------------------------------------------------------------
+! Name: h5sselect_all_f
+!
+! Purpose: Selects the entire dataspace.
+!
+! Inputs:
+! space_id - identifier for the dataspace in which
+! selection being made
+! Outputs:
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sselect_all_f(space_id, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sselect_all_c
+
+! INTEGER, EXTERNAL :: h5sselect_all_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sselect_all_c(space_id)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SSELECT_ALL_C'::h5sselect_all_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ END FUNCTION h5sselect_all_c
+ END INTERFACE
+
hdferr = h5sselect_all_c(space_id)
END SUBROUTINE h5sselect_all_f
+!----------------------------------------------------------------------
+! Name: h5sselect_none_f
+!
+! Purpose: Resets the selection region to include no elements.
+!
+! Inputs:
+! space_id - the identifier for the dataspace in which
+! the selection is being reset.
+! Outputs:
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sselect_none_f(space_id, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sselect_none_c
- hdferr = h5sselect_none_c(space_id)
- END SUBROUTINE h5sselect_none_f
+! INTEGER, EXTERNAL :: h5sselect_none_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sselect_none_c(space_id)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SSELECT_NONE_C'::h5sselect_none_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ END FUNCTION h5sselect_none_c
+ END INTERFACE
+ hdferr = h5sselect_none_c(space_id)
+ END SUBROUTINE h5sselect_none_f
+!----------------------------------------------------------------------
+! Name: h5sselect_valid_f
+!
+! Purpose: Verifies that the selection is within the extent of
+! the dataspace.
+!
+! Inputs:
+! space_id - identifier for the dataspace for which
+! selection is verified
+! Outputs:
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sselect_valid_f(space_id, status, hdferr)
IMPLICIT NONE
@@ -223,13 +705,49 @@
! FALSE otherwise.
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: flag ! "TRUE/FALSE/ERROR" flag from C routine
- INTEGER, EXTERNAL :: h5sselect_valid_c
+
+! INTEGER, EXTERNAL :: h5sselect_valid_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sselect_valid_c(space_id, flag)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SSELECT_VALID_C'::h5sselect_valid_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER :: flag
+ END FUNCTION h5sselect_valid_c
+ END INTERFACE
+
hdferr = h5sselect_valid_c(space_id, flag)
status = .TRUE.
if (flag .EQ. 0) status = .FALSE.
END SUBROUTINE h5sselect_valid_f
+!----------------------------------------------------------------------
+! Name: h5sget_simple_extent_npoints_f
+!
+! Purpose: Determines the number of elements in a dataspace.
+!
+! Inputs:
+! space_id - dataspace identifier
+! Outputs:
+! npoints - number of elements in the dataspace
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sget_simple_extent_npoints_f(space_id, npoints, hdferr)
@@ -238,11 +756,47 @@
INTEGER(HSIZE_T), INTENT(OUT) :: npoints ! Number of elements in
! dataspace
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sget_simple_extent_npoints_c
+
+! INTEGER, EXTERNAL :: h5sget_simple_extent_npoints_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sget_simple_extent_npoints_c( space_id, npoints)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SGET_SIMPLE_EXTENT_NPOINTS_C'::h5sget_simple_extent_npoints_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HSIZE_T), INTENT(OUT) :: npoints
+ END FUNCTION h5sget_simple_extent_npoints_c
+ END INTERFACE
+
hdferr = h5sget_simple_extent_npoints_c( space_id, npoints)
END SUBROUTINE h5sget_simple_extent_npoints_f
+!----------------------------------------------------------------------
+! Name: h5sget_select_npoints_f
+!
+! Purpose: Determines the number of elements in a dataspace selection.
+!
+! Inputs:
+! space_id - dataspace identifier
+! Outputs:
+! npoints - number of points in the dataspace selection
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sget_select_npoints_f(space_id, npoints, hdferr)
@@ -251,11 +805,47 @@
INTEGER(HSSIZE_T), INTENT(OUT) :: npoints ! Number of elements in the
! selection
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sget_select_npoints_c
+
+! INTEGER, EXTERNAL :: h5sget_select_npoints_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sget_select_npoints_c(space_id, npoints)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SGET_SELECT_NPOINTS_C'::h5sget_select_npoints_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HSSIZE_T), INTENT(OUT) :: npoints
+ END FUNCTION h5sget_select_npoints_c
+ END INTERFACE
+
hdferr = h5sget_select_npoints_c(space_id, npoints)
END SUBROUTINE h5sget_select_npoints_f
+!----------------------------------------------------------------------
+! Name: h5sget_simple_extent_ndims_f
+!
+! Purpose: Determines the dimensionality of a dataspace
+!
+! Inputs:
+! space_id - dataspace identifier
+! Outputs:
+! rank - number of dataspace dimensions
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sget_simple_extent_ndims_f(space_id, rank, hdferr)
@@ -263,11 +853,49 @@
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: rank ! Number of dimensions
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sget_simple_extent_ndims_c
+
+! INTEGER, EXTERNAL :: h5sget_simple_extent_ndims_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sget_simple_extent_ndims_c(space_id, rank)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SGET_SIMPLE_EXTENT_NDIMS_C'::h5sget_simple_extent_ndims_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER, INTENT(OUT) :: rank
+ END FUNCTION h5sget_simple_extent_ndims_c
+ END INTERFACE
+
hdferr = h5sget_simple_extent_ndims_c(space_id, rank)
END SUBROUTINE h5sget_simple_extent_ndims_f
+!----------------------------------------------------------------------
+! Name: h5sget_simple_extent_dims_f
+!
+! Purpose: Retrieves dataspace dimension size and maximum size.
+!
+! Inputs:
+! space_id - dataspace identifier
+! Outputs:
+! dims - array to store size of each dimension
+! maxdims - array to store maximum size of each
+! dimension
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sget_simple_extent_dims_f(space_id, dims, maxdims, hdferr)
@@ -281,11 +909,51 @@
INTEGER, INTENT(OUT) :: hdferr ! Error code: -1 on failure,
! number of dimensions on
! on success
- INTEGER, EXTERNAL :: h5sget_simple_extent_dims_c
+
+! INTEGER, EXTERNAL :: h5sget_simple_extent_dims_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sget_simple_extent_dims_c(space_id, dims, maxdims)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SGET_SIMPLE_EXTENT_DIMS_C'::h5sget_simple_extent_dims_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: dims
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: maxdims
+ END FUNCTION h5sget_simple_extent_dims_c
+ END INTERFACE
+
hdferr = h5sget_simple_extent_dims_c(space_id, dims, maxdims)
END SUBROUTINE h5sget_simple_extent_dims_f
+!----------------------------------------------------------------------
+! Name: h5sget_simple_extent_type_f
+!
+! Purpose: Determine the current class of a dataspace
+!
+! Inputs:
+! space_id - dataspace identifier
+! Outputs:
+! classtype - class type, possible values are:
+! H5S_NO_CLASS_F (-1)
+! H5S_SCALAR_F (0)
+! H5S_SIMPLE_F (1)
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sget_simple_extent_type_f(space_id, classtype, hdferr)
@@ -297,11 +965,50 @@
! H5S_SCALAR_F (0)
! H5S_SIMPLE_F (1)
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sget_simple_extent_type_c
+
+! INTEGER, EXTERNAL :: h5sget_simple_extent_type_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sget_simple_extent_type_c(space_id, classtype)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SGET_SIMPLE_EXTENT_TYPE_C'::h5sget_simple_extent_type_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER, INTENT(OUT) :: classtype
+ END FUNCTION h5sget_simple_extent_type_c
+ END INTERFACE
+
hdferr = h5sget_simple_extent_type_c(space_id, classtype)
END SUBROUTINE h5sget_simple_extent_type_f
+!----------------------------------------------------------------------
+! Name: h5sset_extent_simple_f
+!
+! Purpose: Sets or resets the size of an existing dataspace.
+!
+! Inputs:
+! space_id - dataspace identifier
+! rank - dataspace number of dimensions
+! current_size - array with the new sizes of dimensions
+! maximum_size - array with the new maximum sizes of
+! dimensions
+! Outputs:
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sset_extent_simple_f(space_id, rank, current_size, &
maximum_size, hdferr)
@@ -317,12 +1024,52 @@
! sizes of dimensions
! sizes
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sset_extent_simple_c
+
+! INTEGER, EXTERNAL :: h5sset_extent_simple_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sset_extent_simple_c(space_id, rank, &
+ current_size, maximum_size)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SSET_EXTENT_SIMPLE_C'::h5sset_extent_simple_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER, INTENT(IN) :: rank
+ INTEGER(HSIZE_T), DIMENSION(rank), INTENT(IN) :: current_size
+ INTEGER(HSIZE_T), DIMENSION(rank), INTENT(IN) :: maximum_size
+ END FUNCTION h5sset_extent_simple_c
+ END INTERFACE
+
hdferr = h5sset_extent_simple_c(space_id, rank, current_size, &
maximum_size)
END SUBROUTINE h5sset_extent_simple_f
+!----------------------------------------------------------------------
+! Name: h5sis_simple_f
+!
+! Purpose: Determines whether a dataspace is a simple dataspace.
+!
+! Inputs:
+! space_id - dataspace identifier
+! Outputs:
+! status - flag to indicate if dataspace
+! is simple or not
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sis_simple_f(space_id, status, hdferr)
@@ -333,13 +1080,50 @@
! FALSE)
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: flag ! "TRUE/FALSE/ERROR from C"
- INTEGER, EXTERNAL :: h5sis_simple_c
+
+! INTEGER, EXTERNAL :: h5sis_simple_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sis_simple_c(space_id, flag)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SIS_SIMPLE_C'::h5sis_simple_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER :: flag
+ END FUNCTION h5sis_simple_c
+ END INTERFACE
+
hdferr = h5sis_simple_c(space_id, flag)
status = .TRUE.
if (flag .EQ. 0) status = .FALSE.
END SUBROUTINE h5sis_simple_f
+!----------------------------------------------------------------------
+! Name: h5soffset_simple_f
+!
+! Purpose: Sets the offset of a simple dataspace.
+!
+! Inputs:
+! space_id - dataspace identifier
+! offset - the offset at which to position the
+! selection
+! Outputs:
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5soffset_simple_f(space_id, offset, hdferr)
IMPLICIT NONE
@@ -348,11 +1132,49 @@
! The offset at which to position
! the selection
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5soffset_simple_c
+
+! INTEGER, EXTERNAL :: h5soffset_simple_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5soffset_simple_c(space_id, offset)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SOFFSET_SIMPLE_C'::h5soffset_simple_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HSSIZE_T), DIMENSION(*), INTENT(IN) :: offset
+ END FUNCTION h5soffset_simple_c
+ END INTERFACE
+
hdferr = h5soffset_simple_c(space_id, offset)
END SUBROUTINE h5soffset_simple_f
+!----------------------------------------------------------------------
+! Name: h5sextent_copy_f
+!
+! Purpose: Copies the extent of a dataspace.
+!
+! Inputs:
+! dest_space_id - the identifier for the dataspace to which
+! the extent is copied
+! source_space_id - the identifier for the dataspace from
+! which the extent is copied
+! Outputs:
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sextent_copy_f(dest_space_id, source_space_id, hdferr)
@@ -362,22 +1184,98 @@
INTEGER(HID_T), INTENT(IN) :: source_space_id ! Identifier of source
! dataspace
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5sextent_copy_c
+
+! INTEGER, EXTERNAL :: h5sextent_copy_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sextent_copy_c(dest_space_id, source_space_id)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SEXTENT_COPY_C'::h5sextent_copy_c
+ INTEGER(HID_T), INTENT(IN) :: dest_space_id
+ INTEGER(HID_T), INTENT(IN) :: source_space_id
+ END FUNCTION h5sextent_copy_c
+ END INTERFACE
+
hdferr = h5sextent_copy_c(dest_space_id, source_space_id)
END SUBROUTINE h5sextent_copy_f
-
+!----------------------------------------------------------------------
+! Name: h5sset_extent_none_f
+!
+! Purpose: Removes the extent from a dataspace.
+!
+! Inputs:
+! space_id - dataspace identifier
+! Outputs:
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
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
- INTEGER, EXTERNAL :: h5sset_extent_none_c
+
+! INTEGER, EXTERNAL :: h5sset_extent_none_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sset_extent_none_c(space_id)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SSET_EXTENT_NONE_C'::h5sset_extent_none_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ END FUNCTION h5sset_extent_none_c
+ END INTERFACE
+
hdferr = h5sset_extent_none_c(space_id)
END SUBROUTINE h5sset_extent_none_f
+!----------------------------------------------------------------------
+! Name: h5sselect_hyperslab_f
+!
+! Purpose: Selects a hyperslab region to add to the current selected
+! region
+!
+! Inputs:
+! space_id - dataspace identifier
+! operator - flag, valid values are:
+! H5S_SELECT_SET_F (0)
+! H5S_SELECT_OR_F (1)
+! start - array with hyperslab offsets
+! count - number of blocks included in the
+! hyperslab
+! Outputs:
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! stride - array with hyperslab strides
+! block - array with hyperslab block sizes
+!
+! Programmer: Elena Pourmal
+! August 12, 1999
+!
+! Modifications: Explicit Fortran interfaces were added for
+! called C functions (it is needed for Windows
+! port). March 6, 2001
+!
+! Comment:
+!----------------------------------------------------------------------
SUBROUTINE h5sselect_hyperslab_f(space_id, operator, start, count, &
hdferr, stride, block)
@@ -400,9 +1298,26 @@
! Sizes of element block
INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: def_block
INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: def_stride
- INTEGER, EXTERNAL :: h5sselect_hyperslab_c
INTEGER :: rank
INTEGER :: error1, error2
+
+! INTEGER, EXTERNAL :: h5sselect_hyperslab_c
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5sselect_hyperslab_c(space_id, operator, &
+ start, count, stride, block)
+ USE H5GLOBAL
+ !MS$ATTRIBUTES C,reference,alias:'_H5SSELECT_HYPERSLAB_C'::h5sselect_hyperslab_c
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER, INTENT(IN) :: operator
+ INTEGER(HSSIZE_T), DIMENSION(*), INTENT(IN) :: start
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: count
+ INTEGER(HSIZE_T), DIMENSION(*), OPTIONAL, INTENT(IN) :: stride
+ INTEGER(HSIZE_T), DIMENSION(*), OPTIONAL, INTENT(IN) :: block
+ END FUNCTION h5sselect_hyperslab_c
+ END INTERFACE
+
if (present(stride).and. present(block)) then
hdferr = h5sselect_hyperslab_c(space_id, operator, start, count, &
stride, block)