summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Pf.c
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2003-07-07 19:02:46 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2003-07-07 19:02:46 (GMT)
commit4e23c807585ed705173f32e374884a46e4a4f2dd (patch)
treedf458773252f84a19720b4d8b3588db955f4b6d1 /fortran/src/H5Pf.c
parent2d5f8835fd9851c65d8e33a9c4bbe5da64d5427e (diff)
downloadhdf5-4e23c807585ed705173f32e374884a46e4a4f2dd.zip
hdf5-4e23c807585ed705173f32e374884a46e4a4f2dd.tar.gz
hdf5-4e23c807585ed705173f32e374884a46e4a4f2dd.tar.bz2
[svn-r7181] Purpose:
Version update Description: Removed 1.4 compatibility code in the library. Platforms tested: FreeBSD 4.8 (sleipnir) h5committest
Diffstat (limited to 'fortran/src/H5Pf.c')
-rw-r--r--fortran/src/H5Pf.c76
1 files changed, 0 insertions, 76 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index 1ca819b..98d88cb 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -660,11 +660,7 @@ nh5pget_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk)
hid_t c_prp_id;
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.
@@ -1666,78 +1662,6 @@ DONE:
}
/*----------------------------------------------------------------------------
- * Name: h5pset_hyper_cache_c
- * Purpose: Call H5Pset__hyper_cache to indicate whether to
- * cache hyperslab blocks during I/O.
- * Inputs: prp_id - property list identifier
- * cache -
- * limit - Maximum size of the hyperslab block to cache.
- * 0 (zero) indicates no limit.
- * Returns: 0 on success, -1 on failure
- * Programmer: Xiangyang Su
- * Friday, February 25, 2000
- * Modifications:
- *---------------------------------------------------------------------------*/
-int_f
-nh5pset_hyper_cache_c(hid_t_f *prp_id, int_f * cache, int_f * limit)
-{
- int ret_value = -1;
- hid_t c_prp_id;
-#ifdef H5_WANT_H5_V1_4_COMPAT
- herr_t ret;
-#endif /* H5_WANT_H5_V1_4_COMPAT */
- unsigned c_cache, c_limit;
-
- c_cache = (unsigned) *cache;
- c_limit = (unsigned) *limit;
-
- /*
- * Call H5Pset_hyper_cache function.
- */
- c_prp_id = (hid_t)*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;
-}
-
-/*----------------------------------------------------------------------------
- * Name: h5pget_hyper_cache_c
- * Purpose: Call H5Pget_hyper_cache to get information regarding
- * the caching of hyperslab blocks
- * Inputs: prp_id - property list identifier
- * cache -
- * limit - Maximum size of the hyperslab block to cache.
- * 0 (zero) indicates no limit.
- * Returns: 0 on success, -1 on failure
- * Programmer: Xiangyang Su
- * Friday, February 25, 2000
- * Modifications:
- *---------------------------------------------------------------------------*/
-int_f
-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;
- /*
- * Call H5Pget__hyper_cache function.
- */
- c_prp_id = (hid_t)*prp_id;
- 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;
- ret_value = 0;
-#endif /* H5_WANT_H5_V1_4_COMPAT */
- return ret_value;
-}
-
-/*----------------------------------------------------------------------------
* Name: h5pset_btree_ratios_c
* Purpose: Call H5Pset_btree_ratios to set B-tree split ratios for B-tree split ratios for a dataset transfer property list. a
* dataset transfer property list.