diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-07-23 18:50:06 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-07-23 18:50:06 (GMT) |
| commit | c85497442b4a228b6d636d59fb5e51a932933142 (patch) | |
| tree | 271e8219919f5b17117b36261434d93d7c864d42 | |
| parent | 00e4cbc963d06c2f9d786e3520ceb510ff502c9a (diff) | |
| download | hdf5-c85497442b4a228b6d636d59fb5e51a932933142.zip hdf5-c85497442b4a228b6d636d59fb5e51a932933142.tar.gz hdf5-c85497442b4a228b6d636d59fb5e51a932933142.tar.bz2 | |
[svn-r25475] Fixed for nh5pget_fill_valuec_c where we called the wrong function
ret_value = nh5pset_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue))
HDFFV-8879
Tested: jam( intel, gnu)
| -rw-r--r-- | fortran/src/H5Pf.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c index 1306aa6..b66709a 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -558,7 +558,7 @@ nh5pget_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue /* * Call h5pget_fill_value_c function. */ - return nh5pset_fill_value_c(prp_id, type_id, fillvalue); + return nh5pget_fill_value_c(prp_id, type_id, fillvalue); } int_f @@ -567,7 +567,7 @@ nh5pget_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) /* * Call h5pget_fill_value_c function. */ - return nh5pset_fill_value_c(prp_id, type_id, fillvalue); + return nh5pget_fill_value_c(prp_id, type_id, fillvalue); } int_f @@ -576,7 +576,7 @@ nh5pget_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) /* * Call h5pget_fill_value_c function. */ - return nh5pset_fill_value_c(prp_id, type_id, fillvalue); + return nh5pget_fill_value_c(prp_id, type_id, fillvalue); } /****if* H5Pf/h5pget_version_c |