summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Pf.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5Pf.c')
-rw-r--r--fortran/src/H5Pf.c632
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;