mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-02-17 16:10:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r4683] Purpose:

Browse Source 
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)
This commit is contained in:
Quincey Koziol 2001-12-07 14:53:53 -05:00
parent 42f333314a
commit 9289d8fb85
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/src/H5Pf.c
View File

@ -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;
}