[svn-r22827] HDFFV-8007: Add missing H5O Fortran functions.

Tested: jam(gnu,intel)
 

1 files changed, 591 insertions, 65 deletions

diff --git a/fortran/src/H5Of.c b/fortran/src/H5Of.c
index 531f09c..59f9a3d 100644
--- a/fortran/src/H5Of.c
+++ b/fortran/src/H5Of.c
@@ -24,6 +24,84 @@
 #include "H5f90.h"
 #include "H5Eprivate.h"
 
+int_f
+fill_h5o_info_t_f(H5O_info_t Oinfo, H5O_info_t_f *object_info) {
+
+  struct tm *ts;
+
+  object_info->fileno    = Oinfo.fileno;
+  object_info->addr      = (haddr_t_f)Oinfo.addr;
+ 
+
+  object_info->type      = (int_f)Oinfo.type;
+  object_info->rc        = (int_f)Oinfo.rc;
+
+  ts = HDgmtime(&Oinfo.atime);
+
+  object_info->atime[0]     = (int_f)ts->tm_year+1900; /* year starts at 1900 */
+  object_info->atime[1]     = (int_f)ts->tm_mon+1; /* month starts at 0 in C */
+  object_info->atime[2]     = (int_f)ts->tm_mday;
+  object_info->atime[3]     = 0; /* time is expressed as UTC (or GMT timezone) */
+  object_info->atime[4]     = (int_f)ts->tm_hour;
+  object_info->atime[5]     = (int_f)ts->tm_min;
+  object_info->atime[6]     = (int_f)ts->tm_sec;
+  object_info->atime[7]     = -32767; /* millisecond is not available, assign it -HUGE(0) */
+
+  ts = HDgmtime(&Oinfo.btime);
+
+  object_info->btime[0]     = (int_f)ts->tm_year+1900; /* year starts at 1900 */
+  object_info->btime[1]     = (int_f)ts->tm_mon+1; /* month starts at 0 in C */
+  object_info->btime[2]     = (int_f)ts->tm_mday;
+  object_info->btime[3]     = 0; /* time is expressed as UTC (or GMT timezone) */
+  object_info->btime[4]     = (int_f)ts->tm_hour;
+  object_info->btime[5]     = (int_f)ts->tm_min;
+  object_info->btime[6]     = (int_f)ts->tm_sec;
+  object_info->btime[7]     = -32767; /* millisecond is not available, assign it -HUGE(0) */
+
+  ts = HDgmtime(&Oinfo.ctime);
+
+  object_info->ctime[0]     = (int_f)ts->tm_year+1900; /* year starts at 1900 */
+  object_info->ctime[1]     = (int_f)ts->tm_mon+1; /* month starts at 0 in C */
+  object_info->ctime[2]     = (int_f)ts->tm_mday;
+  object_info->ctime[3]     = 0; /* time is expressed as UTC (or GMT timezone) */
+  object_info->ctime[4]     = (int_f)ts->tm_hour;
+  object_info->ctime[5]     = (int_f)ts->tm_min;
+  object_info->ctime[6]     = (int_f)ts->tm_sec;
+  object_info->ctime[7]     = -32767; /* millisecond is not available, assign it -HUGE(0) */
+
+  ts = HDgmtime(&Oinfo.mtime);
+
+  object_info->mtime[0]     = (int_f)ts->tm_year+1900; /* year starts at 1900 */
+  object_info->mtime[1]     = (int_f)ts->tm_mon+1; /* month starts at 0 in C */
+  object_info->mtime[2]     = (int_f)ts->tm_mday;
+  object_info->mtime[3]     = 0; /* time is expressed as UTC (or GMT timezone) */
+  object_info->mtime[4]     = (int_f)ts->tm_hour;
+  object_info->mtime[5]     = (int_f)ts->tm_min;
+  object_info->mtime[6]     = (int_f)ts->tm_sec;
+  object_info->mtime[7]     = -32767; /* millisecond is not available, assign it -HUGE(0) */
+
+  object_info->num_attrs = (hsize_t_f)Oinfo.num_attrs;
+
+  object_info->hdr.version = (int_f)Oinfo.hdr.version;
+  object_info->hdr.nmesgs  = (int_f)Oinfo.hdr.nmesgs;
+  object_info->hdr.nchunks = (int_f)Oinfo.hdr.nchunks;
+  object_info->hdr.flags   = (int_f)Oinfo.hdr.flags;
+
+  object_info->hdr.space.total = (hsize_t_f)Oinfo.hdr.space.total;
+  object_info->hdr.space.meta  = (hsize_t_f)Oinfo.hdr.space.meta;
+  object_info->hdr.space.mesg  = (hsize_t_f)Oinfo.hdr.space.mesg;
+  object_info->hdr.space.free  = (hsize_t_f)Oinfo.hdr.space.free;
+
+  object_info->hdr.mesg.present = Oinfo.hdr.mesg.present;
+  object_info->hdr.mesg.shared  = Oinfo.hdr.mesg.shared;
+
+  object_info->meta_size.obj.index_size = (hsize_t_f)Oinfo.meta_size.obj.index_size;
+  object_info->meta_size.obj.heap_size  = (hsize_t_f)Oinfo.meta_size.obj.heap_size;
+
+  return 0;
+
+}
+
 /****if* H5Of/h5olink_c
  * NAME
  *  h5olink_c
@@ -215,7 +293,7 @@ nh5oopen_by_addr_c (hid_t_f *loc_id, haddr_t_f *addr, hid_t_f *obj_id)
   return ret_value;
 }
 
-/* ***if* H5Of/H5Oget_info_by_name_c
+/****if* H5Of/H5Oget_info_by_name_c
  * NAME
  *  H5Oget_info_by_name_c
  * PURPOSE
@@ -226,10 +304,7 @@ nh5oopen_by_addr_c (hid_t_f *loc_id, haddr_t_f *addr, hid_t_f *obj_id)
  *  namelen      - Name length.
  *  lapl_id      - Link access property list.
  * OUTPUTS
- *  corder_valid - Indicates whether the the creation order data is valid for this attribute.
- *  corder       - Is a positive integer containing the creation order of the attribute.
- *  cset         - Indicates the character set used for the attribute’s name.
- *  data_size    - indicates the size, in the number of characters, of the attribute.
+ *  object_info  - Buffer in which to return object information.
  *
  * RETURNS
  *  0 on success, -1 on failure
@@ -261,74 +336,100 @@ nh5oget_info_by_name_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *
 			 &Oinfo, (hid_t)*lapl_id) < 0)
     HGOTO_DONE(FAIL);
 
-  object_info->fileno    = Oinfo.fileno;
-  object_info->addr      = (haddr_t_f)Oinfo.addr;
- 
-
-  object_info->type      = (int_f)Oinfo.type;
-  object_info->rc        = (int_f)Oinfo.rc;
+  ret_value = fill_h5o_info_t_f(Oinfo,object_info);
 
-  ts = HDgmtime(&Oinfo.atime);
-
-  object_info->atime[0]     = (int_f)ts->tm_year+1900; /* year starts at 1900 */
-  object_info->atime[1]     = (int_f)ts->tm_mon+1; /* month starts at 0 in C */
-  object_info->atime[2]     = (int_f)ts->tm_mday;
-  object_info->atime[3]     = 0; /* time is expressed as UTC (or GMT timezone) */
-  object_info->atime[4]     = (int_f)ts->tm_hour;
-  object_info->atime[5]     = (int_f)ts->tm_min;
-  object_info->atime[6]     = (int_f)ts->tm_sec;
-  object_info->atime[7]     = -32767; /* millisecond is not available, assign it -HUGE(0) */
-
-  ts = HDgmtime(&Oinfo.btime);
-
-  object_info->btime[0]     = (int_f)ts->tm_year+1900; /* year starts at 1900 */
-  object_info->btime[1]     = (int_f)ts->tm_mon+1; /* month starts at 0 in C */
-  object_info->btime[2]     = (int_f)ts->tm_mday;
-  object_info->btime[3]     = 0; /* time is expressed as UTC (or GMT timezone) */
-  object_info->btime[4]     = (int_f)ts->tm_hour;
-  object_info->btime[5]     = (int_f)ts->tm_min;
-  object_info->btime[6]     = (int_f)ts->tm_sec;
-  object_info->btime[7]     = -32767; /* millisecond is not available, assign it -HUGE(0) */
-
-  ts = HDgmtime(&Oinfo.ctime);
-
-  object_info->ctime[0]     = (int_f)ts->tm_year+1900; /* year starts at 1900 */
-  object_info->ctime[1]     = (int_f)ts->tm_mon+1; /* month starts at 0 in C */
-  object_info->ctime[2]     = (int_f)ts->tm_mday;
-  object_info->ctime[3]     = 0; /* time is expressed as UTC (or GMT timezone) */
-  object_info->ctime[4]     = (int_f)ts->tm_hour;
-  object_info->ctime[5]     = (int_f)ts->tm_min;
-  object_info->ctime[6]     = (int_f)ts->tm_sec;
-  object_info->ctime[7]     = -32767; /* millisecond is not available, assign it -HUGE(0) */
+ done:
+  if(c_name)
+    HDfree(c_name);
+  return ret_value;
+}
 
-  ts = HDgmtime(&Oinfo.mtime);
+/****if* H5Of/H5Oget_info_by_idx_c
+ * NAME
+ *  H5Oget_info_by_idx_c
+ * PURPOSE
+ *  Calls H5Oget_info_by_idx
+ * INPUTS
+ *  loc_id       - File or group identifier specifying location of group in which object is located.
+ *  name         - Name of group, relative to loc_id.
+ *  namelen      - Name length.
+ *  lapl_id      - Link access property list.
+ * OUTPUTS
+ *  object_info  - Buffer in which to return object information.
+ *
+ * RETURNS
+ *  0 on success, -1 on failure
+ * AUTHOR
+ *  M. Scot Breitenfeld
+ *  December 1, 2008
+ * SOURCE
+*/
+int_f
+nh5oget_info_by_idx_c (hid_t_f *loc_id, _fcd  group_name, size_t_f *namelen, 
+		       int_f *index_field, int_f *order, hsize_t_f *n, hid_t_f *lapl_id, H5O_info_t_f *object_info)
+/******/
+{
+  char *c_group_name = NULL;     /* Buffer to hold C string */
+  int_f ret_value = 0;          /* Return value */
+  H5O_info_t Oinfo;
+  H5_index_t c_index_field;
+  H5_iter_order_t c_order;
+  
+  /*
+   * Convert FORTRAN name to C name
+   */
+  if((c_group_name = HD5f2cstring( group_name, (size_t)*namelen)) == NULL)
+    HGOTO_DONE(FAIL);
 
-  object_info->mtime[0]     = (int_f)ts->tm_year+1900; /* year starts at 1900 */
-  object_info->mtime[1]     = (int_f)ts->tm_mon+1; /* month starts at 0 in C */
-  object_info->mtime[2]     = (int_f)ts->tm_mday;
-  object_info->mtime[3]     = 0; /* time is expressed as UTC (or GMT timezone) */
-  object_info->mtime[4]     = (int_f)ts->tm_hour;
-  object_info->mtime[5]     = (int_f)ts->tm_min;
-  object_info->mtime[6]     = (int_f)ts->tm_sec;
-  object_info->mtime[7]     = -32767; /* millisecond is not available, assign it -HUGE(0) */
+  c_index_field = (H5_index_t)*index_field;
+  c_order = (H5_iter_order_t)*order;
 
-  object_info->num_attrs = (hsize_t_f)Oinfo.num_attrs;
+  /*
+   * Call H5Oinfo_by_idx function.
+   */
+  if(H5Oget_info_by_idx((hid_t)*loc_id, c_group_name, c_index_field, c_order, (hsize_t)*n,
+			 &Oinfo, (hid_t)*lapl_id) < 0)
+    HGOTO_DONE(FAIL);
 
-  object_info->hdr.version = (int_f)Oinfo.hdr.version;
-  object_info->hdr.nmesgs  = (int_f)Oinfo.hdr.nmesgs;
-  object_info->hdr.nchunks = (int_f)Oinfo.hdr.nchunks;
-  object_info->hdr.flags   = (int_f)Oinfo.hdr.flags;
+  ret_value = fill_h5o_info_t_f(Oinfo,object_info);
 
-  object_info->hdr.space.total = (hsize_t_f)Oinfo.hdr.space.total;
-  object_info->hdr.space.meta  = (hsize_t_f)Oinfo.hdr.space.meta;
-  object_info->hdr.space.mesg  = (hsize_t_f)Oinfo.hdr.space.mesg;
-  object_info->hdr.space.free  = (hsize_t_f)Oinfo.hdr.space.free;
+ done:
+  if(c_group_name)
+    HDfree(c_group_name);
+  return ret_value;
+}
 
-  object_info->hdr.mesg.present = Oinfo.hdr.mesg.present;
-  object_info->hdr.mesg.shared  = Oinfo.hdr.mesg.shared;
+/****if* H5Of/H5Oget_info_c
+ * NAME
+ *  H5Oget_info_c
+ * PURPOSE
+ *  Calls H5Oget_info
+ * INPUTS
+ *  object_id   - Identifier for target object.
+ * OUTPUTS
+ *  object_info - Buffer in which to return object information.
+ *
+ * RETURNS
+ *  0 on success, -1 on failure
+ * AUTHOR
+ *  M. Scot Breitenfeld
+ *  May 16, 2012
+ * SOURCE
+*/
+int_f
+nh5oget_info_c (hid_t_f *object_id, H5O_info_t_f *object_info)
+/******/
+{
+  int_f ret_value = 0;          /* Return value */
+  H5O_info_t Oinfo;
+  
+  /*
+   * Call H5Oinfo_by_name function.
+   */
+  if(H5Oget_info((hid_t)*object_id, &Oinfo) < 0)
+    HGOTO_DONE(FAIL);
 
-  object_info->meta_size.obj.index_size = (hsize_t_f)Oinfo.meta_size.obj.index_size;
-  object_info->meta_size.obj.heap_size  = (hsize_t_f)Oinfo.meta_size.obj.heap_size;
+  ret_value = fill_h5o_info_t_f(Oinfo,object_info);
 
  done:
   return ret_value;
@@ -391,3 +492,428 @@ nh5ocopy_c (hid_t_f *src_loc_id, _fcd src_name, size_t_f *src_name_len,
   return ret_value;
 
 }
+
+/****if* H5Of/h5ovisit_by_name_c
+ * NAME
+ *  h5ovisit_by_name_c
+ * PURPOSE
+ *  Calls H5Ovisit_by_name
+ * INPUTS
+ *    object_id - Identifier specifying subject group
+ *   index_type - Type of index which determines the order
+ *        order - Order within index
+ *          idx - Iteration position at which to start
+ *           op - Callback function passing data regarding the link to the calling application
+ *      op_data - User-defined pointer to data required by the application for its processing of the link
+ *
+ * OUTPUTS
+ *          idx - Position at which an interrupted iteration may be restarted
+ *
+ * RETURNS
+ *     >0 on success, 0< on failure
+ * AUTHOR
+ *  M. Scot Breitenfeld
+ *  May 16, 2012
+ * SOURCE
+*/
+int_f
+nh5ovisit_by_name_c(hid_t_f *loc_id,  _fcd object_name, size_t_f *namelen, int_f *index_type, int_f *order,
+		    H5O_iterate_t op, void *op_data, hid_t_f *lapl_id )
+/******/
+{
+  int_f ret_value = -1;       /* Return value */
+  herr_t func_ret_value;      /* H5Linterate return value */
+  char *c_object_name = NULL; /* Buffer to hold C string */
+
+
+  /*
+   * Convert FORTRAN name to C name
+   */
+  if( (c_object_name = HD5f2cstring(object_name, (size_t)*namelen)) == NULL)
+    HGOTO_DONE(FAIL);
+
+  /*
+   * Call H5Ovisit
+   */
+  func_ret_value = H5Ovisit_by_name( (hid_t)*loc_id, c_object_name, (H5_index_t)*index_type, (H5_iter_order_t)*order,
+				     op, op_data, (hid_t)*lapl_id);
+  ret_value = (int_f)func_ret_value;
+
+ done:
+  if(c_object_name)
+    HDfree(c_object_name);
+  return ret_value;
+
+}
+
+/****if* H5Of/h5odecr_refcount_c
+ * NAME
+ *  h5odecr_refcount_c
+ * PURPOSE
+ *  Calls H5Odecr_refcount
+ * INPUTS
+ *  object_id - Object identifier.
+ * RETURNS
+ *  0 on success, -1 on failure
+ * AUTHOR
+ *  M. Scot Breitenfeld
+ *  May 16, 2012
+ * SOURCE
+*/
+int_f
+nh5odecr_refcount_c (hid_t_f *object_id)
+/******/
+{
+  int_f ret_value = 0;  /* Return value */
+
+  /*
+   * Call H5Odecr_refcount function.
+   */
+  if((hid_t_f)H5Odecr_refcount((hid_t)*object_id) < 0)
+    HGOTO_DONE(FAIL);
+
+ done:
+  return ret_value;
+}
+
+/****if* H5Of/h5oexists_by_name_c
+ * NAME
+ *  h5oexists_by_name_c
+ * PURPOSE
+ *  Calls H5Oexists_by_name
+ * INPUTS
+ *  loc_id  - File or group identifier
+ *  name    - Attribute access property list
+ *  namelen - Size of name
+ *  lapl_id - Link access property list
+ *
+ * RETURNS
+ *  link status: 0 = false, 1 = true, -1 on failure
+ * AUTHOR
+ *  M. Scot Breitenfeld
+ *  May 17, 2012
+ * SOURCE
+*/
+int_f
+nh5oexists_by_name_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id)
+/******/
+{
+  char *c_name = NULL;          /* Buffer to hold C string */
+  int_f ret_value = 0;          /* Return value */
+  htri_t status = 0;
+
+  /*
+   * Convert FORTRAN name to C name
+   */
+  if((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
+    HGOTO_DONE(FAIL);
+
+  /*
+   * Call H5Oopen function.
+   */
+  if((ret_value = (int_f)H5Oexists_by_name((hid_t)*loc_id, c_name, (hid_t)*lapl_id)) < 0)
+    HGOTO_DONE(FAIL);
+
+ done:
+  if(c_name)
+    HDfree(c_name);
+  return ret_value;
+}
+
+/****if* H5Of/h5oincr_refcount_c
+ * NAME
+ *  h5oincr_refcount_c
+ * PURPOSE
+ *  Calls H5Oincr_refcount
+ * INPUTS
+ *  object_id - Object identifier.
+ * RETURNS
+ *  0 on success, -1 on failure
+ * AUTHOR
+ *  M. Scot Breitenfeld
+ *  May 16, 2012
+ * SOURCE
+*/
+int_f
+nh5oincr_refcount_c (hid_t_f *object_id)
+/******/
+{
+  int_f ret_value = 0;  /* Return value */
+
+  /*
+   * Call H5Oincr_refcount function.
+   */
+  if((hid_t_f)H5Oincr_refcount((hid_t)*object_id) < 0)
+    HGOTO_DONE(FAIL);
+
+ done:
+  return ret_value;
+}
+
+/****if* H5Of/h5oset_comment_c
+ * NAME
+ *  h5oset_comment_c
+ * PURPOSE
+ *  Calls H5Oset_comment
+ * INPUTS
+ *  object_id  - Identifier of the target object.
+ *  comment    - The new comment.
+ *  commentlen - Length of the comment.
+ * RETURNS
+ *  0 on success, -1 on failure
+ * AUTHOR
+ *  M. Scot Breitenfeld
+ *  May 17, 2012
+ * SOURCE
+*/
+int_f
+nh5oset_comment_c (hid_t_f *object_id, _fcd comment, size_t_f *commentlen)
+/******/
+{
+  char *c_comment = NULL;   /* Buffer to hold C string */
+  int_f ret_value = 0;     /* Return value */
+
+  /*
+   * Convert FORTRAN string to C string
+   */
+  if((c_comment = HD5f2cstring(comment, (size_t)*commentlen)) == NULL)
+    HGOTO_DONE(FAIL);
+
+  /*
+   * Call H5Oset_comment function.
+   */
+  if((hid_t_f)H5Oset_comment((hid_t)*object_id, c_comment) < 0)
+    HGOTO_DONE(FAIL);
+
+ done:
+  if(c_comment)
+    HDfree(c_comment);
+  return ret_value;
+}
+
+/****if* H5Of/h5oset_comment_by_name_c
+ * NAME
+ *  h5oset_comment_by_name_c
+ * PURPOSE
+ *  Calls H5Oset_comment_by_name
+ * INPUTS
+ *  object_id  - Identifier of the target object.
+ *  name       - Name of the object whose comment is to be set or reset, 
+ *               specified as a path relative to loc_id. 
+ *  namelen    - Length of the name.
+ *  comment    - The new comment.
+ *  commentlen - Length of the comment.
+ *  lapl_id    - Link access property list identifier.
+ * RETURNS
+ *  0 on success, -1 on failure
+ * AUTHOR
+ *  M. Scot Breitenfeld
+ *  May 17, 2012
+ * SOURCE
+*/
+int_f
+nh5oset_comment_by_name_c (hid_t_f *object_id, _fcd name, size_t_f *namelen,  _fcd comment, size_t_f *commentlen, hid_t_f *lapl_id)
+/******/
+{
+  char *c_comment = NULL;   /* Buffer to hold C string */
+  char *c_name = NULL;   /* Buffer to hold C string */
+  int_f ret_value = 0;     /* Return value */
+
+  /*
+   * Convert FORTRAN string to C string
+   */
+  if((c_comment = HD5f2cstring(comment, (size_t)*commentlen)) == NULL)
+    HGOTO_DONE(FAIL);
+  /*
+   * Convert FORTRAN string to C string
+   */
+  if((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
+    HGOTO_DONE(FAIL);
+
+  /*
+   * Call H5Oset_comment_by_name function.
+   */
+  if((hid_t_f)H5Oset_comment_by_name((hid_t)*object_id, c_name, c_comment, (hid_t)*lapl_id) < 0)
+    HGOTO_DONE(FAIL);
+
+ done:
+  if(c_name)
+    HDfree(c_name);
+  if(c_comment)
+    HDfree(c_comment);
+  return ret_value;
+}
+/****if* H5Of/h5oopen_by_idx_c
+ * NAME
+ *  h5oopen_by_idx_c
+ * PURPOSE
+ *  Calls H5Oopen_by_idx_c
+ * INPUTS
+ *  loc_id        - A file or group identifier.
+ *  group_name    - Name of group, relative to loc_id, in which object is located.
+ *  group_namelen - Length of group_name
+ *  index_type    - Type of index by which objects are ordered.
+ *  order         - Order of iteration within index.
+ *  n             - Object to open.
+ *  lapl_id       - Link access property list.
+ * OUTPUTS
+ *   obj_id       - An object identifier for the opened object.
+ * RETURNS
+ *  0 on success, -1 on failure
+ * AUTHOR
+ *  M. Scot Breitenfeld
+ *  May 17, 2012
+ * SOURCE
+*/
+int_f
+nh5oopen_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 *obj_id, hid_t_f *lapl_id)
+/******/
+{
+  char *c_group_name = NULL;     /* Buffer to hold C string */
+  int_f ret_value = 0;
+  H5_index_t c_index_type;
+  H5_iter_order_t c_order;
+  
+  /*
+   * Convert FORTRAN string to C string
+   */
+  if((c_group_name = HD5f2cstring( group_name, (size_t)*group_namelen)) == NULL)
+    HGOTO_DONE(FAIL);
+
+  c_index_type = (H5_index_t)*index_type;
+  c_order = (H5_iter_order_t)*order;
+
+  /*
+   * Call H5Oopen_by_idx function.
+   */
+  if((*obj_id =(hid_t_f)H5Oopen_by_idx((hid_t)*loc_id, c_group_name, c_index_type, c_order, (hsize_t)*n, (hid_t)*lapl_id)) < 0)
+    HGOTO_DONE(FAIL);
+
+ done:
+  if(c_group_name)
+    HDfree(c_group_name);
+  return ret_value;
+}
+
+/****if* H5Of/h5oget_comment_c
+ * NAME
+ *  h5oget_comment_c
+ * PURPOSE
+ *  Calls  H5Oget_comment
+ * INPUTS
+ *  object_id  - Identifier for the target object.
+ *  bufsize    - Anticipated required size of the comment buffer.
+ * OUTPUTS
+ *  comment    - The comment.
+ *
+ * RETURNS
+ *  0 on success, -1 on failure
+ * AUTHOR
+ *  M. Scot Breitenfeld
+ *  June 24, 2012
+ * SOURCE
+*/
+int_f
+nh5oget_comment_c (hid_t_f *object_id, _fcd comment, size_t_f *commentsize,  hssize_t_f *bufsize)
+/******/
+{
+  char *c_comment = NULL;  /* Buffer to hold C string */
+  int_f ret_value = 0;     /* Return value */
+  size_t c_commentsize;
+
+  c_commentsize = (size_t)*commentsize + 1;
+
+  /*
+   * Allocate buffer to hold comment name
+   */
+  
+  if(NULL == (c_comment = (char *)HDmalloc(c_commentsize)))
+    HGOTO_DONE(FAIL);
+
+  /*
+   * Call H5Oget_comment function.
+   */ 
+
+  if((*bufsize = (hssize_t_f)H5Oget_comment((hid_t)*object_id, c_comment, (size_t)*commentsize)) < 0)
+    HGOTO_DONE(FAIL);
+
+  /*
+   * Convert C name to FORTRAN and place it in the given buffer
+   */
+  if(c_comment)
+    HD5packFstring(c_comment, _fcdtocp(comment), c_commentsize - 1);
+  return ret_value;
+
+ done:
+  if(c_comment)
+    HDfree(c_comment);
+
+  return ret_value;
+}
+
+/****if* H5Of/h5oget_comment_by_name_c
+ * NAME
+ *  h5oget_comment_by_name_c
+ * PURPOSE
+ *  Calls H5Oget_comment_by_name
+ * INPUTS
+ *  object_id  - Identifier for the target object.
+ *  bufsize    - Anticipated required size of the comment buffer.
+ * OUTPUTS
+ *  comment    - The comment.
+ *
+ * RETURNS
+ *  0 on success, -1 on failure
+ * AUTHOR
+ *  M. Scot Breitenfeld
+ *  July 6, 2012
+ * SOURCE
+*/
+int_f
+nh5oget_comment_by_name_c (hid_t_f *loc_id, _fcd name, size_t_f *name_size, 
+			   _fcd comment, size_t_f *commentsize, size_t_f *bufsize, hid_t_f *lapl_id)
+/******/
+{
+  char *c_comment = NULL;  /* Buffer to hold C string */
+  char *c_name = NULL;     /* Buffer to hold C string */
+  int_f ret_value = 0;     /* Return value */
+  size_t c_commentsize;
+
+  /*
+   * Convert FORTRAN string to C string
+   */
+  if((c_name = HD5f2cstring(name, (size_t)*name_size)) == NULL)
+    HGOTO_DONE(FAIL);
+
+  c_commentsize = (size_t)*commentsize + 1;
+
+  /*
+   * Allocate buffer to hold comment name
+   */
+  
+  if(NULL == (c_comment = (char *)HDmalloc(c_commentsize)))
+    HGOTO_DONE(FAIL);
+
+  /*
+   * Call H5Oget_comment_by_name function.
+   */ 
+
+  if((*bufsize = (size_t_f)H5Oget_comment_by_name((hid_t)*loc_id, c_name, c_comment, (size_t)*commentsize,(hid_t)*lapl_id )) < 0)
+    HGOTO_DONE(FAIL);
+
+  /*
+   * Convert C name to FORTRAN and place it in the given buffer
+   */
+  if(c_comment)
+    HD5packFstring(c_comment, _fcdtocp(comment), c_commentsize - 1);
+  return ret_value;
+
+ done:
+  if(c_comment)
+    HDfree(c_comment);
+  if(c_name)
+    HDfree(c_name);
+
+  return ret_value;
+}