diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-10-13 22:25:59 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-10-13 22:25:59 (GMT) |
| commit | 3aa8cd12237ee8ffec97c7b417b7cfe0e6fcb0d3 (patch) | |
| tree | ccb464898646e5851d117dc7514a070a4e9f2c0c /fortran/src/H5Pf.c | |
| parent | 8d5bcd338d2019fa37b60d267be49da9d324628d (diff) | |
| download | hdf5-3aa8cd12237ee8ffec97c7b417b7cfe0e6fcb0d3.zip hdf5-3aa8cd12237ee8ffec97c7b417b7cfe0e6fcb0d3.tar.gz hdf5-3aa8cd12237ee8ffec97c7b417b7cfe0e6fcb0d3.tar.bz2 | |
[svn-r7621]
Purpose: Rolling over changes from 1.6 branch
Description: h5pget(set)_cache_f functions had a wrong type of the
third parameter
Solution: Fixed the type to be INTEGER(SIZE_T)
Platforms tested: kelgia, arabica 64-bit, copper 64-bit
Misc. update:
Diffstat (limited to 'fortran/src/H5Pf.c')
| -rw-r--r-- | fortran/src/H5Pf.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c index 616de60..6918e26 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -1094,13 +1094,13 @@ nh5pget_fapl_family_c(hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist * instead of double *---------------------------------------------------------------------------*/ int_f -nh5pset_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, int_f* rdcc_nelmts, size_t_f* rdcc_nbytes , real_f* rdcc_w0 ) +nh5pset_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts, size_t_f* rdcc_nbytes , real_f* rdcc_w0 ) { int ret_value = -1; hid_t c_prp_id; herr_t ret; int c_mdc_nelmts; - int c_rdcc_nelmts; + size_t c_rdcc_nelmts; size_t c_rdcc_nbytes; double c_rdcc_w0; c_rdcc_nbytes =(size_t) *rdcc_nbytes; @@ -1111,7 +1111,7 @@ nh5pset_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, int_f* rdcc_nelmts, size_t_ */ c_prp_id = (hid_t)*prp_id; c_mdc_nelmts = (int)*mdc_nelmts; - c_rdcc_nelmts = (int)*rdcc_nelmts; + c_rdcc_nelmts = (size_t)*rdcc_nelmts; ret = H5Pset_cache(c_prp_id, c_mdc_nelmts, c_rdcc_nelmts, c_rdcc_nbytes, c_rdcc_w0 ); if (ret < 0) return ret_value; ret_value = 0; @@ -1137,13 +1137,13 @@ nh5pset_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, int_f* rdcc_nelmts, size_t_ * EIP October 10, 2003 *---------------------------------------------------------------------------*/ int_f -nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, int_f* rdcc_nelmts, size_t_f* rdcc_nbytes , real_f* rdcc_w0) +nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts, size_t_f* rdcc_nbytes , real_f* rdcc_w0) { int ret_value = -1; hid_t c_prp_id; herr_t ret; int c_mdc_nelmts; - int c_rdcc_nelmts; + size_t c_rdcc_nelmts; size_t c_rdcc_nbytes; double c_rdcc_w0; /* @@ -1153,7 +1153,7 @@ nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, int_f* rdcc_nelmts, size_t_f ret = H5Pget_cache(c_prp_id, &c_mdc_nelmts, &c_rdcc_nelmts, &c_rdcc_nbytes, &c_rdcc_w0); if (ret < 0) return ret_value; *mdc_nelmts = (int_f)c_mdc_nelmts; - *rdcc_nelmts = (int_f)c_rdcc_nelmts; + *rdcc_nelmts = (size_t_f)c_rdcc_nelmts; *rdcc_nbytes = (size_t_f)c_rdcc_nbytes; *rdcc_w0 = (real_f)c_rdcc_w0; |