diff options
Diffstat (limited to 'fortran/src/H5Pf.c')
-rw-r--r-- | fortran/src/H5Pf.c | 141 |
1 files changed, 0 insertions, 141 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c index 0efd205..3a97d7e 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -358,76 +358,6 @@ h5pget_chunk_c(hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims) return ret_value; } -/****if* H5Pf/h5pset_fill_value_c - * NAME - * h5pset_fill_value_c - * 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 - * RETURNS - * 0 on success, -1 on failure - * SOURCE - */ -int_f -h5pset_fill_value_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) -/******/ -{ - int ret_value = -1; - hid_t c_prp_id; - hid_t c_type_id; - herr_t ret; - - /* - * Call H5Pset_fill_value function. - */ - c_prp_id = (hid_t)*prp_id; - c_type_id = (hid_t)*type_id; - ret = H5Pset_fill_value(c_prp_id, c_type_id, fillvalue); - - if (ret < 0) - return ret_value; - ret_value = 0; - return ret_value; -} - -/****if* H5Pf/h5pget_fill_value_c - * NAME - * h5pget_fill_value_c - * 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 - * RETURNS - * 0 on success, -1 on failure - * SOURCE - */ -int_f -h5pget_fill_value_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) -/******/ -{ - int ret_value = -1; - hid_t c_prp_id; - hid_t c_type_id; - herr_t ret; - - /* - * Call H5Pget_fill_value function. - */ - c_prp_id = (hid_t)*prp_id; - c_type_id = (hid_t)*type_id; - ret = H5Pget_fill_value(c_prp_id, c_type_id, fillvalue); - - if (ret < 0) - return ret_value; - ret_value = 0; - return ret_value; -} - /****if* H5Pf/h5pget_version_c * NAME * h5pget_version_c @@ -487,77 +417,6 @@ h5pget_version_c(hid_t_f *prp_id, int_f *boot, int_f *freelist, int_f *stab, int } #endif /* H5_NO_DEPRECATED_SYMBOLS */ -/****if* H5Pf/h5pget_userblock_c - * NAME - * h5pget_userblock_c - * PURPOSE - * Call H5Pget_userblock to get the size of a user block in - * a file creation property list - * INPUTS - * prp_id - property list identifier - * Outputs size - Size of the user-block in bytes - * RETURNS - * 0 on success, -1 on failure - * SOURCE - */ -int_f -h5pget_userblock_c(hid_t_f *prp_id, hsize_t_f *size) -/******/ -{ - int ret_value = -1; - hid_t c_prp_id; - herr_t ret; - hsize_t c_size; - - /* - * Call H5Pget_userblock function. - */ - c_prp_id = (hid_t)*prp_id; - ret = H5Pget_userblock(c_prp_id, &c_size); - if (ret < 0) - return ret_value; - - *size = (hsize_t_f)c_size; - ret_value = 0; - - return ret_value; -} - -/****if* H5Pf/h5pset_userblock_c - * NAME - * h5pset_userblock_c - * PURPOSE - * Call H5Pset_userblock to set the size of a user block in - * a file creation property list - * INPUTS - * prp_id - property list identifier - * size - Size of the user-block in bytes - * RETURNS - * 0 on success, -1 on failure - * SOURCE - */ -int_f -h5pset_userblock_c(hid_t_f *prp_id, hsize_t_f *size) -/******/ -{ - int ret_value = -1; - hid_t c_prp_id; - herr_t ret; - hsize_t c_size; - c_size = (hsize_t)*size; - - /* - * Call H5Pset_userblock function. - */ - c_prp_id = (hid_t)*prp_id; - ret = H5Pset_userblock(c_prp_id, c_size); - - if (ret < 0) - return ret_value; - ret_value = 0; - return ret_value; -} - /****if* H5Pf/h5pget_sizes_c * NAME * h5pget_sizes_c |