diff options
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 f647a95..9ef14bc 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -624,16 +624,16 @@ nh5pset_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk) { int ret_value = -1; hid_t c_prp_id; - int c_ik; - int c_lk; + unsigned c_ik; + unsigned c_lk; herr_t ret; /* * Call H5Pset_sym_k function. */ c_prp_id = (hid_t)*prp_id; - c_ik = (int)*ik; - c_lk = (int)*lk; + c_ik = (unsigned)*ik; + c_lk = (unsigned)*lk; ret = H5Pset_sym_k(c_prp_id, c_ik, c_lk); if (ret < 0) return ret_value; @@ -659,7 +659,7 @@ nh5pget_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk) int ret_value = -1; hid_t c_prp_id; herr_t ret; - int c_ik; + unsigned c_ik; unsigned c_lk; /* @@ -690,14 +690,14 @@ nh5pset_istore_k_c (hid_t_f *prp_id, int_f* ik) { int ret_value = -1; hid_t c_prp_id; - int c_ik; + unsigned c_ik; herr_t ret; /* * Call H5Pset_istore_k function. */ c_prp_id = (hid_t)*prp_id; - c_ik = (int)*ik; + c_ik = (unsigned)*ik; ret = H5Pset_istore_k(c_prp_id, c_ik); if (ret < 0) return ret_value; @@ -722,7 +722,7 @@ nh5pget_istore_k_c (hid_t_f *prp_id, int_f* ik) int ret_value = -1; hid_t c_prp_id; herr_t ret; - int c_ik; + unsigned c_ik; /* * Call H5Pget_istore_k function. |