summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2002-05-20 18:43:31 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2002-05-20 18:43:31 (GMT)
commit03ab48c9c306fee878c4f3a97f858f90c078bfdf (patch)
tree5b2feadc09e9654a47f1af5d9512482fe36327d8 /fortran
parent75494847bb75617e90edb001ff69e555532499fa (diff)
downloadhdf5-03ab48c9c306fee878c4f3a97f858f90c078bfdf.zip
hdf5-03ab48c9c306fee878c4f3a97f858f90c078bfdf.tar.gz
hdf5-03ab48c9c306fee878c4f3a97f858f90c078bfdf.tar.bz2
[svn-r5444] Purpose:
Code cleanup Description: Clean up warnings on IRIX64 6.5 (modi4) Platforms tested: IRIX64 6.5 (modi4)
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5Pf.c13
1 files changed, 9 insertions, 4 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index 49c518a..2ea4e5e 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -645,7 +645,11 @@ nh5pget_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk)
int i;
herr_t ret;
int c_ik;
+#ifdef H5_WANT_H5_V1_4_COMPAT
int c_lk;
+#else /* H5_WANT_H5_V1_4_COMPAT */
+ unsigned c_lk;
+#endif /* H5_WANT_H5_V1_4_COMPAT */
/*
* Call H5Pget_sym_k function.
@@ -1646,12 +1650,14 @@ nh5pget_external_c(hid_t_f *prp_id,int*idx, size_t_f* name_size, _fcd name, int_
* Modifications:
*---------------------------------------------------------------------------*/
int_f
-nh5pset_hyper_cache_c(hid_t_f *prp_id, int_f* cache, int_f* limit)
+nh5pset_hyper_cache_c(hid_t_f *prp_id, int_f * cache, int_f * limit)
{
int ret_value = -1;
+#ifdef H5_WANT_H5_V1_4_COMPAT
hid_t c_prp_id;
herr_t ret;
unsigned c_cache, c_limit;
+
c_cache = (unsigned) *cache;
c_limit = (unsigned) *limit;
@@ -1659,7 +1665,6 @@ nh5pset_hyper_cache_c(hid_t_f *prp_id, int_f* cache, int_f* limit)
* Call H5Pset_hyper_cache function.
*/
c_prp_id = *prp_id;
-#ifdef H5_WANT_H5_V1_4_COMPAT
ret = H5Pset_hyper_cache(c_prp_id, c_cache, c_limit);
if (ret < 0) return ret_value;
#endif /* H5_WANT_H5_V1_4_COMPAT */
@@ -1681,9 +1686,10 @@ nh5pset_hyper_cache_c(hid_t_f *prp_id, int_f* cache, int_f* limit)
* Modifications:
*---------------------------------------------------------------------------*/
int_f
-nh5pget_hyper_cache_c(hid_t_f *prp_id, int_f* cache, int_f* limit)
+nh5pget_hyper_cache_c(hid_t_f *prp_id, int_f * cache, int_f * limit)
{
int ret_value = -1;
+#ifdef H5_WANT_H5_V1_4_COMPAT
hid_t c_prp_id;
herr_t ret;
unsigned c_cache, c_limit;
@@ -1691,7 +1697,6 @@ nh5pget_hyper_cache_c(hid_t_f *prp_id, int_f* cache, int_f* limit)
* Call H5Pget__hyper_cache function.
*/
c_prp_id = *prp_id;
-#ifdef H5_WANT_H5_V1_4_COMPAT
ret = H5Pget_hyper_cache(c_prp_id, &c_cache, &c_limit);
if (ret < 0) return ret_value;
*cache = (int_f)c_cache;