[svn-r27393] removed unused C functions

1 files changed, 0 insertions, 168 deletions

diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c
index 0fa84a3..8f012cf 100644
--- a/fortran/src/H5Af.c
+++ b/fortran/src/H5Af.c
@@ -117,111 +117,6 @@ done:
     return ret_value;
 }
 
-
-/****if* H5Af/h5aopen_idx_c
- * NAME
- *  h5aopen_idx_c
- * PURPOSE
- *  Call H5Aopen_by_idx to open an attribute
- * INPUTS
- *  obj_id - object identifier
- *  idx    - attribute index ( zero based)
- * OUTPUTS
- *  attr_id - attribute identifier
- * RETURNS
- *  0 on success, -1 on failure
- * AUTHOR
- *  Elena Pourmal
- *  Thursday, August 12, 1999
- * HISTORY
- *
- * SOURCE
-*/
-int_f
-h5aopen_idx_c (hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id)
-/******/
-{
-    int_f ret_value = 0;          /* Return value */
-
-     /*
-      * Call H5Aopen_by_idx function.
-      */
-     if((*attr_id = (hid_t_f)H5Aopen_by_idx((hid_t)*obj_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, (hsize_t)*idx, H5P_DEFAULT, H5P_DEFAULT)) < 0)
-        HGOTO_DONE(FAIL);
-
-done:
-     return ret_value;
-}
-
-
-/****if* H5Af/h5aget_space_c
- * NAME
- *  h5aget_space_c
- * PURPOSE
- *  Call H5Aget_space to get attribute's dataspace
- * INPUTS
- *  attr_id - attribute identifier
- * OUTPUTS
- *  space_id - dataspace identifier
- * RETURNS
- *  0 on success, -1 on failure
- * AUTHOR
- *  Elena Pourmal
- *  Thursday, August 12, 1999
- * HISTORY
- *
- * SOURCE
-*/
-int_f
-h5aget_space_c (hid_t_f *attr_id, hid_t_f *space_id)
-/******/
-{
-    int_f ret_value=0;          /* Return value */
-
-     /*
-      * Call H5Aget_space function.
-      */
-     if ((*space_id = (hid_t_f)H5Aget_space((hid_t)*attr_id)) < 0)
-         HGOTO_DONE(FAIL);
-
-done:
-     return ret_value;
-}
-
-/****if* H5Af/h5aget_type_c
- * NAME
- *  h5aget_type_c
- * PURPOSE
- *  Call H5Aget_space to get attribute's datatype
- * INPUTS
- *  attr_id - attribute identifier
- * OUTPUTS
- *  type_id - datatype identifier
- * RETURNS
- *  0 on success, -1 on failure
- * AUTHOR
- *  Elena Pourmal
- *  Thursday, August 12, 1999
- * HISTORY
- *
- * SOURCE
-*/
-int_f
-h5aget_type_c (hid_t_f *attr_id, hid_t_f *type_id)
-/******/
-{
-    int_f ret_value=0;          /* Return value */
-
-     /*
-      * Call H5Aget_type function.
-      */
-     if ((*type_id = (hid_t_f)H5Aget_type((hid_t)*attr_id)) < 0)
-         HGOTO_DONE(FAIL);
-
-done:
-     return ret_value;
-}
-
 /****if* H5Af/h5aget_num_attrs_c
  * NAME
  *  h5aget_num_attrs_c
@@ -311,69 +206,6 @@ done:
   return ret_value;
 }
 
-/****if* H5Af/h5aget_storage_size_c
- * NAME
- *  h5aget_storage_size_c
- * PURPOSE
- *  Call H5Aget_storage_size
- * INPUTS
- *  attr_id - identifier of an attribute
- * OUTPUTS
- *  size    - attributes storage requirements
- * RETURNS
- *  0 on success, -1 on failure
- * AUTHOR
- *  M. Scot Breitenfeld
- *  January, 2008
- * HISTORY
- * N/A
- * SOURCE
-*/
-
-int_f
-h5aget_storage_size_c ( hid_t_f *attr_id,  hsize_t_f *size)
-/******/
-{
-    int_f ret_value=0;          /* Return value */
-
-    if ((*size = (hsize_t_f)H5Aget_storage_size((hid_t)*attr_id)) < 0)
-        HGOTO_DONE(FAIL);
-
-done:
-    return ret_value;
-}
-
-/****if* H5Af/h5aget_create_plist_c
- * NAME
- *  h5aget_create_plist_c
- * PURPOSE
- *  Call H5Aget_create_plist
- * INPUTS
- *  attr_id - identifier of an attribute
- * OUTPUTS
- *  creation_prop_id - Identifier for the attribute’s creation property
- * RETURNS
- *  0 on success, -1 on failure
- * AUTHOR
- *  M. Scot Breitenfeld
- *  January, 2008
- * HISTORY
- * N/A
- * SOURCE
-*/
-
-int_f
-h5aget_create_plist_c ( hid_t_f *attr_id,  hid_t_f *creation_prop_id)
-/******/
-{
-    int_f ret_value=0;          /* Return value */
-
-    if ((*creation_prop_id = (hid_t_f)H5Aget_create_plist((hid_t)*attr_id)) < 0)
-        HGOTO_DONE(FAIL);
-
-done:
-    return ret_value;
-}
 
 /****if* H5Af/h5arename_by_name_c
  * NAME