diff options
Diffstat (limited to 'fortran/src/H5Sff.F90')
-rw-r--r-- | fortran/src/H5Sff.F90 | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/fortran/src/H5Sff.F90 b/fortran/src/H5Sff.F90 index 6599863..11404d4 100644 --- a/fortran/src/H5Sff.F90 +++ b/fortran/src/H5Sff.F90 @@ -53,6 +53,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param maxdims An array of the maximum size of each dimension. !! +!! See C API: @ref hid_t H5Screate_simple(int rank, const hsize_t dims[], const hsize_t maxdims[]); +!! SUBROUTINE h5screate_simple_f(rank, dims, space_id, hdferr, maxdims) IMPLICIT NONE @@ -97,6 +99,8 @@ CONTAINS !! \param space_id Identifier of dataspace to release. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sclose(hid_t space_id); +!! SUBROUTINE h5sclose_f(space_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -125,6 +129,8 @@ CONTAINS !! \param space_id Dataspace identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Screate(H5S_class_t type); +!! SUBROUTINE h5screate_f(classtype, space_id, hdferr) IMPLICIT NONE INTEGER, INTENT(IN) :: classtype @@ -152,6 +158,8 @@ CONTAINS !! \param new_space_id Identifier of dataspace's copy. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Scopy(hid_t space_id); +!! SUBROUTINE h5scopy_f(space_id, new_space_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -179,6 +187,8 @@ CONTAINS !! \param num_blocks Number of hyperslab blocks in the current hyperslab selection. !! \param hdferr \fortran_error !! +!! See C API: @ref hssize_t H5Sget_select_hyper_nblocks(hid_t spaceid); +!! SUBROUTINE h5sget_select_hyper_nblocks_f(space_id, num_blocks, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -209,6 +219,8 @@ CONTAINS !! \param buf Buffer to hold block list. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sget_select_hyper_blocklist(hid_t spaceid, hsize_t startblock, hsize_t numblocks, hsize_t buf[]); +!! SUBROUTINE h5sget_select_hyper_blocklist_f(space_id, startblock, & num_blocks, buf, hdferr) IMPLICIT NONE @@ -243,6 +255,8 @@ CONTAINS !! \param end Ending coordinates of bounding box, i.e., the coordinates of the diagonally opposite corner. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sget_select_bounds(hid_t spaceid, hsize_t start[], hsize_t end[]); +!! SUBROUTINE h5sget_select_bounds_f(space_id, start, END, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -273,6 +287,8 @@ CONTAINS !! \param num_points Number of element points in the current dataspace selection !! \param hdferr \fortran_error !! +!! See C API: @ref hssize_t H5Sget_select_elem_npoints(hid_t spaceid); +!! SUBROUTINE h5sget_select_elem_npoints_f(space_id, num_points, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -301,6 +317,8 @@ CONTAINS !! \param buf Buffer with element points selected. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sget_select_elem_pointlist(hid_t spaceid, hsize_t startpoint, hsize_t numpoints, hsize_t buf[]); +!! SUBROUTINE h5sget_select_elem_pointlist_f(space_id, startpoint, & num_points, buf, hdferr) IMPLICIT NONE @@ -342,6 +360,8 @@ CONTAINS !! array is stored in 2D as (num_element x rank). !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sselect_elements(hid_t space_id, H5S_seloper_t op, size_t num_elem, const hsize_t *coord); +!! SUBROUTINE h5sselect_elements_f(space_id, OPERATOR, rank, & num_elements, coord, hdferr) IMPLICIT NONE @@ -398,6 +418,8 @@ CONTAINS !! \param space_id Identifier for the dataspace in which selection being made. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sselect_all(hid_t spaceid); +!! SUBROUTINE h5sselect_all_f(space_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -422,6 +444,8 @@ CONTAINS !! \param space_id The identifier for the dataspace in which the selection is being reset. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sselect_none(hid_t spaceid); +!! SUBROUTINE h5sselect_none_f(space_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -447,6 +471,8 @@ CONTAINS !! \param status TRUE if the selection is contained within the extent, FALSE otherwise. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Sselect_valid(hid_t spaceid); +!! SUBROUTINE h5sselect_valid_f(space_id, status, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -478,6 +504,8 @@ CONTAINS !! \param npoints Number of elements in the dataspace. !! \param hdferr \fortran_error !! +!! See C API: @ref hssize_t H5Sget_simple_extent_npoints(hid_t space_id); +!! SUBROUTINE h5sget_simple_extent_npoints_f(space_id, npoints, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -505,6 +533,8 @@ CONTAINS !! \param npoints Number of points in the dataspace selection. !! \param hdferr \fortran_error !! +!! See C API: @ref hssize_t H5Sget_select_npoints(hid_t spaceid); +!! SUBROUTINE h5sget_select_npoints_f(space_id, npoints, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -532,6 +562,8 @@ CONTAINS !! \param rank Number of dataspace dimensions. !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Sget_simple_extent_ndims(hid_t space_id); +!! SUBROUTINE h5sget_simple_extent_ndims_f(space_id, rank, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -559,6 +591,8 @@ CONTAINS !! \param maxdims Array to store maximum size of each dimension. !! \param hdferr \fortran_error !! +!! See C API: @ref int H5Sget_simple_extent_dims(hid_t space_id, hsize_t dims[], hsize_t maxdims[]); +!! SUBROUTINE h5sget_simple_extent_dims_f(space_id, dims, maxdims, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -592,6 +626,8 @@ CONTAINS !! \li H5S_NULL_F !! \param hdferr \fortran_error !! +!! See C API: @ref H5S_class_t H5Sget_simple_extent_type(hid_t space_id); +!! SUBROUTINE h5sget_simple_extent_type_f(space_id, classtype, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -621,6 +657,8 @@ CONTAINS !! \param maximum_size Array with the new maximum sizes of dimensions. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sset_extent_simple(hid_t space_id, int rank, const hsize_t dims[], const hsize_t max[]); +!! SUBROUTINE h5sset_extent_simple_f(space_id, rank, current_size, & maximum_size, hdferr) IMPLICIT NONE @@ -653,6 +691,8 @@ CONTAINS !! \param status Flag to indicate if dataspace is simple or not (TRUE or FALSE). !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Sis_simple(hid_t space_id); +!! SUBROUTINE h5sis_simple_f(space_id, status, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -684,6 +724,8 @@ CONTAINS !! \param offset The offset at which to position the selection. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Soffset_simple(hid_t space_id, const hssize_t *offset); +!! SUBROUTINE h5soffset_simple_f(space_id, offset, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -711,6 +753,8 @@ CONTAINS !! \param source_space_id The identifier for the dataspace from which the extent is copied. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sextent_copy(hid_t dst_id, hid_t src_id); +!! SUBROUTINE h5sextent_copy_f(dest_space_id, source_space_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dest_space_id @@ -737,6 +781,8 @@ CONTAINS !! \param space_id Dataspace identifier. !! \param hdferr \fortran_error !! +!! See C API: @ref herr_t H5Sset_extent_none(hid_t space_id); +!! SUBROUTINE h5sset_extent_none_f(space_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id @@ -768,6 +814,8 @@ CONTAINS !! \param stride Array with hyperslab strides. !! \param block Array with hyperslab block sizes. !! +!! See C API: @ref herr_t H5Sselect_hyperslab(hid_t space_id, H5S_seloper_t op, const hsize_t start[], const hsize_t stride[], const hsize_t count[], const hsize_t block[]); +!! SUBROUTINE h5sselect_hyperslab_f(space_id, OPERATOR, start, count, & hdferr, stride, BLOCK) IMPLICIT NONE @@ -1117,6 +1165,8 @@ CONTAINS !! \li H5S_SEL_ALL_F !! \param hdferr \fortran_error !! +!! See C API: @ref H5S_sel_type H5Sget_select_type(hid_t spaceid); +!! SUBROUTINE h5sget_select_type_f(space_id, TYPE, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(INOUT) :: space_id @@ -1145,6 +1195,8 @@ CONTAINS !! \param obj_id Object ID. !! \param hdferr \fortran_error !! +!! See C API: @ref hid_t H5Sdecode(const void *buf); +!! SUBROUTINE h5sdecode_f(buf, obj_id, hdferr) IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: buf @@ -1174,6 +1226,8 @@ CONTAINS !! \param hdferr \fortran_error !! \param fapl_id File access property list identifier. !! +!! See C API: @ref herr_t H5Sencode2(hid_t obj_id, void *buf, size_t *nalloc, hid_t fapl); +!! SUBROUTINE h5sencode_f(obj_id, buf, nalloc, hdferr, fapl_id) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id @@ -1212,6 +1266,8 @@ CONTAINS !! \param Equal .TRUE. if equal, .FALSE. if unequal. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Sextent_equal(hid_t space1_id, hid_t space2_id); +!! SUBROUTINE h5sextent_equal_f(space1_id, space2_id, equal, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space1_id @@ -1248,6 +1304,8 @@ CONTAINS !! \param block Size of a block in the regular hyperslab. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Sget_regular_hyperslab(hid_t spaceid, hsize_t start[], hsize_t stride[], hsize_t count[], hsize_t block[]); +!! SUBROUTINE h5sget_regular_hyperslab_f(space_id, start, stride, count, block, hdferr) IMPLICIT NONE @@ -1302,6 +1360,8 @@ CONTAINS !! \param IsRegular TRUE or FALSE for hyperslab selection if successful. !! \param hdferr \fortran_error !! +!! See C API: @ref htri_t H5Sis_regular_hyperslab(hid_t spaceid); +!! SUBROUTINE h5sis_regular_hyperslab_f(space_id, IsRegular, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: space_id |