From 9289d8fb85f88adc1fd1a4c0e4b033164ffad46f Mon Sep 17 00:00:00 2001 From: Quincey Koziol Date: Fri, 7 Dec 2001 14:53:53 -0500 Subject: [svn-r4683] Purpose: Bug fix. Description: Fix fortran stub for H5P[gs]et_hyper_cache. Solution: Made the fortran subs not execute any function calls into the library, unless v1.4 compatibility is turned on. Elena will be following this up with a real fix. Platforms tested: FreeBSD 4.4 (hawkwind) --- fortran/src/H5Pf.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c index bac381c..8ff97d4 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -1656,8 +1656,10 @@ 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 */ ret_value = 0; return ret_value; } @@ -1686,10 +1688,12 @@ 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; *limit = (int_f)c_limit; +#endif /* H5_WANT_H5_V1_4_COMPAT */ ret_value = 0; return ret_value; } -- cgit v0.12