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.c942
1 files changed, 906 insertions, 36 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index 0e08e28..27de148 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -4,53 +4,24 @@
/*----------------------------------------------------------------------------
* Name: h5pcreate_c
* Purpose: Call H5Pcreate to create a property list
- * Inputs: classtype - type of the property list
+ * Inputs: class - property list class identifier
* Outputs: prp_id - identifier of the created property list
* Returns: 0 on success, -1 on failure
* Programmer: Elena Pourmal
- * Saturday, August 14, 1999
+ * Wednesday, October 9, 2002
* Modifications:
*---------------------------------------------------------------------------*/
int_f
-nh5pcreate_c ( int_f *classtype, hid_t_f *prp_id )
+nh5pcreate_c ( hid_t_f *class, hid_t_f *prp_id )
{
- hid_t c_classtype;
+ hid_t c_class;
int CASE;
int ret_value = 0;
hid_t c_prp_id;
- /*CASE = (int)*classtype; */
- c_classtype = (hid_t)*classtype;
-/*
-
- switch (CASE) {
-
- case (H5P_FILE_CREATE_F):
- c_classtype = H5P_FILE_CREATE;
- break;
-
- case(H5P_FILE_ACCESS_F):
- c_classtype = H5P_FILE_ACCESS;
- break;
-
- case(H5P_DATASET_CREATE_F):
- c_classtype = H5P_DATASET_CREATE;
- break;
-
- case(H5P_DATASET_XFER_F):
- c_classtype = H5P_DATASET_XFER;
- break;
-
- case(H5P_MOUNT_F):
- c_classtype = H5P_MOUNT;
- break;
-
- default:
- ret_value = -1;
- return ret_value;
- }
-*/
- c_prp_id = H5Pcreate(c_classtype);
+
+ c_class = (hid_t)*class;
+ c_prp_id = H5Pcreate(c_class);
if ( c_prp_id < 0 ) ret_value = -1;
*prp_id = (hid_t_f)c_prp_id;
@@ -1937,3 +1908,902 @@ nh5pget_buffer_c ( hid_t_f *prp_id , hsize_t_f *size)
ret_value = 0;
return ret_value;
}
+/*----------------------------------------------------------------------------
+ * Name: h5pfill_value_defined_c
+ * Purpose: Call H5Pfill_value_defined to check if fill value is defined
+ * Inputs: prp_id - dataset creation property list identifier
+ * Outputs: flag - fill value status flag
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Friday, October 4, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pfill_value_defined_c ( hid_t_f *prp_id , int_f *flag)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ H5D_fill_value_t c_flag;
+
+ c_prp_id = (hid_t)*prp_id;
+ if ( H5Pfill_value_defined(c_prp_id, &c_flag) < 0 ) return ret_value;
+ *flag = (int_f)c_flag;
+ ret_value = 0;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pget_alloc_time_c
+ * 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
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Friday, October 4, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pget_alloc_time_c ( hid_t_f *prp_id , int_f *flag)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ H5D_alloc_time_t c_flag;
+
+ c_prp_id = (hid_t)*prp_id;
+ if ( H5Pget_alloc_time(c_prp_id, &c_flag) < 0 ) return ret_value;
+ *flag = (int_f)c_flag;
+ ret_value = 0;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pset_alloc_time_c
+ * 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
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Friday, October 4, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pset_alloc_time_c ( hid_t_f *prp_id , int_f *flag)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ H5D_alloc_time_t c_flag;
+
+ c_prp_id = (hid_t)*prp_id;
+ c_flag = (H5D_alloc_time_t)*flag;
+ if ( H5Pset_alloc_time(c_prp_id, c_flag) < 0 ) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pget_fill_time_c
+ * Purpose: Call H5Pget_fill_time to get fill value writing
+ * time for dataset during creation
+ * Inputs: prp_id - dataset creation property list identifier
+ * Outputs: flag - fill value writing time flag
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Friday, October 4, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pget_fill_time_c ( hid_t_f *prp_id , int_f *flag)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ H5D_fill_time_t c_flag;
+
+ c_prp_id = (hid_t)*prp_id;
+ if ( H5Pget_fill_time(c_prp_id, &c_flag) < 0 ) return ret_value;
+ *flag = (int_f)c_flag;
+ ret_value = 0;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pset_fill_time_c
+ * Purpose: Call H5Pset_fill_time to set fill value writing
+ * time for dataset during creation
+ * Inputs: prp_id - dataset creation property list identifier
+ * flag - fill value writing time flag
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Friday, October 4, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pset_fill_time_c ( hid_t_f *prp_id , int_f *flag)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ H5D_fill_time_t c_flag;
+
+ c_prp_id = (hid_t)*prp_id;
+ c_flag = (H5D_fill_time_t)*flag;
+ if ( H5Pset_fill_time(c_prp_id, c_flag) < 0 ) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pset_meta_block_size_c
+ * 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
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Monday, October 7, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pset_meta_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+ hsize_t c_size;
+
+ c_prp_id = (hid_t)*prp_id;
+ c_size = (hsize_t)*size;
+ if ( H5Pset_meta_block_size(c_prp_id, c_size) < 0 ) ret_value = -1;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * 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:
+ * size - size of the metadata block
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Monday, October 7, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pget_meta_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+ hsize_t c_size;
+
+ c_prp_id = (hid_t)*prp_id;
+ if ( H5Pget_meta_block_size(c_prp_id, &c_size) < 0 ) ret_value = -1;
+ *size = (hsize_t_f)c_size;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pset_sieve_buf_size_c
+ * 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
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Monday, October 7, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pset_sieve_buf_size_c ( hid_t_f *prp_id , size_t_f *size)
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+ size_t c_size;
+
+ c_prp_id = (hid_t)*prp_id;
+ c_size = (size_t)*size;
+ if ( H5Pset_sieve_buf_size(c_prp_id, c_size) < 0 ) ret_value = -1;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * 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:
+ * size - size of the buffer
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Monday, October 7, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pget_sieve_buf_size_c ( hid_t_f *prp_id , size_t_f *size)
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+ size_t c_size;
+
+ c_prp_id = (hid_t)*prp_id;
+ if ( H5Pget_sieve_buf_size(c_prp_id, &c_size) < 0 ) ret_value = -1;
+ *size = (size_t_f)c_size;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pset_small_data_block_size_c
+ * 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
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Monday, October 7, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pset_small_data_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+ hsize_t c_size;
+
+ c_prp_id = (hid_t)*prp_id;
+ c_size = (hsize_t)*size;
+ if ( H5Pset_small_data_block_size(c_prp_id, c_size) < 0 ) ret_value = -1;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * 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:
+ * size - size of the block
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Monday, October 7, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pget_small_data_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+ hsize_t c_size;
+
+ c_prp_id = (hid_t)*prp_id;
+ if ( H5Pget_small_data_block_size(c_prp_id, &c_size) < 0 ) ret_value = -1;
+ *size = (hsize_t_f)c_size;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pset_hyper_vector_size_c
+ * 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
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Monday, October 7, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pset_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size)
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+ size_t c_size;
+
+ c_prp_id = (hid_t)*prp_id;
+ c_size = (size_t)*size;
+ if ( H5Pset_hyper_vector_size(c_prp_id, c_size) < 0 ) ret_value = -1;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * 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:
+ * size - size of the vector
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * Monday, October 7, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5pget_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size)
+{
+ int ret_value = 0;
+ hid_t c_prp_id;
+ size_t c_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;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pcreate_class_c
+ * Purpose: Call H5Pcreate_class ito create a new property class
+ * Inputs: parent - property list class identifier
+ * name - name of the new class
+ * name_len - lenght of the "name" buffer
+ * Outputs: class - new class identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pcreate_class_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *class)
+{
+ int ret_value = -1;
+ hid_t c_parent;
+ hid_t c_class;
+ char* c_name;
+
+ c_name = (char *)HD5f2cstring(name, (int)*name_len);
+ if (c_name == NULL) goto DONE;
+ c_parent = (hid_t)*parent;
+
+ /*
+ * Call H5Pcreate_class function.
+ */
+ c_class = H5Pcreate_class(c_parent, c_name, NULL, NULL,NULL,NULL,NULL,NULL);
+ if (c_class < 0) goto DONE;
+ *class = (hid_t_f)c_class;
+ ret_value = 0;
+
+DONE:
+ if(c_name != NULL) HDfree(c_name);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pregisterc_c
+ * 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
+ * value - property value of character type
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+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
+ */
+ ret_value = nh5pregister_c(class, name, name_len, size, _fcdtocp(value));
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pregister_c
+ * 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
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pregister_c(hid_t_f *class, _fcd name, int_f *name_len, size_t_f *size, void *value)
+{
+ int ret_value = -1;
+ hid_t c_class;
+ char* c_name;
+ size_t c_size;
+
+ c_name = (char *)HD5f2cstring(name, (int)*name_len);
+ if (c_name == NULL) goto DONE;
+ c_size = (size_t)*size;
+ c_class = (hid_t)*class;
+
+ /*
+ * Call H5Pregister function.
+ */
+ if( H5Pregister(c_class, c_name, c_size, value, NULL,NULL,NULL,NULL,NULL,NULL) <0) goto DONE;
+ ret_value = 0;
+
+DONE:
+ if(c_name != NULL) HDfree(c_name);
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pinsertc_c
+ * 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
+ * value - property value of character type
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+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 ret_value = -1;
+
+ /*
+ * Call h5pinsert_c function
+ */
+ ret_value = nh5pinsert_c(plist, name, name_len, size, _fcdtocp(value));
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pinsert_c
+ * Purpose: Call H5Pinsert to iinsert a temporary property
+ * 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
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pinsert_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
+{
+ int ret_value = -1;
+ hid_t c_plist;
+ char* c_name;
+ size_t c_size;
+
+ c_name = (char *)HD5f2cstring(name, (int)*name_len);
+ if (c_name == NULL) goto DONE;
+ c_size = (size_t)*size;
+ c_plist = (hid_t)*plist;
+
+ /*
+ * Call H5Pinsert function.
+ */
+ if( H5Pinsert(c_plist, c_name, c_size, value, NULL,NULL,NULL,NULL,NULL) <0) goto DONE;
+ ret_value = 0;
+
+DONE:
+ if(c_name != NULL) HDfree(c_name);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pexist_c
+ * 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
+ * name_len - length of the "name" buffer
+ * Returns: nonnegative on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pexist_c(hid_t_f *class, _fcd name, int_f *name_len)
+{
+ int ret_value = -1;
+ hid_t c_class;
+ char* c_name;
+ htri_t status;
+
+ c_name = (char *)HD5f2cstring(name, (int)*name_len);
+ if (c_name == NULL) goto DONE;
+
+ c_class = (hid_t)*class;
+ /*
+ * Call H5Pexist function.
+ */
+ status = H5Pexist(c_class, c_name);
+ ret_value = status;
+
+DONE:
+ if(c_name != NULL) HDfree(c_name);
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pisa_class_c
+ * 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
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pisa_class_c(hid_t_f *plist, hid_t_f *class)
+{
+ int ret_value = -1;
+ hid_t c_class;
+ hid_t c_plist;
+ htri_t status;
+
+ c_class = (hid_t)*class;
+ c_plist = (hid_t)*plist;
+
+ /*
+ * Call H5Pisa_class function.
+ */
+ status = H5Pisa_class(c_plist, c_class);
+ ret_value = status;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pget_size_c
+ * Purpose: Call H5Pget_size to querie the size of the property
+ * Inputs: plist - property list to query
+ * name - name of the property
+ * name_len - length of the "name" buffer
+ * Outputs: size - size of the property in bytes
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_size_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size)
+{
+ int ret_value = -1;
+ hid_t c_plist;
+ char* c_name;
+ size_t c_size;
+
+ c_name = (char *)HD5f2cstring(name, (int)*name_len);
+ if (c_name == NULL) goto DONE;
+
+ c_plist = (hid_t)*plist;
+ /*
+ * Call H5Pget_size function.
+ */
+ if( H5Pget_size(c_plist, c_name, &c_size) < 0) goto DONE;
+ *size = (size_t_f)c_size;
+ ret_value = 0;
+
+DONE:
+ if(c_name != NULL) HDfree(c_name);
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pget_nprops_c
+ * Purpose: Call H5Pget_nporps to get number of the properties in the list
+ * Inputs: plist - property list to query
+ * Outputs: nprops - number of properties in the list
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_nprops_c(hid_t_f *plist, size_t_f *nprops)
+{
+ int ret_value = -1;
+ hid_t c_plist;
+ size_t c_nprops;
+
+ c_plist = (hid_t)*plist;
+
+ /*
+ * Call H5Pget_nprops function.
+ */
+ if( H5Pget_nprops(c_plist, &c_nprops) < 0) return ret_value;
+
+ *nprops = (size_t_f)c_nprops;
+ ret_value = 0;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pget_class_parent_c
+ * 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
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_class_parent_c(hid_t_f *prp_id, hid_t_f *parent_id)
+{
+ int ret_value = -1;
+ hid_t c_prp_id;
+ hid_t c_parent_id;
+
+ c_prp_id = (hid_t)*prp_id;
+
+ /*
+ * Call H5Pget_class_parent function.
+ */
+ c_parent_id = H5Pget_class_parent(c_prp_id);
+ if( c_parent_id < 0) return ret_value;
+
+ *parent_id =(hid_t_f)c_parent_id;
+ ret_value = 0;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pcopy_prop_c
+ * 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
+ * name - name of the property
+ * name_len - length of the "name" buffer
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pcopy_prop_c(hid_t_f *dst_id, hid_t_f *src_id, _fcd name, int_f *name_len)
+{
+ int ret_value = -1;
+ hid_t c_dst_id, c_src_id;
+ char* c_name;
+
+ c_name = (char *)HD5f2cstring(name, (int)*name_len);
+ if (c_name == NULL) goto DONE;
+
+ c_dst_id = (hid_t)*dst_id;
+ c_src_id = (hid_t)*src_id;
+ /*
+ * Call H5Pcopy_prop function.
+ */
+ if( H5Pcopy_prop(c_dst_id, c_src_id, c_name) < 0) goto DONE;
+ ret_value = 0;
+
+DONE:
+ if(c_name != NULL) HDfree(c_name);
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5premove_c
+ * Purpose: Call H5Premove to remove a property from a list
+ * Inputs: plid - identifier of property list
+ * name - name of the property to remove
+ * name_len - length of the "name" buffer
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5premove_c(hid_t_f *plid, _fcd name, int_f *name_len)
+{
+ int ret_value = -1;
+ hid_t c_plid;
+ char* c_name;
+
+ c_name = (char *)HD5f2cstring(name, (int)*name_len);
+ if (c_name == NULL) goto DONE;
+
+ c_plid = (hid_t)*plid;
+ /*
+ * Call H5Premove function.
+ */
+ if( H5Premove(c_plid, c_name) < 0) goto DONE;
+ ret_value = 0;
+
+DONE:
+ if(c_name != NULL) HDfree(c_name);
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5punregister_c
+ * Purpose: Call H5Punregister to remove a property from a property class
+ * Inputs: class - identifier of property class
+ * name - name of the property to unregister
+ * name_len - length of the "name" buffer
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5punregister_c(hid_t_f *class, _fcd name, int_f *name_len)
+{
+ int ret_value = -1;
+ hid_t c_class;
+ char* c_name;
+
+ c_name = (char *)HD5f2cstring(name, (int)*name_len);
+ if (c_name == NULL) goto DONE;
+
+ c_class = (hid_t)*class;
+ /*
+ * Call H5Punregister function.
+ */
+ if( H5Punregister(c_class, c_name) < 0) goto DONE;
+ ret_value = 0;
+
+DONE:
+ if(c_name != NULL) HDfree(c_name);
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pclose_class_c
+ * Purpose: Call H5Pclose_class to close property class
+ * Inputs: class - identifier of property class to close
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pclose_class_c(hid_t_f *class)
+{
+ int ret_value = -1;
+ hid_t c_class;
+
+ c_class = (hid_t)*class;
+ /*
+ * Call H5Pclose_class function.
+ */
+ if( H5Pclose_class(c_class) < 0) return ret_value;
+ ret_value = 0;
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pget_class_name_c
+ * 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
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_class_name_c(hid_t_f *class, _fcd name, int_f *name_len)
+{
+ int ret_value = -1;
+ hid_t c_class;
+ char* c_name;
+
+
+ c_class = (hid_t)*class;
+ /*
+ * Call H5Pget_class_name function.
+ */
+ c_name = H5Pget_class_name(c_class);
+ if( c_name == NULL) goto DONE;
+
+ HD5packFstring(c_name, _fcdtocp(name), (int)*name_len);
+ ret_value = strlen(c_name);
+
+DONE:
+ HDfree(c_name);
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pset_c
+ * Purpose: Call h5setc_c to set property with the character string value
+ * Inputs: plist - property list identifier
+ * name - name of property
+ * name_len - length of the "name" buffer
+ * value - property value of character type
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f *value_len)
+{
+ int ret_value = -1;
+
+ /*
+ * Call h5pset_c function
+ */
+ ret_value = nh5pset_c(plist, name, name_len, _fcdtocp(value));
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pset_c
+ * Purpose: Call H5Pset to set property value
+ * Inputs: plist - property list class identifier
+ * name - name of the new property
+ * name_len - length of the "name" buffer
+ * value - property value
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pset_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
+{
+ int ret_value = -1;
+ hid_t c_plist;
+ char* c_name;
+
+ c_name = (char *)HD5f2cstring(name, (int)*name_len);
+ if (c_name == NULL) goto DONE;
+ c_plist = (hid_t)*plist;
+
+ /*
+ * Call H5Pset function.
+ */
+ if( H5Pset(c_plist, c_name, value) <0) goto DONE;
+ ret_value = 0;
+
+DONE:
+ if(c_name != NULL) HDfree(c_name);
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5pgetc_c
+ * Purpose: Call h5set_c to set property with the character string value
+ * Inputs: plist - property list identifier
+ * name - name of property
+ * name_len - length of the "name" buffer
+ * Output: value - property value of character type
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pgetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f *value_len)
+{
+ int ret_value = -1;
+
+ /*
+ * Call h5pget_c function
+ */
+ ret_value = nh5pget_c(plist, name, name_len, _fcdtocp(value));
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5pget_c
+ * Purpose: Call H5Pget to set property value
+ * Inputs: plist - property list class identifier
+ * name - name of the new property
+ * name_len - length of the "name" buffer
+ * Output: value - property value
+ * Returns: 0 on success, -1 on failure
+ * Programmer: Elena Pourmal
+ * October 11, 2002
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5pget_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
+{
+ int ret_value = -1;
+ hid_t c_plist;
+ char* c_name;
+
+ c_name = (char *)HD5f2cstring(name, (int)*name_len);
+ if (c_name == NULL) goto DONE;
+ c_plist = (hid_t)*plist;
+
+ /*
+ * Call H5Pset function.
+ */
+ if( H5Pget(c_plist, c_name, value) <0) goto DONE;
+ ret_value = 0;
+
+DONE:
+ if(c_name != NULL) HDfree(c_name);
+ return ret_value;
+}