1 files changed, 0 insertions, 92 deletions
diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c
index 9703486..4b56cca 100644
--- a/fortran/src/H5Ff.c
+++ b/fortran/src/H5Ff.c
@@ -189,98 +189,6 @@ h5funmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen)
     return ret_value;
 }
 
-/****if* H5Ff/h5fget_create_plist_c
- * NAME
- *  h5fget_create_plist_c
- * PURPOSE
- *  Call H5Fget_create_plist to get the file creation property list
- * INPUTS
- *  file_id - file identifier
- * OUTPUTS
- *  prop_id - creation property list identifier
- * RETURNS
- *  0 on success, -1 on failure
- * SOURCE
- */
-int_f
-h5fget_create_plist_c(hid_t_f *file_id, hid_t_f *prop_id)
-/******/
-{
-    int   ret_value = -1;
-    hid_t c_file_id, c_prop_id;
-
-    c_file_id = (hid_t)*file_id;
-    c_prop_id = H5Fget_create_plist(c_file_id);
-
-    if (c_prop_id < 0)
-        return ret_value;
-    *prop_id = (hid_t_f)c_prop_id;
-
-    ret_value = 0;
-    return ret_value;
-}
-
-/****if* H5Ff/h5fget_access_plist_c
- * NAME
- *  h5fget_access_plist_c
- * PURPOSE
- *  Call H5Fget_access_plist to get the file access property list
- * INPUTS
- *  file_id - file identifier
- * OUTPUTS
- *  access_id - access property list identifier
- * RETURNS
- *  0 on success, -1 on failure
- * SOURCE
- */
-int_f
-h5fget_access_plist_c(hid_t_f *file_id, hid_t_f *access_id)
-/******/
-{
-    int   ret_value = -1;
-    hid_t c_file_id, c_access_id;
-
-    c_file_id   = (hid_t)*file_id;
-    c_access_id = H5Fget_access_plist(c_file_id);
-
-    if (c_access_id < 0)
-        return ret_value;
-    *access_id = (hid_t_f)c_access_id;
-
-    ret_value = 0;
-    return ret_value;
-}
-
-/****if* H5Ff/h5fget_obj_count_c
- * NAME
- *  h5fget_obj_count_c
- * PURPOSE
- *  Call H5Fget_obj_count to get number of open objects within a file
- * INPUTS
- *  file_id - identifier of the file to be closed
- *  obj_type - type of the object
- * RETURNS
- *  obj_count - number of objects
- *  0 on success, -1 on failure
- * SOURCE
- */
-
-int_f
-h5fget_obj_count_c(hid_t_f *file_id, int_f *obj_type, size_t_f *obj_count)
-/******/
-{
-    int      ret_value = 0;
-    hid_t    c_file_id;
-    unsigned c_obj_type;
-    ssize_t  c_obj_count;
-
-    c_file_id  = (hid_t)*file_id;
-    c_obj_type = (unsigned)*obj_type;
-    if ((c_obj_count = H5Fget_obj_count(c_file_id, c_obj_type)) < 0)
-        ret_value = -1;
-    *obj_count = (size_t_f)c_obj_count;
-    return ret_value;
-}
 /****if* H5Ff/h5fget_obj_ids_c
  * NAME
  *  h5fget_obj_ids_c