diff options
| -rw-r--r-- | fortran/src/H5Sf.c | 108 |
1 files changed, 51 insertions, 57 deletions
diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c index 67427a7..741bf96 100644 --- a/fortran/src/H5Sf.c +++ b/fortran/src/H5Sf.c @@ -30,9 +30,9 @@ * PURPOSE * Call H5Screate_simple to create a dataspace * INPUTS - * rank - number of dimensions of dataspace - * dims - array of the size of each dimension - maxdims - an array of the maximum size of each dimension + * rank - number of dimensions of dataspace + * dims - array of the size of each dimension + * maxdims - an array of the maximum size of each dimension * OUTPUTS * space_id - identifier of the created dataspace * RETURNS @@ -110,7 +110,7 @@ h5sclose_c ( hid_t_f *space_id ) * INPUTS * classtype - type of the dataspace class * OUTPUTS - * space_id - identifier of the created dataspace + * space_id - identifier of the created dataspace * RETURNS * 0 on success, -1 on failure * AUTHOR @@ -142,7 +142,7 @@ h5screate_c ( int_f *classtype, hid_t_f *space_id ) * PURPOSE * Call H5Scopy to copy dataspace * INPUTS - * space_id - identifier of the dataspace to be copied + * space_id - identifier of the dataspace to be copied * OUTPUTS * new_space_id - identifier of the new datspace * RETURNS @@ -179,10 +179,10 @@ h5scopy_c( hid_t_f *space_id , hid_t_f *new_space_id) * get the the number of hyperslab blocks in * the current dataspace selection if successful * INPUTS - * space_id - identifier of the dataspace + * space_id - identifier of the dataspace * OUTPUTS * num_blocks - number of hyperslab blocks in - * the current dataspace selection + * the current dataspace selection * RETURNS * 0 on success, -1 on failure * AUTHOR @@ -217,10 +217,10 @@ h5sget_select_hyper_nblocks_c( hid_t_f *space_id , hssize_t_f * num_blocks) * get the the number of element points in * the current dataspace selection if successful * INPUTS - * space_id - identifier of the dataspace + * space_id - identifier of the dataspace * OUTPUTS * num_points - number of element points in - * the current dataspace selection + * the current dataspace selection * RETURNS * 0 on success, -1 on failure * AUTHOR @@ -259,10 +259,10 @@ h5sget_select_elem_npoints_c( hid_t_f *space_id , hssize_t_f * num_points) * blocks are inserted, the buffer * will contain only as many blocks as fit. * INPUTS - * space_id - identifier of the dataspace + * space_id - identifier of the dataspace * startblock - Hyperslab block to start with * num_blocks - number of hyperslab blocks in - * the current dataspace selection + * the current dataspace selection * OUTPUTS * buf - List of hyperslab blocks selected * RETURNS @@ -312,9 +312,9 @@ h5sget_select_hyper_blocklist_c( hid_t_f *space_id ,hsize_t_f *startblock, for (i=0; i < c_num_blocks; i++) { for (j=0; j < rank; j++) { for (k=0; k < rank; k++) { - int t= (m + rank - k - 1); - buf[n] = (hsize_t_f)c_buf[t]+1; - n = n + 1; + int t= (m + rank - k - 1); + buf[n] = (hsize_t_f)c_buf[t]+1; + n = n + 1; } m = m + rank; } @@ -336,8 +336,8 @@ h5sget_select_hyper_blocklist_c( hid_t_f *space_id ,hsize_t_f *startblock, * space_id - identifier of the dataspace * OUTPUTS * start - Starting coordinates of the bounding box - * end - Ending coordinates of the bounding box, - * i.e., the coordinates of the diagonally opposite corne + * end - Ending coordinates of the bounding box, + * i.e., the coordinates of the diagonally opposite corne * RETURNS * 0 on success, -1 on failure * AUTHOR @@ -390,9 +390,9 @@ done: * points are inserted, the buffer * will contain only as many points as fit. * INPUTS - * space_id - identifier of the dataspace + * space_id - identifier of the dataspace * startpoint - Element point to start with - * numpoints - Number of element points to get + * numpoints - Number of element points to get * OUTPUTS * buf - List of element points selected * RETURNS @@ -516,8 +516,8 @@ h5sselect_none_c ( hid_t_f *space_id ) * INPUTS * space_id - identifier of the dataspace * OUTPUTS - * flag - 0 if not valid selection, 1 if is valid selection, - * and negative on failure. + * flag - 0 if not valid selection, 1 if is valid selection, + * and negative on failure. * RETURNS * 0 on success, -1 on failure * AUTHOR @@ -552,7 +552,7 @@ h5sselect_valid_c ( hid_t_f *space_id , int_f *flag ) * INPUTS * space_id - identifier of the dataspace * OUTPUTS - * npoints - number of points in a dataspace + * npoints - number of points in a dataspace * RETURNS * 0 on success, -1 on failure * AUTHOR @@ -587,7 +587,7 @@ h5sget_simple_extent_npoints_c ( hid_t_f *space_id , hsize_t_f *npoints ) * INPUTS * space_id - identifier of the dataspace * OUTPUTS - * npoints - number of points in a dataspace selection + * npoints - number of points in a dataspace selection * RETURNS * 0 on success, -1 on failure * AUTHOR @@ -655,7 +655,7 @@ h5sget_simple_extent_ndims_c ( hid_t_f *space_id , int_f *ndims ) * Call H5Sget_simple_extent_type to determine the class type * of a dataspace * INPUTS - * space_id - identifier of the dataspace + * space_id - identifier of the dataspace * OUTPUTS * classtype - class type; possible values are: * H5S_SCALAR_F (0), H5S_SIMPLE_F (1), H5S_NULL_F (2) @@ -697,7 +697,7 @@ h5sget_simple_extent_type_c ( hid_t_f *space_id , int_f *classtype) * dataspace * INPUTS * space_id - identifier of the dataspace - * offset - offset array + * offset - offset array * RETURNS * 0 on success, -1 on failure * AUTHOR @@ -743,8 +743,8 @@ done: * Call H5Sset_extent_simple to set or reset size of * existing dataspace * INPUTS - * space_id - identifier of the dataspace - * rank - dataspace rank + * space_id - identifier of the dataspace + * rank - dataspace rank * current_size - array with the new dimension sizes * maximum_size - aray with maximum sizes of dimensions * RETURNS @@ -791,7 +791,7 @@ done: * INPUTS * space_id - identifier of the dataspace * OUTPUTS - * dims - array with the dimension sizes + * dims - array with the dimension sizes * maxdims - aray with maximum sizes of dimensions * RETURNS * number of dataspace dimensions (rank) on success, -1 on failure @@ -845,8 +845,8 @@ done: * INPUTS * space_id - identifier of the dataspace * OUTPUTS - * flag - 0 if not simple, 1 if is simple, - * and negative on failure. + * flag - 0 if not simple, 1 if is simple, + * and negative on failure. * RETURNS * 0 on success, -1 on failure * AUTHOR @@ -879,7 +879,7 @@ h5sis_simple_c ( hid_t_f *space_id , int_f *flag ) * PURPOSE * Call H5Sextent_copy to copy an extent of dataspace * INPUTS - * dest_space_id - identifier of the destination dataspace + * dest_space_id - identifier of the destination dataspace * source_space_id - identifier of the source dataspace * RETURNS * 0 on success, -1 on failure @@ -945,12 +945,12 @@ h5sset_extent_none_c ( hid_t_f *space_id ) * INPUTS * space_id - identifier of the dataspace * operator - defines how the new selection is combined - * with the previous one; current values are - * H5S_SELECT_SET_F (0) and H5S_SELECT_OR_F (1) - * start - offset of start of hyperslab - * count - number of blocks included in the hyperslab - * stride - hyperslab stride (interval between blocks) - * block - size of block in the hyperslab + * with the previous one; current values are + * H5S_SELECT_SET_F (0) and H5S_SELECT_OR_F (1) + * start - offset of start of hyperslab + * count - number of blocks included in the hyperslab + * stride - hyperslab stride (interval between blocks) + * block - size of block in the hyperslab * RETURNS * 0 on success, -1 on failure * AUTHOR @@ -1006,10 +1006,10 @@ done: * INPUTS * space_id - identifier of the dataspace * operator - defines how the new selection is combined - * start - offset of start of hyperslab - * count - number of blocks included in the hyperslab - * stride - hyperslab stride (interval between blocks) - * block - size of block in the hyperslab + * start - offset of start of hyperslab + * count - number of blocks included in the hyperslab + * stride - hyperslab stride (interval between blocks) + * block - size of block in the hyperslab * OUTPUTS * hyper_id - identifier for the new dataspace * RETURNS @@ -1087,10 +1087,10 @@ DONE: * Call H5Scombine_ select * INPUTS * space1_id - identifier of the first dataspace - * operator - defines how the new selection is combined + * operator - defines how the new selection is combined * space2_id - identifier of the second dataspace * OUTPUTS - * ds_id - identifier for the new dataspace + * ds_id - identifier for the new dataspace * RETURNS * 0 on success, -1 on failure * AUTHOR @@ -1199,12 +1199,12 @@ h5sget_select_type_c ( hid_t_f *space_id , int_f *type) * PURPOSE * Call H5Sselect_elements to select elements of a dataspace * INPUTS - * space_id - identifier of the dataspace - * operator - defines how the new selection is combined - * with the previous one; current values are - * H5S_SELECT_SET_F (0) + * space_id - identifier of the dataspace + * operator - defines how the new selection is combined + * with the previous one; current values are + * H5S_SELECT_SET_F (0) * nelements - number of elements in the selection - * coord - arrays with the elements coordinates + * coord - arrays with the elements coordinates * RETURNS * 0 on success, -1 on failure * AUTHOR @@ -1238,7 +1238,7 @@ h5sselect_elements_c ( hid_t_f *space_id , int_f *op, size_t_f *nelements, hsiz if(!c_coord) return ret_value; for (i=0; i< (size_t)*nelements; i++) { for (j = 0; j < rank; j++) { - c_coord[(size_t)j+i*(size_t)rank] = (hsize_t)coord[(size_t)j + i*(size_t)rank]; + c_coord[(size_t)j+i*(size_t)rank] = (hsize_t)coord[(size_t)j + i*(size_t)rank]; } } @@ -1255,12 +1255,9 @@ h5sselect_elements_c ( hid_t_f *space_id , int_f *op, size_t_f *nelements, hsiz * PURPOSE * Call H5Sdecode * INPUTS - * - * buf - Buffer for the data space object to be decoded. + * buf - Buffer for the data space object to be decoded. * OUTPUTS - * * obj_id - Object_id (non-negative) - * * RETURNS * 0 on success, -1 on failure * AUTHOR @@ -1301,9 +1298,8 @@ h5sdecode_c ( _fcd buf, hid_t_f *obj_id ) * PURPOSE * Call H5Sencode * INPUTS - * * obj_id - Identifier of the object to be encoded. - * buf - Buffer for the object to be encoded into. + * buf - Buffer for the object to be encoded into. * nalloc - The size of the allocated buffer. * RETURNS * 0 on success, -1 on failure @@ -1370,11 +1366,9 @@ h5sencode_c (_fcd buf, hid_t_f *obj_id, size_t_f *nalloc ) * PURPOSE * Call H5Sextent_equal * INPUTS - * - * space1_id - First dataspace identifier. + * space1_id - First dataspace identifier. * space2_id - Second dataspace identifier. * OUTPUTS - * * equal - TRUE if equal, FALSE if unequal. * RETURNS * 0 on success, -1 on failure |