diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-04-28 21:44:33 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-04-28 21:44:33 (GMT) |
| commit | a9fa46cf8e782645e321ae4c1637fc3b39f68774 (patch) | |
| tree | d81315686bc36cc0f9396597ae372edf1f37f281 /fortran/src/H5Pf.c | |
| parent | 39681a594ff9422b886b4b1e8712b1eb4d787379 (diff) | |
| download | hdf5-a9fa46cf8e782645e321ae4c1637fc3b39f68774.zip hdf5-a9fa46cf8e782645e321ae4c1637fc3b39f68774.tar.gz hdf5-a9fa46cf8e782645e321ae4c1637fc3b39f68774.tar.bz2 | |
[svn-r25133] Rudimentary changes; changed the casting of hid_t_f variables that used a casting of int_f to use a casting of hid_t_f.
Tested: jam (gnu)
Diffstat (limited to 'fortran/src/H5Pf.c')
| -rw-r--r-- | fortran/src/H5Pf.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c index 98e5ff6..cd354c7 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -418,18 +418,18 @@ nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue) /****if* H5Pf/h5pset_fill_value_c * NAME - * h5pset_fill_value_c + * h5pset_fill_value_c * PURPOSE - * Call H5Pset_fill_value to set a fillvalue for a dataset + * 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 + * 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 + * 0 on success, -1 on failure * AUTHOR * Elena Pourmal - * Saturday, August 14, 1999 + * Saturday, August 14, 1999 * SOURCE */ int_f @@ -445,7 +445,7 @@ nh5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) * Call H5Pset_fill_value function. */ c_prp_id = (hid_t)*prp_id; - c_type_id = (int)*type_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; |