diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2005-08-13 20:53:35 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2005-08-13 20:53:35 (GMT) |
| commit | 6b45f5172ccb4311e0be9ae15da3758abb6b0e67 (patch) | |
| tree | 5a7a112fe7a8a98c6fecb45b513789d15962eb3d /fortran/src/H5Pf.c | |
| parent | 6562465a2c2a58cfbc2f47bf60bb538f7a783933 (diff) | |
| download | hdf5-6b45f5172ccb4311e0be9ae15da3758abb6b0e67.zip hdf5-6b45f5172ccb4311e0be9ae15da3758abb6b0e67.tar.gz hdf5-6b45f5172ccb4311e0be9ae15da3758abb6b0e67.tar.bz2 | |
[svn-r11245] Purpose:
Code cleanup
Description:
Trim trailing whitespace, which is making 'diff'ing the two branches
difficult.
Solution:
Ran this script in each directory:
foreach f (*.[ch] *.cpp)
sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f
end
Platforms tested:
FreeBSD 4.11 (sleipnir)
Too minor to require h5committest
Diffstat (limited to 'fortran/src/H5Pf.c')
| -rw-r--r-- | fortran/src/H5Pf.c | 632 |
1 files changed, 316 insertions, 316 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c index 2b6e8be..91508c0 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -19,24 +19,24 @@ /*---------------------------------------------------------------------------- * Name: h5pcreate_c - * Purpose: Call H5Pcreate to create a property list + * Purpose: Call H5Pcreate to create a property list * Inputs: class - property list class identifier - * Outputs: prp_id - identifier of the created property list + * Outputs: prp_id - identifier of the created property list * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Wednesday, October 9, 2002 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pcreate_c ( hid_t_f *class, hid_t_f *prp_id ) { hid_t c_class; int ret_value = 0; hid_t c_prp_id; - + c_class = (hid_t)*class; - c_prp_id = H5Pcreate(c_class); + c_prp_id = H5Pcreate(c_class); if ( c_prp_id < 0 ) ret_value = -1; *prp_id = (hid_t_f)c_prp_id; @@ -45,7 +45,7 @@ nh5pcreate_c ( hid_t_f *class, hid_t_f *prp_id ) /*---------------------------------------------------------------------------- * Name: h5pclose_c - * Purpose: Call H5Pclose to close property lis + * Purpose: Call H5Pclose to close property lis * Inputs: prp_id - identifier of the property list to be closed * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -53,7 +53,7 @@ nh5pcreate_c ( hid_t_f *class, hid_t_f *prp_id ) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pclose_c ( hid_t_f *prp_id ) { int ret_value = 0; @@ -66,16 +66,16 @@ nh5pclose_c ( hid_t_f *prp_id ) /*---------------------------------------------------------------------------- * Name: h5pcopy_c - * Purpose: Call H5Pcopy to copy property list - * Inputs: prp_id - identifier of the property list to be copied - * Outputs: new_prp_id - identifier of the new property list + * Purpose: Call H5Pcopy to copy property list + * Inputs: prp_id - identifier of the property list to be copied + * Outputs: new_prp_id - identifier of the new property list * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Saturday, August 14, 1999 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pcopy_c ( hid_t_f *prp_id , hid_t_f *new_prp_id) { int ret_value = 0; @@ -83,7 +83,7 @@ nh5pcopy_c ( hid_t_f *prp_id , hid_t_f *new_prp_id) hid_t c_new_prp_id; c_prp_id = *prp_id; - c_new_prp_id = H5Pcopy(c_prp_id); + c_new_prp_id = H5Pcopy(c_prp_id); if ( c_new_prp_id < 0 ) ret_value = -1; *new_prp_id = (hid_t_f)c_new_prp_id; return ret_value; @@ -91,7 +91,7 @@ nh5pcopy_c ( hid_t_f *prp_id , hid_t_f *new_prp_id) /*---------------------------------------------------------------------------- * Name: h5pequal_c - * Purpose: Call H5Pequal to check if two property lists are equal + * Purpose: Call H5Pequal to check if two property lists are equal * Inputs: plist1_id - property list identifier * plist2_id - property list identifier * Outputs: c_flag - flag to indicate that lists are eqaul @@ -101,7 +101,7 @@ nh5pcopy_c ( hid_t_f *prp_id , hid_t_f *new_prp_id) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pequal_c ( hid_t_f *plist1_id , hid_t_f *plist2_id, int_f * c_flag) { int ret_value = 0; @@ -111,7 +111,7 @@ nh5pequal_c ( hid_t_f *plist1_id , hid_t_f *plist2_id, int_f * c_flag) c_plist1_id = (hid_t)*plist1_id; c_plist2_id = (hid_t)*plist2_id; - c_c_flag = H5Pequal(c_plist1_id, c_plist2_id); + c_c_flag = H5Pequal(c_plist1_id, c_plist2_id); if ( c_c_flag < 0 ) ret_value = -1; *c_flag = (int_f)c_c_flag; return ret_value; @@ -121,9 +121,9 @@ nh5pequal_c ( hid_t_f *plist1_id , hid_t_f *plist2_id, int_f * c_flag) /*---------------------------------------------------------------------------- * Name: h5pget_class_c * Purpose: Call H5Pget_class to determine property list class - * Inputs: prp_id - identifier of the dataspace + * Inputs: prp_id - identifier of the dataspace * Outputs: classtype - class type; possible values are: - * H5P_NO_CLASS_F -1 + * H5P_NO_CLASS_F -1 * H5P_FILE_CREATE_F 0 * H5P_FILE_ACCESS_F 1 * H5P_DATASET_CREATE_F 2 @@ -135,17 +135,17 @@ nh5pequal_c ( hid_t_f *plist1_id , hid_t_f *plist2_id, int_f * c_flag) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pget_class_c ( hid_t_f *prp_id , int_f *classtype) { int ret_value = 0; hid_t c_prp_id; - hid_t c_classtype; + hid_t c_classtype; c_prp_id = *prp_id; c_classtype = H5Pget_class(c_prp_id); if (c_classtype == H5P_NO_CLASS ) { - *classtype = H5P_NO_CLASS; + *classtype = H5P_NO_CLASS; ret_value = -1; return ret_value; } @@ -156,17 +156,17 @@ nh5pget_class_c ( hid_t_f *prp_id , int_f *classtype) /*---------------------------------------------------------------------------- * Name: h5pset_preserve_c - * Purpose: Call H5Pset_preserve to set transfer property for compound + * Purpose: Call H5Pset_preserve to set transfer property for compound * datatype - * Inputs: prp_id - property list identifier - * flag - TRUE/FALSE flag + * Inputs: prp_id - property list identifier + * flag - TRUE/FALSE flag * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal - * Thursday, February 17, 2000 + * Thursday, February 17, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_preserve_c ( hid_t_f *prp_id , int_f *flag) { int ret_value = 0; @@ -184,22 +184,22 @@ nh5pset_preserve_c ( hid_t_f *prp_id , int_f *flag) /*---------------------------------------------------------------------------- * Name: h5pget_preserve_c - * Purpose: Call H5Pget_preserve to set transfer property for compound + * Purpose: Call H5Pget_preserve to set transfer property for compound * datatype - * Inputs: prp_id - property list identifier - * Outputs: flag - TRUE/FALSE flag + * Inputs: prp_id - property list identifier + * Outputs: flag - TRUE/FALSE flag * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal - * Thursday, February 17, 2000 + * Thursday, February 17, 2000 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pget_preserve_c ( hid_t_f *prp_id , int_f *flag) { int ret_value = 0; hid_t c_prp_id; - int c_flag; + int c_flag; c_prp_id = (hid_t)*prp_id; c_flag = H5Pget_preserve(c_prp_id); @@ -210,16 +210,16 @@ nh5pget_preserve_c ( hid_t_f *prp_id , int_f *flag) /*---------------------------------------------------------------------------- * Name: h5pset_deflate_c - * Purpose: Call H5Pset_deflate to set deflate level - * Inputs: prp_id - property list identifier - * level - level of deflation + * Purpose: Call H5Pset_deflate to set deflate level + * Inputs: prp_id - property list identifier + * level - level of deflation * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Saturday, August 14, 1999 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_deflate_c ( hid_t_f *prp_id , int_f *level) { int ret_value = 0; @@ -239,17 +239,17 @@ nh5pset_deflate_c ( hid_t_f *prp_id , int_f *level) /*---------------------------------------------------------------------------- * Name: h5pset_chunk_c * Purpose: Call H5Pset_chunk to set the sizes of chunks for a chunked - * layout dataset - * Inputs: prp_id - property list identifier - * rank - number of dimensions of each chunk - * dims - array of the size of each chunk + * layout dataset + * Inputs: prp_id - property list identifier + * rank - number of dimensions of each chunk + * dims - array of the size of each chunk * Returns: 0 on success, -1 on failure * Saturday, August 14, 1999 * Programmer: Elena Pourmal * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_chunk_c ( hid_t_f *prp_id, int_f *rank, hsize_t_f *dims ) { int ret_value = -1; @@ -278,23 +278,23 @@ nh5pset_chunk_c ( hid_t_f *prp_id, int_f *rank, hsize_t_f *dims ) DONE: HDfree (c_dims); return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_chunk_c * Purpose: Call H5Pget_chunk to get the sizes of chunks for a chunked * layout dataset for at list max_rank number of dimensions - * Inputs: prp_id - property list identifier - * max rank - maximum number of dimensions to return - * dims - array of the size of each chunk + * Inputs: prp_id - property list identifier + * max rank - maximum number of dimensions to return + * dims - array of the size of each chunk * Returns: number of chunk's dimnesion on success, -1 on failure * Saturday, August 14, 1999 * Programmer: Elena Pourmal * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pget_chunk_c ( hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims ) { int ret_value = -1; @@ -321,16 +321,16 @@ nh5pget_chunk_c ( hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims ) if (rank < 0) return ret_value; ret_value = (int_f)rank; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pset_fill_valuec_c * Purpose: Call h5pset_fill_value_c to a character fill value - * Inputs: prp_id - property list identifier + * Inputs: prp_id - property list identifier * type_id - datatype identifier (fill value is of type type_id) - * fillvalue - character value + * fillvalue - character value * Returns: 0 on success, -1 on failure * Saturday, August 14, 1999 * Programmer: Elena Pourmal @@ -340,7 +340,7 @@ int_f nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue) { int ret_value = -1; - + /* * Call h5pset_fill_value_c function. */ @@ -351,10 +351,10 @@ nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue) /*---------------------------------------------------------------------------- * Name: h5pset_fill_value_c - * Purpose: Call H5Pset_fill_value to set a fillvalue for a dataset - * Inputs: prp_id - property list identifier + * Purpose: Call H5Pset_fill_value to set a fillvalue for a dataset + * Inputs: prp_id - property list identifier * type_id - datatype identifier (fill value is of type type_id) - * fillvalue - fillvalue + * fillvalue - fillvalue * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Saturday, August 14, 1999 @@ -378,15 +378,15 @@ nh5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_fill_valuec_c * Purpose: Call h5pget_fill_value_c to a character fill value - * Inputs: prp_id - property list identifier + * Inputs: prp_id - property list identifier * type_id - datatype identifier (fill value is of type type_id) - * fillvalue - character value + * fillvalue - character value * Returns: 0 on success, -1 on failure * Saturday, August 14, 1999 * Programmer: Elena Pourmal @@ -396,7 +396,7 @@ int_f nh5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue) { int ret_value = -1; - + /* * Call h5pget_fill_value_c function. */ @@ -407,10 +407,10 @@ nh5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue) /*---------------------------------------------------------------------------- * Name: h5pget_fill_value_c - * Purpose: Call H5Pget_fill_value to set a fillvalue for a dataset - * Inputs: prp_id - property list identifier + * Purpose: Call H5Pget_fill_value to set a fillvalue for a dataset + * Inputs: prp_id - property list identifier * type_id - datatype identifier (fill value is of type type_id) - * fillvalue - fillvalue + * fillvalue - fillvalue * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Saturday, August 14, 1999 @@ -434,13 +434,13 @@ nh5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_version_c * Purpose: Call H5Pget_version to get the version information - * of various objects for a file creation property list - * Inputs: prp_id - property list identifier + * of various objects for a file creation property list + * Inputs: prp_id - property list identifier * Outputs: boot - array to put boot block version number * freelist - array to put global freelist version number * stab - array to put symbol table version number @@ -475,13 +475,13 @@ nh5pget_version_c (hid_t_f *prp_id, int_f * boot,int_f * freelist, int_f * stab, ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_userblock_c - * Purpose: Call H5Pget_userblock to get the size of a user block in + * Purpose: Call H5Pget_userblock to get the size of a user block in * a file creation property list - * Inputs: prp_id - property list identifier + * Inputs: prp_id - property list identifier * Outputs size - Size of the user-block in bytes * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su @@ -507,13 +507,13 @@ nh5pget_userblock_c (hid_t_f *prp_id, hsize_t_f * size) ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pset_userblock_c - * Purpose: Call H5Pset_userblock to set the size of a user block in + * Purpose: Call H5Pset_userblock to set the size of a user block in * a file creation property list - * Inputs: prp_id - property list identifier + * Inputs: prp_id - property list identifier * size - Size of the user-block in bytes * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su @@ -538,13 +538,13 @@ nh5pset_userblock_c (hid_t_f *prp_id, hsize_t_f * size) if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_sizes_c - * Purpose: Call H5Pget_sizes to get the size of the offsets - * and lengths used in an HDF5 file - * Inputs: prp_id - property list identifier + * Purpose: Call H5Pget_sizes to get the size of the offsets + * and lengths used in an HDF5 file + * Inputs: prp_id - property list identifier * Outputs sizeof_addr - Size of an object offset in bytes * sizeof_size - Size of an object length in bytes * Returns: 0 on success, -1 on failure @@ -573,12 +573,12 @@ nh5pget_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pset_sizes_c * Purpose: Call H5Pset_sizes to set the size of the offsets - * Inputs: prp_id - property list identifier + * Inputs: prp_id - property list identifier * sizeof_addr - Size of an object offset in bytes * sizeof_size - Size of an object length in bytes * Returns: 0 on success, -1 on failure @@ -605,15 +605,15 @@ nh5pset_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pset_sym_k_c - * Purpose: Call H5Pset_sym_k to set the size of parameters used - * to control the symbol table node + * Purpose: Call H5Pset_sym_k to set the size of parameters used + * to control the symbol table node * Inputs: prp_id - property list identifier * ik - Symbol table tree rank - * lk - Symbol table node size + * lk - Symbol table node size * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su * Friday, February 25, 2000 @@ -639,15 +639,15 @@ nh5pset_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk) if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_sym_k_c - * Purpose: Call H5Pget_sym_k to get the size of parameters used - * to control the symbol table node + * Purpose: Call H5Pget_sym_k to get the size of parameters used + * to control the symbol table node * Inputs: prp_id - property list identifier * Outputs: ik - Symbol table tree rank - * lk - Symbol table node size + * lk - Symbol table node size * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su * Friday, February 25, 2000 @@ -672,7 +672,7 @@ nh5pget_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk) if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pset_istore_k_c @@ -703,12 +703,12 @@ nh5pset_istore_k_c (hid_t_f *prp_id, int_f* ik) if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_istore_k_c - * Purpose: Call H5Pget_istore_k to get the size of parameters used - * to control the B-trees for indexing chunked datasets + * Purpose: Call H5Pget_istore_k to get the size of parameters used + * to control the B-trees for indexing chunked datasets * Inputs: prp_id - property list identifier * Outputs: ik - Symbol table tree rank * Returns: 0 on success, -1 on failure @@ -733,11 +733,11 @@ nh5pget_istore_k_c (hid_t_f *prp_id, int_f* ik) if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_driver_c - * Purpose: Call H5Pget_driver to get low-level file driver identifier + * Purpose: Call H5Pget_driver to get low-level file driver identifier * Inputs: prp_id - property list identifier * Outputs: driver - low-level file driver identifier * Returns: 0 on success, -1 on failure @@ -762,11 +762,11 @@ nh5pget_driver_c (hid_t_f *prp_id, hid_t_f* driver) DONE: return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pset_fapl_stdio_c - * Purpose: Call H5Pset_stdio to set the low level file driver to + * Purpose: Call H5Pset_stdio to set the low level file driver to * use the functions declared in the stdio.h * Inputs: prp_id - property list identifier * Returns: 0 on success, -1 on failure @@ -784,15 +784,15 @@ nh5pset_fapl_stdio_c (hid_t_f *prp_id) * Call H5Pset_fapl_stdio function. */ c_prp_id = (hid_t)*prp_id; - ret = H5Pset_fapl_stdio(c_prp_id); + ret = H5Pset_fapl_stdio(c_prp_id); if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} #ifdef NO_SUCH_F90_FUNCTION /*---------------------------------------------------------------------------- * Name: h5pget_fapl_stdio_c - * Purpose: Call H5Pget_fapl_stdio to determine whther the low level file driver + * Purpose: Call H5Pget_fapl_stdio to determine whther the low level file driver * uses the functions declared in the stdio.h * Inputs: prp_id - property list identifier * Outputs: io - value indicates whether the file driver uses @@ -812,7 +812,7 @@ nh5pget_fapl_stdio_c (hid_t_f *prp_id, int_f* io) * Call H5Pget_fapl_stdio function. */ c_prp_id = *prp_id; - ret = H5Pget_fapl_stdio(c_prp_id); + ret = H5Pget_fapl_stdio(c_prp_id); if (ret < 0) return ret_value; *io = (int_f)ret; ret_value = 0; @@ -823,7 +823,7 @@ nh5pget_fapl_stdio_c (hid_t_f *prp_id, int_f* io) /*---------------------------------------------------------------------------- * Name: h5pset_fapl_sec2_c - * Purpose: Call H5Pset_fapl_sec2 to set the low level file driver to + * Purpose: Call H5Pset_fapl_sec2 to set the low level file driver to * use the functions declared in the unistd.h * Inputs: prp_id - property list identifier * Returns: 0 on success, -1 on failure @@ -841,16 +841,16 @@ nh5pset_fapl_sec2_c (hid_t_f *prp_id) * Call H5Pset_fapl_sec2 function. */ c_prp_id = (hid_t)*prp_id; - ret = H5Pset_fapl_sec2(c_prp_id); + ret = H5Pset_fapl_sec2(c_prp_id); if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} #ifdef NO_SUCH_F90_FUNCTION /*---------------------------------------------------------------------------- * Name: h5pget_fapl_sec2_c - * Purpose: Call H5Pget_fapl_stdio to determine whther the low level file driver + * Purpose: Call H5Pget_fapl_stdio to determine whther the low level file driver * uses the functions declared in the unistd.h * Inputs: prp_id - property list identifier * Outputs: sec2 - value indicates whether the file driver uses @@ -870,7 +870,7 @@ nh5pget_fapl_sec2_c (hid_t_f *prp_id, int_f* sec2) * Call H5Pget_fapl_sec2 function. */ c_prp_id = (hid_t)*prp_id; - ret = H5Pget_fapl_sec2(c_prp_id); + ret = H5Pget_fapl_sec2(c_prp_id); if (ret < 0) return ret_value; *sec2 = (int_f)ret; ret_value = 0; @@ -907,7 +907,7 @@ nh5pset_alignment_c (hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_alignment_c @@ -936,10 +936,10 @@ nh5pget_alignment_c (hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment if (ret < 0) return ret_value; *threshold = (hsize_t_f)c_threshold; *alignment = (hsize_t_f)c_alignment; - + ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pset_fapl_core_c @@ -947,8 +947,8 @@ nh5pget_alignment_c (hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment * to use malloc() and free() * Inputs: prp_id - property list identifier * increment - File block size in bytes - * flag - Boolean flag indicating whether to write the - * file contents to disk when the file is closed. + * flag - Boolean flag indicating whether to write the + * file contents to disk when the file is closed. * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * March 9, 2001 @@ -964,12 +964,12 @@ nh5pset_fapl_core_c (hid_t_f *prp_id, size_t_f* increment, int_f *flag) hbool_t c_backing_store; c_increment = (size_t)*increment; c_backing_store = (hbool_t)*flag; - + /* * Call H5Pset_fapl_core function. */ c_prp_id = (hid_t)*prp_id; - ret = H5Pset_fapl_core(c_prp_id, c_increment, c_backing_store); + ret = H5Pset_fapl_core(c_prp_id, c_increment, c_backing_store); if (ret < 0) return ret_value; ret_value = 0; return ret_value; @@ -977,7 +977,7 @@ nh5pset_fapl_core_c (hid_t_f *prp_id, size_t_f* increment, int_f *flag) /*---------------------------------------------------------------------------- * Name: h5pget_fapl_core_c - * Purpose: Call H5Pget_fapl_core to determine whether the file access + * Purpose: Call H5Pget_fapl_core to determine whether the file access * property list is set to the core drive * Inputs: prp_id - property list identifier * Outputs increment - File block size in bytes @@ -993,23 +993,23 @@ nh5pget_fapl_core_c (hid_t_f *prp_id, size_t_f* increment, int_f *flag) hid_t c_prp_id; herr_t ret = -1; size_t c_increment = 0; - hbool_t c_backing_store; - *flag = 0; + hbool_t c_backing_store; + *flag = 0; /* * Call H5Pset_fapl_core function. */ c_prp_id = (hid_t)*prp_id; - ret = H5Pget_fapl_core(c_prp_id, &c_increment, &c_backing_store); + ret = H5Pget_fapl_core(c_prp_id, &c_increment, &c_backing_store); if (ret < 0) return ret_value; *increment = (size_t_f)c_increment; if(c_backing_store > 0) *flag = 1; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pset_fapl_family_c - * Purpose: Call H5Pset_fapl_family to set the file access properties list + * Purpose: Call H5Pset_fapl_family to set the file access properties list * to the family driver * Inputs: prp_id - property list identifier * memb_size - Logical size, in bytes, of each family member. @@ -1034,15 +1034,15 @@ nh5pset_fapl_family_c(hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist * Call H5Pset_fapl_family function. */ c_prp_id = (hid_t)*prp_id; - ret = H5Pset_fapl_family(c_prp_id, c_memb_size, c_memb_plist); + ret = H5Pset_fapl_family(c_prp_id, c_memb_size, c_memb_plist); if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_fapl_family_c - * Purpose: Call H5Pget_fapl_family to determine whether the file access + * Purpose: Call H5Pget_fapl_family to determine whether the file access * property list is set to the family driver * Inputs: prp_id - property list identifier * memb_size - Logical size, in bytes, of each family member. @@ -1065,18 +1065,18 @@ nh5pget_fapl_family_c(hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist * Call H5Pget_fapl_family function. */ c_prp_id = (hid_t)*prp_id; - ret = H5Pget_fapl_family(c_prp_id, &c_memb_size, &c_memb_plist); + ret = H5Pget_fapl_family(c_prp_id, &c_memb_size, &c_memb_plist); if (ret < 0) return ret_value; *memb_size = (hsize_t_f)c_memb_size; *memb_plist = (hid_t_f)c_memb_plist; - + ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pset_cache_c - * Purpose: Call H5Pset_cache to set he number of elements in + * Purpose: Call H5Pset_cache to set he number of elements in * the meta data cache and the total number of bytes in * the raw data chunk cache * Inputs: prp_id - property list identifier @@ -1113,17 +1113,17 @@ nh5pset_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts, size if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_cache_c - * Purpose: Call H5Pget_cache to get he number of elements in + * Purpose: Call H5Pget_cache to get he number of elements in * the meta data cache and the total number of bytes in * the raw data chunk cache * Inputs: prp_id - property list identifier * Outputs: mdc_nelmts - Number of elements (objects) in the * meta data cache - * rdcc_nelmts - Number of elements in the raw data chunk + * rdcc_nelmts - Number of elements in the raw data chunk * rdcc_nbytes - Total size of the raw data chunk cache, in bytes * rdcc_w0 - Preemption policy * Returns: 0 on success, -1 on failure @@ -1131,7 +1131,7 @@ nh5pset_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts, size * Friday, February 25, 2000 * Modifications: Changed type of the rdcc_w0 parameter to be real_f instead of double * Changed type of the rdcc_nelmts parameter to be int_f. - * EIP October 10, 2003 + * EIP October 10, 2003 *---------------------------------------------------------------------------*/ int_f nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts, size_t_f* rdcc_nbytes , real_f* rdcc_w0) @@ -1140,9 +1140,9 @@ nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts, size_ hid_t c_prp_id; herr_t ret; int c_mdc_nelmts; - size_t c_rdcc_nelmts; + size_t c_rdcc_nelmts; size_t c_rdcc_nbytes; - double c_rdcc_w0; + double c_rdcc_w0; /* * Call H5Pget_cache function. */ @@ -1153,21 +1153,21 @@ nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts, size_ *rdcc_nelmts = (size_t_f)c_rdcc_nelmts; *rdcc_nbytes = (size_t_f)c_rdcc_nbytes; *rdcc_w0 = (real_f)c_rdcc_w0; - + ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pset_fapl_split_c - * Purpose: Call H5Pset_fapl_split to set he low-level driver to split meta data + * Purpose: Call H5Pset_fapl_split to set he low-level driver to split meta data * from raw data * Inputs: prp_id - property list identifier * meta_len - Length of meta_ext - * meta_ext - Name of the extension for the metafile filename. + * meta_ext - Name of the extension for the metafile filename. * meta_plist - Identifier of the meta file access property list * raw_len - Length of raw _ext - * raw_ext - Name of the extension for the raw file filename. + * raw_ext - Name of the extension for the raw file filename. * raw_plist - Identifier of the raw file access property list * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -1180,14 +1180,14 @@ nh5pset_fapl_split_c(hid_t_f *prp_id, int_f* meta_len, _fcd meta_ext, hid_t_f* m int ret_value = -1; hid_t c_prp_id; hid_t c_meta_plist; - hid_t c_raw_plist; + hid_t c_raw_plist; herr_t ret = -1; char* c_meta_ext; char* c_raw_ext; - c_meta_ext = (char *)HD5f2cstring(meta_ext, (int)*meta_len); + c_meta_ext = (char *)HD5f2cstring(meta_ext, (int)*meta_len); if (c_meta_ext == NULL) return ret_value; - c_raw_ext = (char *)HD5f2cstring(raw_ext, (int)*raw_len); + c_raw_ext = (char *)HD5f2cstring(raw_ext, (int)*raw_len); if (c_raw_ext == NULL) { HDfree(c_meta_ext); return ret_value; } @@ -1197,7 +1197,7 @@ nh5pset_fapl_split_c(hid_t_f *prp_id, int_f* meta_len, _fcd meta_ext, hid_t_f* m */ c_prp_id = (hid_t)*prp_id; c_meta_plist = (hid_t)*meta_plist; - c_raw_plist = (hid_t)*raw_plist; + c_raw_plist = (hid_t)*raw_plist; ret = H5Pset_fapl_split(c_prp_id, c_meta_ext, c_meta_plist, c_raw_ext, c_raw_plist ); if (ret < 0) goto DONE; @@ -1213,16 +1213,16 @@ DONE: #ifdef NO_SUCH_F90_FUNCTION /*---------------------------------------------------------------------------- * Name: h5pget_fapl_split_c - * Purpose: Call H5Pget_fapl_split to determine whether the file access + * Purpose: Call H5Pget_fapl_split to determine whether the file access * property list is set to the split driver * Inputs: prp_id - property list identifier * meta_ext_size - Number of characters of the meta file extension * to be copied to the meta_ext buffer * raw_ext_size - Number of characters of the raw file extension * to be copied to the raw_ext buffer - *Outputs: meta_ext - Name of the extension for the metafile filename. + *Outputs: meta_ext - Name of the extension for the metafile filename. * meta_plist - Identifier of the meta file access property list - * raw_ext - Name of the extension for the raw file filename. + * raw_ext - Name of the extension for the raw file filename. * raw_plist - Identifier of the raw file access property list * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -1235,9 +1235,9 @@ nh5pget_fapl_split_c(hid_t_f *prp_id, size_t_f* meta_ext_size , _fcd meta_ext, h int ret_value = -1; hid_t c_prp_id; herr_t ret = -1; - size_t c_meta_ext_size, c_raw_ext_size; + size_t c_meta_ext_size, c_raw_ext_size; hid_t c_meta_plist = -1; - hid_t c_raw_plist = -1; + hid_t c_raw_plist = -1; char* c_meta_ext = NULL; char* c_raw_ext = NULL; @@ -1252,25 +1252,25 @@ nh5pget_fapl_split_c(hid_t_f *prp_id, size_t_f* meta_ext_size , _fcd meta_ext, h * Call H5Pget_fapl_split function. */ c_prp_id = *prp_id; - ret = H5Pget_fapl_split(c_prp_id, c_meta_ext_size, c_meta_ext,&c_meta_plist, c_raw_ext_size, c_raw_ext, &c_raw_plist ); + ret = H5Pget_fapl_split(c_prp_id, c_meta_ext_size, c_meta_ext,&c_meta_plist, c_raw_ext_size, c_raw_ext, &c_raw_plist ); if (ret < 0) return ret_value; *meta_plist = c_meta_plist; *raw_plist = c_raw_plist; - HD5packFstring(c_meta_ext, _fcdtocp(meta_ext), strlen(c_meta_ext)); - HD5packFstring(c_raw_ext, _fcdtocp(raw_ext), strlen(c_raw_ext)); - + HD5packFstring(c_meta_ext, _fcdtocp(meta_ext), strlen(c_meta_ext)); + HD5packFstring(c_raw_ext, _fcdtocp(raw_ext), strlen(c_raw_ext)); + ret_value = 0; return ret_value; -} +} #endif /*NO_SUCH_F90_FUNCTION*/ /*---------------------------------------------------------------------------- * Name: h5pset_gc_references_c - * Purpose: Call H5Pset_gc_references to set garbage + * Purpose: Call H5Pset_gc_references to set garbage * collecting references flag * Inputs: prp_id - property list identifier - * gc_reference - flag for garbage collecting references + * gc_reference - flag for garbage collecting references * for the file * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su @@ -1295,14 +1295,14 @@ nh5pset_gc_references_c (hid_t_f *prp_id, int_f* gc_references) if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_gc_references_c - * Purpose: Call H5Pget_gc_references to set garbage + * Purpose: Call H5Pget_gc_references to set garbage * collecting references flag * Inputs: prp_id - property list identifier - * Outputs gc_reference - flag for garbage collecting references + * Outputs gc_reference - flag for garbage collecting references * for the file * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su @@ -1355,7 +1355,7 @@ nh5pset_layout_c (hid_t_f *prp_id, int_f* layout) if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_layout_c @@ -1388,7 +1388,7 @@ nh5pget_layout_c (hid_t_f *prp_id, int_f* layout) /*---------------------------------------------------------------------------- * Name: h5pset_filter_c * Purpose: Call H5Pset_filter to add a filter to the filter pipeline. - * Inputs: prp_id - property list identifier + * Inputs: prp_id - property list identifier * filter - Filter to be added to the pipeline. * flags - Bit vector specifying certain general * properties of the filter. @@ -1410,7 +1410,7 @@ nh5pset_filter_c (hid_t_f *prp_id, int_f* filter, int_f* flags, size_t_f* cd_nel H5Z_filter_t c_filter; unsigned int * c_cd_values; unsigned i; - + c_filter = (H5Z_filter_t)*filter; c_flags = (unsigned)*flags; c_cd_nelmts = (size_t)*cd_nelmts; @@ -1465,17 +1465,17 @@ nh5pget_nfilters_c (hid_t_f *prp_id, int_f* nfilters) /*---------------------------------------------------------------------------- * Name: h5pget_filter_c - * Purpose: Call H5Pget_filter to get information about a filter + * Purpose: Call H5Pget_filter to get information about a filter * in a pipeline * Inputs: prp_id - property list identifier - * filter_number - Sequence number within the filter - * pipeline of the filter for which + * filter_number - Sequence number within the filter + * pipeline of the filter for which * information is sought. * namelen - Anticipated number of characters in name. - *Outputs: flags - Bit vector specifying certain general + *Outputs: flags - Bit vector specifying certain general * properties of the filter. * cd_nelmts - Number of elements in cd_value - * cd_values - Auxiliary data for the filter. + * cd_values - Auxiliary data for the filter. * name - Name of the filter * filter_id - filter identification number * Returns: 0 on success, -1 on failure @@ -1506,8 +1506,8 @@ nh5pget_filter_c(hid_t_f *prp_id, int_f* filter_number, int_f* flags, size_t_f* if (!c_cd_values) {HDfree(c_name); return ret_value; } - - + + /* * Call H5Pget_filter function. */ @@ -1520,29 +1520,29 @@ nh5pget_filter_c(hid_t_f *prp_id, int_f* filter_number, int_f* flags, size_t_f* *filter_id = (int_f)c_filter; *cd_nelmts = (size_t_f)c_cd_nelmts; *flags = (int_f)c_flags; - HD5packFstring(c_name, _fcdtocp(name), (int)strlen(c_name)); - + HD5packFstring(c_name, _fcdtocp(name), (int)strlen(c_name)); + for (i = 0; i < c_cd_nelmts_in; i++) cd_values[i] = (int_f)c_cd_values[i]; - + ret_value = 0; DONE: HDfree(c_name); HDfree(c_cd_values); return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pset_external_c * Purpose: Call H5Pset_external to add an external file to the * list of external files. - * Inputs: prp_id - property list identifier + * Inputs: prp_id - property list identifier * name - Name of an external file * namelen - length of name * offset - Offset, in bytes, from the beginning of the file - * to the location in the file where the data starts. - * bytes - Number of bytes reserved in the file for the data. + * to the location in the file where the data starts. + * bytes - Number of bytes reserved in the file for the data. * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su * Wednesday, February 23, 2000 @@ -1560,10 +1560,10 @@ nh5pset_external_c (hid_t_f *prp_id, _fcd name, int_f* namelen, int_f* offset, h off_t c_offset; c_bytes = (hsize_t) *bytes; c_offset = (off_t) *offset; - - + + c_namelen = (int)*namelen; - c_name = (char *)HD5f2cstring(name, c_namelen); + c_name = (char *)HD5f2cstring(name, c_namelen); if (c_name == NULL) return ret_value; /* @@ -1610,14 +1610,14 @@ nh5pget_external_count_c (hid_t_f *prp_id, int_f* count) /*---------------------------------------------------------------------------- * Name: h5pget_external_c - * Purpose: Call H5Pget_external to get nformation about an external file. - * Inputs: prp_id - property list identifier + * Purpose: Call H5Pget_external to get nformation about an external file. + * Inputs: prp_id - property list identifier * name_size - length of name - * idx - External file index. + * idx - External file index. *Outputs: name - Name of an external file * offset - Offset, in bytes, from the beginning of the file - * to the location in the file where the data starts. - * bytes - Number of bytes reserved in the file for the data. + * to the location in the file where the data starts. + * bytes - Number of bytes reserved in the file for the data. * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su * Wednesday, February 23, 2000 @@ -1641,35 +1641,35 @@ nh5pget_external_c(hid_t_f *prp_id, int_f *idx, size_t_f* name_size, _fcd name, */ if(c_namelen) c_name = (char*) HDmalloc(c_namelen + 1); if (c_name == NULL) return ret_value; - + /* * Call H5Pget_external function. */ c_prp_id = (hid_t)*prp_id; - c_idx = (unsigned)*idx; + c_idx = (unsigned)*idx; status = H5Pget_external(c_prp_id, c_idx, c_namelen, c_name, &c_offset, &size ); if (status < 0) goto DONE; *offset = (int_f)c_offset; *bytes = (hsize_t_f)size; - HD5packFstring(c_name, _fcdtocp(name), (int)strlen(c_name)); + HD5packFstring(c_name, _fcdtocp(name), (int)strlen(c_name)); ret_value = 0; -DONE: +DONE: HDfree(c_name); return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pset_btree_ratios_c - * Purpose: Call H5Pset_btree_ratios to set B-tree split ratios for B-tree split ratios for a dataset transfer property list. a - * dataset transfer property list. + * Purpose: Call H5Pset_btree_ratios to set B-tree split ratios for B-tree split ratios for a dataset transfer property list. a + * dataset transfer property list. * Inputs: prp_id - property list identifier - * left - The B-tree split ratio for left-most nodes. - * middle - The B-tree split ratio for all other nodes - * right - The B-tree split ratio for right-most nodes - * and lone nodes. + * left - The B-tree split ratio for left-most nodes. + * middle - The B-tree split ratio for all other nodes + * right - The B-tree split ratio for right-most nodes + * and lone nodes. * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su * Friday, February 25, 2000 @@ -1696,17 +1696,17 @@ nh5pset_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* ri if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_btree_ratios_c - * Purpose: Call H5Pget_btree_ratios to Gets B-tree split ratios - * for a dataset transfer property list. + * Purpose: Call H5Pget_btree_ratios to Gets B-tree split ratios + * for a dataset transfer property list. * Inputs: prp_id - property list identifier - * left - The B-tree split ratio for left-most nodes. - * middle - The B-tree split ratio for all other nodes - * right - The B-tree split ratio for right-most nodes - * and lone nodes. + * left - The B-tree split ratio for left-most nodes. + * middle - The B-tree split ratio for all other nodes + * right - The B-tree split ratio for right-most nodes + * and lone nodes. * Returns: 0 on success, -1 on failure * Programmer: Xiangyang Su * Friday, February 25, 2000 @@ -1731,11 +1731,11 @@ nh5pget_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* ri if (ret < 0) return ret_value; ret_value = 0; return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pget_fclose_degree_c * Purpose: Call H5Pget_fclose_degree to determine file close behavior - * Inputs: fapl_id - file access identifier + * Inputs: fapl_id - file access identifier * Outputs: * degree - possible values are: * H5F_CLOSE_DEFAULT @@ -1748,16 +1748,16 @@ nh5pget_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* ri * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pget_fclose_degree_c ( hid_t_f *fapl_id , int_f *degree) { int ret_value = -1; hid_t c_fapl_id; - H5F_close_degree_t c_degree; + H5F_close_degree_t c_degree; c_fapl_id = (hid_t)*fapl_id; if( H5Pget_fclose_degree(c_fapl_id, &c_degree) < 0) return ret_value; - + *degree = (int_f)c_degree; ret_value = 0; return ret_value; @@ -1766,7 +1766,7 @@ nh5pget_fclose_degree_c ( hid_t_f *fapl_id , int_f *degree) /*---------------------------------------------------------------------------- * Name: h5pset_fclose_degree_c * Purpose: Call H5Pset_fclose_degree to set file close behavior - * Inputs: fapl_id - file access identifier + * Inputs: fapl_id - file access identifier * degree - possible values are: * H5F_CLOSE_DEFAULT * H5F_CLOSE_WEAK @@ -1778,34 +1778,34 @@ nh5pget_fclose_degree_c ( hid_t_f *fapl_id , int_f *degree) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_fclose_degree_c ( hid_t_f *fapl_id , int_f *degree) { int ret_value = -1; hid_t c_fapl_id; - H5F_close_degree_t c_degree; + H5F_close_degree_t c_degree; c_fapl_id = (hid_t)*fapl_id; c_degree = (H5F_close_degree_t)*degree; if( H5Pset_fclose_degree(c_fapl_id, c_degree) < 0) return ret_value; - + ret_value = 0; return ret_value; } /*---------------------------------------------------------------------------- * Name: h5pset_buffer_c - * Purpose: Call H5Pset_buffer to set size of conversion buffer + * Purpose: Call H5Pset_buffer to set size of conversion buffer * Inputs: prp_id - t`dataset trasfer property list identifier * size - size of the buffer - * Outputs: NONE + * Outputs: NONE * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Wednesday, October 2, 2002 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_buffer_c ( hid_t_f *prp_id , hsize_t_f *size) { int ret_value = 0; @@ -1820,16 +1820,16 @@ nh5pset_buffer_c ( hid_t_f *prp_id , hsize_t_f *size) /*---------------------------------------------------------------------------- * Name: h5pget_buffer_c - * Purpose: Call H5Pget_buffer to get size of conversion buffer + * Purpose: Call H5Pget_buffer to get size of conversion buffer * Inputs: prp_id - t`dataset trasfer property list identifier - * Outputs: size - size of conversion buffer + * Outputs: size - size of conversion buffer * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Wednesday, October 2, 2002 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pget_buffer_c ( hid_t_f *prp_id , hsize_t_f *size) { int ret_value = -1; @@ -1854,7 +1854,7 @@ nh5pget_buffer_c ( hid_t_f *prp_id , hsize_t_f *size) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pfill_value_defined_c ( hid_t_f *prp_id , int_f *flag) { int ret_value = -1; @@ -1869,7 +1869,7 @@ nh5pfill_value_defined_c ( hid_t_f *prp_id , int_f *flag) } /*---------------------------------------------------------------------------- * Name: h5pget_alloc_time_c - * Purpose: Call H5Pget_alloc_time to get space allocation + * Purpose: Call H5Pget_alloc_time to get space allocation * time for dataset during creation * Inputs: prp_id - dataset creation property list identifier * Outputs: flag - allocation time flag @@ -1879,7 +1879,7 @@ nh5pfill_value_defined_c ( hid_t_f *prp_id , int_f *flag) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pget_alloc_time_c ( hid_t_f *prp_id , int_f *flag) { int ret_value = -1; @@ -1894,7 +1894,7 @@ nh5pget_alloc_time_c ( hid_t_f *prp_id , int_f *flag) } /*---------------------------------------------------------------------------- * Name: h5pset_alloc_time_c - * Purpose: Call H5Pset_alloc_time to get space allocation + * Purpose: Call H5Pset_alloc_time to get space allocation * time for dataset during creation * Inputs: prp_id - dataset creation property list identifier * flag - allocation time flag @@ -1904,7 +1904,7 @@ nh5pget_alloc_time_c ( hid_t_f *prp_id , int_f *flag) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_alloc_time_c ( hid_t_f *prp_id , int_f *flag) { int ret_value = -1; @@ -1929,7 +1929,7 @@ nh5pset_alloc_time_c ( hid_t_f *prp_id , int_f *flag) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pget_fill_time_c ( hid_t_f *prp_id , int_f *flag) { int ret_value = -1; @@ -1954,7 +1954,7 @@ nh5pget_fill_time_c ( hid_t_f *prp_id , int_f *flag) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_fill_time_c ( hid_t_f *prp_id , int_f *flag) { int ret_value = -1; @@ -1972,14 +1972,14 @@ nh5pset_fill_time_c ( hid_t_f *prp_id , int_f *flag) * Purpose: Call H5Pset_meta_block_size to set size of metadata block * Inputs: prp_id - file access property list identifier * size - size of the metadata block - * Outputs: NONE + * Outputs: NONE * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Monday, October 7, 2002 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_meta_block_size_c ( hid_t_f *prp_id , hsize_t_f *size) { int ret_value = 0; @@ -1995,7 +1995,7 @@ nh5pset_meta_block_size_c ( hid_t_f *prp_id , hsize_t_f *size) * Name: h5pget_meta_block_size_c * Purpose: Call H5Pget_meta_block_size to get size of metadata block * Inputs: prp_id - file access property list identifier - * Outputs: + * Outputs: * size - size of the metadata block * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -2003,7 +2003,7 @@ nh5pset_meta_block_size_c ( hid_t_f *prp_id , hsize_t_f *size) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pget_meta_block_size_c ( hid_t_f *prp_id , hsize_t_f *size) { int ret_value = 0; @@ -2020,14 +2020,14 @@ nh5pget_meta_block_size_c ( hid_t_f *prp_id , hsize_t_f *size) * Purpose: Call H5Pset_sieve_buf_size to set size of datasieve buffer * Inputs: prp_id - file access property list identifier * size - size of the buffer - * Outputs: NONE + * Outputs: NONE * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Monday, October 7, 2002 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_sieve_buf_size_c ( hid_t_f *prp_id , size_t_f *size) { int ret_value = 0; @@ -2043,7 +2043,7 @@ nh5pset_sieve_buf_size_c ( hid_t_f *prp_id , size_t_f *size) * Name: h5pget_sieve_buf_size_c * Purpose: Call H5Pget_sieve_buf_size to get size of datasieve buffer * Inputs: prp_id - file access property list identifier - * Outputs: + * Outputs: * size - size of the buffer * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -2051,7 +2051,7 @@ nh5pset_sieve_buf_size_c ( hid_t_f *prp_id , size_t_f *size) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pget_sieve_buf_size_c ( hid_t_f *prp_id , size_t_f *size) { int ret_value = 0; @@ -2068,14 +2068,14 @@ nh5pget_sieve_buf_size_c ( hid_t_f *prp_id , size_t_f *size) * Purpose: Call H5Pset_small_data_block_size to set size of raw small data block * Inputs: prp_id - file access property list identifier * size - size of the block - * Outputs: NONE + * Outputs: NONE * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Monday, October 7, 2002 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_small_data_block_size_c ( hid_t_f *prp_id , hsize_t_f *size) { int ret_value = 0; @@ -2091,7 +2091,7 @@ nh5pset_small_data_block_size_c ( hid_t_f *prp_id , hsize_t_f *size) * Name: h5pget_small_data_block_size_c * Purpose: Call H5Pget_small_data_block_size to get size of raw small data block * Inputs: prp_id - file access property list identifier - * Outputs: + * Outputs: * size - size of the block * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -2099,7 +2099,7 @@ nh5pset_small_data_block_size_c ( hid_t_f *prp_id , hsize_t_f *size) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pget_small_data_block_size_c ( hid_t_f *prp_id , hsize_t_f *size) { int ret_value = 0; @@ -2116,14 +2116,14 @@ nh5pget_small_data_block_size_c ( hid_t_f *prp_id , hsize_t_f *size) * Purpose: Call H5Pset_hyper_vector_size to set size of the hyper vector * Inputs: prp_id - dataset transfer property list identifier * size - size of the vector - * Outputs: NONE + * Outputs: NONE * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Monday, October 7, 2002 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size) { int ret_value = 0; @@ -2139,7 +2139,7 @@ nh5pset_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size) * Name: h5pget_hyper_vector_size_c * Purpose: Call H5Pget_hyper_vector_size to get size of the hyper vector * Inputs: prp_id - dataset transfer property list identifier - * Outputs: + * Outputs: * size - size of the vector * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -2147,7 +2147,7 @@ nh5pset_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pget_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size) { int ret_value = 0; @@ -2156,7 +2156,7 @@ nh5pget_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size) c_prp_id = (hid_t)*prp_id; if ( H5Pget_hyper_vector_size(c_prp_id, &c_size) < 0 ) ret_value = -1; - *size = (size_t_f)c_size; + *size = (size_t_f)c_size; return ret_value; } /*---------------------------------------------------------------------------- @@ -2179,7 +2179,7 @@ nh5pcreate_class_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *class) hid_t c_class; char* c_name; - c_name = (char *)HD5f2cstring(name, (int)*name_len); + c_name = (char *)HD5f2cstring(name, (int)*name_len); if (c_name == NULL) goto DONE; c_parent = (hid_t)*parent; @@ -2198,11 +2198,11 @@ DONE: /*---------------------------------------------------------------------------- * Name: h5pregisterc_c - * Purpose: Call h5pregister_c to registers a permanent property + * Purpose: Call h5pregister_c to registers a permanent property * Inputs: class - property list class identifier * name - name of the new property * name_len - length of the "name" buffer - * size - property size + * size - property size * value - property value of character type * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -2213,7 +2213,7 @@ int_f nh5pregisterc_c(hid_t_f *class, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f *value_len) { int ret_value = -1; - + /* * Call h5pregister_c function */ @@ -2223,12 +2223,12 @@ nh5pregisterc_c(hid_t_f *class, _fcd name, int_f *name_len, size_t_f *size, _fcd /*---------------------------------------------------------------------------- * Name: h5pregister_c - * Purpose: Call H5Pregister to registers a permanent property + * Purpose: Call H5Pregister to registers a permanent property * Inputs: class - property list class identifier * name - name of the new property * name_len - length of the "name" buffer - * size - property size - * value - property value + * size - property size + * value - property value * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * October 11, 2002 @@ -2242,7 +2242,7 @@ nh5pregister_c(hid_t_f *class, _fcd name, int_f *name_len, size_t_f *size, void char* c_name; size_t c_size; - c_name = (char *)HD5f2cstring(name, (int)*name_len); + c_name = (char *)HD5f2cstring(name, (int)*name_len); if (c_name == NULL) goto DONE; c_size = (size_t)*size; c_class = (hid_t)*class; @@ -2259,11 +2259,11 @@ DONE: } /*---------------------------------------------------------------------------- * Name: h5pinsertc_c - * Purpose: Call h5pinsert_c to register a temporary property + * Purpose: Call h5pinsert_c to register a temporary property * Inputs: plist - property list identifier * name - name of the new property * name_len - length of the "name" buffer - * size - property size + * size - property size * value - property value of character type * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -2274,7 +2274,7 @@ int_f nh5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f *value_len) { int_f ret_value = -1; - + /* * Call h5pinsert_c function */ @@ -2288,8 +2288,8 @@ nh5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd v * Inputs: plist - property list class identifier * name - name of the new property * name_len - length of the "name" buffer - * size - property size - * value - property value + * size - property size + * value - property value * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * October 11, 2002 @@ -2303,7 +2303,7 @@ nh5pinsert_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *v char* c_name; size_t c_size; - c_name = (char *)HD5f2cstring(name, (int)*name_len); + c_name = (char *)HD5f2cstring(name, (int)*name_len); if (c_name == NULL) goto DONE; c_size = (size_t)*size; c_plist = (hid_t)*plist; @@ -2321,7 +2321,7 @@ DONE: /*---------------------------------------------------------------------------- * Name: h5pexist_c - * Purpose: Call H5Pexist to querie whether a property name exists + * Purpose: Call H5Pexist to querie whether a property name exists * in a property list or class * Inputs: plist - property list or property class identifier * name - name of the new property @@ -2339,7 +2339,7 @@ nh5pexist_c(hid_t_f *class, _fcd name, int_f *name_len) char* c_name; htri_t status; - c_name = (char *)HD5f2cstring(name, (int)*name_len); + c_name = (char *)HD5f2cstring(name, (int)*name_len); if (c_name == NULL) goto DONE; c_class = (hid_t)*class; @@ -2355,8 +2355,8 @@ DONE: } /*---------------------------------------------------------------------------- * Name: h5pisa_class_c - * Purpose: Call H5Pisa_class to querie whether a property is a - * member of a class + * Purpose: Call H5Pisa_class to querie whether a property is a + * member of a class * Inputs: plist - property list identifier * class - property class identifier * Returns: nonnegative on success, -1 on failure @@ -2402,7 +2402,7 @@ nh5pget_size_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size) char* c_name; size_t c_size; - c_name = (char *)HD5f2cstring(name, (int)*name_len); + c_name = (char *)HD5f2cstring(name, (int)*name_len); if (c_name == NULL) goto DONE; c_plist = (hid_t)*plist; @@ -2447,7 +2447,7 @@ nh5pget_nprops_c(hid_t_f *plist, size_t_f *nprops) } /*---------------------------------------------------------------------------- * Name: h5pget_class_parent_c - * Purpose: Call H5Pget_class_parent to get the parent class of + * Purpose: Call H5Pget_class_parent to get the parent class of * a genereic property class * Inputs: prp_id - property list to query * Outputs: parent_id - parent classs identifier @@ -2477,7 +2477,7 @@ nh5pget_class_parent_c(hid_t_f *prp_id, hid_t_f *parent_id) } /*---------------------------------------------------------------------------- * Name: h5pcopy_prop_c - * Purpose: Call H5Pcopy_prop to copy a property from one list or + * Purpose: Call H5Pcopy_prop to copy a property from one list or * class to another * Inputs: dst_id - identifier of destination property list * src_id - identifier of source property list @@ -2495,7 +2495,7 @@ nh5pcopy_prop_c(hid_t_f *dst_id, hid_t_f *src_id, _fcd name, int_f *name_len) hid_t c_dst_id, c_src_id; char* c_name; - c_name = (char *)HD5f2cstring(name, (int)*name_len); + c_name = (char *)HD5f2cstring(name, (int)*name_len); if (c_name == NULL) goto DONE; c_dst_id = (hid_t)*dst_id; @@ -2528,7 +2528,7 @@ nh5premove_c(hid_t_f *plid, _fcd name, int_f *name_len) hid_t c_plid; char* c_name; - c_name = (char *)HD5f2cstring(name, (int)*name_len); + c_name = (char *)HD5f2cstring(name, (int)*name_len); if (c_name == NULL) goto DONE; c_plid = (hid_t)*plid; @@ -2560,7 +2560,7 @@ nh5punregister_c(hid_t_f *class, _fcd name, int_f *name_len) hid_t c_class; char* c_name; - c_name = (char *)HD5f2cstring(name, (int)*name_len); + c_name = (char *)HD5f2cstring(name, (int)*name_len); if (c_name == NULL) goto DONE; c_class = (hid_t)*class; @@ -2599,7 +2599,7 @@ nh5pclose_class_c(hid_t_f *class) } /*---------------------------------------------------------------------------- * Name: h5pget_class_name_c - * Purpose: Call H5Pget_class_name to get property class name + * Purpose: Call H5Pget_class_name to get property class name * Inputs: class - identifier of property class * name - ibuffer to retrieve name in * name_len - length of the "name" buffer @@ -2620,7 +2620,7 @@ nh5pget_class_name_c(hid_t_f *class, _fcd name, int_f *name_len) /* * Call H5Pget_class_name function. */ - c_name = H5Pget_class_name(c_class); + c_name = H5Pget_class_name(c_class); if( c_name == NULL) goto DONE; HD5packFstring(c_name, _fcdtocp(name), (int)*name_len); @@ -2646,7 +2646,7 @@ int_f nh5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f *value_len) { int_f ret_value = -1; - + /* * Call h5pset_c function */ @@ -2660,7 +2660,7 @@ nh5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f *value_ * Inputs: plist - property list class identifier * name - name of the new property * name_len - length of the "name" buffer - * value - property value + * value - property value * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * October 11, 2002 @@ -2673,7 +2673,7 @@ nh5pset_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value) hid_t c_plist; char* c_name; - c_name = (char *)HD5f2cstring(name, (int)*name_len); + c_name = (char *)HD5f2cstring(name, (int)*name_len); if (c_name == NULL) goto DONE; c_plist = (hid_t)*plist; @@ -2703,7 +2703,7 @@ int_f nh5pgetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f *value_len) { int_f ret_value = -1; - + /* * Call h5pget_c function */ @@ -2717,7 +2717,7 @@ nh5pgetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f *value_ * Inputs: plist - property list class identifier * name - name of the new property * name_len - length of the "name" buffer - * Output: value - property value + * Output: value - property value * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * October 11, 2002 @@ -2730,7 +2730,7 @@ nh5pget_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value) hid_t c_plist; char* c_name; - c_name = (char *)HD5f2cstring(name, (int)*name_len); + c_name = (char *)HD5f2cstring(name, (int)*name_len); if (c_name == NULL) goto DONE; c_plist = (hid_t)*plist; @@ -2746,8 +2746,8 @@ DONE: } /*---------------------------------------------------------------------------- * Name: h5pset_shuffle_c - * Purpose: Call H5Pset_shuffle - * Inputs: prp_id - property list identifier + * Purpose: Call H5Pset_shuffle + * Inputs: prp_id - property list identifier * type_size - size of the datatype in bytes * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -2755,7 +2755,7 @@ DONE: * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_shuffle_c ( hid_t_f *prp_id ) { int_f ret_value = 0; @@ -2770,14 +2770,14 @@ nh5pset_shuffle_c ( hid_t_f *prp_id ) /*---------------------------------------------------------------------------- * Name: h5pset_fletcher32_c * Purpose: Call H5Pset_fletcher32 to enable EDC - * Inputs: prp_id - dataset creation property list identifier + * Inputs: prp_id - dataset creation property list identifier * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Thursday, March 13, 2003 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_fletcher32_c ( hid_t_f *prp_id ) { int_f ret_value = 0; @@ -2793,7 +2793,7 @@ nh5pset_fletcher32_c ( hid_t_f *prp_id ) /*---------------------------------------------------------------------------- * Name: h5pset_edc_check_c * Purpose: Call H5Pset_edc_check to enable EDC - * Inputs: prp_id - dataset transfer property list identifier + * Inputs: prp_id - dataset transfer property list identifier * flag - EDC flag * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -2801,7 +2801,7 @@ nh5pset_fletcher32_c ( hid_t_f *prp_id ) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_edc_check_c ( hid_t_f *prp_id, int_f *flag ) { int_f ret_value = 0; @@ -2819,7 +2819,7 @@ nh5pset_edc_check_c ( hid_t_f *prp_id, int_f *flag ) /*---------------------------------------------------------------------------- * Name: h5pget_edc_check_c * Purpose: Call H5Pget_edc_check to query EDC - * Inputs: prp_id - dataset transfer property list identifier + * Inputs: prp_id - dataset transfer property list identifier * Outouts: flag - EDC flag * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -2827,7 +2827,7 @@ nh5pset_edc_check_c ( hid_t_f *prp_id, int_f *flag ) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pget_edc_check_c ( hid_t_f *prp_id, int_f *flag ) { int_f ret_value = 0; @@ -2843,7 +2843,7 @@ nh5pget_edc_check_c ( hid_t_f *prp_id, int_f *flag ) /*---------------------------------------------------------------------------- * Name: h5pset_family_offset_c * Purpose: Call H5Pset_family_offset to set and offset for family driver - * Inputs: prp_id - property list identifier + * Inputs: prp_id - property list identifier * offset - offset in bytes * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -2851,7 +2851,7 @@ nh5pget_edc_check_c ( hid_t_f *prp_id, int_f *flag ) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_family_offset_c ( hid_t_f *prp_id , hsize_t_f *offset) { int_f ret_value = 0; @@ -2869,9 +2869,9 @@ nh5pset_family_offset_c ( hid_t_f *prp_id , hsize_t_f *offset) /*---------------------------------------------------------------------------- * Name: h5pset_fapl_multi_c * Purpose: Call H5Pset_fapl_multi to set multi file dirver - * Inputs: prp_id - file_creation property list identifier + * Inputs: prp_id - file_creation property list identifier * mem_map - memory mapping array - * memb_fapl - property list for each memory usage type + * memb_fapl - property list for each memory usage type * memb_name - array with members names * len - array with the lenght of each name * lenmax - lenght of the name a sdeclared in Fortran @@ -2882,7 +2882,7 @@ nh5pset_family_offset_c ( hid_t_f *prp_id , hsize_t_f *offset) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f /*nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _fcd memb_name, int_f *len, int_f *lenmax, haddr_t_f *memb_addr, int_f *flag) */ nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _fcd memb_name, int_f *len, int_f *lenmax, real_f *memb_addr, int_f *flag) { @@ -2890,9 +2890,9 @@ nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _f hid_t c_prp_id; H5FD_mem_t c_memb_map[H5FD_MEM_NTYPES]; hid_t c_memb_fapl[H5FD_MEM_NTYPES]; - char *c_memb_name[H5FD_MEM_NTYPES]; - haddr_t c_memb_addr[H5FD_MEM_NTYPES]; - hbool_t relax; + char *c_memb_name[H5FD_MEM_NTYPES]; + haddr_t c_memb_addr[H5FD_MEM_NTYPES]; + hbool_t relax; herr_t status; char *tmp, *tmp_p, *tmp_pp; int i; @@ -2910,7 +2910,7 @@ nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _f */ tmp = (char *)HD5f2cstring(memb_name, c_lenmax*(H5FD_MEM_NTYPES)); - if (tmp ==NULL) return ret_value; + if (tmp ==NULL) return ret_value; tmp_p = tmp; for (i=0; i < H5FD_MEM_NTYPES; i++) { c_memb_name[i] = malloc((size_t)len[i] + 1); @@ -2921,11 +2921,11 @@ nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _f /* printf(" %d \n", len[i]); printf("name %s \n", c_memb_name[i]); */ - } + } /* * Take care of othe arguments */ - + c_prp_id = (hid_t)*prp_id; for (i=0; i < H5FD_MEM_NTYPES; i++) { c_memb_map[i] = (H5FD_mem_t)memb_map[i]; @@ -2933,9 +2933,9 @@ nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _f c_memb_fapl[i] = (hid_t)memb_fapl[i]; /*printf("fapl %d \n", c_memb_fapl[i]); */ if(memb_addr[i] < 0) c_memb_addr[i] = HADDR_UNDEF; - else c_memb_addr[i] = (haddr_t)(((float)memb_addr[i])*(HADDR_MAX)); + else c_memb_addr[i] = (haddr_t)(((float)memb_addr[i])*(HADDR_MAX)); /*printf("address %Ld \n", c_memb_addr[i]); */ - } + } /* * Call H5Pset_fapl_multi function */ @@ -2953,19 +2953,19 @@ DONE: /*---------------------------------------------------------------------------- * Name: h5pset_fapl_multi_sc * Purpose: Call H5Pset_fapl_multi to set multi file dirver - * Inputs: prp_id - file_creation property list identifier + * Inputs: prp_id - file_creation property list identifier * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * March 31 2003 * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_fapl_multi_sc ( hid_t_f *prp_id , int_f *flag) { int_f ret_value = -1; hid_t c_prp_id; - hbool_t relax; + hbool_t relax; herr_t status; relax = (hbool_t)*flag; @@ -2982,10 +2982,10 @@ nh5pset_fapl_multi_sc ( hid_t_f *prp_id , int_f *flag) /*---------------------------------------------------------------------------- * Name: h5pget_fapl_multi_c * Purpose: Call H5Pget_fapl_multi to set multi file dirver - * Inputs: prp_id - file_creation property list identifier + * Inputs: prp_id - file_creation property list identifier * lenmax - lenght of the name a sdeclared in Fortran * Outputs: memb_map - memory mapping array - * memb_fapl - property list for each memory usage type + * memb_fapl - property list for each memory usage type * memb_name - array with members names * len - array with the lenght of each name * flag - flag allowing partila access when one of the files is missing @@ -2995,16 +2995,16 @@ nh5pset_fapl_multi_sc ( hid_t_f *prp_id , int_f *flag) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pget_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _fcd memb_name, int_f *len, int_f *lenmax, real_f *memb_addr, int_f *flag, int_f *maxlen_out) { int_f ret_value = -1; hid_t c_prp_id; H5FD_mem_t c_memb_map[H5FD_MEM_NTYPES]; hid_t c_memb_fapl[H5FD_MEM_NTYPES]; - char *c_memb_name[H5FD_MEM_NTYPES]; + char *c_memb_name[H5FD_MEM_NTYPES]; haddr_t c_memb_addr[H5FD_MEM_NTYPES]; - hbool_t relax; + hbool_t relax; herr_t status; char *tmp, *tmp_p; int i; @@ -3018,7 +3018,7 @@ nh5pget_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _f */ status = H5Pget_fapl_multi(c_prp_id, c_memb_map, c_memb_fapl, c_memb_name, c_memb_addr, &relax); - if ( status < 0 ) return ret_value; + if ( status < 0 ) return ret_value; /* * Take care of names array @@ -3032,13 +3032,13 @@ nh5pget_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _f len[i] = (int_f)strlen(c_memb_name[i]); length = H5_MAX(length, strlen(c_memb_name[i])); tmp_p = tmp_p + c_lenmax; - } + } HD5packFstring(tmp, _fcdtocp(memb_name), (int)(c_lenmax*H5FD_MEM_NTYPES)); /* * Take care of other arguments */ - + for (i=0; i < H5FD_MEM_NTYPES; i++) { memb_map[i] = (int_f)c_memb_map[i]; memb_fapl[i] = (hid_t_f)c_memb_fapl[i]; @@ -3048,8 +3048,8 @@ HD5packFstring(tmp, _fcdtocp(memb_name), (int)(c_lenmax*H5FD_MEM_NTYPES)); if(c_memb_addr[i] == HADDR_UNDEF) memb_addr[i] = -1; else memb_addr[i] = (real_f) ((long)c_memb_addr[i]/HADDR_MAX); #endif /*WIN32*/ - } - *flag = (int_f)relax; + } + *flag = (int_f)relax; *maxlen_out = (int_f)length; ret_value = 0; free(tmp); @@ -3060,7 +3060,7 @@ HD5packFstring(tmp, _fcdtocp(memb_name), (int)(c_lenmax*H5FD_MEM_NTYPES)); /*---------------------------------------------------------------------------- * Name: h5pset_szip_c * Purpose: Call H5Pset_szip to set szip compression - * Inputs: prp_id - dataset creation property list identifier + * Inputs: prp_id - dataset creation property list identifier * options_mask * pixels_per_block -szip compression parameters * Returns: 0 on success, -1 on failure @@ -3069,7 +3069,7 @@ HD5packFstring(tmp, _fcdtocp(memb_name), (int)(c_lenmax*H5FD_MEM_NTYPES)); * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pset_szip_c ( hid_t_f *prp_id , int_f *options_mask, int_f *pixels_per_block) { int_f ret_value = -1; @@ -3093,7 +3093,7 @@ nh5pset_szip_c ( hid_t_f *prp_id , int_f *options_mask, int_f *pixels_per_block) /*---------------------------------------------------------------------------- * Name: h5pall_filters_avail_c * Purpose: Call H5Pall_filters_avail - * Inputs: prp_id - dataset creation property list identifier + * Inputs: prp_id - dataset creation property list identifier * Outputs: status - logical flag * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal @@ -3101,13 +3101,13 @@ nh5pset_szip_c ( hid_t_f *prp_id , int_f *options_mask, int_f *pixels_per_block) * Modifications: *---------------------------------------------------------------------------*/ -int_f +int_f nh5pall_filters_avail_c ( hid_t_f *prp_id , int_f *status) { int_f ret_value = -1; hid_t c_prp_id; htri_t c_status; - + c_prp_id = (hid_t)*prp_id; /* @@ -3123,15 +3123,15 @@ nh5pall_filters_avail_c ( hid_t_f *prp_id , int_f *status) } /*---------------------------------------------------------------------------- * Name: h5pget_filter_by_id_c - * Purpose: Call H5Pget_filter_by_id to get information about a filter + * Purpose: Call H5Pget_filter_by_id to get information about a filter * in a pipeline * Inputs: prp_id - property list identifier * filter_id - filter id * namelen - Anticipated number of characters in name. - *Outputs: flags - Bit vector specifying certain general + *Outputs: flags - Bit vector specifying certain general * properties of the filter. * cd_nelmts - Number of elements in cd_value - * cd_values - Auxiliary data for the filter. + * cd_values - Auxiliary data for the filter. * name - Name of the filter * Returns: 0 on success, -1 on failure * Programmer: Elena POurmal @@ -3161,8 +3161,8 @@ nh5pget_filter_by_id_c(hid_t_f *prp_id, int_f* filter_id, int_f* flags, size_t_f if (!c_cd_values) {HDfree(c_name); return ret_value; } - - + + /* * Call H5Pget_filter function. */ @@ -3173,23 +3173,23 @@ nh5pget_filter_by_id_c(hid_t_f *prp_id, int_f* filter_id, int_f* flags, size_t_f *cd_nelmts = (size_t_f)c_cd_nelmts; *flags = (int_f)c_flags; - HD5packFstring(c_name, _fcdtocp(name), (int)strlen(c_name)); - + HD5packFstring(c_name, _fcdtocp(name), (int)strlen(c_name)); + for (i = 0; i < c_cd_nelmts_in; i++) cd_values[i] = (int_f)c_cd_values[i]; - + ret_value = 0; DONE: HDfree(c_name); HDfree(c_cd_values); return ret_value; -} +} /*---------------------------------------------------------------------------- * Name: h5pmodify_filter_c * Purpose: Call H5Pmodify_filter to modify a filter - * Inputs: prp_id - property list identifier + * Inputs: prp_id - property list identifier * filter - Filter to be modified * flags - Bit vector specifying certain general * properties of the filter. @@ -3211,7 +3211,7 @@ nh5pmodify_filter_c (hid_t_f *prp_id, int_f* filter, int_f* flags, size_t_f* cd_ H5Z_filter_t c_filter; unsigned int * c_cd_values; unsigned i; - + c_filter = (H5Z_filter_t)*filter; c_flags = (unsigned)*flags; c_cd_nelmts = (size_t)*cd_nelmts; @@ -3237,7 +3237,7 @@ DONE: /*---------------------------------------------------------------------------- * Name: h5premove_filter_c * Purpose: Call H5Premove_filter to delete one or more filters - * Inputs: prp_id - property list identifier + * Inputs: prp_id - property list identifier * filter - Filter to be deleted * Returns: 0 on success, -1 on failure * Programmer: Quincey Koziol @@ -3250,7 +3250,7 @@ nh5premove_filter_c (hid_t_f *prp_id, int_f* filter) int_f ret_value = -1; hid_t c_prp_id; H5Z_filter_t c_filter; - + c_filter = (H5Z_filter_t)*filter; c_prp_id = (hid_t)*prp_id; |