Added Fortran Async APIs (#2715)

      H5A, H5D, H5ES, H5G, H5F, H5L and H5O async APIs were added.

1 files changed, 0 insertions, 348 deletions

diff --git a/fortran/src/H5Gf.c b/fortran/src/H5Gf.c
index 9513a58..445fcea 100644
--- a/fortran/src/H5Gf.c
+++ b/fortran/src/H5Gf.c
@@ -21,128 +21,6 @@
 #include "H5f90.h"
 #include "H5Eprivate.h"
 
-/****if* H5Gf/h5gcreate_c
- * NAME
- *  h5gcreate_c
- * PURPOSE
- *  Call H5Gcreate to create a group
- * INPUTS
- *  loc_id - file or group identifier
- *  name - name of the group
- *  namelen - name length
- *  size_hint - length of names in the group
- * OUTPUTS
- *  grp_id - group identifier
- * RETURNS
- *  0 on success, -1 on failure
- * AUTHOR
- *  Elena Pourmal
- *  Wednesday, August 5, 1999
- * HISTORY
- *  Changed to call H5Gcreate2 because H5Gcreate flip-flops and
- *  H5Gcreate1 can be compiled out of the library
- *  QAK - 2007/08/23
- * SOURCE
- */
-int_f
-h5gcreate_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size_hint, hid_t_f *grp_id,
-            hid_t_f *lcpl_id, hid_t_f *gcpl_id, hid_t_f *gapl_id)
-/******/
-{
-    hid_t c_gcpl_id = -1; /* Group creation property list */
-    char *c_name    = NULL;
-    hid_t c_grp_id;
-    int_f ret_value = -1;
-
-    /*
-     * Convert FORTRAN name to C name
-     */
-    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
-        goto DONE;
-
-    /*
-     * Call H5Gcreate function.
-     */
-    if (*size_hint == (size_t_f)OBJECT_NAMELEN_DEFAULT_F) {
-        c_grp_id = H5Gcreate2((hid_t)*loc_id, c_name, (hid_t)*lcpl_id, (hid_t)*gcpl_id, (hid_t)*gapl_id);
-    }
-    else {
-        /* Create the group creation property list */
-        if ((c_gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0)
-            goto DONE;
-
-        /* Set the local heap size hint */
-        if (H5Pset_local_heap_size_hint(c_gcpl_id, (size_t)*size_hint) < 0)
-            goto DONE;
-
-        /* Create the group */
-        c_grp_id = H5Gcreate2((hid_t)*loc_id, c_name, H5P_DEFAULT, c_gcpl_id, H5P_DEFAULT);
-    }
-    if (c_grp_id < 0)
-        goto DONE;
-
-    /* Everything OK, set values to return */
-    *grp_id   = (hid_t_f)c_grp_id;
-    ret_value = 0;
-
-DONE:
-    if (c_gcpl_id > 0)
-        H5Pclose(c_gcpl_id);
-    if (c_name)
-        HDfree(c_name);
-    return ret_value;
-}
-
-/****if* H5Gf/h5gopen_c
- * NAME
- *  h5gopen_c
- * PURPOSE
- *  Call H5Gopen to open a dataset
- * INPUTS
- *  loc_id - file or group identifier
- *  name - name of the group
- *  namelen - name length
- *  gapl_id - Group access property list identifier
- * OUTPUTS
- *  grp_id - group identifier
- * RETURNS
- *  0 on success, -1 on failure
- * AUTHOR
- *  Elena Pourmal
- *  Wednesday, August 5, 1999
- *
- * SOURCE
- */
-int_f
-h5gopen_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *gapl_id, hid_t_f *grp_id)
-/******/
-{
-    char *c_name = NULL;
-    hid_t c_grp_id;
-    int   ret_value = -1;
-
-    /*
-     * Convert FORTRAN name to C name
-     */
-    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
-        goto DONE;
-
-    /*
-     * Call H5Gopen function.
-     */
-    if ((c_grp_id = H5Gopen2((hid_t)*loc_id, c_name, (hid_t)*gapl_id)) < 0)
-        goto DONE;
-
-    /* Everything OK, set values to return */
-    *grp_id   = (hid_t_f)c_grp_id;
-    ret_value = 0;
-
-DONE:
-    if (c_name)
-        HDfree(c_name);
-    return ret_value;
-}
-
 /****if* H5Gf/h5gget_obj_info_idx_c
  * NAME
  *  h5gget_obj_info_idx_c
@@ -273,32 +151,6 @@ DONE:
     return ret_value;
 }
 
-/****if* H5Gf/h5gclose_c
- * NAME
- *  h5gclose_c
- * PURPOSE
- *  Call H5Gclose to close the group
- * INPUTS
- *  grp_id - identifier of the group to be closed
- * RETURNS
- *  0 on success, -1 on failure
- * AUTHOR
- *  Elena Pourmal
- *  Wednesday, August 5, 1999
- * SOURCE
- */
-
-int_f
-h5gclose_c(hid_t_f *grp_id)
-/******/
-{
-    int ret_value = 0;
-
-    if (H5Gclose((hid_t)*grp_id) < 0)
-        ret_value = -1;
-    return ret_value;
-}
-
 /****if* H5Gf/h5glink_c
  * NAME
  *  h5glink_c
@@ -852,203 +704,3 @@ h5gget_create_plist_c(hid_t_f *grp_id, hid_t_f *gcpl_id)
 done:
     return ret_value;
 }
-
-/****if* H5Gf/h5gget_info_c
- * NAME
- *  h5gget_info_c
- * PURPOSE
- *  Call H5Gget_info
- * INPUTS
- *  group_id - Group identifier
- * OUTPUTS
- *
- *  storage_type - Type of storage for links in group:
- *                             H5G_STORAGE_TYPE_COMPACT: Compact storage
- *                             H5G_STORAGE_TYPE_DENSE: Indexed storage
- *                             H5G_STORAGE_TYPE_SYMBOL_TABLE: Symbol tables, the original HDF5 structure
- *
- *  nlinks - Number of links in group
- *  max_corder - Current maximum creation order value for group
- *  mounted - Whether group has a file mounted on it (0 = false, 1 = true)
- *
- * RETURNS
- *  0 on success, -1 on failure
- * AUTHOR
- *  M. Scot Breitenfeld
- *  February 15, 2008
- * HISTORY
- *
- *  - Added 'mounted' parameter
- *  M. Scot Breitenfeld
- *  July 16, 2008
- * SOURCE
- */
-int_f
-h5gget_info_c(hid_t_f *group_id, int_f *storage_type, int_f *nlinks, int_f *max_corder, int_f *mounted)
-/******/
-{
-
-    int_f      ret_value = 0; /* Return value */
-    H5G_info_t ginfo;
-
-    /*
-     * Call H5Gget_info function.
-     */
-    if (H5Gget_info((hid_t)*group_id, &ginfo) < 0)
-        HGOTO_DONE(FAIL);
-
-    /* Unpack the structure */
-
-    *storage_type = (int_f)ginfo.storage_type;
-    *nlinks       = (int_f)ginfo.nlinks;
-    *max_corder   = (int_f)ginfo.max_corder;
-    *mounted      = 0;
-    if (ginfo.mounted)
-        *mounted = 1;
-
-done:
-    return ret_value;
-}
-
-/****if* H5Gf/h5gget_info_by_idx_c
- * NAME
- *  h5gget_info_by_idx_c
- * PURPOSE
- *  Call H5Gget_info_by_idx
- * INPUTS
- *
- *  loc_id - File or group identifier
- *  group_name - Name of group containing group for which information is to be retrieved
- *  group_namelen - name length
- *  index_type - Index type
- *  order - Order of the count in the index
- *  n - Position in the index of the group for which information is retrieved
- *  lapl_id - Link access property list
- * OUTPUTS
- *
- *  storage_type - Type of storage for links in group:
- *                             H5G_STORAGE_TYPE_COMPACT: Compact storage
- *                             H5G_STORAGE_TYPE_DENSE: Indexed storage
- *                             H5G_STORAGE_TYPE_SYMBOL_TABLE: Symbol tables, the original HDF5 structure
- *
- *  nlinks - Number of links in group
- *  max_corder - Current maximum creation order value for group
- *  mounted - Whether group has a file mounted on it (0 = false, 1 = true)
- *
- * RETURNS
- *  0 on success, -1 on failure
- * AUTHOR
- *  M. Scot Breitenfeld
- *  February 18, 2008
- * HISTORY
- *
- *  - Added 'mounted' parameter
- *    M. Scot Breitenfeld
- *    July 16, 2008
- * SOURCE
- */
-int_f
-h5gget_info_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen, int_f *index_type,
-                     int_f *order, hsize_t_f *n, hid_t_f *lapl_id, int_f *storage_type, int_f *nlinks,
-                     int_f *max_corder, int_f *mounted)
-/******/
-{
-    char      *c_group_name = NULL; /* Buffer to hold group name C string */
-    int_f      ret_value    = 0;    /* Return value */
-    H5G_info_t ginfo;
-    /*
-     * Convert FORTRAN name to C name
-     */
-    if ((c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)) == NULL)
-        HGOTO_DONE(FAIL);
-
-    /*
-     * Call H5Gget_info_by_idx function.
-     */
-    if (H5Gget_info_by_idx((hid_t)*loc_id, c_group_name, (H5_index_t)*index_type, (H5_iter_order_t)*order,
-                           (hsize_t)*n, &ginfo, (hid_t)*lapl_id) < 0)
-        HGOTO_DONE(FAIL);
-
-    /* Unpack the structure */
-
-    *storage_type = (int_f)ginfo.storage_type;
-    *nlinks       = (int_f)ginfo.nlinks;
-    *max_corder   = (int_f)ginfo.max_corder;
-    *mounted      = 0;
-    if (ginfo.mounted)
-        *mounted = 1;
-
-done:
-    if (c_group_name)
-        HDfree(c_group_name);
-    return ret_value;
-}
-
-/****if* H5Gf/h5gget_info_by_name_c
- * NAME
- *  h5gget_info_by_name_c
- * PURPOSE
- *  Call H5Gget_info_by_name
- * INPUTS
- *
- *  loc_id - File or group identifier
- *  group_name - Name of group containing group for which information is to be retrieved
- *  group_namelen - name length
- *  lapl_id - Link access property list
- * OUTPUTS
- *
- *  storage_type - Type of storage for links in group:
- *                             H5G_STORAGE_TYPE_COMPACT: Compact storage
- *                             H5G_STORAGE_TYPE_DENSE: Indexed storage
- *                             H5G_STORAGE_TYPE_SYMBOL_TABLE: Symbol tables, the original HDF5 structure
- *
- *  nlinks - Number of links in group
- *  max_corder - Current maximum creation order value for group
- *  mounted - Whether group has a file mounted on it (0 = false, 1 = true)
- *
- * RETURNS
- *  0 on success, -1 on failure
- * AUTHOR
- *  M. Scot Breitenfeld
- *  February 18, 2008
- * HISTORY
- *
- *  - Added 'mounted' parameter
- *    M. Scot Breitenfeld
- *    July 16, 2008
- * SOURCE
- */
-int_f
-h5gget_info_by_name_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen, hid_t_f *lapl_id,
-                      int_f *storage_type, int_f *nlinks, int_f *max_corder, int_f *mounted)
-/******/
-{
-    char      *c_group_name = NULL; /* Buffer to hold group name C string */
-    int_f      ret_value    = 0;    /* Return value */
-    H5G_info_t ginfo;
-    /*
-     * Convert FORTRAN name to C name
-     */
-    if ((c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)) == NULL)
-        HGOTO_DONE(FAIL);
-
-    /*
-     * Call H5Gget_info_by_name function.
-     */
-    if (H5Gget_info_by_name((hid_t)*loc_id, c_group_name, &ginfo, (hid_t)*lapl_id) < 0)
-        HGOTO_DONE(FAIL);
-
-    /* Unpack the structure */
-
-    *storage_type = (int_f)ginfo.storage_type;
-    *nlinks       = (int_f)ginfo.nlinks;
-    *max_corder   = (int_f)ginfo.max_corder;
-    *mounted      = 0;
-    if (ginfo.mounted)
-        *mounted = 1;
-
-done:
-    if (c_group_name)
-        HDfree(c_group_name);
-    return ret_value;
-}