diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2022-10-11 12:25:05 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2022-10-11 12:25:05 (GMT) |
commit | 64e69d9291e58f56152f91e58b847deb2c172e26 (patch) | |
tree | 7daebcbec09e89f282ff9896c9877b41608f02bc /fortran/src/H5Df.c | |
parent | 306db409d44cccbeaff1cd5acb1a99173ac8b185 (diff) | |
download | hdf5-64e69d9291e58f56152f91e58b847deb2c172e26.zip hdf5-64e69d9291e58f56152f91e58b847deb2c172e26.tar.gz hdf5-64e69d9291e58f56152f91e58b847deb2c172e26.tar.bz2 |
Implemented C matching (and general) H5Dfill Fortran wrappers (#2152)
Diffstat (limited to 'fortran/src/H5Df.c')
-rw-r--r-- | fortran/src/H5Df.c | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c index ba3e5d4..75dd014 100644 --- a/fortran/src/H5Df.c +++ b/fortran/src/H5Df.c @@ -1047,51 +1047,6 @@ DONE: return ret_value; } -/****if* H5Df/h5dfill_c - * NAME - * h5dfill_c - * PURPOSE - * Call H5Dfill to fill memory buffer with a fill value - * INPUTS - * fill_value - fill value - * fill_type_id - fill value datatype identifier - * space_id - memory space selection identifier - * buf - memory buffer to fill - * mem_type_id - memory buffer dtatype identifier - * RETURNS - * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, March 12, 2003 - * HISTORY - * - * SOURCE - */ -int_f -h5dfill_c(void *fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void *buf, hid_t_f *mem_type_id) -/******/ -{ - int ret_value = -1; - herr_t ret; - hid_t c_fill_type_id; - hid_t c_mem_type_id; - hid_t c_space_id; - - c_fill_type_id = (hid_t)*fill_type_id; - c_mem_type_id = (hid_t)*mem_type_id; - c_space_id = (hid_t)*space_id; - - /* - * Call H5Dfill function. - */ - ret = H5Dfill(fill_value, c_fill_type_id, buf, c_mem_type_id, c_space_id); - - if (ret < 0) - return ret_value; - ret_value = 0; - return ret_value; -} - /****if* H5Df/h5dget_space_status_c * NAME * h5dget_space_status_c |