summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2001-12-07 19:53:53 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2001-12-07 19:53:53 (GMT)
commit9289d8fb85f88adc1fd1a4c0e4b033164ffad46f (patch)
treedb5c9750d0da2f252bc212b85fbd90e7f91e846b /fortran
parent42f333314a17ceabb34725459dd26c5b8d3806b2 (diff)
downloadhdf5-9289d8fb85f88adc1fd1a4c0e4b033164ffad46f.zip
hdf5-9289d8fb85f88adc1fd1a4c0e4b033164ffad46f.tar.gz
hdf5-9289d8fb85f88adc1fd1a4c0e4b033164ffad46f.tar.bz2
[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)
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5Pf.c4
1 files changed, 4 insertions, 0 deletions
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;
}