diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2020-02-10 20:11:36 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2020-02-11 18:10:56 (GMT) |
| commit | 08737e596da4c4e3d9917c84be7fc2269e02f63c (patch) | |
| tree | 7c66767a1ef0c6aae7cbcb07a6c29584f77a89ba /fortran/src/H5Pf.c | |
| parent | ea93dac697401f72c16964a04ddb0fc3b83674e4 (diff) | |
| download | hdf5-08737e596da4c4e3d9917c84be7fc2269e02f63c.zip hdf5-08737e596da4c4e3d9917c84be7fc2269e02f63c.tar.gz hdf5-08737e596da4c4e3d9917c84be7fc2269e02f63c.tar.bz2 | |
HDFFV-11018 Add Fortran H5F_LIBVER_V*_F definitions
Added
------
New Definitions:
INTEGER :: H5F_LIBVER_ERROR_F
INTEGER :: H5F_LIBVER_NBOUNDS_F
INTEGER :: H5F_LIBVER_V18_F
INTEGER :: H5F_LIBVER_V110_F
INTEGER :: H5F_LIBVER_V112_F
New API:
h5pget_libver_bounds_f(fapl_id, low, high, hdferr)
Removed:
call to C wrapper h5pset_libver_bounds_c in h5pset_libver_bounds_f
Diffstat (limited to 'fortran/src/H5Pf.c')
| -rw-r--r-- | fortran/src/H5Pf.c | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c index 2cacc8c..a931903 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -4061,46 +4061,6 @@ h5pget_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags) ret_value = 0; return ret_value; } -/****if* H5Pf/h5pset_libver_bounds_c - * NAME - * h5pset_libver_bounds_c - * PURPOSE - * Calls H5Pset_libver_bounds - * - * INPUTS - * - * fapl_id - File access property list identifier - * low - The earliest version of the library that will be used for writing objects. - * high - The latest version of the library that will be used for writing objects. - * OUTPUTS - * - * - * RETURNS - * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * February 18, 2008 - * HISTORY - * - * SOURCE -*/ -int_f -h5pset_libver_bounds_c(hid_t_f *fapl_id, int_f *low, int_f *high ) -/******/ -{ - int ret_value = -1; - herr_t ret; - - /* - * Call H5Pset_libver_bounds function. - */ - ret = H5Pset_libver_bounds( (hid_t)*fapl_id, (H5F_libver_t)*low, (H5F_libver_t)*high ); - if (ret < 0) return ret_value; - - ret_value = 0; - return ret_value; -} - /****if* H5Pf/h5pset_link_creation_order_c * NAME * h5pset_link_creation_order_c |