Source formatted

22 files changed, 9303 insertions, 8759 deletions

diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c
index f25ee94..751f5c6 100644
--- a/fortran/src/H5Af.c
+++ b/fortran/src/H5Af.c
@@ -17,7 +17,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 #include "H5Eprivate.h"
@@ -44,29 +44,30 @@
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5acreate_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *type_id,
-    hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *aapl, hid_t_f *attr_id)
+nh5acreate_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *type_id, hid_t_f *space_id,
+             hid_t_f *crt_prp, hid_t_f *aapl, hid_t_f *attr_id)
 /*******/
 {
-    char *c_name = NULL;        /* Buffer to hold C string */
-    int_f ret_value = 0;        /* Return value */
+    char *c_name    = NULL; /* Buffer to hold C string */
+    int_f ret_value = 0;    /* Return value */
 
-     /*
-      * Convert FORTRAN name to C name
-      */
-    if(NULL == (c_name = HD5f2cstring(name, (size_t)*namelen)))
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if (NULL == (c_name = HD5f2cstring(name, (size_t)*namelen)))
         HGOTO_DONE(FAIL);
 
-     /*
-      * Call H5Acreate2 function.
-      */
-    if((*attr_id = (hid_t_f)H5Acreate2((hid_t)*obj_id, c_name, (hid_t)*type_id, (hid_t)*space_id, (hid_t)*crt_prp, (hid_t)*aapl)) < 0)
+    /*
+     * Call H5Acreate2 function.
+     */
+    if ((*attr_id = (hid_t_f)H5Acreate2((hid_t)*obj_id, c_name, (hid_t)*type_id, (hid_t)*space_id,
+                                        (hid_t)*crt_prp, (hid_t)*aapl)) < 0)
         HGOTO_DONE(FAIL);
 
 done:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
     return ret_value;
 }
@@ -90,28 +91,28 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5aopen_name_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_id)
+nh5aopen_name_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_id)
 /*******/
 {
-    char *c_name = NULL;          /* Buffer to hold C string */
-    int_f ret_value = 0;          /* Return value */
+    char *c_name    = NULL; /* Buffer to hold C string */
+    int_f ret_value = 0;    /* Return value */
 
-     /*
-      * Convert FORTRAN name to C name
-      */
-     if((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
         HGOTO_DONE(FAIL);
 
-     /*
-      * Call H5Aopen function.
-      */
-     if((*attr_id = (hid_t_f)H5Aopen((hid_t)*obj_id, c_name, H5P_DEFAULT)) < 0)
-         HGOTO_DONE(FAIL);
+    /*
+     * Call H5Aopen function.
+     */
+    if ((*attr_id = (hid_t_f)H5Aopen((hid_t)*obj_id, c_name, H5P_DEFAULT)) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
     return ret_value;
 }
@@ -136,98 +137,96 @@ done:
  * dims paramete added.
  *                April 4, 2001
  * SOURCE
-*/
+ */
 int_f
-nh5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5awritec_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 int_f
-nh5awritec_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5awritec_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
 int_f
-nh5awritec_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5awritec_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
 int_f
-nh5awritec_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5awritec_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
 int_f
-nh5awritec_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5awritec_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
 int_f
-nh5awritec_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5awritec_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
 int_f
-nh5awritec_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5awritec_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
 int_f
-nh5awritec_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5awritec_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
 int_f
-nh5awritec_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5awritec_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
-
-
 /****if* H5Af/h5awrite_c
  * NAME
  *        h5awrite_c
@@ -252,264 +251,263 @@ nh5awritec_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
  *                called by Fortran routines.
  *                                           October 9, 2006 EIP
  * SOURCE
-*/
+ */
 int_f
-nh5awrite_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_integer_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_integer_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_integer_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_integer_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_integer_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_integer_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_integer_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_integer_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_real_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_real_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_real_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_real_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_real_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_real_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_real_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_real_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_double_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_double_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_double_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_double_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_double_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_double_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_double_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_double_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5awrite_c  function.
-      */
-     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5awrite_c  function.
+     */
+    return nh5awrite_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
+nh5awrite_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-    int_f ret_value=0;          /* Return value */
+    int_f ret_value = 0; /* Return value */
 
-     /*
-      * Call H5Awrite function.
-      */
-     if (H5Awrite((hid_t)*attr_id, (hid_t)*mem_type_id, buf) < 0)
+    /*
+     * Call H5Awrite function.
+     */
+    if (H5Awrite((hid_t)*attr_id, (hid_t)*mem_type_id, buf) < 0)
         HGOTO_DONE(FAIL);
 
 done:
-     return ret_value;
+    return ret_value;
 }
 
-
 /****if* H5Af/h5areadc_c
  * NAME
  *        h5areadc_c
@@ -535,97 +533,95 @@ done:
  *                called by Fortran routines.
  *                                           October 9, 2006 EIP
  * SOURCE
-*/
+ */
 int_f
-nh5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5areadc_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 int_f
-nh5areadc_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5areadc_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
 int_f
-nh5areadc_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5areadc_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
 int_f
-nh5areadc_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5areadc_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
 int_f
-nh5areadc_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5areadc_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
 int_f
-nh5areadc_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5areadc_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
 int_f
-nh5areadc_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5areadc_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
 int_f
-nh5areadc_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5areadc_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 int_f
-nh5areadc_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+nh5areadc_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
 
-
-
 /****if* H5Af/h5aread_c
  * NAME
  *        h5aread_c
@@ -651,264 +647,263 @@ nh5areadc_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
  *                called by Fortran routines.
  *                                           October 9, 2006 EIP
  * SOURCE
-*/
+ */
 int_f
-nh5aread_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-    int_f ret_value=0;          /* Return value */
+    int_f ret_value = 0; /* Return value */
 
-     /*
-      * Call H5Aread function.
-      */
-     if (H5Aread((hid_t)*attr_id, (hid_t)*mem_type_id, buf) < 0)
-         HGOTO_DONE(FAIL);
+    /*
+     * Call H5Aread function.
+     */
+    if (H5Aread((hid_t)*attr_id, (hid_t)*mem_type_id, buf) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5aread_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_integer_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_integer_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_integer_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_integer_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_integer_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_integer_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_integer_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_integer_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_real_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_real_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_real_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_real_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_real_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_real_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_real_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_real_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_double_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_double_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_double_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_double_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_double_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_double_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_double_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
 int_f
-nh5aread_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED * dims)
+nh5aread_double_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_ATTR_UNUSED *dims)
 /******/
 {
-     /*
-      * Call h5aread_c  function.
-      */
-     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+    /*
+     * Call h5aread_c  function.
+     */
+    return nh5aread_c(attr_id, mem_type_id, buf, dims);
 }
 
-
 /****if* H5Af/h5aclose_c
  * NAME
  *        h5aclose_c
@@ -924,13 +919,13 @@ nh5aread_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void H5_
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5aclose_c ( hid_t_f *attr_id )
+nh5aclose_c(hid_t_f *attr_id)
 /******/
 {
-    int_f ret_value=0;          /* Return value */
+    int_f ret_value = 0; /* Return value */
 
     if (H5Aclose((hid_t)*attr_id) < 0)
         HGOTO_DONE(FAIL);
@@ -956,34 +951,33 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5adelete_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen)
+nh5adelete_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen)
 /******/
 {
-    char *c_name = NULL;        /* Buffer to hold C string */
-    int_f ret_value = 0;        /* Return value */
+    char *c_name    = NULL; /* Buffer to hold C string */
+    int_f ret_value = 0;    /* Return value */
 
-     /*
-      * Convert FORTRAN name to C name
-      */
-     if((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
         HGOTO_DONE(FAIL);
 
-     /*
-      * Call H5Adelete function.
-      */
-     if(H5Adelete((hid_t)*obj_id, c_name) < 0)
-         HGOTO_DONE(FAIL);
+    /*
+     * Call H5Adelete function.
+     */
+    if (H5Adelete((hid_t)*obj_id, c_name) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
 
     return ret_value;
 }
 
-
 /****if* H5Af/h5aopen_idx_c
  * NAME
  *        h5aopen_idx_c
@@ -1002,24 +996,24 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5aopen_idx_c (hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id)
+nh5aopen_idx_c(hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id)
 /******/
 {
-    int_f ret_value = 0;          /* Return value */
+    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)
+    /*
+     * 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;
+    return ret_value;
 }
 
-
 /****if* H5Af/h5aget_space_c
  * NAME
  *        h5aget_space_c
@@ -1037,21 +1031,21 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5aget_space_c (hid_t_f *attr_id, hid_t_f *space_id)
+nh5aget_space_c(hid_t_f *attr_id, hid_t_f *space_id)
 /******/
 {
-    int_f ret_value=0;          /* Return value */
+    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);
+    /*
+     * Call H5Aget_space function.
+     */
+    if ((*space_id = (hid_t_f)H5Aget_space((hid_t)*attr_id)) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Af/h5aget_type_c
@@ -1071,21 +1065,21 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5aget_type_c (hid_t_f *attr_id, hid_t_f *type_id)
+nh5aget_type_c(hid_t_f *attr_id, hid_t_f *type_id)
 /******/
 {
-    int_f ret_value=0;          /* Return value */
+    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);
+    /*
+     * Call H5Aget_type function.
+     */
+    if ((*type_id = (hid_t_f)H5Aget_type((hid_t)*attr_id)) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Af/h5aget_num_attrs_c
@@ -1105,25 +1099,25 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5aget_num_attrs_c (hid_t_f *obj_id, int_f *attr_num)
+nh5aget_num_attrs_c(hid_t_f *obj_id, int_f *attr_num)
 /******/
 {
-    H5O_info_t oinfo;           /* Object info */
-    int_f ret_value = 0;        /* Return value */
+    H5O_info_t oinfo;         /* Object info */
+    int_f      ret_value = 0; /* Return value */
 
     /*
      * Call H5Oget_info function.
      */
-    if(H5Oget_info((hid_t)*obj_id, &oinfo) < 0)
+    if (H5Oget_info((hid_t)*obj_id, &oinfo) < 0)
         HGOTO_DONE(FAIL);
 
     /* Set number of attributes */
     *attr_num = (int_f)oinfo.num_attrs;
 
 done:
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Af/h5aget_name_c
@@ -1144,37 +1138,38 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5aget_name_c(hid_t_f *attr_id, size_t_f *bufsize, _fcd buf)
 /******/
 {
-  size_t c_bufsize;
-  char *c_buf=NULL;           /* Buffer to hold C string */
-  int_f ret_value=0;          /* Return value */
+    size_t c_bufsize;
+    char * c_buf     = NULL; /* Buffer to hold C string */
+    int_f  ret_value = 0;    /* Return value */
 
-  c_bufsize = (size_t)*bufsize+1;
+    c_bufsize = (size_t)*bufsize + 1;
 
-  /*
-   * Allocate buffer to hold name of an attribute
-   */
-  if(NULL == (c_buf = (char *)HDmalloc(c_bufsize)))
-    HGOTO_DONE(FAIL);
+    /*
+     * Allocate buffer to hold name of an attribute
+     */
+    if (NULL == (c_buf = (char *)HDmalloc(c_bufsize)))
+        HGOTO_DONE(FAIL);
 
-  /*
-   * Call H5Aget_name function
-   */
-  if ((ret_value = (int_f)H5Aget_name((hid_t)*attr_id, c_bufsize, c_buf)) < 0)
-    HGOTO_DONE(FAIL);
+    /*
+     * Call H5Aget_name function
+     */
+    if ((ret_value = (int_f)H5Aget_name((hid_t)*attr_id, c_bufsize, c_buf)) < 0)
+        HGOTO_DONE(FAIL);
 
-  /*
-   * Convert C name to FORTRAN and place it in the given buffer
-   */
-  HD5packFstring(c_buf, _fcdtocp(buf), c_bufsize-1);
+    /*
+     * Convert C name to FORTRAN and place it in the given buffer
+     */
+    HD5packFstring(c_buf, _fcdtocp(buf), c_bufsize - 1);
 
 done:
-  if(c_buf) HDfree(c_buf);
-  return ret_value;
+    if (c_buf)
+        HDfree(c_buf);
+    return ret_value;
 }
 
 /****if* H5Af/h5aget_storage_size_c
@@ -1194,13 +1189,13 @@ done:
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 
 int_f
-nh5aget_storage_size_c ( hid_t_f *attr_id,  hsize_t_f *size)
+nh5aget_storage_size_c(hid_t_f *attr_id, hsize_t_f *size)
 /******/
 {
-    int_f ret_value=0;          /* Return value */
+    int_f ret_value = 0; /* Return value */
 
     if ((*size = (hsize_t_f)H5Aget_storage_size((hid_t)*attr_id)) < 0)
         HGOTO_DONE(FAIL);
@@ -1226,13 +1221,13 @@ done:
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 
 int_f
-nh5aget_create_plist_c ( hid_t_f *attr_id,  hid_t_f *creation_prop_id)
+nh5aget_create_plist_c(hid_t_f *attr_id, hid_t_f *creation_prop_id)
 /******/
 {
-    int_f ret_value=0;          /* Return value */
+    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);
@@ -1266,39 +1261,38 @@ done:
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 
 int_f
-nh5arename_by_name_c( hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-		      _fcd old_attr_name, size_t_f *old_attr_namelen,
-		      _fcd new_attr_name, size_t_f *new_attr_namelen,
-		      hid_t_f *lapl_id )
+nh5arename_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd old_attr_name,
+                     size_t_f *old_attr_namelen, _fcd new_attr_name, size_t_f *new_attr_namelen,
+                     hid_t_f *lapl_id)
 /******/
 {
-    char *c_obj_name = NULL;          /* Buffer to hold C string */
-    char *c_old_attr_name = NULL;     /* Buffer to hold C string */
-    char *c_new_attr_name = NULL;     /* Buffer to hold C string */
-    int_f ret_value=0;          /* Return value */
-     /*
-      * Convert FORTRAN name to C name
-      */
-    if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
-      HGOTO_DONE(FAIL);
-    if((c_old_attr_name = HD5f2cstring(old_attr_name, (size_t)*old_attr_namelen)) == NULL)
-      HGOTO_DONE(FAIL);
-    if((c_new_attr_name = HD5f2cstring(new_attr_name, (size_t)*new_attr_namelen)) == NULL)
-      HGOTO_DONE(FAIL);
+    char *c_obj_name      = NULL; /* Buffer to hold C string */
+    char *c_old_attr_name = NULL; /* Buffer to hold C string */
+    char *c_new_attr_name = NULL; /* Buffer to hold C string */
+    int_f ret_value       = 0;    /* Return value */
+                                  /*
+                                   * Convert FORTRAN name to C name
+                                   */
+    if ((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+    if ((c_old_attr_name = HD5f2cstring(old_attr_name, (size_t)*old_attr_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+    if ((c_new_attr_name = HD5f2cstring(new_attr_name, (size_t)*new_attr_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
 
-    if(H5Arename_by_name((hid_t)*loc_id,c_obj_name,c_old_attr_name,c_new_attr_name,(hid_t)*lapl_id) < 0)
+    if (H5Arename_by_name((hid_t)*loc_id, c_obj_name, c_old_attr_name, c_new_attr_name, (hid_t)*lapl_id) < 0)
         HGOTO_DONE(FAIL);
 
 done:
-    if(c_obj_name)
-      HDfree(c_obj_name);
-    if(c_old_attr_name)
-      HDfree(c_old_attr_name);
-    if(c_new_attr_name)
-      HDfree(c_new_attr_name);
+    if (c_obj_name)
+        HDfree(c_obj_name);
+    if (c_old_attr_name)
+        HDfree(c_old_attr_name);
+    if (c_new_attr_name)
+        HDfree(c_new_attr_name);
     return ret_value;
 }
 
@@ -1322,28 +1316,28 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5aopen_c (hid_t_f *obj_id, _fcd attr_name, size_t_f *attr_namelen, hid_t_f *aapl_id, hid_t_f *attr_id)
+nh5aopen_c(hid_t_f *obj_id, _fcd attr_name, size_t_f *attr_namelen, hid_t_f *aapl_id, hid_t_f *attr_id)
 /******/
 {
-    char *c_attr_name = NULL;          /* Buffer to hold C string */
-    int_f ret_value = 0;          /* Return value */
+    char *c_attr_name = NULL; /* Buffer to hold C string */
+    int_f ret_value   = 0;    /* Return value */
 
-     /*
-      * Convert FORTRAN name to C name
-      */
-     if((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
         HGOTO_DONE(FAIL);
-     /*
-      * Call H5Aopen function.
-      */
+    /*
+     * Call H5Aopen function.
+     */
 
-      if((*attr_id = (hid_t_f)H5Aopen((hid_t)*obj_id, c_attr_name, (hid_t)*aapl_id)) < 0)
-	HGOTO_DONE(FAIL);
+    if ((*attr_id = (hid_t_f)H5Aopen((hid_t)*obj_id, c_attr_name, (hid_t)*aapl_id)) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
-    if(c_attr_name)
+    if (c_attr_name)
         HDfree(c_attr_name);
     return ret_value;
 }
@@ -1370,33 +1364,34 @@ done:
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 int_f
-nh5adelete_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name, size_t_f *attr_namelen, hid_t_f *lapl_id)
+nh5adelete_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name,
+                     size_t_f *attr_namelen, hid_t_f *lapl_id)
 /******/
 {
-    char *c_obj_name = NULL;          /* Buffer to hold C string */
-    char *c_attr_name = NULL;         /* Buffer to hold C string */
-    int_f ret_value = 0;          /* Return value */
+    char *c_obj_name  = NULL; /* Buffer to hold C string */
+    char *c_attr_name = NULL; /* Buffer to hold C string */
+    int_f ret_value   = 0;    /* Return value */
 
-     /*
-      * Convert FORTRAN name to C name
-      */
-    if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
-      HGOTO_DONE(FAIL);
-    if((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
-      HGOTO_DONE(FAIL);
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+    if ((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
 
-     /*
-      * Call H5Adelete_by_name function.
-      */
-    if(H5Adelete_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, (hid_t)*lapl_id) < 0)
-      HGOTO_DONE(FAIL);
+    /*
+     * Call H5Adelete_by_name function.
+     */
+    if (H5Adelete_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, (hid_t)*lapl_id) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
-    if(c_attr_name)
+    if (c_attr_name)
         HDfree(c_attr_name);
-    if(c_obj_name)
+    if (c_obj_name)
         HDfree(c_obj_name);
     return ret_value;
 }
@@ -1423,29 +1418,30 @@ done:
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 int_f
-nh5adelete_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-		     int_f *idx_type, int_f *order, hsize_t_f *n, hid_t_f *lapl_id)
+nh5adelete_by_idx_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, int_f *idx_type, int_f *order,
+                    hsize_t_f *n, hid_t_f *lapl_id)
 /******/
 {
-    char *c_obj_name = NULL;          /* Buffer to hold C string */
-    int_f ret_value = 0;          /* Return value */
+    char *c_obj_name = NULL; /* Buffer to hold C string */
+    int_f ret_value  = 0;    /* Return value */
 
-     /*
-      * Convert FORTRAN name to C name
-      */
-    if(NULL == (c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)))
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if (NULL == (c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)))
         HGOTO_DONE(FAIL)
 
-     /*
-      * Call H5Adelete_by_name function.
-      */
-    if(H5Adelete_by_idx((hid_t)*loc_id, c_obj_name, (H5_index_t)*idx_type, (H5_iter_order_t)*order, (hsize_t)*n, (hid_t)*lapl_id) < 0)
+    /*
+     * Call H5Adelete_by_name function.
+     */
+    if (H5Adelete_by_idx((hid_t)*loc_id, c_obj_name, (H5_index_t)*idx_type, (H5_iter_order_t)*order,
+                         (hsize_t)*n, (hid_t)*lapl_id) < 0)
         HGOTO_DONE(FAIL)
 
 done:
-    if(c_obj_name)
+    if (c_obj_name)
         HDfree(c_obj_name);
 
     return ret_value;
@@ -1493,51 +1489,50 @@ done:
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 int_f
-nh5aget_name_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-		       int_f *idx_type, int_f *order, hsize_t_f *n, _fcd name,
-		       size_t_f *size, hid_t_f *lapl_id)
+nh5aget_name_by_idx_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, int_f *idx_type, int_f *order,
+                      hsize_t_f *n, _fcd name, size_t_f *size, hid_t_f *lapl_id)
 /******/
 {
-    char *c_obj_name = NULL;          /* Buffer to hold C string */
+    char *  c_obj_name = NULL; /* Buffer to hold C string */
     ssize_t c_size;
-    size_t c_buf_size;
-    char *c_buf = NULL;
-    int_f ret_value = 0;          /* Return value */
+    size_t  c_buf_size;
+    char *  c_buf     = NULL;
+    int_f   ret_value = 0; /* Return value */
 
     /*
      * Convert FORTRAN name to C name
      */
-    if(NULL == (c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)))
+    if (NULL == (c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)))
         HGOTO_DONE(FAIL)
 
     /*
      * Allocate buffer to hold name of an attribute
      */
     c_buf_size = (size_t)*size + 1;
-    if(NULL == (c_buf = (char *)HDmalloc(c_buf_size)))
+    if (NULL == (c_buf = (char *)HDmalloc(c_buf_size)))
         HGOTO_DONE(FAIL)
 
-     /*
-      * Call H5Aget_name_by_idx function.
-      */
-     c_size = H5Aget_name_by_idx((hid_t)*loc_id, c_obj_name, (H5_index_t)*idx_type, (H5_iter_order_t)*order, (hsize_t)*n, c_buf, c_buf_size,(hid_t)*lapl_id);
-     if(c_size < 0)
+    /*
+     * Call H5Aget_name_by_idx function.
+     */
+    c_size = H5Aget_name_by_idx((hid_t)*loc_id, c_obj_name, (H5_index_t)*idx_type, (H5_iter_order_t)*order,
+                                (hsize_t)*n, c_buf, c_buf_size, (hid_t)*lapl_id);
+    if (c_size < 0)
         HGOTO_DONE(FAIL)
 
-
-     /*
-      * Convert C name to FORTRAN and place it in the given buffer
-      */
-     HD5packFstring(c_buf, _fcdtocp(name), c_buf_size - 1);
-     *size = (size_t_f)c_size;
+    /*
+     * Convert C name to FORTRAN and place it in the given buffer
+     */
+    HD5packFstring(c_buf, _fcdtocp(name), c_buf_size - 1);
+    *size = (size_t_f)c_size;
 
 done:
-   if(c_obj_name)
-       HDfree(c_obj_name);
-   if(c_buf)
-       HDfree(c_buf);
+    if (c_obj_name)
+        HDfree(c_obj_name);
+    if (c_buf)
+        HDfree(c_buf);
     return ret_value;
 }
 
@@ -1576,29 +1571,31 @@ done:
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 int_f
-nh5aopen_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-		   int_f *idx_type, int_f *order, hsize_t_f *n, hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id )
+nh5aopen_by_idx_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, int_f *idx_type, int_f *order,
+                  hsize_t_f *n, hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id)
 /******/
 {
-    char *c_obj_name = NULL;          /* Buffer to hold C string */
-    int_f ret_value = 0;          /* Return value */
+    char *c_obj_name = NULL; /* Buffer to hold C string */
+    int_f ret_value  = 0;    /* Return value */
 
     /*
      * Convert FORTRAN name to C name
      */
-    if(NULL == (c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)))
+    if (NULL == (c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)))
         HGOTO_DONE(FAIL)
 
-     /*
-      * Call H5Aopen_by_idx function.
-      */
-    if((*attr_id = (hid_t_f)H5Aopen_by_idx((hid_t)*loc_id, c_obj_name, (H5_index_t)*idx_type, (H5_iter_order_t)*order, (hsize_t)*n, (hid_t)*aapl_id, (hid_t)*lapl_id)) < 0)
+    /*
+     * Call H5Aopen_by_idx function.
+     */
+    if ((*attr_id = (hid_t_f)H5Aopen_by_idx((hid_t)*loc_id, c_obj_name, (H5_index_t)*idx_type,
+                                            (H5_iter_order_t)*order, (hsize_t)*n, (hid_t)*aapl_id,
+                                            (hid_t)*lapl_id)) < 0)
         HGOTO_DONE(FAIL)
 
 done:
-    if(c_obj_name)
+    if (c_obj_name)
         HDfree(c_obj_name);
 
     return ret_value;
@@ -1626,30 +1623,29 @@ done:
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 int_f
-nh5aget_info_c (hid_t_f *loc_id, int_f *corder_valid, int_f *corder,
-		int_f *cset, hsize_t_f *data_size )
+nh5aget_info_c(hid_t_f *loc_id, int_f *corder_valid, int_f *corder, int_f *cset, hsize_t_f *data_size)
 /******/
 {
 
-    int_f ret_value = 0;          /* Return value */
+    int_f      ret_value = 0; /* Return value */
     H5A_info_t ainfo;
 
-
-     /*
-      * Call H5Aget_info function.
-      */
-    if(H5Aget_info((hid_t)*loc_id,&ainfo) < 0)
-      HGOTO_DONE(FAIL);
+    /*
+     * Call H5Aget_info function.
+     */
+    if (H5Aget_info((hid_t)*loc_id, &ainfo) < 0)
+        HGOTO_DONE(FAIL);
 
     /* Unpack the structure */
 
     *corder_valid = 0;
-    if(ainfo.corder_valid > 0) *corder_valid = 1;
+    if (ainfo.corder_valid > 0)
+        *corder_valid = 1;
 
-    *corder = (int_f)ainfo.corder;
-    *cset = (int_f)ainfo.cset;
+    *corder    = (int_f)ainfo.corder;
+    *cset      = (int_f)ainfo.cset;
     *data_size = (hsize_t_f)ainfo.data_size;
 
 done:
@@ -1695,41 +1691,40 @@ done:
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 int_f
-nh5aget_info_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-		int_f *idx_type, int_f *order, hsize_t_f *n, hid_t_f *lapl_id,
-		int_f *corder_valid, int_f *corder,
-		int_f *cset, hsize_t_f *data_size )
+nh5aget_info_by_idx_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, int_f *idx_type, int_f *order,
+                      hsize_t_f *n, hid_t_f *lapl_id, int_f *corder_valid, int_f *corder, int_f *cset,
+                      hsize_t_f *data_size)
 /******/
 {
-    char *c_obj_name = NULL;          /* Buffer to hold C string */
+    char *     c_obj_name = NULL; /* Buffer to hold C string */
     H5A_info_t ainfo;
-    int_f ret_value = 0;          /* Return value */
+    int_f      ret_value = 0; /* Return value */
 
     /*
      * Convert FORTRAN name to C name
      */
-    if(NULL == (c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)))
+    if (NULL == (c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)))
         HGOTO_DONE(FAIL)
 
-     /*
-      * Call H5Ainfo_by_idx function.
-      */
-    if(H5Aget_info_by_idx((hid_t)*loc_id, c_obj_name, (H5_index_t)*idx_type, (H5_iter_order_t)*order, (hsize_t)*n,
-            &ainfo, (hid_t)*lapl_id) < 0)
-      HGOTO_DONE(FAIL)
+    /*
+     * Call H5Ainfo_by_idx function.
+     */
+    if (H5Aget_info_by_idx((hid_t)*loc_id, c_obj_name, (H5_index_t)*idx_type, (H5_iter_order_t)*order,
+                           (hsize_t)*n, &ainfo, (hid_t)*lapl_id) < 0)
+        HGOTO_DONE(FAIL)
 
     /* Unpack the structure */
     *corder_valid = 0;
-    if(ainfo.corder_valid > 0)
+    if (ainfo.corder_valid > 0)
         *corder_valid = 1;
-    *corder = (int_f)ainfo.corder;
-    *cset = (int_f)ainfo.cset;
+    *corder    = (int_f)ainfo.corder;
+    *cset      = (int_f)ainfo.cset;
     *data_size = (hsize_t_f)ainfo.data_size;
 
 done:
-    if(c_obj_name)
+    if (c_obj_name)
         HDfree(c_obj_name);
 
     return ret_value;
@@ -1762,45 +1757,44 @@ done:
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 int_f
-nh5aget_info_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-			_fcd attr_name, size_t_f *attr_namelen, hid_t_f *lapl_id,
-			int_f *corder_valid, int_f *corder,
-			int_f *cset, hsize_t_f *data_size )
+nh5aget_info_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name,
+                       size_t_f *attr_namelen, hid_t_f *lapl_id, int_f *corder_valid, int_f *corder,
+                       int_f *cset, hsize_t_f *data_size)
 /******/
 {
-    char *c_obj_name = NULL;          /* Buffer to hold C string */
-    char *c_attr_name = NULL;          /* Buffer to hold C string */
+    char *     c_obj_name  = NULL; /* Buffer to hold C string */
+    char *     c_attr_name = NULL; /* Buffer to hold C string */
     H5A_info_t ainfo;
-    int_f ret_value = 0;          /* Return value */
+    int_f      ret_value = 0; /* Return value */
 
     /*
      * Convert FORTRAN name to C name
      */
-    if(NULL == (c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)))
+    if (NULL == (c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)))
         HGOTO_DONE(FAIL)
-    if(NULL == (c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)))
+    if (NULL == (c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)))
         HGOTO_DONE(FAIL)
 
-     /*
-      * Call H5Ainfo_by_name function.
-      */
-    if(H5Aget_info_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, &ainfo, (hid_t)*lapl_id) < 0)
+    /*
+     * Call H5Ainfo_by_name function.
+     */
+    if (H5Aget_info_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, &ainfo, (hid_t)*lapl_id) < 0)
         HGOTO_DONE(FAIL)
 
     /* Unpack the structure */
     *corder_valid = 0;
-    if(ainfo.corder_valid > 0)
+    if (ainfo.corder_valid > 0)
         *corder_valid = 1;
-    *corder = (int_f)ainfo.corder;
-    *cset = (int_f)ainfo.cset;
+    *corder    = (int_f)ainfo.corder;
+    *cset      = (int_f)ainfo.cset;
     *data_size = (hsize_t_f)ainfo.data_size;
 
 done:
-    if(c_obj_name)
+    if (c_obj_name)
         HDfree(c_obj_name);
-    if(c_attr_name)
+    if (c_attr_name)
         HDfree(c_attr_name);
 
     return ret_value;
@@ -1839,37 +1833,37 @@ done:
  * SOURCE
 */
 int_f
-nh5acreate_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-		     _fcd attr_name, size_t_f *attr_namelen,  hid_t_f *type_id,
-		     hid_t_f *space_id, hid_t_f *acpl_id, hid_t_f *aapl_id,
-		     hid_t_f *lapl_id, hid_t_f *attr_id )
+nh5acreate_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name,
+                     size_t_f *attr_namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *acpl_id,
+                     hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id)
 /******/
 {
-  char *c_obj_name = NULL;      /* Buffer to hold C string */
-  char *c_attr_name = NULL;     /* Buffer to hold C string */
-  int_f ret_value = 0;          /* Return value */
+    char *c_obj_name  = NULL; /* Buffer to hold C string */
+    char *c_attr_name = NULL; /* Buffer to hold C string */
+    int_f ret_value   = 0;    /* Return value */
 
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
-    HGOTO_DONE(FAIL);
-  if((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
-    HGOTO_DONE(FAIL);
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+    if ((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
 
-  /*
-   * Call H5Acreate_by_name function.
-   */
-  if((*attr_id = (hid_t_f)H5Acreate_by_name((hid_t)*loc_id, c_obj_name, c_attr_name,
-					    (hid_t)*type_id, (hid_t)*space_id,(hid_t)*acpl_id,(hid_t)*aapl_id,(hid_t)*lapl_id )) < 0)
-    HGOTO_DONE(FAIL);
+    /*
+     * Call H5Acreate_by_name function.
+     */
+    if ((*attr_id = (hid_t_f)H5Acreate_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, (hid_t)*type_id,
+                                               (hid_t)*space_id, (hid_t)*acpl_id, (hid_t)*aapl_id,
+                                               (hid_t)*lapl_id)) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
-  if(c_obj_name)
-    HDfree(c_obj_name);
-  if(c_attr_name)
-    HDfree(c_attr_name);
-  return ret_value;
+    if (c_obj_name)
+        HDfree(c_obj_name);
+    if (c_attr_name)
+        HDfree(c_attr_name);
+    return ret_value;
 }
 
 /****if* H5Af/h5aexists_c
@@ -1892,28 +1886,28 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5aexists_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_exists)
+nh5aexists_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_exists)
 /******/
 {
-  char *c_name = NULL;          /* Buffer to hold C string */
-  int_f ret_value = 0;          /* Return value */
+    char *c_name    = NULL; /* Buffer to hold C string */
+    int_f ret_value = 0;    /* Return value */
 
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
-    HGOTO_DONE(FAIL);
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
+        HGOTO_DONE(FAIL);
 
-  /*
-   * Call H5Aexists function.
-   */
-  if((*attr_exists = (hid_t_f)H5Aexists((hid_t)*obj_id, c_name)) < 0)
-         HGOTO_DONE(FAIL);
+    /*
+     * Call H5Aexists function.
+     */
+    if ((*attr_exists = (hid_t_f)H5Aexists((hid_t)*obj_id, c_name)) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
     return ret_value;
 }
@@ -1940,34 +1934,35 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5aexists_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name, size_t_f *attr_namelen,
-		      hid_t_f *lapl_id, int_f *attr_exists)
+nh5aexists_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name,
+                     size_t_f *attr_namelen, hid_t_f *lapl_id, int_f *attr_exists)
 /******/
 {
-  char *c_obj_name = NULL;          /* Buffer to hold object name C string */
-  char *c_attr_name = NULL;          /* Buffer to hold attribute name C string */
-  int_f ret_value = 0;          /* Return value */
+    char *c_obj_name  = NULL; /* Buffer to hold object name C string */
+    char *c_attr_name = NULL; /* Buffer to hold attribute name C string */
+    int_f ret_value   = 0;    /* Return value */
 
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
-    HGOTO_DONE(FAIL);
-  if((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
-    HGOTO_DONE(FAIL);
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+    if ((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
 
-  /*
-   * Call H5Aexists_by_name function.
-   */
-  if((*attr_exists = (int_f)H5Aexists_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, (hid_t)*lapl_id)) < 0)
-         HGOTO_DONE(FAIL);
+    /*
+     * Call H5Aexists_by_name function.
+     */
+    if ((*attr_exists = (int_f)H5Aexists_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, (hid_t)*lapl_id)) <
+        0)
+        HGOTO_DONE(FAIL);
 
 done:
-    if(c_obj_name)
+    if (c_obj_name)
         HDfree(c_obj_name);
-    if(c_attr_name)
+    if (c_attr_name)
         HDfree(c_attr_name);
     return ret_value;
 }
@@ -1995,36 +1990,37 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5aopen_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name, size_t_f *attr_namelen,
-		    hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id)
+nh5aopen_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name,
+                   size_t_f *attr_namelen, hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id)
 /******/
 {
-  char *c_obj_name = NULL;          /* Buffer to hold object name C string */
-  char *c_attr_name = NULL;          /* Buffer to hold attribute name C string */
-  int_f ret_value = 0;          /* Return value */
+    char *c_obj_name  = NULL; /* Buffer to hold object name C string */
+    char *c_attr_name = NULL; /* Buffer to hold attribute name C string */
+    int_f ret_value   = 0;    /* Return value */
 
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
-    HGOTO_DONE(FAIL);
-  if((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
-    HGOTO_DONE(FAIL);
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+    if ((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
 
-  /*
-   * Call H5Aopen function.
-   */
-  if((*attr_id = (hid_t_f)H5Aopen_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, (hid_t)*aapl_id, (hid_t)*lapl_id)) < 0)
-    HGOTO_DONE(FAIL);
+    /*
+     * Call H5Aopen function.
+     */
+    if ((*attr_id = (hid_t_f)H5Aopen_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, (hid_t)*aapl_id,
+                                             (hid_t)*lapl_id)) < 0)
+        HGOTO_DONE(FAIL);
 
- done:
-  if(c_obj_name)
-    HDfree(c_obj_name);
-  if(c_attr_name)
-    HDfree(c_attr_name);
-  return ret_value;
+done:
+    if (c_obj_name)
+        HDfree(c_obj_name);
+    if (c_attr_name)
+        HDfree(c_attr_name);
+    return ret_value;
 }
 
 /****if* H5Af/h5arename_c
@@ -2048,33 +2044,32 @@ nh5aopen_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 
 int_f
-nh5arename_c( hid_t_f *loc_id,
-		      _fcd old_attr_name, size_t_f *old_attr_namelen,
-		      _fcd new_attr_name, size_t_f *new_attr_namelen)
+nh5arename_c(hid_t_f *loc_id, _fcd old_attr_name, size_t_f *old_attr_namelen, _fcd new_attr_name,
+             size_t_f *new_attr_namelen)
 /******/
 {
-  char *c_old_attr_name = NULL;     /* Buffer to hold C string */
-  char *c_new_attr_name = NULL;     /* Buffer to hold C string */
-  int_f ret_value=0;          /* Return value */
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_old_attr_name = HD5f2cstring(old_attr_name, (size_t)*old_attr_namelen)) == NULL)
-    HGOTO_DONE(FAIL);
-  if((c_new_attr_name = HD5f2cstring(new_attr_name, (size_t)*new_attr_namelen)) == NULL)
-    HGOTO_DONE(FAIL);
+    char *c_old_attr_name = NULL; /* Buffer to hold C string */
+    char *c_new_attr_name = NULL; /* Buffer to hold C string */
+    int_f ret_value       = 0;    /* Return value */
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_old_attr_name = HD5f2cstring(old_attr_name, (size_t)*old_attr_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+    if ((c_new_attr_name = HD5f2cstring(new_attr_name, (size_t)*new_attr_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
 
-    if(H5Arename((hid_t)*loc_id,c_old_attr_name,c_new_attr_name) < 0)
+    if (H5Arename((hid_t)*loc_id, c_old_attr_name, c_new_attr_name) < 0)
         HGOTO_DONE(FAIL);
 
 done:
-    if(c_old_attr_name)
-      HDfree(c_old_attr_name);
-    if(c_new_attr_name)
-      HDfree(c_new_attr_name);
+    if (c_old_attr_name)
+        HDfree(c_old_attr_name);
+    if (c_new_attr_name)
+        HDfree(c_new_attr_name);
     return ret_value;
 }
 /****if* H5Af/h5awrite_f_c
@@ -2095,19 +2090,20 @@ done:
  *
  *
  * SOURCE
-*/
+ */
 int_f
-h5awrite_f_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf)
+h5awrite_f_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
+    int    ret_value = -1;
+    herr_t ret;
 
-  ret = H5Awrite( (hid_t)*attr_id, (hid_t)*mem_type_id, buf);
+    ret = H5Awrite((hid_t)*attr_id, (hid_t)*mem_type_id, buf);
 
-  if (ret < 0) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Af/h5aread_f_c
@@ -2128,18 +2124,18 @@ h5awrite_f_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf)
  *
  *
  * SOURCE
-*/
+ */
 int_f
-h5aread_f_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf)
+h5aread_f_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
+    int    ret_value = -1;
+    herr_t ret;
 
-  ret = H5Aread( (hid_t)*attr_id, (hid_t)*mem_type_id, buf);
+    ret = H5Aread((hid_t)*attr_id, (hid_t)*mem_type_id, buf);
 
-  if (ret < 0) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
-
diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c
index 9c67e82..4fc6aed 100644
--- a/fortran/src/H5Df.c
+++ b/fortran/src/H5Df.c
@@ -17,7 +17,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 
@@ -44,34 +44,34 @@
  *   - Added optional parameters introduced in version 1.8
  *     February, 2008
  * SOURCE
-*/
+ */
 int_f
-nh5dcreate_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *space_id,
-	      hid_t_f *lcpl_id, hid_t_f *dcpl_id, hid_t_f *dapl_id, hid_t_f *dset_id)
+nh5dcreate_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *space_id,
+             hid_t_f *lcpl_id, hid_t_f *dcpl_id, hid_t_f *dapl_id, hid_t_f *dset_id)
 /******/
 {
-     char *c_name = NULL;
-     hid_t c_dset_id;
-     int ret_value = -1;
+    char *c_name = NULL;
+    hid_t c_dset_id;
+    int   ret_value = -1;
 
-     /*
-      * Convert FORTRAN name to C name
-      */
-     if(NULL == ( c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
-         goto DONE;
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+        goto DONE;
 
-     /*
-      * Call H5Dcreate2 function.
-      */
-     if((c_dset_id = H5Dcreate2((hid_t)*loc_id, c_name, (hid_t)*type_id, (hid_t)*space_id,
-				(hid_t)*lcpl_id, (hid_t)*dcpl_id, (hid_t)*dapl_id)) < 0)
-         goto DONE;
-     *dset_id = (hid_t_f)c_dset_id;
+    /*
+     * Call H5Dcreate2 function.
+     */
+    if ((c_dset_id = H5Dcreate2((hid_t)*loc_id, c_name, (hid_t)*type_id, (hid_t)*space_id, (hid_t)*lcpl_id,
+                                (hid_t)*dcpl_id, (hid_t)*dapl_id)) < 0)
+        goto DONE;
+    *dset_id = (hid_t_f)c_dset_id;
 
-     ret_value = 0;
+    ret_value = 0;
 
 DONE:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
     return ret_value;
 }
@@ -96,37 +96,36 @@ DONE:
  * HISTORY
  * Added 1.8 parameter: dapl_id
  * SOURCE
-*/
+ */
 int_f
 nh5dopen_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *dapl_id, hid_t_f *dset_id)
 /******/
 {
-     char *c_name = NULL;
-     hid_t c_dset_id;
-     int ret_value = -1;
+    char *c_name = NULL;
+    hid_t c_dset_id;
+    int   ret_value = -1;
 
-     /*
-      * Convert FORTRAN name to C name
-      */
-     if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
-         goto DONE;
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+        goto DONE;
 
-     /*
-      * Call H5Dopen2 function.
-      */
-     if((c_dset_id = H5Dopen2((hid_t)*loc_id, c_name, (hid_t)*dapl_id)) < 0)
-         goto DONE;
+    /*
+     * Call H5Dopen2 function.
+     */
+    if ((c_dset_id = H5Dopen2((hid_t)*loc_id, c_name, (hid_t)*dapl_id)) < 0)
+        goto DONE;
 
-     *dset_id = (hid_t_f)c_dset_id;
-     ret_value = 0;
+    *dset_id  = (hid_t_f)c_dset_id;
+    ret_value = 0;
 
 DONE:
-     if(c_name)
-         HDfree(c_name);
-     return ret_value;
+    if (c_name)
+        HDfree(c_name);
+    return ret_value;
 }
 
-
 /****if* H5Df/h5dwritec_c
  * NAME
  *  h5dwritec_c
@@ -151,129 +150,138 @@ DONE:
  * SOURCE
 */
 int_f
-nh5dwritec_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dwritec_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+             hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 /******/
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dwrite_c  function.
-      */
-     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dwritec_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dwritec_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+               hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dwrite_c  function.
-      */
-     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dwritec_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dwritec_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+               hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dwrite_c  function.
-      */
-     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dwritec_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dwritec_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+               hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dwrite_c  function.
-      */
-     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dwritec_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dwritec_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+               hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dwrite_c  function.
-      */
-     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dwritec_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dwritec_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+               hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dwrite_c  function.
-      */
-     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dwritec_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dwritec_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+               hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dwrite_c  function.
-      */
-     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dwritec_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dwritec_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+               hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dwrite_c  function.
-      */
-     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dwritec_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dwritec_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+               hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dwrite_c  function.
-      */
-     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Df/h5dwrite_c
@@ -303,287 +311,304 @@ nh5dwritec_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, h
  *                                           October 10, 2006 EIP
  *
  * SOURCE
-*/
+ */
 int_f
-nh5dwrite_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f H5_ATTR_UNUSED *dims)
+nh5dwrite_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+            hid_t_f *xfer_prp, void *buf, hsize_t_f H5_ATTR_UNUSED *dims)
 /******/
 {
-     int ret_value = -1;
-     herr_t ret;
-     hid_t c_dset_id;
-     hid_t c_mem_type_id;
-     hid_t c_mem_space_id;
-     hid_t c_file_space_id;
-     hid_t c_xfer_prp;
+    int    ret_value = -1;
+    herr_t ret;
+    hid_t  c_dset_id;
+    hid_t  c_mem_type_id;
+    hid_t  c_mem_space_id;
+    hid_t  c_file_space_id;
+    hid_t  c_xfer_prp;
 
-     /*
-      * Define transfer property
-      */
-     c_xfer_prp = (hid_t)*xfer_prp;
+    /*
+     * Define transfer property
+     */
+    c_xfer_prp = (hid_t)*xfer_prp;
 
-     /*
-      * Call H5Dwrite function.
-      */
-     c_dset_id = (hid_t)*dset_id;
-     c_mem_type_id = (hid_t)*mem_type_id;
-     c_mem_space_id = (hid_t)*mem_space_id;
-     c_file_space_id = (hid_t)*file_space_id;
-     ret = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf);
+    /*
+     * Call H5Dwrite function.
+     */
+    c_dset_id       = (hid_t)*dset_id;
+    c_mem_type_id   = (hid_t)*mem_type_id;
+    c_mem_space_id  = (hid_t)*mem_space_id;
+    c_file_space_id = (hid_t)*file_space_id;
+    ret             = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 int_f
-nh5dwrite_integer_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_integer_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                      hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
-
 int_f
-nh5dwrite_integer_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_integer_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                      hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
-
 int_f
-nh5dwrite_integer_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_integer_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                      hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
-
 int_f
-nh5dwrite_integer_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_integer_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                      hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
-
 int_f
-nh5dwrite_integer_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_integer_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                      hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
-
 int_f
-nh5dwrite_integer_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_integer_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                      hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
-
 int_f
-nh5dwrite_integer_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_integer_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                      hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
-
 int_f
-nh5dwrite_integer_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_integer_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                      hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
-
 int_f
-nh5dwrite_real_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_real_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                   hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_real_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_real_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                   hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_real_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_real_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                   hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_real_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_real_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                   hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_real_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_real_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                   hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_real_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_real_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                   hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_real_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_real_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                   hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_real_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_real_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                   hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_double_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_double_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_double_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_double_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_double_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_double_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_double_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_double_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_double_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_double_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_double_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_double_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_double_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_double_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dwrite_double_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_double_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dwrite_c  function.
-      */
-     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dwrite_c  function.
+     */
+    return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
-
 /****if* H5Df/h5dwrite_ref_obj_c
  * NAME
  *  h5dwrite_ref_obj_c
@@ -606,19 +631,20 @@ nh5dwrite_double_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space
  * This function was added to accomodate h5dwrite_f with the
  *                dims argumnet being of INTEGER(HSIZE_T) type.
  * SOURCE
-*/
+ */
 int_f
-nh5dwrite_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, haddr_t_f *buf, hsize_t_f *dims)
+nh5dwrite_ref_obj_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                    hid_t_f *xfer_prp, haddr_t_f *buf, hsize_t_f *dims)
 /******/
 {
-    int ret_value = -1;
-    herr_t ret;
-    hid_t c_dset_id;
-    hid_t c_mem_type_id;
-    hid_t c_mem_space_id;
-    hid_t c_file_space_id;
-    hid_t c_xfer_prp;
-    hobj_ref_t *buf_c;
+    int          ret_value = -1;
+    herr_t       ret;
+    hid_t        c_dset_id;
+    hid_t        c_mem_type_id;
+    hid_t        c_mem_space_id;
+    hid_t        c_file_space_id;
+    hid_t        c_xfer_prp;
+    hobj_ref_t * buf_c;
     unsigned int i, n;
 
     /*
@@ -629,24 +655,26 @@ nh5dwrite_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_
     /*
      * Allocate temporary buffer and copy references from Fortran.
      */
-    n = (unsigned int)*dims;
-    buf_c = (hobj_ref_t*)HDmalloc(sizeof(hobj_ref_t)*n);
-    if ( buf_c != NULL ) {
+    n     = (unsigned int)*dims;
+    buf_c = (hobj_ref_t *)HDmalloc(sizeof(hobj_ref_t) * n);
+    if (buf_c != NULL) {
         for (i = 0; i < n; i++)
-             HDmemcpy(&buf_c[i], &buf[i], sizeof(haddr_t));
+            HDmemcpy(&buf_c[i], &buf[i], sizeof(haddr_t));
     }
-    else return ret_value;
+    else
+        return ret_value;
 
     /*
      * Call H5Dwrite function.
      */
-    c_dset_id = (hid_t)*dset_id;
-    c_mem_type_id = (hid_t)*mem_type_id;
-    c_mem_space_id = (hid_t)*mem_space_id;
+    c_dset_id       = (hid_t)*dset_id;
+    c_mem_type_id   = (hid_t)*mem_type_id;
+    c_mem_space_id  = (hid_t)*mem_space_id;
     c_file_space_id = (hid_t)*file_space_id;
-    ret = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf_c);
+    ret             = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf_c);
     HDfree(buf_c);
-    if (ret < 0) return ret_value;
+    if (ret < 0)
+        return ret_value;
     ret_value = 0;
     return ret_value;
 }
@@ -673,55 +701,55 @@ nh5dwrite_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_
  *  This function was added to accomodate h5dwrite_f with the
  *  dims argument being of INTEGER(HSIZE_T) type
  * SOURCE
-*/
+ */
 int_f
-nh5dwrite_ref_reg_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims)
+nh5dwrite_ref_reg_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                    hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims)
 /******/
 {
-     int ret_value = -1;
-     herr_t ret;
-     hid_t c_dset_id;
-     hid_t c_mem_type_id;
-     hid_t c_mem_space_id;
-     hid_t c_file_space_id;
-     hid_t c_xfer_prp;
-     hdset_reg_ref_t *buf_c = NULL;
-     unsigned int i, n;
-
-      n = (unsigned int)*dims;
-     /*
-      * Define transfer property
-      */
-     c_xfer_prp = (hid_t)*xfer_prp;
-
-     /*
-      * Allocate temporary buffer and copy references from Fortran.
-      */
-     buf_c = (hdset_reg_ref_t *)HDmalloc(sizeof(hdset_reg_ref_t)*n);
-      if ( buf_c != NULL ) {
-      for (i = 0; i < n; i++) {
-           HDmemcpy(&buf_c[i], buf, H5R_DSET_REG_REF_BUF_SIZE);
-           buf = buf + REF_REG_BUF_LEN_F;
-      }
-      }
-      else return ret_value;
-
-
-     /*
-      * Call H5Dwrite function.
-      */
-     c_dset_id = (hid_t)*dset_id;
-     c_mem_type_id = (hid_t)*mem_type_id;
-     c_mem_space_id = (hid_t)*mem_space_id;
-     c_file_space_id = (hid_t)*file_space_id;
-     ret = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf_c);
-     HDfree(buf_c);
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
-}
+    int              ret_value = -1;
+    herr_t           ret;
+    hid_t            c_dset_id;
+    hid_t            c_mem_type_id;
+    hid_t            c_mem_space_id;
+    hid_t            c_file_space_id;
+    hid_t            c_xfer_prp;
+    hdset_reg_ref_t *buf_c = NULL;
+    unsigned int     i, n;
 
+    n = (unsigned int)*dims;
+    /*
+     * Define transfer property
+     */
+    c_xfer_prp = (hid_t)*xfer_prp;
 
+    /*
+     * Allocate temporary buffer and copy references from Fortran.
+     */
+    buf_c = (hdset_reg_ref_t *)HDmalloc(sizeof(hdset_reg_ref_t) * n);
+    if (buf_c != NULL) {
+        for (i = 0; i < n; i++) {
+            HDmemcpy(&buf_c[i], buf, H5R_DSET_REG_REF_BUF_SIZE);
+            buf = buf + REF_REG_BUF_LEN_F;
+        }
+    }
+    else
+        return ret_value;
+
+    /*
+     * Call H5Dwrite function.
+     */
+    c_dset_id       = (hid_t)*dset_id;
+    c_mem_type_id   = (hid_t)*mem_type_id;
+    c_mem_space_id  = (hid_t)*mem_space_id;
+    c_file_space_id = (hid_t)*file_space_id;
+    ret             = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf_c);
+    HDfree(buf_c);
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
+}
 
 /****if* H5Df/h5dreadc_c
  * NAME
@@ -745,131 +773,140 @@ nh5dwrite_ref_reg_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_
  * This function was added to accomodate h5dread_f subroutine
  *                with the dims parameter being of INTEGER(HSIZE_T_F) size.
  * SOURCE
-*/
+ */
 int_f
-nh5dreadc_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dreadc_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+            hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 /******/
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dread_c  function.
-      */
-     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dreadc_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dreadc_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+              hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dread_c  function.
-      */
-     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dreadc_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dreadc_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+              hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dread_c  function.
-      */
-     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dreadc_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dreadc_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+              hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dread_c  function.
-      */
-     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dreadc_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dreadc_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+              hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dread_c  function.
-      */
-     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dreadc_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dreadc_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+              hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dread_c  function.
-      */
-     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dreadc_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dreadc_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+              hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dread_c  function.
-      */
-     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dreadc_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dreadc_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+              hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dread_c  function.
-      */
-     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 int_f
-nh5dreadc_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+nh5dreadc_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+              hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
 
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dread_c  function.
-      */
-     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
 
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Df/h5dread_c
@@ -900,276 +937,302 @@ nh5dreadc_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hi
  *                                           October 10, 2006 EIP
  *
  * SOURCE
-*/
+ */
 int_f
-nh5dread_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f H5_ATTR_UNUSED *dims)
+nh5dread_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+           hid_t_f *xfer_prp, void *buf, hsize_t_f H5_ATTR_UNUSED *dims)
 /******/
 {
-     int ret_value = -1;
-     herr_t ret;
-     hid_t c_dset_id;
-     hid_t c_mem_type_id;
-     hid_t c_mem_space_id;
-     hid_t c_file_space_id;
-     hid_t c_xfer_prp;
+    int    ret_value = -1;
+    herr_t ret;
+    hid_t  c_dset_id;
+    hid_t  c_mem_type_id;
+    hid_t  c_mem_space_id;
+    hid_t  c_file_space_id;
+    hid_t  c_xfer_prp;
 
-     /*
-      * Define transfer property
-      */
-     c_xfer_prp = (hid_t)*xfer_prp;
+    /*
+     * Define transfer property
+     */
+    c_xfer_prp = (hid_t)*xfer_prp;
 
-     /*
-      * Call H5Dread function.
-      */
-     c_dset_id = (hid_t)*dset_id;
-     c_mem_type_id = (hid_t)*mem_type_id;
-     c_mem_space_id = (hid_t)*mem_space_id;
-     c_file_space_id = (hid_t)*file_space_id;
-     ret = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf);
+    /*
+     * Call H5Dread function.
+     */
+    c_dset_id       = (hid_t)*dset_id;
+    c_mem_type_id   = (hid_t)*mem_type_id;
+    c_mem_space_id  = (hid_t)*mem_space_id;
+    c_file_space_id = (hid_t)*file_space_id;
+    ret             = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 int_f
-nh5dread_integer_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_integer_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_integer_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_integer_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_integer_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_integer_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_integer_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_integer_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_integer_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_integer_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_integer_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_integer_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_integer_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_integer_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_integer_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_integer_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_real_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_real_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                  hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_real_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_real_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                  hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_real_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_real_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                  hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_real_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_real_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                  hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_real_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_real_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                  hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_real_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_real_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                  hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_real_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_real_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                  hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_real_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_real_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                  hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_double_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_double_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                    hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_double_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_double_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                    hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_double_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_double_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                    hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_double_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_double_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                    hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_double_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_double_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                    hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_double_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_double_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                    hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_double_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_double_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                    hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 int_f
-nh5dread_double_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_double_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                    hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
 
 {
-     /*
-      * Call h5dread_c  function.
-      */
-     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+    /*
+     * Call h5dread_c  function.
+     */
+    return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
 }
 
 /****if* H5Df/h5dread_ref_obj_c
@@ -1194,20 +1257,21 @@ nh5dread_double_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_
  * This function was added to accomodate h5dread_f subroutine
  *                with the dims parameter being of INTEGER(HSIZE_T_F) size.
  * SOURCE
-*/
+ */
 int_f
-nh5dread_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, haddr_t_f * buf, hsize_t_f *dims)
+nh5dread_ref_obj_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                   hid_t_f *xfer_prp, haddr_t_f *buf, hsize_t_f *dims)
 /******/
 {
-    int ret_value = -1;
-    herr_t ret = -1;
-    hid_t c_dset_id;
-    hid_t c_mem_type_id;
-    hid_t c_mem_space_id;
-    hid_t c_file_space_id;
-    hid_t c_xfer_prp;
+    int         ret_value = -1;
+    herr_t      ret       = -1;
+    hid_t       c_dset_id;
+    hid_t       c_mem_type_id;
+    hid_t       c_mem_space_id;
+    hid_t       c_file_space_id;
+    hid_t       c_xfer_prp;
     hobj_ref_t *buf_c = NULL;
-    hsize_t i,n;
+    hsize_t     i, n;
 
     /*
      * Define transfer property
@@ -1217,24 +1281,26 @@ nh5dread_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_i
     /*
      * Allocate temporary buffer.
      */
-    n = (hsize_t)*dims;
-    buf_c = (hobj_ref_t*)HDmalloc(sizeof(hobj_ref_t)*(size_t)n);
-    if ( buf_c != NULL ) {
+    n     = (hsize_t)*dims;
+    buf_c = (hobj_ref_t *)HDmalloc(sizeof(hobj_ref_t) * (size_t)n);
+    if (buf_c != NULL) {
         /*
          * Call H5Dread function.
          */
-        c_dset_id = (hid_t)*dset_id;
-        c_mem_type_id = (hid_t)*mem_type_id;
-        c_mem_space_id = (hid_t)*mem_space_id;
+        c_dset_id       = (hid_t)*dset_id;
+        c_mem_type_id   = (hid_t)*mem_type_id;
+        c_mem_space_id  = (hid_t)*mem_space_id;
         c_file_space_id = (hid_t)*file_space_id;
         ret = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf_c);
-        if (ret >=0) {
-           for (i = 0; i < n; i++)
-              HDmemcpy(&buf[i], &buf_c[i], sizeof(haddr_t));
+        if (ret >= 0) {
+            for (i = 0; i < n; i++)
+                HDmemcpy(&buf[i], &buf_c[i], sizeof(haddr_t));
         }
-        if ( buf_c != NULL ) HDfree(buf_c);
+        if (buf_c != NULL)
+            HDfree(buf_c);
     }
-    if (ret < 0) return ret_value;
+    if (ret < 0)
+        return ret_value;
     ret_value = 0;
     return ret_value;
 }
@@ -1261,54 +1327,55 @@ nh5dread_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_i
  * This function was added to accomodate h5dread_f subroutine
  *                with the dims parameter being of INTEGER(HSIZE_T_F) size.
  * SOURCE
-*/
+ */
 int_f
-nh5dread_ref_reg_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f * buf, hsize_t_f *dims)
+nh5dread_ref_reg_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                   hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims)
 /******/
 {
-     int ret_value = -1;
-     herr_t ret = -1;
-     hid_t c_dset_id;
-     hid_t c_mem_type_id;
-     hid_t c_mem_space_id;
-     hid_t c_file_space_id;
-     hid_t c_xfer_prp;
-     hdset_reg_ref_t *buf_c = NULL;
-     hsize_t i, n;
-     n = (hsize_t)*dims;
-     /*
-      * Define transfer property
-      */
-     c_xfer_prp = (hid_t)*xfer_prp;
-
-     /*
-      * Allocate temporary buffer.
-      */
-     buf_c = (hdset_reg_ref_t *)HDmalloc(sizeof(hdset_reg_ref_t)*(size_t)n);
-     if ( buf_c != NULL ) {
-         /*
-          * Call H5Dread function.
-          */
-         c_dset_id = (hid_t)*dset_id;
-         c_mem_type_id = (hid_t)*mem_type_id;
-         c_mem_space_id = (hid_t)*mem_space_id;
-         c_file_space_id = (hid_t)*file_space_id;
-         ret = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf_c);
-         if (ret >=0) {
+    int              ret_value = -1;
+    herr_t           ret       = -1;
+    hid_t            c_dset_id;
+    hid_t            c_mem_type_id;
+    hid_t            c_mem_space_id;
+    hid_t            c_file_space_id;
+    hid_t            c_xfer_prp;
+    hdset_reg_ref_t *buf_c = NULL;
+    hsize_t          i, n;
+    n = (hsize_t)*dims;
+    /*
+     * Define transfer property
+     */
+    c_xfer_prp = (hid_t)*xfer_prp;
+
+    /*
+     * Allocate temporary buffer.
+     */
+    buf_c = (hdset_reg_ref_t *)HDmalloc(sizeof(hdset_reg_ref_t) * (size_t)n);
+    if (buf_c != NULL) {
+        /*
+         * Call H5Dread function.
+         */
+        c_dset_id       = (hid_t)*dset_id;
+        c_mem_type_id   = (hid_t)*mem_type_id;
+        c_mem_space_id  = (hid_t)*mem_space_id;
+        c_file_space_id = (hid_t)*file_space_id;
+        ret = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf_c);
+        if (ret >= 0) {
             for (i = 0; i < n; i++) {
-               HDmemcpy(buf, &buf_c[i], H5R_DSET_REG_REF_BUF_SIZE);
-               buf = buf + REF_REG_BUF_LEN_F;
+                HDmemcpy(buf, &buf_c[i], H5R_DSET_REG_REF_BUF_SIZE);
+                buf = buf + REF_REG_BUF_LEN_F;
             }
-         }
-         if ( buf_c != NULL ) HDfree(buf_c);
-     }
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+        }
+        if (buf_c != NULL)
+            HDfree(buf_c);
+    }
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
-
-
 /****if* H5Df/h5dclose_c
  * NAME
  *  h5dclose_c
@@ -1324,17 +1391,18 @@ nh5dread_ref_reg_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_i
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5dclose_c ( hid_t_f *dset_id )
+nh5dclose_c(hid_t_f *dset_id)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_dset_id;
-  c_dset_id = (hid_t)*dset_id;
-  if ( H5Dclose(c_dset_id) < 0  ) ret_value = -1;
-  return ret_value;
+    int   ret_value = 0;
+    hid_t c_dset_id;
+    c_dset_id = (hid_t)*dset_id;
+    if (H5Dclose(c_dset_id) < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Df/h5dget_space_c
@@ -1354,22 +1422,23 @@ nh5dclose_c ( hid_t_f *dset_id )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5dget_space_c ( hid_t_f *dset_id , hid_t_f *space_id)
+nh5dget_space_c(hid_t_f *dset_id, hid_t_f *space_id)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_dset_id;
-  hid_t c_space_id;
+    int   ret_value = -1;
+    hid_t c_dset_id;
+    hid_t c_space_id;
 
-  c_dset_id = (hid_t)*dset_id;
-  c_space_id = H5Dget_space(c_dset_id);
-  if(c_space_id < 0 ) return ret_value;
-  ret_value = 0;
-  *space_id = (hid_t_f)c_space_id;
-  return ret_value;
+    c_dset_id  = (hid_t)*dset_id;
+    c_space_id = H5Dget_space(c_dset_id);
+    if (c_space_id < 0)
+        return ret_value;
+    ret_value = 0;
+    *space_id = (hid_t_f)c_space_id;
+    return ret_value;
 }
 
 /****if* H5Df/h5dget_type_c
@@ -1389,24 +1458,25 @@ nh5dget_space_c ( hid_t_f *dset_id , hid_t_f *space_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5dget_type_c ( hid_t_f *dset_id , hid_t_f *type_id)
+nh5dget_type_c(hid_t_f *dset_id, hid_t_f *type_id)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_dset_id;
-  hid_t c_type_id;
+    int   ret_value = -1;
+    hid_t c_dset_id;
+    hid_t c_type_id;
 
-  c_dset_id = (hid_t)*dset_id;
-  c_type_id = H5Dget_type(c_dset_id);
+    c_dset_id = (hid_t)*dset_id;
+    c_type_id = H5Dget_type(c_dset_id);
 
-  if(c_type_id < 0 ) return ret_value;
+    if (c_type_id < 0)
+        return ret_value;
 
-  *type_id = (hid_t_f)c_type_id;
-  ret_value = 0;
-  return ret_value;
+    *type_id  = (hid_t_f)c_type_id;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Df/h5dget_create_plist_c
@@ -1427,27 +1497,27 @@ nh5dget_type_c ( hid_t_f *dset_id , hid_t_f *type_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5dget_create_plist_c ( hid_t_f *dset_id , hid_t_f *plist_id)
+nh5dget_create_plist_c(hid_t_f *dset_id, hid_t_f *plist_id)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_dset_id;
-  hid_t c_plist_id;
+    int   ret_value = -1;
+    hid_t c_dset_id;
+    hid_t c_plist_id;
 
-  c_dset_id = (hid_t)*dset_id;
-  c_plist_id = H5Dget_create_plist(c_dset_id);
+    c_dset_id  = (hid_t)*dset_id;
+    c_plist_id = H5Dget_create_plist(c_dset_id);
 
-  if(c_plist_id < 0 ) return ret_value;
+    if (c_plist_id < 0)
+        return ret_value;
 
-  ret_value = 0;
-  *plist_id = (hid_t_f)c_plist_id;
-  return ret_value;
+    ret_value = 0;
+    *plist_id = (hid_t_f)c_plist_id;
+    return ret_value;
 }
 
-
 /****if* H5Df/h5dset_extent_c
  * NAME
  *  h5dset_extent_c
@@ -1468,37 +1538,38 @@ nh5dget_create_plist_c ( hid_t_f *dset_id , hid_t_f *plist_id)
  *                to h5dset_extent in order to match new fortran interface.
  *                -MSB- March 14, 2008
  * SOURCE
-*/
+ */
 
 int_f
-nh5dset_extent_c ( hid_t_f *dset_id , hsize_t_f *dims)
+nh5dset_extent_c(hid_t_f *dset_id, hsize_t_f *dims)
 /******/
 {
-  hid_t c_space_id;
-  hsize_t c_dims[H5S_MAX_RANK];
-  int rank;
-  int i;
-  int status;
-  int ret_value = -1;
+    hid_t   c_space_id;
+    hsize_t c_dims[H5S_MAX_RANK];
+    int     rank;
+    int     i;
+    int     status;
+    int     ret_value = -1;
 
-  if((c_space_id = H5Dget_space((hid_t)*dset_id)) < 0) return ret_value;
+    if ((c_space_id = H5Dget_space((hid_t)*dset_id)) < 0)
+        return ret_value;
 
-  rank = H5Sget_simple_extent_ndims(c_space_id);
-  H5Sclose(c_space_id);
-  if(rank < 0 ) return ret_value;
+    rank = H5Sget_simple_extent_ndims(c_space_id);
+    H5Sclose(c_space_id);
+    if (rank < 0)
+        return ret_value;
 
+    /*
+     * Reverse dimensions due to C-FORTRAN storage order.
+     */
+    for (i = 0; i < rank; i++)
+        c_dims[i] = (hsize_t)dims[rank - i - 1];
 
-  /*
-   * Reverse dimensions due to C-FORTRAN storage order.
-   */
-  for(i = 0; i < rank; i++)
-      c_dims[i] = (hsize_t)dims[rank - i - 1];
-
-  status = H5Dset_extent((hid_t)*dset_id, c_dims);
+    status = H5Dset_extent((hid_t)*dset_id, c_dims);
 
-  if(status >= 0)
-      ret_value = 0;
-  return ret_value;
+    if (status >= 0)
+        ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Df/nh5dget_storage_size_c
@@ -1519,22 +1590,23 @@ nh5dset_extent_c ( hid_t_f *dset_id , hsize_t_f *dims)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5dget_storage_size_c ( hid_t_f *dset_id , hsize_t_f *size)
+nh5dget_storage_size_c(hid_t_f *dset_id, hsize_t_f *size)
 /******/
 {
-  int ret_value = -1;
-  hsize_t c_size;
-  hid_t c_dset_id;
+    int     ret_value = -1;
+    hsize_t c_size;
+    hid_t   c_dset_id;
 
-  c_dset_id = (hid_t)*dset_id;
-  c_size = H5Dget_storage_size(c_dset_id);
-  if (c_size == 0) return ret_value;
-  *size = (hsize_t_f)c_size;
-  ret_value = 0;
-  return ret_value;
+    c_dset_id = (hid_t)*dset_id;
+    c_size    = H5Dget_storage_size(c_dset_id);
+    if (c_size == 0)
+        return ret_value;
+    *size     = (hsize_t_f)c_size;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Df/nh5dvlen_get_max_len_c
@@ -1556,44 +1628,48 @@ nh5dget_storage_size_c ( hid_t_f *dset_id , hsize_t_f *size)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5dvlen_get_max_len_c ( hid_t_f *dset_id ,  hid_t_f *type_id, hid_t_f *space_id, size_t_f *len)
+nh5dvlen_get_max_len_c(hid_t_f *dset_id, hid_t_f *type_id, hid_t_f *space_id, size_t_f *len)
 /******/
 {
-  int ret_value = -1;
-  size_t c_len;
-  hid_t c_dset_id;
-  hid_t c_type_id;
-  hid_t c_space_id;
-  hvl_t *c_buf;
-  int i;
-  hssize_t num_elem;
-  herr_t status;
-
-  c_dset_id = (hid_t)*dset_id;
-  c_type_id = (hid_t)*type_id;
-  c_space_id = (hid_t)*space_id;
-
-  num_elem = H5Sget_select_npoints(c_space_id);
-  if( num_elem < 0) return ret_value;
-
-  c_buf = (hvl_t *)HDmalloc(sizeof(hvl_t)*(size_t)num_elem);
-  if (c_buf == NULL) return ret_value;
-  status = H5Dread(c_dset_id, c_type_id, H5S_ALL, c_space_id, H5P_DEFAULT, c_buf);
-  if(status < 0) goto DONE;
-
-  c_len = 0;
-  for (i=0; i < num_elem; i++) c_len = H5_MAX(c_len, c_buf[i].len);
-  *len = (size_t_f)c_len;
-  H5Dvlen_reclaim(c_type_id, c_space_id, H5P_DEFAULT, c_buf);
-  ret_value = 0;
+    int      ret_value = -1;
+    size_t   c_len;
+    hid_t    c_dset_id;
+    hid_t    c_type_id;
+    hid_t    c_space_id;
+    hvl_t *  c_buf;
+    int      i;
+    hssize_t num_elem;
+    herr_t   status;
+
+    c_dset_id  = (hid_t)*dset_id;
+    c_type_id  = (hid_t)*type_id;
+    c_space_id = (hid_t)*space_id;
+
+    num_elem = H5Sget_select_npoints(c_space_id);
+    if (num_elem < 0)
+        return ret_value;
+
+    c_buf = (hvl_t *)HDmalloc(sizeof(hvl_t) * (size_t)num_elem);
+    if (c_buf == NULL)
+        return ret_value;
+    status = H5Dread(c_dset_id, c_type_id, H5S_ALL, c_space_id, H5P_DEFAULT, c_buf);
+    if (status < 0)
+        goto DONE;
+
+    c_len = 0;
+    for (i = 0; i < num_elem; i++)
+        c_len = H5_MAX(c_len, c_buf[i].len);
+    *len = (size_t_f)c_len;
+    H5Dvlen_reclaim(c_type_id, c_space_id, H5P_DEFAULT, c_buf);
+    ret_value = 0;
 
 DONE:
 
-  HDfree(c_buf);
-  return ret_value;
+    HDfree(c_buf);
+    return ret_value;
 }
 /****if* H5Df/nh5dwrite_vl_integer_c
  * NAME
@@ -1619,53 +1695,56 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5dwrite_vl_integer_c ( hid_t_f *dset_id ,  hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims, size_t_f *len)
+nh5dwrite_vl_integer_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                       hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims, size_t_f *len)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_dset_id;
-  hid_t c_mem_type_id;
-  hid_t c_mem_space_id;
-  hid_t c_file_space_id;
-  hid_t c_xfer_prp;
-  herr_t status;
-  int_f *tmp;
-  size_t max_len;
-
-  hvl_t *c_buf;
-  hsize_t i;
-  hsize_t num_elem;
-
-  max_len = (size_t)dims[0];
-  num_elem = (hsize_t)dims[1];
-
-  c_dset_id       = (hid_t)*dset_id;
-  c_mem_type_id   = (hid_t)*mem_type_id;
-  c_mem_space_id  = (hid_t)*mem_space_id;
-  c_file_space_id = (hid_t)*file_space_id;
-  c_xfer_prp      = (hid_t)*xfer_prp;
-
-  c_buf = (hvl_t *)HDmalloc((size_t)num_elem * sizeof(hvl_t));
-  if (c_buf == NULL) return ret_value;
-  tmp = (int_f *)buf;
-  for (i=0; i < num_elem; i++) {
-       c_buf[i].len = (size_t)len[i];
-       c_buf[i].p   = tmp;
-       tmp = tmp + max_len;
- }
-  /*
-   * Call H5Dwrite function.
-   */
-   status = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, c_buf);
-
-  if( status < 0) goto DONE;
-  ret_value = 0;
+    int    ret_value = -1;
+    hid_t  c_dset_id;
+    hid_t  c_mem_type_id;
+    hid_t  c_mem_space_id;
+    hid_t  c_file_space_id;
+    hid_t  c_xfer_prp;
+    herr_t status;
+    int_f *tmp;
+    size_t max_len;
+
+    hvl_t * c_buf;
+    hsize_t i;
+    hsize_t num_elem;
+
+    max_len  = (size_t)dims[0];
+    num_elem = (hsize_t)dims[1];
+
+    c_dset_id       = (hid_t)*dset_id;
+    c_mem_type_id   = (hid_t)*mem_type_id;
+    c_mem_space_id  = (hid_t)*mem_space_id;
+    c_file_space_id = (hid_t)*file_space_id;
+    c_xfer_prp      = (hid_t)*xfer_prp;
+
+    c_buf = (hvl_t *)HDmalloc((size_t)num_elem * sizeof(hvl_t));
+    if (c_buf == NULL)
+        return ret_value;
+    tmp = (int_f *)buf;
+    for (i = 0; i < num_elem; i++) {
+        c_buf[i].len = (size_t)len[i];
+        c_buf[i].p   = tmp;
+        tmp          = tmp + max_len;
+    }
+    /*
+     * Call H5Dwrite function.
+     */
+    status = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, c_buf);
+
+    if (status < 0)
+        goto DONE;
+    ret_value = 0;
 DONE:
-  HDfree(c_buf);
-  return ret_value;
+    HDfree(c_buf);
+    return ret_value;
 }
 
 /****if* H5Df/nh5dread_vl_integer_c
@@ -1693,51 +1772,55 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5dread_vl_integer_c ( hid_t_f *dset_id ,  hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims, size_t_f *len)
+nh5dread_vl_integer_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                      hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims, size_t_f *len)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_dset_id;
-  hid_t c_mem_type_id;
-  hid_t c_mem_space_id;
-  hid_t c_file_space_id;
-  hid_t c_xfer_prp;
-  herr_t status;
-  size_t max_len;
-
-  hvl_t *c_buf;
-  hsize_t i;
-  hssize_t num_elem;
-
-  c_dset_id       = (hid_t)*dset_id;
-  c_mem_type_id   = (hid_t)*mem_type_id;
-  c_mem_space_id  = (hid_t)*mem_space_id;
-  c_file_space_id = (hid_t)*file_space_id;
-  c_xfer_prp      = (hid_t)*xfer_prp;
-
-  max_len = (size_t)dims[0];
-  num_elem = H5Sget_select_npoints(c_mem_space_id);
-  if(num_elem != (hssize_t)dims[1]) return ret_value;
-
-  c_buf = (hvl_t *)HDmalloc((size_t)num_elem * sizeof(hvl_t));
-  if (c_buf == NULL) return ret_value;
-  /*
-   * Call H5Dread function.
-   */
-   status = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, c_buf);
- if ( status < 0 ) goto DONE;
-  for (i=0; i < (hsize_t)num_elem; i++) {
-       len[i] = (size_t_f)c_buf[i].len;
-       memcpy(&buf[i*max_len], c_buf[i].p, c_buf[i].len*sizeof(int_f));
-  }
-  H5Dvlen_reclaim(c_mem_type_id, c_mem_space_id, H5P_DEFAULT, c_buf);
-  ret_value = 0;
+    int    ret_value = -1;
+    hid_t  c_dset_id;
+    hid_t  c_mem_type_id;
+    hid_t  c_mem_space_id;
+    hid_t  c_file_space_id;
+    hid_t  c_xfer_prp;
+    herr_t status;
+    size_t max_len;
+
+    hvl_t *  c_buf;
+    hsize_t  i;
+    hssize_t num_elem;
+
+    c_dset_id       = (hid_t)*dset_id;
+    c_mem_type_id   = (hid_t)*mem_type_id;
+    c_mem_space_id  = (hid_t)*mem_space_id;
+    c_file_space_id = (hid_t)*file_space_id;
+    c_xfer_prp      = (hid_t)*xfer_prp;
+
+    max_len  = (size_t)dims[0];
+    num_elem = H5Sget_select_npoints(c_mem_space_id);
+    if (num_elem != (hssize_t)dims[1])
+        return ret_value;
+
+    c_buf = (hvl_t *)HDmalloc((size_t)num_elem * sizeof(hvl_t));
+    if (c_buf == NULL)
+        return ret_value;
+    /*
+     * Call H5Dread function.
+     */
+    status = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, c_buf);
+    if (status < 0)
+        goto DONE;
+    for (i = 0; i < (hsize_t)num_elem; i++) {
+        len[i] = (size_t_f)c_buf[i].len;
+        memcpy(&buf[i * max_len], c_buf[i].p, c_buf[i].len * sizeof(int_f));
+    }
+    H5Dvlen_reclaim(c_mem_type_id, c_mem_space_id, H5P_DEFAULT, c_buf);
+    ret_value = 0;
 DONE:
-  HDfree(c_buf);
-  return ret_value;
+    HDfree(c_buf);
+    return ret_value;
 }
 
 /****if* H5Df/nh5dwrite_vl_string_c
@@ -1763,69 +1846,73 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5dwrite_vl_string_c( hid_t_f *dset_id ,  hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims, size_t_f *len)
+nh5dwrite_vl_string_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                      hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims, size_t_f *len)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_dset_id;
-  hid_t c_mem_type_id;
-  hid_t c_mem_space_id;
-  hid_t c_file_space_id;
-  hid_t c_xfer_prp;
-  herr_t status;
-  char *tmp, *tmp_p;
-  size_t max_len;
-
-  char **c_buf;
-  hsize_t i;
-  hsize_t num_elem;
-
-  max_len = (size_t)dims[0];
-  num_elem = (hsize_t)dims[1];
-
-  c_dset_id       = (hid_t)*dset_id;
-  c_mem_type_id   = (hid_t)*mem_type_id;
-  c_mem_space_id  = (hid_t)*mem_space_id;
-  c_file_space_id = (hid_t)*file_space_id;
-  c_xfer_prp      = (hid_t)*xfer_prp;
-
-  /*
-   * Allocate arra of character pointers
-   */
-  c_buf = (char **)HDmalloc((size_t)num_elem * sizeof(char *));
-  if (c_buf == NULL) return ret_value;
-
-  /* Copy data to long C string */
-  tmp = (char *)HD5f2cstring(buf, (size_t)(max_len*num_elem));
-  if (tmp == NULL) { HDfree(c_buf);
-                     return ret_value;
-                   }
-  /*
-   * Move data from temorary buffer
-   */
-   tmp_p = tmp;
-   for (i=0; i < num_elem; i++) {
-        c_buf[i] = (char *) HDmalloc((size_t)len[i]+1);
+    int    ret_value = -1;
+    hid_t  c_dset_id;
+    hid_t  c_mem_type_id;
+    hid_t  c_mem_space_id;
+    hid_t  c_file_space_id;
+    hid_t  c_xfer_prp;
+    herr_t status;
+    char * tmp, *tmp_p;
+    size_t max_len;
+
+    char ** c_buf;
+    hsize_t i;
+    hsize_t num_elem;
+
+    max_len  = (size_t)dims[0];
+    num_elem = (hsize_t)dims[1];
+
+    c_dset_id       = (hid_t)*dset_id;
+    c_mem_type_id   = (hid_t)*mem_type_id;
+    c_mem_space_id  = (hid_t)*mem_space_id;
+    c_file_space_id = (hid_t)*file_space_id;
+    c_xfer_prp      = (hid_t)*xfer_prp;
+
+    /*
+     * Allocate arra of character pointers
+     */
+    c_buf = (char **)HDmalloc((size_t)num_elem * sizeof(char *));
+    if (c_buf == NULL)
+        return ret_value;
+
+    /* Copy data to long C string */
+    tmp = (char *)HD5f2cstring(buf, (size_t)(max_len * num_elem));
+    if (tmp == NULL) {
+        HDfree(c_buf);
+        return ret_value;
+    }
+    /*
+     * Move data from temorary buffer
+     */
+    tmp_p = tmp;
+    for (i = 0; i < num_elem; i++) {
+        c_buf[i] = (char *)HDmalloc((size_t)len[i] + 1);
         memcpy(c_buf[i], tmp_p, (size_t)len[i]);
         c_buf[i][len[i]] = '\0';
-        tmp_p = tmp_p + max_len;
-   }
+        tmp_p            = tmp_p + max_len;
+    }
 
-  /*
-   * Call H5Dwrite function.
-   */
-   status = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, c_buf);
+    /*
+     * Call H5Dwrite function.
+     */
+    status = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, c_buf);
 
-  if( status < 0) goto DONE;
-  ret_value = 0;
+    if (status < 0)
+        goto DONE;
+    ret_value = 0;
 DONE:
-  H5Dvlen_reclaim(c_mem_type_id, c_mem_space_id, H5P_DEFAULT, c_buf);
-  HDfree(c_buf);
-  HDfree(tmp);
-  return ret_value;
+    H5Dvlen_reclaim(c_mem_type_id, c_mem_space_id, H5P_DEFAULT, c_buf);
+    HDfree(c_buf);
+    HDfree(tmp);
+    return ret_value;
 }
 /****if* H5Df/nh5dread_vl_string_c
  * NAME
@@ -1850,64 +1937,68 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5dread_vl_string_c( hid_t_f *dset_id ,  hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims, size_t_f *len)
+nh5dread_vl_string_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                     hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims, size_t_f *len)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_dset_id;
-  hid_t c_mem_type_id;
-  hid_t c_mem_space_id;
-  hid_t c_file_space_id;
-  hid_t c_xfer_prp;
-  herr_t status;
-  char *tmp, *tmp_p;
-  size_t max_len;
-
-  char **c_buf;
-  hsize_t i;
-  hsize_t num_elem;
-
-  max_len = (size_t)dims[0];
-  num_elem = (hsize_t)dims[1];
-
-  c_dset_id       = (hid_t)*dset_id;
-  c_mem_type_id   = (hid_t)*mem_type_id;
-  c_mem_space_id  = (hid_t)*mem_space_id;
-  c_file_space_id = (hid_t)*file_space_id;
-  c_xfer_prp      = (hid_t)*xfer_prp;
-
-  /*
-   * Allocate array of character pointers
-   */
-  c_buf = (char **)HDmalloc((size_t)num_elem * sizeof(char *));
-  if (c_buf == NULL) return ret_value;
-
-  /*
-   * Call H5Dread function.
-   */
-   status = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, c_buf);
-   if (status < 0) { HDfree(c_buf);
-                     return ret_value;
-                   }
-  /* Copy data to long C string */
-  tmp = (char *)HDmalloc((size_t)(max_len*num_elem) +1);
-  tmp_p = tmp;
-  for (i=0; i<max_len*num_elem; i++) tmp[i] = ' ';
-  tmp[max_len*num_elem] = '\0';
-  for (i=0; i < num_elem; i++) {
+    int    ret_value = -1;
+    hid_t  c_dset_id;
+    hid_t  c_mem_type_id;
+    hid_t  c_mem_space_id;
+    hid_t  c_file_space_id;
+    hid_t  c_xfer_prp;
+    herr_t status;
+    char * tmp, *tmp_p;
+    size_t max_len;
+
+    char ** c_buf;
+    hsize_t i;
+    hsize_t num_elem;
+
+    max_len  = (size_t)dims[0];
+    num_elem = (hsize_t)dims[1];
+
+    c_dset_id       = (hid_t)*dset_id;
+    c_mem_type_id   = (hid_t)*mem_type_id;
+    c_mem_space_id  = (hid_t)*mem_space_id;
+    c_file_space_id = (hid_t)*file_space_id;
+    c_xfer_prp      = (hid_t)*xfer_prp;
+
+    /*
+     * Allocate array of character pointers
+     */
+    c_buf = (char **)HDmalloc((size_t)num_elem * sizeof(char *));
+    if (c_buf == NULL)
+        return ret_value;
+
+    /*
+     * Call H5Dread function.
+     */
+    status = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, c_buf);
+    if (status < 0) {
+        HDfree(c_buf);
+        return ret_value;
+    }
+    /* Copy data to long C string */
+    tmp   = (char *)HDmalloc((size_t)(max_len * num_elem) + 1);
+    tmp_p = tmp;
+    for (i = 0; i < max_len * num_elem; i++)
+        tmp[i] = ' ';
+    tmp[max_len * num_elem] = '\0';
+    for (i = 0; i < num_elem; i++) {
         memcpy(tmp_p, c_buf[i], strlen(c_buf[i]));
         len[i] = (size_t_f)strlen(c_buf[i]);
-        tmp_p = tmp_p + max_len;
-  }
-  HD5packFstring(tmp, _fcdtocp(buf), (size_t)(max_len*num_elem));
-  ret_value = 0;
-  H5Dvlen_reclaim(c_mem_type_id, c_mem_space_id, H5P_DEFAULT, c_buf);
-  HDfree(c_buf);
-  HDfree(tmp);
-  return ret_value;
+        tmp_p  = tmp_p + max_len;
+    }
+    HD5packFstring(tmp, _fcdtocp(buf), (size_t)(max_len * num_elem));
+    ret_value = 0;
+    H5Dvlen_reclaim(c_mem_type_id, c_mem_space_id, H5P_DEFAULT, c_buf);
+    HDfree(c_buf);
+    HDfree(tmp);
+    return ret_value;
 }
 
 /****if* H5Df/nh5dwrite_vl_real_c
@@ -1934,53 +2025,56 @@ nh5dread_vl_string_c( hid_t_f *dset_id ,  hid_t_f *mem_type_id, hid_t_f *mem_spa
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5dwrite_vl_real_c ( hid_t_f *dset_id ,  hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, real_f *buf, hsize_t_f *dims, size_t_f *len)
+nh5dwrite_vl_real_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                    hid_t_f *xfer_prp, real_f *buf, hsize_t_f *dims, size_t_f *len)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_dset_id;
-  hid_t c_mem_type_id;
-  hid_t c_mem_space_id;
-  hid_t c_file_space_id;
-  hid_t c_xfer_prp;
-  herr_t status;
-  real_f *tmp;
-  size_t max_len;
-
-  hvl_t *c_buf;
-  hsize_t i;
-  hsize_t num_elem;
-
-  max_len = (size_t)dims[0];
-  num_elem = (hsize_t)dims[1];
-
-  c_dset_id       = (hid_t)*dset_id;
-  c_mem_type_id   = (hid_t)*mem_type_id;
-  c_mem_space_id  = (hid_t)*mem_space_id;
-  c_file_space_id = (hid_t)*file_space_id;
-  c_xfer_prp      = (hid_t)*xfer_prp;
-
-  c_buf = (hvl_t *)HDmalloc((size_t)num_elem * sizeof(hvl_t));
-  if (c_buf == NULL) return ret_value;
-  tmp = (real_f *)buf;
-  for (i=0; i < num_elem; i++) {
-       c_buf[i].len = (size_t)len[i];
-       c_buf[i].p   = tmp;
-       tmp = tmp + max_len;
- }
-  /*
-   * Call H5Dwrite function.
-   */
-   status = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, c_buf);
-
-  if( status < 0) goto DONE;
-  ret_value = 0;
+    int     ret_value = -1;
+    hid_t   c_dset_id;
+    hid_t   c_mem_type_id;
+    hid_t   c_mem_space_id;
+    hid_t   c_file_space_id;
+    hid_t   c_xfer_prp;
+    herr_t  status;
+    real_f *tmp;
+    size_t  max_len;
+
+    hvl_t * c_buf;
+    hsize_t i;
+    hsize_t num_elem;
+
+    max_len  = (size_t)dims[0];
+    num_elem = (hsize_t)dims[1];
+
+    c_dset_id       = (hid_t)*dset_id;
+    c_mem_type_id   = (hid_t)*mem_type_id;
+    c_mem_space_id  = (hid_t)*mem_space_id;
+    c_file_space_id = (hid_t)*file_space_id;
+    c_xfer_prp      = (hid_t)*xfer_prp;
+
+    c_buf = (hvl_t *)HDmalloc((size_t)num_elem * sizeof(hvl_t));
+    if (c_buf == NULL)
+        return ret_value;
+    tmp = (real_f *)buf;
+    for (i = 0; i < num_elem; i++) {
+        c_buf[i].len = (size_t)len[i];
+        c_buf[i].p   = tmp;
+        tmp          = tmp + max_len;
+    }
+    /*
+     * Call H5Dwrite function.
+     */
+    status = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, c_buf);
+
+    if (status < 0)
+        goto DONE;
+    ret_value = 0;
 DONE:
-  HDfree(c_buf);
-  return ret_value;
+    HDfree(c_buf);
+    return ret_value;
 }
 
 /****if* H5Df/nh5dread_vl_real_c
@@ -2008,52 +2102,56 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5dread_vl_real_c ( hid_t_f *dset_id ,  hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, real_f *buf, hsize_t_f *dims, size_t_f *len)
+nh5dread_vl_real_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+                   hid_t_f *xfer_prp, real_f *buf, hsize_t_f *dims, size_t_f *len)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_dset_id;
-  hid_t c_mem_type_id;
-  hid_t c_mem_space_id;
-  hid_t c_file_space_id;
-  hid_t c_xfer_prp;
-  herr_t status;
-  size_t max_len;
-
-  hvl_t *c_buf;
-  hsize_t i;
-  hssize_t num_elem;
-
-  c_dset_id       = (hid_t)*dset_id;
-  c_mem_type_id   = (hid_t)*mem_type_id;
-  c_mem_space_id  = (hid_t)*mem_space_id;
-  c_file_space_id = (hid_t)*file_space_id;
-  c_xfer_prp      = (hid_t)*xfer_prp;
-
-  max_len = (size_t)dims[0];
-  num_elem = H5Sget_select_npoints(c_mem_space_id);
-  if(num_elem != (hssize_t)dims[1]) return ret_value;
-
-  c_buf = (hvl_t *)HDmalloc((size_t)num_elem * sizeof(hvl_t));
-  if (c_buf == NULL) return ret_value;
-  /*
-   * Call H5Dread function.
-   */
-   status = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, c_buf);
- if ( status <0  )  goto DONE;
-  for (i=0; i < (hsize_t)num_elem; i++) {
-       len[i] = (size_t_f)c_buf[i].len;
-       memcpy(&buf[i*max_len], c_buf[i].p, c_buf[i].len*sizeof(real_f));
-  }
-
-  H5Dvlen_reclaim(c_mem_type_id, c_mem_space_id, H5P_DEFAULT, c_buf);
-  ret_value = 0;
+    int    ret_value = -1;
+    hid_t  c_dset_id;
+    hid_t  c_mem_type_id;
+    hid_t  c_mem_space_id;
+    hid_t  c_file_space_id;
+    hid_t  c_xfer_prp;
+    herr_t status;
+    size_t max_len;
+
+    hvl_t *  c_buf;
+    hsize_t  i;
+    hssize_t num_elem;
+
+    c_dset_id       = (hid_t)*dset_id;
+    c_mem_type_id   = (hid_t)*mem_type_id;
+    c_mem_space_id  = (hid_t)*mem_space_id;
+    c_file_space_id = (hid_t)*file_space_id;
+    c_xfer_prp      = (hid_t)*xfer_prp;
+
+    max_len  = (size_t)dims[0];
+    num_elem = H5Sget_select_npoints(c_mem_space_id);
+    if (num_elem != (hssize_t)dims[1])
+        return ret_value;
+
+    c_buf = (hvl_t *)HDmalloc((size_t)num_elem * sizeof(hvl_t));
+    if (c_buf == NULL)
+        return ret_value;
+    /*
+     * Call H5Dread function.
+     */
+    status = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, c_buf);
+    if (status < 0)
+        goto DONE;
+    for (i = 0; i < (hsize_t)num_elem; i++) {
+        len[i] = (size_t_f)c_buf[i].len;
+        memcpy(&buf[i * max_len], c_buf[i].p, c_buf[i].len * sizeof(real_f));
+    }
+
+    H5Dvlen_reclaim(c_mem_type_id, c_mem_space_id, H5P_DEFAULT, c_buf);
+    ret_value = 0;
 DONE:
-  HDfree(c_buf);
-  return ret_value;
+    HDfree(c_buf);
+    return ret_value;
 }
 
 /****if* H5Df/h5dfillc_c
@@ -2075,19 +2173,19 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5dfillc_c (_fcd fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, _fcd buf, hid_t_f *mem_type_id)
+nh5dfillc_c(_fcd fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, _fcd buf, hid_t_f *mem_type_id)
 /******/
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5dfill_c  function.
-      */
-     ret_value = h5dfill_c(_fcdtocp(fill_value), fill_type_id, space_id, _fcdtocp(buf), mem_type_id);
+    /*
+     * Call h5dfill_c  function.
+     */
+    ret_value = h5dfill_c(_fcdtocp(fill_value), fill_type_id, space_id, _fcdtocp(buf), mem_type_id);
 
-     return ret_value;
+    return ret_value;
 }
 /****if* H5Df/h5dfill_c
  * NAME
@@ -2108,101 +2206,106 @@ nh5dfillc_c (_fcd fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, _fcd buf
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-h5dfill_c (void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id)
+h5dfill_c(void *fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void *buf, hid_t_f *mem_type_id)
 /******/
 {
-     int ret_value = -1;
-     herr_t ret;
-     hid_t c_fill_type_id;
-     hid_t c_mem_type_id;
-     hid_t c_space_id;
+    int    ret_value = -1;
+    herr_t ret;
+    hid_t  c_fill_type_id;
+    hid_t  c_mem_type_id;
+    hid_t  c_space_id;
 
-     c_fill_type_id = (hid_t)*fill_type_id;
-     c_mem_type_id = (hid_t)*mem_type_id;
-     c_space_id = (hid_t)*space_id;
+    c_fill_type_id = (hid_t)*fill_type_id;
+    c_mem_type_id  = (hid_t)*mem_type_id;
+    c_space_id     = (hid_t)*space_id;
 
-     /*
-      * Call H5Dfill function.
-      */
-     ret = H5Dfill(fill_value, c_fill_type_id, buf, c_mem_type_id, c_space_id);
+    /*
+     * Call H5Dfill function.
+     */
+    ret = H5Dfill(fill_value, c_fill_type_id, buf, c_mem_type_id, c_space_id);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 int_f
-nh5dfill_integer_c (void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id)
+nh5dfill_integer_c(void *fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void *buf,
+                   hid_t_f *mem_type_id)
 
 {
-     int ret_value = -1;
-     herr_t ret;
-     hid_t c_fill_type_id;
-     hid_t c_mem_type_id;
-     hid_t c_space_id;
+    int    ret_value = -1;
+    herr_t ret;
+    hid_t  c_fill_type_id;
+    hid_t  c_mem_type_id;
+    hid_t  c_space_id;
 
-     c_fill_type_id = (hid_t)*fill_type_id;
-     c_mem_type_id = (hid_t)*mem_type_id;
-     c_space_id = (hid_t)*space_id;
+    c_fill_type_id = (hid_t)*fill_type_id;
+    c_mem_type_id  = (hid_t)*mem_type_id;
+    c_space_id     = (hid_t)*space_id;
 
-     /*
-      * Call H5Dfill function.
-      */
-     ret = H5Dfill(fill_value, c_fill_type_id, buf, c_mem_type_id, c_space_id);
+    /*
+     * Call H5Dfill function.
+     */
+    ret = H5Dfill(fill_value, c_fill_type_id, buf, c_mem_type_id, c_space_id);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 int_f
-nh5dfill_real_c (void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id)
+nh5dfill_real_c(void *fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void *buf, hid_t_f *mem_type_id)
 
 {
-     int ret_value = -1;
-     herr_t ret;
-     hid_t c_fill_type_id;
-     hid_t c_mem_type_id;
-     hid_t c_space_id;
+    int    ret_value = -1;
+    herr_t ret;
+    hid_t  c_fill_type_id;
+    hid_t  c_mem_type_id;
+    hid_t  c_space_id;
 
-     c_fill_type_id = (hid_t)*fill_type_id;
-     c_mem_type_id = (hid_t)*mem_type_id;
-     c_space_id = (hid_t)*space_id;
+    c_fill_type_id = (hid_t)*fill_type_id;
+    c_mem_type_id  = (hid_t)*mem_type_id;
+    c_space_id     = (hid_t)*space_id;
 
-     /*
-      * Call H5Dfill function.
-      */
-     ret = H5Dfill(fill_value, c_fill_type_id, buf, c_mem_type_id, c_space_id);
+    /*
+     * Call H5Dfill function.
+     */
+    ret = H5Dfill(fill_value, c_fill_type_id, buf, c_mem_type_id, c_space_id);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 int_f
-nh5dfill_double_c (void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id)
+nh5dfill_double_c(void *fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void *buf, hid_t_f *mem_type_id)
 
 {
-     int ret_value = -1;
-     herr_t ret;
-     hid_t c_fill_type_id;
-     hid_t c_mem_type_id;
-     hid_t c_space_id;
+    int    ret_value = -1;
+    herr_t ret;
+    hid_t  c_fill_type_id;
+    hid_t  c_mem_type_id;
+    hid_t  c_space_id;
 
-     c_fill_type_id = (hid_t)*fill_type_id;
-     c_mem_type_id = (hid_t)*mem_type_id;
-     c_space_id = (hid_t)*space_id;
+    c_fill_type_id = (hid_t)*fill_type_id;
+    c_mem_type_id  = (hid_t)*mem_type_id;
+    c_space_id     = (hid_t)*space_id;
 
-     /*
-      * Call H5Dfill function.
-      */
-     ret = H5Dfill(fill_value, c_fill_type_id, buf, c_mem_type_id, c_space_id);
+    /*
+     * Call H5Dfill function.
+     */
+    ret = H5Dfill(fill_value, c_fill_type_id, buf, c_mem_type_id, c_space_id);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Df/h5dget_space_status_c
@@ -2222,27 +2325,28 @@ nh5dfill_double_c (void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id,
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5dget_space_status_c ( hid_t_f *dset_id, int_f *flag)
+nh5dget_space_status_c(hid_t_f *dset_id, int_f *flag)
 /******/
 {
-     int ret_value = -1;
-     herr_t ret;
-     hid_t c_dset_id;
-     H5D_space_status_t c_flag;
+    int                ret_value = -1;
+    herr_t             ret;
+    hid_t              c_dset_id;
+    H5D_space_status_t c_flag;
 
-     c_dset_id = (hid_t)*dset_id;
+    c_dset_id = (hid_t)*dset_id;
 
-     /*
-      * Call H5Dget_space_status
-      */
-     ret = H5Dget_space_status(c_dset_id, &c_flag);
+    /*
+     * Call H5Dget_space_status
+     */
+    ret = H5Dget_space_status(c_dset_id, &c_flag);
 
-     if (ret < 0) return ret_value;
-     *flag = (int_f)c_flag;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    *flag     = (int_f)c_flag;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Df/h5dcreate_anon_c
  * NAME
@@ -2266,25 +2370,25 @@ nh5dget_space_status_c ( hid_t_f *dset_id, int_f *flag)
  *  M. Scot Breitenfeld
  *              February, 2008
  * SOURCE
-*/
+ */
 int_f
-nh5dcreate_anon_c (hid_t_f *loc_id, hid_t_f *type_id, hid_t_f *space_id,
-		   hid_t_f *dcpl_id, hid_t_f *dapl_id, hid_t_f *dset_id)
+nh5dcreate_anon_c(hid_t_f *loc_id, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *dcpl_id, hid_t_f *dapl_id,
+                  hid_t_f *dset_id)
 /******/
 {
-  int ret_value = -1;
+    int ret_value = -1;
 
-  /*
-   * Call H5Dcreate2 function.
-   */
-  if((*dset_id = (hid_t_f)H5Dcreate_anon((hid_t)*loc_id, (hid_t)*type_id, (hid_t)*space_id,
-					 (hid_t)*dcpl_id, (hid_t)*dapl_id)) < 0)
-    goto DONE;
+    /*
+     * Call H5Dcreate2 function.
+     */
+    if ((*dset_id = (hid_t_f)H5Dcreate_anon((hid_t)*loc_id, (hid_t)*type_id, (hid_t)*space_id,
+                                            (hid_t)*dcpl_id, (hid_t)*dapl_id)) < 0)
+        goto DONE;
 
-  ret_value = 0;
+    ret_value = 0;
 
- DONE:
-  return ret_value;
+DONE:
+    return ret_value;
 }
 
 /****if* H5Df/h5dwrite_f_c
@@ -2308,37 +2412,38 @@ nh5dcreate_anon_c (hid_t_f *loc_id, hid_t_f *type_id, hid_t_f *space_id,
  *
  *
  * SOURCE
-*/
+ */
 int_f
-h5dwrite_f_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
-		    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf)
+h5dwrite_f_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+             hid_t_f *xfer_prp, void *buf)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
-  hid_t c_dset_id;
-  hid_t c_mem_type_id;
-  hid_t c_mem_space_id;
-  hid_t c_file_space_id;
-  hid_t c_xfer_prp;
-
-  /*
-   * Define transfer property
-   */
-  c_xfer_prp = (hid_t)*xfer_prp;
-
-  /*
-   * Call H5Dwrite function.
-   */
-  c_dset_id = (hid_t)*dset_id;
-  c_mem_type_id = (hid_t)*mem_type_id;
-  c_mem_space_id = (hid_t)*mem_space_id;
-  c_file_space_id = (hid_t)*file_space_id;
-  ret = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf);
-
-  if (ret < 0) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    int    ret_value = -1;
+    herr_t ret;
+    hid_t  c_dset_id;
+    hid_t  c_mem_type_id;
+    hid_t  c_mem_space_id;
+    hid_t  c_file_space_id;
+    hid_t  c_xfer_prp;
+
+    /*
+     * Define transfer property
+     */
+    c_xfer_prp = (hid_t)*xfer_prp;
+
+    /*
+     * Call H5Dwrite function.
+     */
+    c_dset_id       = (hid_t)*dset_id;
+    c_mem_type_id   = (hid_t)*mem_type_id;
+    c_mem_space_id  = (hid_t)*mem_space_id;
+    c_file_space_id = (hid_t)*file_space_id;
+    ret             = H5Dwrite(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf);
+
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Df/h5dread_f_c
@@ -2366,33 +2471,34 @@ h5dwrite_f_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-h5dread_f_c ( hid_t_f *dset_id ,  hid_t_f *mem_type_id, hid_t_f *mem_space_id,
-	      hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf)
+h5dread_f_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id,
+            hid_t_f *xfer_prp, void *buf)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_dset_id;
-  hid_t c_mem_type_id;
-  hid_t c_mem_space_id;
-  hid_t c_file_space_id;
-  hid_t c_xfer_prp;
-  herr_t status;
-
-  c_dset_id       = (hid_t)*dset_id;
-  c_mem_type_id   = (hid_t)*mem_type_id;
-  c_mem_space_id  = (hid_t)*mem_space_id;
-  c_file_space_id = (hid_t)*file_space_id;
-  c_xfer_prp      = (hid_t)*xfer_prp;
-  /*
-   * Call H5Dread function.
-   */
-  status = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf);
-  if ( status < 0 ) return ret_value;
-
-  ret_value = 0;
-  return ret_value;
+    int    ret_value = -1;
+    hid_t  c_dset_id;
+    hid_t  c_mem_type_id;
+    hid_t  c_mem_space_id;
+    hid_t  c_file_space_id;
+    hid_t  c_xfer_prp;
+    herr_t status;
+
+    c_dset_id       = (hid_t)*dset_id;
+    c_mem_type_id   = (hid_t)*mem_type_id;
+    c_mem_space_id  = (hid_t)*mem_space_id;
+    c_file_space_id = (hid_t)*file_space_id;
+    c_xfer_prp      = (hid_t)*xfer_prp;
+    /*
+     * Call H5Dread function.
+     */
+    status = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf);
+    if (status < 0)
+        return ret_value;
+
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Df/nh5dget_access_plist_c
  * NAME
@@ -2410,22 +2516,22 @@ h5dread_f_c ( hid_t_f *dset_id ,  hid_t_f *mem_type_id, hid_t_f *mem_space_id,
  *  April 13, 2009
  *
  * SOURCE
-*/
+ */
 int_f
-nh5dget_access_plist_c (hid_t_f *dset_id, hid_t_f *plist_id)
+nh5dget_access_plist_c(hid_t_f *dset_id, hid_t_f *plist_id)
 /******/
 {
-  int ret_value = -1;
-  /*
-   * Call H5Dget_access_plist function.
-   */
-  if((*plist_id = (hid_t_f)H5Dget_access_plist((hid_t)*dset_id)) < 0)
-    goto DONE;
+    int ret_value = -1;
+    /*
+     * Call H5Dget_access_plist function.
+     */
+    if ((*plist_id = (hid_t_f)H5Dget_access_plist((hid_t)*dset_id)) < 0)
+        goto DONE;
 
-  ret_value = 0;
+    ret_value = 0;
 
- DONE:
-  return ret_value;
+DONE:
+    return ret_value;
 }
 
 /****if* H5Df/nh5dvlen_reclaim_c
@@ -2434,32 +2540,33 @@ nh5dget_access_plist_c (hid_t_f *dset_id, hid_t_f *plist_id)
  * PURPOSE
  *  Call H5Dvlen_reclaim
  * INPUTS
- *   type_id   - Identifier of the datatype. 
- *   space_id  - Identifier of the dataspace. 
- *   plist_id  - Identifier of the property list used to create the buffer. 
- *   buf       - Pointer to the buffer to be reclaimed.    
+ *   type_id   - Identifier of the datatype.
+ *   space_id  - Identifier of the dataspace.
+ *   plist_id  - Identifier of the property list used to create the buffer.
+ *   buf       - Pointer to the buffer to be reclaimed.
  *
  * RETURNS
  *   0 on success, -1 on failure
  * AUTHOR
  *   M. Scot Breitenfeld
- *   January 15, 2011 
+ *   January 15, 2011
  *
  * SOURCE
-*/
+ */
 int_f
 h5dvlen_reclaim_c(hid_t_f *type_id, hid_t_f *space_id, hid_t_f *plist_id, void *buf)
 /******/
 {
-  int ret_value = -1;
-  herr_t status;
+    int    ret_value = -1;
+    herr_t status;
 
-  /*
-   * Call H5Dvlen_reclaim function.
-   */
-  status = H5Dvlen_reclaim((hid_t)*type_id, (hid_t)*space_id, (hid_t)*plist_id, buf);
-  if ( status < 0 ) return ret_value;
+    /*
+     * Call H5Dvlen_reclaim function.
+     */
+    status = H5Dvlen_reclaim((hid_t)*type_id, (hid_t)*space_id, (hid_t)*plist_id, buf);
+    if (status < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
diff --git a/fortran/src/H5Ef.c b/fortran/src/H5Ef.c
index c89ccd9..12cc87d 100644
--- a/fortran/src/H5Ef.c
+++ b/fortran/src/H5Ef.c
@@ -17,7 +17,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 #include "H5f90.h"
 #include "H5Eprivate.h"
 
@@ -38,18 +38,18 @@
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5eclear_c(hid_t_f *estack_id )
+nh5eclear_c(hid_t_f *estack_id)
 /******/
 {
-  int_f ret_value = 0;
+    int_f ret_value = 0;
 
-  /*
-   * Call H5Eclear function.
-   */
-  if(H5Eclear2((hid_t)*estack_id) < 0)
-      HGOTO_DONE(FAIL)
+    /*
+     * Call H5Eclear function.
+     */
+    if (H5Eclear2((hid_t)*estack_id) < 0)
+        HGOTO_DONE(FAIL)
 
 done:
     return ret_value;
@@ -74,30 +74,30 @@ done:
  *  Bug fix: Added call to close the file with the error messages
  *  EP 11/26/01
  * SOURCE
-*/
+ */
 int_f
-nh5eprint_c1(_fcd name, int_f* namelen)
+nh5eprint_c1(_fcd name, int_f *namelen)
 /******/
 {
-    FILE *file = NULL;
-    char *c_name = NULL;
+    FILE *file      = NULL;
+    char *c_name    = NULL;
     int_f ret_value = 0;
 
-    if(NULL == (c_name = (char*)HD5f2cstring(name, (size_t)*namelen)))
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
         HGOTO_DONE(FAIL)
-    if(NULL == (file = HDfopen(c_name, "a")))
+    if (NULL == (file = HDfopen(c_name, "a")))
         HGOTO_DONE(FAIL)
 
     /*
      * Call H5Eprint2 function.
      */
-    if(H5Eprint2(H5E_DEFAULT, file) < 0)
+    if (H5Eprint2(H5E_DEFAULT, file) < 0)
         HGOTO_DONE(FAIL)
 
 done:
-    if(file)
+    if (file)
         HDfclose(file);
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
 
     return ret_value;
@@ -120,7 +120,7 @@ done:
  *  Wednesday, March 29, 2000
  *
  * SOURCE
-*/
+ */
 int_f
 nh5eprint_c2(void)
 /******/
@@ -130,7 +130,7 @@ nh5eprint_c2(void)
     /*
      * Call H5Eprint2 function.
      */
-    if(H5Eprint2(H5E_DEFAULT, NULL) < 0)
+    if (H5Eprint2(H5E_DEFAULT, NULL) < 0)
         HGOTO_DONE(FAIL)
 
 done:
@@ -155,31 +155,31 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5eget_major_c(int_f* error_no, _fcd name, size_t_f* namelen)
+nh5eget_major_c(int_f *error_no, _fcd name, size_t_f *namelen)
 /******/
 {
-    char *c_name = NULL;
+    char * c_name    = NULL;
     size_t c_namelen = (size_t)*namelen;
-    int_f ret_value = 0;
+    int_f  ret_value = 0;
 
-    if(c_namelen > 0) 
+    if (c_namelen > 0)
         c_name = (char *)HDmalloc(c_namelen + 1);
 
-    if(!c_name)
+    if (!c_name)
         HGOTO_DONE(FAIL)
 
     /*
      * Call H5Eget_msg function.
      */
     H5Eget_msg((hid_t)*error_no, NULL, c_name, c_namelen);
-    HD5packFstring((char*)c_name, _fcdtocp(name), c_namelen);
-    if(!HDstrcmp(c_name, "Invalid major error number"))
+    HD5packFstring((char *)c_name, _fcdtocp(name), c_namelen);
+    if (!HDstrcmp(c_name, "Invalid major error number"))
         HGOTO_DONE(FAIL)
 
 done:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
 
     return ret_value;
@@ -203,19 +203,19 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5eget_minor_c(int_f* error_no, _fcd name, size_t_f* namelen)
+nh5eget_minor_c(int_f *error_no, _fcd name, size_t_f *namelen)
 /******/
 {
-    char *c_name = NULL;
+    char * c_name    = NULL;
     size_t c_namelen = (size_t)*namelen;
-    int_f ret_value = 0;
+    int_f  ret_value = 0;
 
-    if(c_namelen > 0) 
+    if (c_namelen > 0)
         c_name = (char *)HDmalloc(c_namelen + 1);
 
-    if(!c_name)
+    if (!c_name)
         HGOTO_DONE(FAIL)
 
     /*
@@ -223,11 +223,11 @@ nh5eget_minor_c(int_f* error_no, _fcd name, size_t_f* namelen)
      */
     H5Eget_msg((hid_t)*error_no, NULL, c_name, c_namelen);
     HD5packFstring((char *)c_name, _fcdtocp(name), c_namelen);
-    if(!HDstrcmp(c_name, "Invalid minor error number"))
+    if (!HDstrcmp(c_name, "Invalid minor error number"))
         HGOTO_DONE(FAIL)
 
 done:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
 
     return ret_value;
@@ -250,26 +250,25 @@ done:
  * HISTORY
  *  Major bug fix: Function never disabled printing.
  * SOURCE
-*/
+ */
 int_f
-nh5eset_auto_c(int_f* printflag)
+nh5eset_auto_c(int_f *printflag)
 /******/
 {
-    herr_t status = -1;
-    int_f ret_value = 0;
+    herr_t status    = -1;
+    int_f  ret_value = 0;
 
-    if(*printflag == 1)
+    if (*printflag == 1)
         status = H5Eset_auto2(H5E_DEFAULT, (H5E_auto2_t)H5Eprint2, stderr);
-    else if(*printflag == 0)
+    else if (*printflag == 0)
         status = H5Eset_auto2(H5E_DEFAULT, NULL, NULL);
-    if(status < 0)
+    if (status < 0)
         HGOTO_DONE(FAIL)
 
 done:
     return ret_value;
 }
 
-
 /****if* H5Ef/h5eset_auto2_c
  * NAME
  *   h5eset_auto2_c
@@ -279,29 +278,30 @@ done:
  *   estack_id    - Error stack identifier.
  *   func 	 - Function to be called upon an error condition.
  *   client_data - Data passed to the error function.
- *   
+ *
  * RETURNS
  *   0 on success, -1 on failure
  * AUTHOR
  *   M. Scot Breitenfeld
  *   July 22, 2009
  * SOURCE
-*/
+ */
 
 int_f
 h5eset_auto2_c(int_f *printflag, hid_t_f *estack_id, H5E_auto2_t func, void *client_data)
 /******/
 {
-  int ret_val = -1;
-  herr_t status = -1;
+    int    ret_val = -1;
+    herr_t status  = -1;
 
-  if (*printflag == 1 && *estack_id == -1)
-    status = H5Eset_auto2(H5E_DEFAULT, (H5E_auto2_t)H5Eprint2, stderr);
-  else if (*printflag == 1)
-    status = H5Eset_auto2((hid_t)*estack_id, func, client_data);
-  else if (*printflag == 0)
-    status = H5Eset_auto2(H5E_DEFAULT, NULL, NULL);
-  if (status >= 0) ret_val = 0;
+    if (*printflag == 1 && *estack_id == -1)
+        status = H5Eset_auto2(H5E_DEFAULT, (H5E_auto2_t)H5Eprint2, stderr);
+    else if (*printflag == 1)
+        status = H5Eset_auto2((hid_t)*estack_id, func, client_data);
+    else if (*printflag == 0)
+        status = H5Eset_auto2(H5E_DEFAULT, NULL, NULL);
+    if (status >= 0)
+        ret_val = 0;
 
-  return ret_val;
+    return ret_val;
 }
diff --git a/fortran/src/H5FDmpiof.c b/fortran/src/H5FDmpiof.c
index f865dde..2edcfa4 100644
--- a/fortran/src/H5FDmpiof.c
+++ b/fortran/src/H5FDmpiof.c
@@ -18,13 +18,12 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 #include <mpi.h>
 #include "H5public.h"
 
-
 /* Support for C to Fortran translation in MPI */
 #ifndef H5_HAVE_MPI_MULTI_LANG_Comm
 #define MPI_Comm_c2f(comm) (int_f)(comm)
@@ -53,27 +52,28 @@
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
+nh5pset_fapl_mpio_c(hid_t_f *prp_id, int_f *comm, int_f *info)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     MPI_Comm c_comm;
-     MPI_Info c_info;
-     c_comm = MPI_Comm_f2c(*comm);
-     c_info = MPI_Info_f2c(*info);
+    int      ret_value = -1;
+    hid_t    c_prp_id;
+    herr_t   ret;
+    MPI_Comm c_comm;
+    MPI_Info c_info;
+    c_comm = MPI_Comm_f2c(*comm);
+    c_info = MPI_Info_f2c(*info);
 
-     /*
-      * Call H5Pset_mpi function.
-      */
-     c_prp_id = *prp_id;
-     ret = H5Pset_fapl_mpio(c_prp_id, c_comm, c_info);
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    /*
+     * Call H5Pset_mpi function.
+     */
+    c_prp_id = *prp_id;
+    ret      = H5Pset_fapl_mpio(c_prp_id, c_comm, c_info);
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5FDmpiof/h5pget_fapl_mpio_c
  * NAME
@@ -92,27 +92,28 @@ nh5pset_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
+nh5pget_fapl_mpio_c(hid_t_f *prp_id, int_f *comm, int_f *info)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     MPI_Comm c_comm;
-     MPI_Info c_info;
+    int      ret_value = -1;
+    hid_t    c_prp_id;
+    herr_t   ret;
+    MPI_Comm c_comm;
+    MPI_Info c_info;
 
-     /*
-      * Call H5Pget_mpi function.
-      */
-     c_prp_id = *prp_id;
-     ret = H5Pget_fapl_mpio(c_prp_id, &c_comm, &c_info);
-     if (ret < 0) return ret_value;
-     *comm = (int_f) MPI_Comm_c2f(c_comm);
-     *info = (int_f) MPI_Info_c2f(c_info);
-     ret_value = 0;
-     return ret_value;
+    /*
+     * Call H5Pget_mpi function.
+     */
+    c_prp_id = *prp_id;
+    ret      = H5Pget_fapl_mpio(c_prp_id, &c_comm, &c_info);
+    if (ret < 0)
+        return ret_value;
+    *comm     = (int_f)MPI_Comm_c2f(c_comm);
+    *info     = (int_f)MPI_Info_c2f(c_info);
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5FDmpiof/h5pset_dxpl_mpio_c
  * NAME
@@ -131,38 +132,39 @@ nh5pget_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
+nh5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f *data_xfer_mode)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     H5FD_mpio_xfer_t c_data_xfer_mode;
-/*
-     switch (*data_xfer_mode) {
+    int              ret_value = -1;
+    hid_t            c_prp_id;
+    herr_t           ret;
+    H5FD_mpio_xfer_t c_data_xfer_mode;
+    /*
+         switch (*data_xfer_mode) {
 
-        case H5FD_MPIO_INDEPENDENT_F:
-             c_data_xfer_mode = H5FD_MPIO_INDEPENDENT;
-             break;
+            case H5FD_MPIO_INDEPENDENT_F:
+                 c_data_xfer_mode = H5FD_MPIO_INDEPENDENT;
+                 break;
 
-        case H5FD_MPIO_COLLECTIVE_F:
-             c_data_xfer_mode = H5FD_MPIO_COLLECTIVE;
-             break;
-        default:
-          return ret_value;
-      }
-*/
-     c_data_xfer_mode = (H5FD_mpio_xfer_t)*data_xfer_mode;
-     /*
-      * Call H5Pset_dxpl_mpio function.
-      */
-     c_prp_id = *prp_id;
-     ret = H5Pset_dxpl_mpio(c_prp_id, c_data_xfer_mode);
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+            case H5FD_MPIO_COLLECTIVE_F:
+                 c_data_xfer_mode = H5FD_MPIO_COLLECTIVE;
+                 break;
+            default:
+              return ret_value;
+          }
+    */
+    c_data_xfer_mode = (H5FD_mpio_xfer_t)*data_xfer_mode;
+    /*
+     * Call H5Pset_dxpl_mpio function.
+     */
+    c_prp_id = *prp_id;
+    ret      = H5Pset_dxpl_mpio(c_prp_id, c_data_xfer_mode);
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5FDmpiof/h5pget_dxpl_mpio_c
@@ -182,40 +184,41 @@ nh5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
+nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f *data_xfer_mode)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     H5FD_mpio_xfer_t c_data_xfer_mode;
+    int              ret_value = -1;
+    hid_t            c_prp_id;
+    herr_t           ret;
+    H5FD_mpio_xfer_t c_data_xfer_mode;
 
-     /*
-      * Call H5Pget_xfer function.
-      */
-     c_prp_id = *prp_id;
-     ret = H5Pget_dxpl_mpio(c_prp_id, &c_data_xfer_mode);
-     if (ret < 0) return ret_value;
-     *data_xfer_mode = (int_f)c_data_xfer_mode;
-/*
-     switch (c_data_xfer_mode) {
+    /*
+     * Call H5Pget_xfer function.
+     */
+    c_prp_id = *prp_id;
+    ret      = H5Pget_dxpl_mpio(c_prp_id, &c_data_xfer_mode);
+    if (ret < 0)
+        return ret_value;
+    *data_xfer_mode = (int_f)c_data_xfer_mode;
+    /*
+         switch (c_data_xfer_mode) {
 
-        case H5FD_MPIO_INDEPENDENT:
-             *data_xfer_mode = H5FD_MPIO_INDEPENDENT_F;
-             break;
+            case H5FD_MPIO_INDEPENDENT:
+                 *data_xfer_mode = H5FD_MPIO_INDEPENDENT_F;
+                 break;
 
-        case H5FD_MPIO_COLLECTIVE:
-             *data_xfer_mode = H5FD_MPIO_COLLECTIVE_F;
-             break;
+            case H5FD_MPIO_COLLECTIVE:
+                 *data_xfer_mode = H5FD_MPIO_COLLECTIVE_F;
+                 break;
 
-        default:
-          return ret_value;
-      }
-*/
-     ret_value = 0;
-     return ret_value;
+            default:
+              return ret_value;
+          }
+    */
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_mpio_actual_io_mode_c
@@ -235,22 +238,22 @@ nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
  *  M. Scot Breitenfeld
  *  July 27, 2012
  * SOURCE
-*/
+ */
 int_f
 nh5pget_mpio_actual_io_mode_c(hid_t_f *dxpl_id, int_f *actual_io_mode)
 /******/
 {
-  int ret_value = -1;
-  H5D_mpio_actual_io_mode_t c_actual_io_mode;
+    int                       ret_value = -1;
+    H5D_mpio_actual_io_mode_t c_actual_io_mode;
 
-  /*
-   * Call H5Pget_mpio_actual_io_mode_f function.
-   */
-  if( (H5Pget_mpio_actual_io_mode((hid_t)*dxpl_id, &c_actual_io_mode)) <0 )
-    return ret_value; /* error occurred */
+    /*
+     * Call H5Pget_mpio_actual_io_mode_f function.
+     */
+    if ((H5Pget_mpio_actual_io_mode((hid_t)*dxpl_id, &c_actual_io_mode)) < 0)
+        return ret_value; /* error occurred */
 
-  *actual_io_mode =(int_f)c_actual_io_mode;
+    *actual_io_mode = (int_f)c_actual_io_mode;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c
index 8d3dba6..77f372b 100644
--- a/fortran/src/H5Ff.c
+++ b/fortran/src/H5Ff.c
@@ -17,7 +17,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 #include "H5Eprivate.h"
@@ -41,54 +41,55 @@
  *  Elena Pourmal
  *              Monday, July 26, 1999
  * SOURCE
-*/
+ */
 int_f
-nh5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f* crt_prp, hid_t_f *acc_prp, hid_t_f *file_id)
+nh5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *crt_prp, hid_t_f *acc_prp,
+             hid_t_f *file_id)
 /******/
 {
-     int ret_value = -1;
-     char *c_name;
-     int_f c_namelen;
-     hid_t c_file_id;
-     unsigned c_access_flags;
-     hid_t c_crt_prp;
-     hid_t c_acc_prp;
-
-     /*
-      * Define access flags
-      */
-     c_access_flags = (unsigned) *access_flags;
-
-     /*
-      * Define creation property
-      */
-     c_crt_prp = *crt_prp;
-
-     /*
-      * Define access property
-      */
-     c_acc_prp = *acc_prp;
-
-     /*
-      * Convert FORTRAN name to C name
-      */
-     c_namelen = *namelen;
-     c_name = (char *)HD5f2cstring(name, (size_t)c_namelen);
-     if(c_name == NULL)
-         return ret_value;
-
-     /*
-      * Call H5Fcreate function.
-      */
-     c_file_id = H5Fcreate(c_name, c_access_flags, c_crt_prp, c_acc_prp);
-
-     if (c_file_id >= 0) {
-         ret_value = 0;
-         *file_id = c_file_id;
-     }
-
-     HDfree(c_name);
-     return ret_value;
+    int      ret_value = -1;
+    char *   c_name;
+    int_f    c_namelen;
+    hid_t    c_file_id;
+    unsigned c_access_flags;
+    hid_t    c_crt_prp;
+    hid_t    c_acc_prp;
+
+    /*
+     * Define access flags
+     */
+    c_access_flags = (unsigned)*access_flags;
+
+    /*
+     * Define creation property
+     */
+    c_crt_prp = *crt_prp;
+
+    /*
+     * Define access property
+     */
+    c_acc_prp = *acc_prp;
+
+    /*
+     * Convert FORTRAN name to C name
+     */
+    c_namelen = *namelen;
+    c_name    = (char *)HD5f2cstring(name, (size_t)c_namelen);
+    if (c_name == NULL)
+        return ret_value;
+
+    /*
+     * Call H5Fcreate function.
+     */
+    c_file_id = H5Fcreate(c_name, c_access_flags, c_crt_prp, c_acc_prp);
+
+    if (c_file_id >= 0) {
+        ret_value = 0;
+        *file_id  = c_file_id;
+    }
+
+    HDfree(c_name);
+    return ret_value;
 }
 
 /****if* H5Ff/h5fflush_c
@@ -107,31 +108,31 @@ nh5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f* crt_prp, h
  *  Xiangyang Su
  *              Friday, November 5, 1999
  * SOURCE
-*/
+ */
 int_f
-nh5fflush_c (hid_t_f *object_id, int_f *scope)
+nh5fflush_c(hid_t_f *object_id, int_f *scope)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_file_id;
-     H5F_scope_t  c_scope;
-     htri_t status;
-     c_scope = (H5F_scope_t)*scope;
+    int         ret_value = -1;
+    hid_t       c_file_id;
+    H5F_scope_t c_scope;
+    htri_t      status;
+    c_scope = (H5F_scope_t)*scope;
 
-     /*
-      * Call H5Fflush function.
-      */
+    /*
+     * Call H5Fflush function.
+     */
 
-     c_file_id = *object_id;
+    c_file_id = *object_id;
 
-     status = H5Fflush(c_file_id, c_scope);
+    status = H5Fflush(c_file_id, c_scope);
 
-     if (status >= 0)  ret_value = 0;
+    if (status >= 0)
+        ret_value = 0;
 
-     return ret_value;
+    return ret_value;
 }
 
-
 /****if* H5Ff/h5fmount_c
  * NAME
  *        h5fmount_c
@@ -149,45 +150,47 @@ nh5fflush_c (hid_t_f *object_id, int_f *scope)
  *  Xiangyang Su
  *              Monday, October 25, 1999
  * HISTORY
-*/
+ */
 int_f
-nh5fmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, hid_t_f *acc_prp)
+nh5fmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, hid_t_f *acc_prp)
 /******/
 {
-     int ret_value = -1;
-     char *c_name;
-     int_f c_namelen;
-     hid_t c_loc_id;
-     hid_t c_file_id;
-     hid_t c_acc_prp;
-     htri_t status;
-
-     /*
-      * Define access property
-      */
-     c_acc_prp = *acc_prp;
-/*
-     if ( H5P_DEFAULT_F == c_acc_prp ) c_acc_prp = H5P_DEFAULT;
-*/
-
-     c_loc_id = *loc_id;
-     c_file_id = *file_id;
-     /*
-      * Convert FORTRAN name to C name
-      */
-     c_namelen = *namelen;
-     c_name = (char *)HD5f2cstring(dsetname, (size_t)c_namelen);
-     if (c_name == NULL) return ret_value;
-
-     /*
-      * Call H5Fmount function.
-      */
-     status = H5Fmount(c_loc_id, c_name, c_file_id, c_acc_prp);
-
-     if (status >= 0)  ret_value = 0;
-
-     HDfree(c_name);
-     return ret_value;
+    int    ret_value = -1;
+    char * c_name;
+    int_f  c_namelen;
+    hid_t  c_loc_id;
+    hid_t  c_file_id;
+    hid_t  c_acc_prp;
+    htri_t status;
+
+    /*
+     * Define access property
+     */
+    c_acc_prp = *acc_prp;
+    /*
+         if ( H5P_DEFAULT_F == c_acc_prp ) c_acc_prp = H5P_DEFAULT;
+    */
+
+    c_loc_id  = *loc_id;
+    c_file_id = *file_id;
+    /*
+     * Convert FORTRAN name to C name
+     */
+    c_namelen = *namelen;
+    c_name    = (char *)HD5f2cstring(dsetname, (size_t)c_namelen);
+    if (c_name == NULL)
+        return ret_value;
+
+    /*
+     * Call H5Fmount function.
+     */
+    status = H5Fmount(c_loc_id, c_name, c_file_id, c_acc_prp);
+
+    if (status >= 0)
+        ret_value = 0;
+
+    HDfree(c_name);
+    return ret_value;
 }
 
 /****if* H5Ff/h5funmount_c
@@ -205,38 +208,38 @@ nh5fmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, h
  *  Xiangyang Su
  *              Monday, October 25, 1999
  * SOURCE
-*/
+ */
 int_f
-nh5funmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen)
+nh5funmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen)
 /******/
 {
-     int ret_value = -1;
-     char *c_name;
-     int_f c_namelen;
-     hid_t c_loc_id;
-     htri_t status;
-
-     c_loc_id = *loc_id;
-
-     /*
-      * Convert FORTRAN name to C name
-      */
-     c_namelen = *namelen;
-     c_name = (char *)HD5f2cstring(dsetname, (size_t)c_namelen);
-     if (c_name == NULL) return ret_value;
-
-     /*
-      * Call H5Fmount function.
-      */
-     status = H5Funmount(c_loc_id, c_name);
-
-     if (status >= 0)  ret_value = 0;
-
-     HDfree(c_name);
-     return ret_value;
-}
+    int    ret_value = -1;
+    char * c_name;
+    int_f  c_namelen;
+    hid_t  c_loc_id;
+    htri_t status;
 
+    c_loc_id = *loc_id;
 
+    /*
+     * Convert FORTRAN name to C name
+     */
+    c_namelen = *namelen;
+    c_name    = (char *)HD5f2cstring(dsetname, (size_t)c_namelen);
+    if (c_name == NULL)
+        return ret_value;
+
+    /*
+     * Call H5Fmount function.
+     */
+    status = H5Funmount(c_loc_id, c_name);
+
+    if (status >= 0)
+        ret_value = 0;
+
+    HDfree(c_name);
+    return ret_value;
+}
 
 /****if* H5Ff/h5fopen_c
  * NAME
@@ -256,49 +259,49 @@ nh5funmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen)
  *  Elena Pourmal
  *              Tuesday, August 3, 1999
  * SOURCE
-*/
+ */
 int_f
-nh5fopen_c (_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hid_t_f *file_id)
+nh5fopen_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hid_t_f *file_id)
 /******/
 {
-     int ret_value = -1;
-     char *c_name;
-     int_f c_namelen;
-     hid_t c_file_id;
-     unsigned c_access_flags;
-     hid_t c_acc_prp;
-     c_acc_prp = (hid_t)*acc_prp;
-
-     /*
-      * Define access flags
-      */
-     c_access_flags = (unsigned) *access_flags;
-
-     /*
-      * Define access property
-      */
-     c_acc_prp = *acc_prp;
-
-     /*
-      * Convert FORTRAN name to C name
-      */
-     c_namelen = *namelen;
-     c_name = (char *)HD5f2cstring(name, (size_t)c_namelen);
-     if(c_name == NULL)
-         return ret_value;
-
-     /*
-      * Call H5Fopen function.
-      */
-     c_file_id = H5Fopen(c_name, c_access_flags, c_acc_prp);
-
-     if(c_file_id >= 0) {
-         ret_value = 0;
-         *file_id = (hid_t_f)c_file_id;
-     } /* end if */
-
-     HDfree(c_name);
-     return ret_value;
+    int      ret_value = -1;
+    char *   c_name;
+    int_f    c_namelen;
+    hid_t    c_file_id;
+    unsigned c_access_flags;
+    hid_t    c_acc_prp;
+    c_acc_prp = (hid_t)*acc_prp;
+
+    /*
+     * Define access flags
+     */
+    c_access_flags = (unsigned)*access_flags;
+
+    /*
+     * Define access property
+     */
+    c_acc_prp = *acc_prp;
+
+    /*
+     * Convert FORTRAN name to C name
+     */
+    c_namelen = *namelen;
+    c_name    = (char *)HD5f2cstring(name, (size_t)c_namelen);
+    if (c_name == NULL)
+        return ret_value;
+
+    /*
+     * Call H5Fopen function.
+     */
+    c_file_id = H5Fopen(c_name, c_access_flags, c_acc_prp);
+
+    if (c_file_id >= 0) {
+        ret_value = 0;
+        *file_id  = (hid_t_f)c_file_id;
+    } /* end if */
+
+    HDfree(c_name);
+    return ret_value;
 }
 
 /****if* H5Ff/h5freopen_c
@@ -316,22 +319,23 @@ nh5fopen_c (_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hi
  *  Xiangyang Su
  *              Wednesday, November 3, 1999
  * SOURCE
-*/
+ */
 int_f
-nh5freopen_c (hid_t_f *file_id1, hid_t_f *file_id2)
+nh5freopen_c(hid_t_f *file_id1, hid_t_f *file_id2)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_file_id1, c_file_id2;
+    int   ret_value = -1;
+    hid_t c_file_id1, c_file_id2;
 
-     c_file_id1 = *file_id1;
-     c_file_id2 = H5Freopen(c_file_id1);
+    c_file_id1 = *file_id1;
+    c_file_id2 = H5Freopen(c_file_id1);
 
-     if (c_file_id2 < 0) return ret_value;
-     *file_id2 = (hid_t_f)c_file_id2;
+    if (c_file_id2 < 0)
+        return ret_value;
+    *file_id2 = (hid_t_f)c_file_id2;
 
-     ret_value = 0;
-     return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Ff/h5fget_create_plist_c
@@ -349,22 +353,23 @@ nh5freopen_c (hid_t_f *file_id1, hid_t_f *file_id2)
  *  Elena Pourmal, Xiangyang Su
  *              Wednesday, November 3, 1999
  * SOURCE
-*/
+ */
 int_f
-nh5fget_create_plist_c (hid_t_f *file_id, hid_t_f *prop_id)
+nh5fget_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;
+    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);
+    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;
+    if (c_prop_id < 0)
+        return ret_value;
+    *prop_id = (hid_t_f)c_prop_id;
 
-     ret_value = 0;
-     return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Ff/h5fget_access_plist_c
@@ -384,22 +389,23 @@ nh5fget_create_plist_c (hid_t_f *file_id, hid_t_f *prop_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5fget_access_plist_c (hid_t_f *file_id, hid_t_f *access_id)
+nh5fget_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;
+    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);
+    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;
+    if (c_access_id < 0)
+        return ret_value;
+    *access_id = (hid_t_f)c_access_id;
 
-     ret_value = 0;
-     return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Ff/h5fis_hdf5_c
@@ -421,32 +427,34 @@ nh5fget_access_plist_c (hid_t_f *file_id, hid_t_f *access_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5fis_hdf5_c (_fcd name, int_f *namelen, int_f *flag)
+nh5fis_hdf5_c(_fcd name, int_f *namelen, int_f *flag)
 /******/
 {
-     int ret_value = -1;
-     char *c_name;
-     int_f c_namelen;
-     htri_t status;
-
-     /*
-      * Convert FORTRAN name to C name
-      */
-     c_namelen = *namelen;
-     c_name = (char *)HD5f2cstring(name, (size_t)c_namelen);
-     if (c_name == NULL) return ret_value;
-
-     /*
-      * Call H5Fopen function.
-      */
-     status = H5Fis_hdf5(c_name);
-     *flag = (int_f)status;
-     if (status >= 0) ret_value = 0;
-
-     HDfree(c_name);
-     return ret_value;
+    int    ret_value = -1;
+    char * c_name;
+    int_f  c_namelen;
+    htri_t status;
+
+    /*
+     * Convert FORTRAN name to C name
+     */
+    c_namelen = *namelen;
+    c_name    = (char *)HD5f2cstring(name, (size_t)c_namelen);
+    if (c_name == NULL)
+        return ret_value;
+
+    /*
+     * Call H5Fopen function.
+     */
+    status = H5Fis_hdf5(c_name);
+    *flag  = (int_f)status;
+    if (status >= 0)
+        ret_value = 0;
+
+    HDfree(c_name);
+    return ret_value;
 }
 /****if* H5Ff/h5fclose_c
  * NAME
@@ -463,18 +471,19 @@ nh5fis_hdf5_c (_fcd name, int_f *namelen, int_f *flag)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5fclose_c ( hid_t_f *file_id )
+nh5fclose_c(hid_t_f *file_id)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_file_id;
+    int   ret_value = 0;
+    hid_t c_file_id;
 
-  c_file_id = (hid_t)*file_id;
-  if ( H5Fclose(c_file_id) < 0  ) ret_value = -1;
-  return ret_value;
+    c_file_id = (hid_t)*file_id;
+    if (H5Fclose(c_file_id) < 0)
+        ret_value = -1;
+    return ret_value;
 }
 /****if* H5Ff/h5fget_obj_count_c
  * NAME
@@ -495,23 +504,23 @@ nh5fclose_c ( hid_t_f *file_id )
  *              Changed type of obj_count to size_t_f
  *              Thursday, September 25, 2008
  * SOURCE
-*/
+ */
 
 int_f
-nh5fget_obj_count_c ( hid_t_f *file_id , int_f *obj_type, size_t_f * obj_count)
+nh5fget_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;
-
+    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;
+    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
@@ -532,31 +541,30 @@ nh5fget_obj_count_c ( hid_t_f *file_id , int_f *obj_type, size_t_f * obj_count)
  *  Changed type of max_obj to size_t_f; added parameter for the
  *  number of open objects
  *  Thursday, September 25, 2008 EIP
- *	
+ *
  * SOURCE
-*/
+ */
 int_f
-nh5fget_obj_ids_c ( hid_t_f *file_id , int_f *obj_type, size_t_f *max_objs, 
-    hid_t_f *obj_ids, size_t_f *num_objs)
+nh5fget_obj_ids_c(hid_t_f *file_id, int_f *obj_type, size_t_f *max_objs, hid_t_f *obj_ids, size_t_f *num_objs)
 /******/
 {
-    int ret_value = 0;
-    hid_t c_file_id;
+    int      ret_value = 0;
+    hid_t    c_file_id;
     unsigned c_obj_type;
-    size_t u;
-    size_t c_max_objs;
-    ssize_t c_num_objs;
-    hid_t *c_obj_ids;
+    size_t   u;
+    size_t   c_max_objs;
+    ssize_t  c_num_objs;
+    hid_t *  c_obj_ids;
 
-    c_file_id = (hid_t)*file_id;
-    c_obj_type = (unsigned) *obj_type;
+    c_file_id  = (hid_t)*file_id;
+    c_obj_type = (unsigned)*obj_type;
     c_max_objs = (size_t)*max_objs;
-    c_obj_ids = (hid_t *)HDmalloc(sizeof(hid_t)*c_max_objs);
+    c_obj_ids  = (hid_t *)HDmalloc(sizeof(hid_t) * c_max_objs);
 
     c_num_objs = H5Fget_obj_ids(c_file_id, c_obj_type, c_max_objs, c_obj_ids);
-    if(c_num_objs < 0)
+    if (c_num_objs < 0)
         ret_value = -1;
-    for(u = 0; u < c_max_objs; u++)
+    for (u = 0; u < c_max_objs; u++)
         obj_ids[u] = (hid_t_f)c_obj_ids[u];
 
     HDfree(c_obj_ids);
@@ -579,20 +587,21 @@ nh5fget_obj_ids_c ( hid_t_f *file_id , int_f *obj_type, size_t_f *max_objs,
  *  Quincey Koziol
  *              Tuesday, October 7, 2003
  * SOURCE
-*/
+ */
 
 int_f
-nh5fget_freespace_c ( hid_t_f *file_id , hssize_t_f *free_space)
+nh5fget_freespace_c(hid_t_f *file_id, hssize_t_f *free_space)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_file_id;
-  hssize_t c_free_space;
-
-  c_file_id = (hid_t)*file_id;
-  if ( (c_free_space=H5Fget_freespace(c_file_id)) < 0  ) ret_value = -1;
-  *free_space=(hssize_t_f)c_free_space;
-  return ret_value;
+    int      ret_value = 0;
+    hid_t    c_file_id;
+    hssize_t c_free_space;
+
+    c_file_id = (hid_t)*file_id;
+    if ((c_free_space = H5Fget_freespace(c_file_id)) < 0)
+        ret_value = -1;
+    *free_space = (hssize_t_f)c_free_space;
+    return ret_value;
 }
 
 /****if* H5Ff/h5fget_name_c
@@ -612,36 +621,37 @@ nh5fget_freespace_c ( hid_t_f *file_id , hssize_t_f *free_space)
  *  Elena Pourmal
  *              Tuesday, July 6, 2004
  * SOURCE
-*/
+ */
 int_f
 nh5fget_name_c(hid_t_f *obj_id, size_t_f *size, _fcd buf, size_t_f *buflen)
 /******/
 {
-    char *c_buf = NULL;           /* Buffer to hold C string */
-    ssize_t size_c = -1;
-    int_f ret_value = 0;          /* Return value */
-
-     /*
-      * Allocate buffer to hold name of an attribute
-      */
-     if(NULL == (c_buf = (char *)HDmalloc((size_t)*buflen + 1)))
-         HGOTO_DONE(FAIL);
-
-     /*
-      * Call H5Fget_name function
-      */
-     if ((size_c = H5Fget_name((hid_t)*obj_id, c_buf, (size_t)*buflen)) < 0)
-         HGOTO_DONE(FAIL);
-
-     /*
-      * Convert C name to FORTRAN and place it in the given buffer
-      */
-      HD5packFstring(c_buf, _fcdtocp(buf), (size_t)*buflen);
+    char *  c_buf     = NULL; /* Buffer to hold C string */
+    ssize_t size_c    = -1;
+    int_f   ret_value = 0; /* Return value */
+
+    /*
+     * Allocate buffer to hold name of an attribute
+     */
+    if (NULL == (c_buf = (char *)HDmalloc((size_t)*buflen + 1)))
+        HGOTO_DONE(FAIL);
+
+    /*
+     * Call H5Fget_name function
+     */
+    if ((size_c = H5Fget_name((hid_t)*obj_id, c_buf, (size_t)*buflen)) < 0)
+        HGOTO_DONE(FAIL);
+
+    /*
+     * Convert C name to FORTRAN and place it in the given buffer
+     */
+    HD5packFstring(c_buf, _fcdtocp(buf), (size_t)*buflen);
 
 done:
-      *size = (size_t_f)size_c;
-      if(c_buf) HDfree(c_buf);
-      return ret_value;
+    *size = (size_t_f)size_c;
+    if (c_buf)
+        HDfree(c_buf);
+    return ret_value;
 }
 
 /****if* H5Ff/h5fget_filesize_c
@@ -659,23 +669,23 @@ done:
  *  Elena Pourmal
  *              Wednesday, July 7, 2004
  * SOURCE
-*/
+ */
 int_f
 nh5fget_filesize_c(hid_t_f *file_id, hsize_t_f *size)
 /******/
 {
     hsize_t size_c;
-    herr_t ret_value=0;          /* Return value */
+    herr_t  ret_value = 0; /* Return value */
 
-     /*
-      * Call H5Fget_filesize function
-      */
-     if ((ret_value = H5Fget_filesize((hid_t)*file_id, &size_c)) < 0)
-         HGOTO_DONE(FAIL);
-      *size = (hsize_t_f)size_c;
+    /*
+     * Call H5Fget_filesize function
+     */
+    if ((ret_value = H5Fget_filesize((hid_t)*file_id, &size_c)) < 0)
+        HGOTO_DONE(FAIL);
+    *size = (hsize_t_f)size_c;
 
 done:
-      return ret_value;
+    return ret_value;
 }
 
 /****if* H5Ff/h5fget_file_image_c
@@ -695,22 +705,22 @@ done:
  *  M. Scot Breitenfeld
  *  November 26, 2012
  * SOURCE
-*/
+ */
 int_f
 h5fget_file_image_c(hid_t_f *file_id, void *buf_ptr, size_t_f *buf_len, size_t_f *buf_req)
 /******/
 {
-    herr_t ret_value=0;          /* Return value */
+    herr_t  ret_value = 0; /* Return value */
     ssize_t c_buf_req;
     /*
      * Call h5fget_file_image function
      */
-    
-    if ( (c_buf_req = H5Fget_file_image((hid_t)*file_id, buf_ptr, (size_t)*buf_len)) < 0)
-         HGOTO_DONE(FAIL);
+
+    if ((c_buf_req = H5Fget_file_image((hid_t)*file_id, buf_ptr, (size_t)*buf_len)) < 0)
+        HGOTO_DONE(FAIL);
 
     *buf_req = (size_t_f)c_buf_req;
 
 done:
-      return ret_value;
+    return ret_value;
 }
diff --git a/fortran/src/H5Gf.c b/fortran/src/H5Gf.c
index 420c7f2..4b69548 100644
--- a/fortran/src/H5Gf.c
+++ b/fortran/src/H5Gf.c
@@ -17,7 +17,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 #include "H5Eprivate.h"
@@ -45,51 +45,52 @@
  *              H5Gcreate1 can be compiled out of the library
  *              QAK - 2007/08/23
  * SOURCE
-*/
+ */
 int_f
-nh5gcreate_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 )
+nh5gcreate_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_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)))
+    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);}
+    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;
+        /* 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;
+        /* 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);
+        /* 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)
+    if (c_grp_id < 0)
         goto DONE;
 
     /* Everything OK, set values to return */
-    *grp_id = (hid_t_f)c_grp_id;
+    *grp_id   = (hid_t_f)c_grp_id;
     ret_value = 0;
 
 DONE:
-    if(c_gcpl_id > 0)
+    if (c_gcpl_id > 0)
         H5Pclose(c_gcpl_id);
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
     return ret_value;
 }
@@ -113,35 +114,35 @@ DONE:
  *              Wednesday, August 5, 1999
  *
  * SOURCE
-*/
+ */
 int_f
 nh5gopen_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)))
+    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)
+    /*
+     * 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;
+    *grp_id   = (hid_t_f)c_grp_id;
     ret_value = 0;
 
 DONE:
-     if(c_name)
-         HDfree(c_name);
-     return ret_value;
+    if (c_name)
+        HDfree(c_name);
+    return ret_value;
 }
 
 /****if* H5Gf/h5gget_obj_info_idx_c
@@ -165,48 +166,49 @@ DONE:
  *  Elena Pourmal
  *              Wednesday, August 5, 1999
  * SOURCE
-*/
+ */
 int_f
-nh5gget_obj_info_idx_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *idx,
-    _fcd obj_name, int_f *obj_namelen, int_f *obj_type)
+nh5gget_obj_info_idx_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *idx, _fcd obj_name,
+                       int_f *obj_namelen, int_f *obj_type)
 /******/
 {
     H5O_info_t oinfo;
-    hid_t c_loc_id = (hid_t)*loc_id;
-    char *c_name = NULL;
-    size_t c_obj_namelen;
-    char *c_obj_name = NULL;
-    hsize_t c_idx = (hsize_t)*idx;
-    hid_t gid = (-1);                 /* Temporary group ID */
-    int ret_value = -1;
+    hid_t      c_loc_id = (hid_t)*loc_id;
+    char *     c_name   = NULL;
+    size_t     c_obj_namelen;
+    char *     c_obj_name = NULL;
+    hsize_t    c_idx      = (hsize_t)*idx;
+    hid_t      gid        = (-1); /* Temporary group ID */
+    int        ret_value  = -1;
 
     /*
      * Convert FORTRAN name to C name
      */
-    if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
         goto DONE;
 
     /*
      * Allocate buffer to hold name of the object
      */
     c_obj_namelen = (size_t)*obj_namelen;
-    if(c_obj_namelen)
-       if(NULL == (c_obj_name = (char *)HDmalloc(c_obj_namelen + 1)))
-           goto DONE;
+    if (c_obj_namelen)
+        if (NULL == (c_obj_name = (char *)HDmalloc(c_obj_namelen + 1)))
+            goto DONE;
 
     /* Get a temporary group ID for the group to query */
-    if((gid = H5Gopen2(c_loc_id, c_name, H5P_DEFAULT)) < 0)
+    if ((gid = H5Gopen2(c_loc_id, c_name, H5P_DEFAULT)) < 0)
         goto DONE;
 
     /* Query the object's information */
-    if(H5Lget_name_by_idx(gid, ".", H5_INDEX_NAME, H5_ITER_INC, c_idx, c_obj_name, c_obj_namelen, H5P_DEFAULT) < 0)
+    if (H5Lget_name_by_idx(gid, ".", H5_INDEX_NAME, H5_ITER_INC, c_idx, c_obj_name, c_obj_namelen,
+                           H5P_DEFAULT) < 0)
         goto DONE;
-    if(H5Oget_info_by_idx(gid, ".", H5_INDEX_NAME, H5_ITER_INC, c_idx, &oinfo, H5P_DEFAULT) < 0)
+    if (H5Oget_info_by_idx(gid, ".", H5_INDEX_NAME, H5_ITER_INC, c_idx, &oinfo, H5P_DEFAULT) < 0)
         goto DONE;
 
-/* XXX: Switch from using H5Gget_objtype_by_idx() means that this routine won't
- *      work on non-hard links - QAK
- */
+    /* XXX: Switch from using H5Gget_objtype_by_idx() means that this routine won't
+     *      work on non-hard links - QAK
+     */
     *obj_type = oinfo.type;
 
     /*
@@ -217,12 +219,12 @@ nh5gget_obj_info_idx_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *idx,
 
 DONE:
     /* Close the temporary group, if it was opened */
-    if(gid > 0)
+    if (gid > 0)
         H5Gclose(gid);
 
-    if(c_obj_name)
+    if (c_obj_name)
         HDfree(c_obj_name);
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
     return ret_value;
 }
@@ -244,30 +246,30 @@ DONE:
  *  Elena Pourmal
  *              Wednesday, August 5, 1999
  * SOURCE
-*/
+ */
 int_f
 nh5gn_members_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *nmembers)
 /******/
 {
-    char *c_name = NULL;
+    char *     c_name = NULL;
     H5G_info_t ginfo;
-    int ret_value = -1;
+    int        ret_value = -1;
 
     /*
      * Convert FORTRAN name to C name
      */
-    if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
         goto DONE;
 
     /* Call H5Gget_info_by_name() for the number of objects in the group */
-    if(H5Gget_info_by_name((hid_t)*loc_id, c_name, &ginfo, H5P_DEFAULT) < 0)
+    if (H5Gget_info_by_name((hid_t)*loc_id, c_name, &ginfo, H5P_DEFAULT) < 0)
         goto DONE;
 
     *nmembers = (int_f)ginfo.nlinks;
     ret_value = 0;
 
 DONE:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
     return ret_value;
 }
@@ -285,7 +287,7 @@ DONE:
  *  Elena Pourmal
  *              Wednesday, August 5, 1999
  * SOURCE
-*/
+ */
 
 int_f
 nh5gclose_c(hid_t_f *grp_id)
@@ -293,12 +295,11 @@ nh5gclose_c(hid_t_f *grp_id)
 {
     int ret_value = 0;
 
-    if(H5Gclose((hid_t)*grp_id) < 0)
+    if (H5Gclose((hid_t)*grp_id) < 0)
         ret_value = -1;
     return ret_value;
 }
 
-
 /****if* H5Gf/h5glink_c
  * NAME
  *        h5glink_c
@@ -318,67 +319,68 @@ nh5gclose_c(hid_t_f *grp_id)
  *  Mingshi Chen
  *  Friday, August 6, 1999
  * SOURCE
-*/
+ */
 
 int_f
-nh5glink_c(hid_t_f *loc_id, int_f *link_type, _fcd current_name,
-    int_f *current_namelen, _fcd new_name, int_f *new_namelen)
+nh5glink_c(hid_t_f *loc_id, int_f *link_type, _fcd current_name, int_f *current_namelen, _fcd new_name,
+           int_f *new_namelen)
 /******/
 {
     char *c_current_name = NULL, *c_new_name = NULL;
-    int ret_value = -1;
+    int   ret_value = -1;
 
     /*
-    *  Convert Fortran name to C name
-    */
-    if(NULL == (c_current_name = (char *)HD5f2cstring(current_name, (size_t)*current_namelen)))
+     *  Convert Fortran name to C name
+     */
+    if (NULL == (c_current_name = (char *)HD5f2cstring(current_name, (size_t)*current_namelen)))
         goto DONE;
-    if(NULL == (c_new_name = (char *)HD5f2cstring(new_name, (size_t)*new_namelen)))
+    if (NULL == (c_new_name = (char *)HD5f2cstring(new_name, (size_t)*new_namelen)))
         goto DONE;
 
     /*
-    *  Call appropriate link creation function
-    */
-    switch((H5L_type_t)*link_type) {
+     *  Call appropriate link creation function
+     */
+    switch ((H5L_type_t)*link_type) {
         case H5L_TYPE_HARD:
-            if(H5Lcreate_hard((hid_t)*loc_id, c_current_name, H5L_SAME_LOC, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
+            if (H5Lcreate_hard((hid_t)*loc_id, c_current_name, H5L_SAME_LOC, c_new_name, H5P_DEFAULT,
+                               H5P_DEFAULT) < 0)
                 goto DONE;
             break;
 
         case H5L_TYPE_SOFT:
-            if(H5Lcreate_soft(c_current_name, (hid_t)*loc_id, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
+            if (H5Lcreate_soft(c_current_name, (hid_t)*loc_id, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
                 goto DONE;
             break;
 
-    /* Cases below were added to remove the warnings in gcc 4.9.2 and probably other */
+            /* Cases below were added to remove the warnings in gcc 4.9.2 and probably other */
         case H5L_TYPE_EXTERNAL:
             ret_value = -1;
-                goto DONE;
+            goto DONE;
             break;
 
         case H5L_TYPE_MAX:
             ret_value = -1;
-                goto DONE;
+            goto DONE;
             break;
 
         case H5L_TYPE_ERROR:
             ret_value = -1;
-                goto DONE;
+            goto DONE;
             break;
-    /* End of the warnings fix */
- 
-        default:        /* Unknown/unhandled link type */
+            /* End of the warnings fix */
+
+        default: /* Unknown/unhandled link type */
             goto DONE;
     } /* end switch */
     ret_value = 0;
 
 DONE:
-    if(c_current_name)
+    if (c_current_name)
         HDfree(c_current_name);
-    if(c_new_name)
+    if (c_new_name)
         HDfree(c_new_name);
 
-    return ret_value ;
+    return ret_value;
 }
 
 /****if* H5Gf/h5glink2_c
@@ -405,65 +407,66 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5glink2_c(hid_t_f *cur_loc_id, _fcd cur_name, int_f *cur_namelen,
-    int_f *link_type, hid_t_f *new_loc_id, _fcd new_name, int_f *new_namelen)
+nh5glink2_c(hid_t_f *cur_loc_id, _fcd cur_name, int_f *cur_namelen, int_f *link_type, hid_t_f *new_loc_id,
+            _fcd new_name, int_f *new_namelen)
 /******/
 {
     char *c_cur_name = NULL, *c_new_name = NULL;
-    int ret_value = -1;
+    int   ret_value = -1;
 
     /*
      *  Convert Fortran name to C name
      */
-    if(NULL == (c_cur_name = (char *)HD5f2cstring(cur_name, (size_t)*cur_namelen)))
+    if (NULL == (c_cur_name = (char *)HD5f2cstring(cur_name, (size_t)*cur_namelen)))
         goto DONE;
-    if(NULL == (c_new_name = (char *)HD5f2cstring(new_name, (size_t)*new_namelen)))
+    if (NULL == (c_new_name = (char *)HD5f2cstring(new_name, (size_t)*new_namelen)))
         goto DONE;
 
     /*
-    *  Call appropriate link creation function
-    */
-    switch((H5L_type_t)*link_type) {
+     *  Call appropriate link creation function
+     */
+    switch ((H5L_type_t)*link_type) {
         case H5L_TYPE_HARD:
-            if(H5Lcreate_hard((hid_t)*cur_loc_id, c_cur_name, (hid_t)*new_loc_id, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
+            if (H5Lcreate_hard((hid_t)*cur_loc_id, c_cur_name, (hid_t)*new_loc_id, c_new_name, H5P_DEFAULT,
+                               H5P_DEFAULT) < 0)
                 goto DONE;
             break;
 
         case H5L_TYPE_SOFT:
-            if(H5Lcreate_soft(c_cur_name, (hid_t)*new_loc_id, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
+            if (H5Lcreate_soft(c_cur_name, (hid_t)*new_loc_id, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
                 goto DONE;
             break;
-    /* Cases below were added to remove the warnings in gcc 4.9.2 and probably other */
+            /* Cases below were added to remove the warnings in gcc 4.9.2 and probably other */
         case H5L_TYPE_EXTERNAL:
             ret_value = -1;
-                goto DONE;
+            goto DONE;
             break;
 
         case H5L_TYPE_MAX:
             ret_value = -1;
-                goto DONE;
+            goto DONE;
             break;
 
         case H5L_TYPE_ERROR:
             ret_value = -1;
-                goto DONE;
+            goto DONE;
             break;
-    /* End of the warnings fix */
+            /* End of the warnings fix */
 
-        default:        /* Unknown/unhandled link type */
+        default: /* Unknown/unhandled link type */
             goto DONE;
     } /* end switch */
     ret_value = 0;
 
 DONE:
-    if(c_cur_name)
+    if (c_cur_name)
         HDfree(c_cur_name);
-    if(c_new_name)
+    if (c_new_name)
         HDfree(c_new_name);
-    return ret_value ;
+    return ret_value;
 }
 
 /****if* H5Gf/h5gunlink_c
@@ -480,30 +483,30 @@ DONE:
  *  Mingshi Chen
  *  Friday, August 6, 1999
  * SOURCE
-*/
+ */
 
 int_f
 nh5gunlink_c(hid_t_f *loc_id, _fcd name, int_f *namelen)
 /******/
 {
-    char *c_name = NULL;
-    int ret_value = -1;
+    char *c_name    = NULL;
+    int   ret_value = -1;
 
     /*
      *  Convert Fortran name to C name
      */
-    if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
         goto DONE;
 
     /*
      *  Call H5Gunlink function
      */
-    if(H5Ldelete((hid_t)*loc_id, c_name, H5P_DEFAULT) < 0)
+    if (H5Ldelete((hid_t)*loc_id, c_name, H5P_DEFAULT) < 0)
         goto DONE;
     ret_value = 0;
 
 DONE:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
     return ret_value;
 }
@@ -525,35 +528,35 @@ DONE:
  *  Mingshi Chen
  *  Friday, August 6, 1999
  * SOURCE
-*/
+ */
 
 int_f
-nh5gmove_c(hid_t_f *loc_id, _fcd src_name, int_f *src_namelen, _fcd dst_name, int_f*dst_namelen)
+nh5gmove_c(hid_t_f *loc_id, _fcd src_name, int_f *src_namelen, _fcd dst_name, int_f *dst_namelen)
 /******/
 {
     char *c_src_name = NULL, *c_dst_name = NULL;
-    int ret_value = -1;
+    int   ret_value = -1;
 
     /*
      *  Convert Fortran name to C name
      */
-    if(NULL == (c_src_name = (char *)HD5f2cstring(src_name, (size_t)*src_namelen)))
+    if (NULL == (c_src_name = (char *)HD5f2cstring(src_name, (size_t)*src_namelen)))
         goto DONE;
-    if(NULL == (c_dst_name = (char *)HD5f2cstring(dst_name, (size_t)*dst_namelen)))
+    if (NULL == (c_dst_name = (char *)HD5f2cstring(dst_name, (size_t)*dst_namelen)))
         goto DONE;
 
     /*
      *  Call H5Gmove function
      */
-    if(H5Lmove((hid_t)*loc_id, c_src_name, H5L_SAME_LOC, c_dst_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
+    if (H5Lmove((hid_t)*loc_id, c_src_name, H5L_SAME_LOC, c_dst_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
         goto DONE;
 
     ret_value = 0;
 
 DONE:
-    if(c_src_name)
+    if (c_src_name)
         HDfree(c_src_name);
-    if(c_dst_name)
+    if (c_dst_name)
         HDfree(c_dst_name);
     return ret_value;
 }
@@ -577,35 +580,36 @@ DONE:
  *  Wednesday, September 25, 2002
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5gmove2_c(hid_t_f *src_loc_id, _fcd src_name, int_f *src_namelen, hid_t_f *dst_loc_id, _fcd dst_name, int_f*dst_namelen)
+nh5gmove2_c(hid_t_f *src_loc_id, _fcd src_name, int_f *src_namelen, hid_t_f *dst_loc_id, _fcd dst_name,
+            int_f *dst_namelen)
 /******/
 {
     char *c_src_name = NULL, *c_dst_name = NULL;
-    int ret_value = -1;
+    int   ret_value = -1;
 
     /*
      *  Convert Fortran name to C name
      */
-    if(NULL == (c_src_name = (char *)HD5f2cstring(src_name, (size_t)*src_namelen)))
+    if (NULL == (c_src_name = (char *)HD5f2cstring(src_name, (size_t)*src_namelen)))
         goto DONE;
-    if(NULL == (c_dst_name = (char *)HD5f2cstring(dst_name, (size_t)*dst_namelen)))
+    if (NULL == (c_dst_name = (char *)HD5f2cstring(dst_name, (size_t)*dst_namelen)))
         goto DONE;
 
     /*
      *  Call H5Gmove2 function
      */
-    if(H5Lmove((hid_t)*src_loc_id, c_src_name, (hid_t)*dst_loc_id, c_dst_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
+    if (H5Lmove((hid_t)*src_loc_id, c_src_name, (hid_t)*dst_loc_id, c_dst_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
         goto DONE;
 
     ret_value = 0;
 
 DONE:
-    if(c_src_name)
+    if (c_src_name)
         HDfree(c_src_name);
-    if(c_dst_name)
+    if (c_dst_name)
         HDfree(c_dst_name);
     return ret_value;
 }
@@ -628,37 +632,37 @@ DONE:
  *  Mingshi Chen
  *  Friday, August 6, 1999
  * SOURCE
-*/
+ */
 
 int_f
-nh5gget_linkval_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size,
-    _fcd value)
+nh5gget_linkval_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size, _fcd value)
 /******/
 {
-    char *c_name = NULL;
-    char *c_value = NULL;
-    int ret_value = -1;
+    char *c_name    = NULL;
+    char *c_value   = NULL;
+    int   ret_value = -1;
 
     /*
      *  Convert Fortran name to C name
      */
-    if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
         goto DONE;
 
     /*
      *  Allocate buffer to hold name of the value
      */
-    if(*size) c_value = (char *)HDmalloc((size_t)*size);
-    if(c_value == NULL) {
-                       HDfree(c_name);
-                       return ret_value;
-                       }
+    if (*size)
+        c_value = (char *)HDmalloc((size_t)*size);
+    if (c_value == NULL) {
+        HDfree(c_name);
+        return ret_value;
+    }
 
     /*
      *  Call H5Lget_val function
      */
-    if(H5Lget_val((hid_t)*loc_id, c_name, c_value, (size_t)*size, H5P_DEFAULT) < 0)
-         goto DONE;
+    if (H5Lget_val((hid_t)*loc_id, c_name, c_value, (size_t)*size, H5P_DEFAULT) < 0)
+        goto DONE;
 
     /*
      *  Convert C name to FORTRAN and place it in the given buffer
@@ -667,9 +671,9 @@ nh5gget_linkval_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size,
     ret_value = 0;
 
 DONE:
-    if(c_value)
+    if (c_value)
         HDfree(c_value);
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
     return ret_value;
 }
@@ -693,34 +697,33 @@ DONE:
  * HISTORY
  * Elena Pourmal
  * SOURCE
-*/
+ */
 int_f
-nh5gset_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, _fcd comment,
-    int_f *commentlen)
+nh5gset_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, _fcd comment, int_f *commentlen)
 /******/
 {
     char *c_name = NULL, *c_comment = NULL;
-    int ret_value = -1;
+    int   ret_value = -1;
 
     /*
      *  Convert Fortran name to C name
      */
-    if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
         goto DONE;
-    if(NULL == (c_comment = (char *)HD5f2cstring(comment, (size_t)*commentlen)))
+    if (NULL == (c_comment = (char *)HD5f2cstring(comment, (size_t)*commentlen)))
         goto DONE;
 
     /*
      *  Call H5Oset_comment_by_name function
      */
-    if(H5Oset_comment_by_name((hid_t)*loc_id, c_name, c_comment, H5P_DEFAULT) < 0)
+    if (H5Oset_comment_by_name((hid_t)*loc_id, c_name, c_comment, H5P_DEFAULT) < 0)
         goto DONE;
     ret_value = 0;
 
 DONE:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
-    if(c_comment)
+    if (c_comment)
         HDfree(c_comment);
     return ret_value;
 }
@@ -742,47 +745,46 @@ DONE:
  *  Mingshi Chen
  *              Friday, August 6, 1999
  * SOURCE
-*/
+ */
 int_f
-nh5gget_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize,
-    _fcd comment)
+nh5gget_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize, _fcd comment)
 /******/
 {
-    char *c_name = NULL, *c_comment = NULL;
+    char * c_name = NULL, *c_comment = NULL;
     size_t c_bufsize;
-    int ret_value = -1;
+    int    ret_value = -1;
 
     /*
      *  Convert Fortran name to C name
      */
-    if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
         goto DONE;
 
     /*
      *  Allocate buffer to hold the comment
      */
     c_bufsize = (size_t)*bufsize;
-    if(c_bufsize) {
-        if(NULL == (c_comment = (char *)HDmalloc(c_bufsize + 1)))
+    if (c_bufsize) {
+        if (NULL == (c_comment = (char *)HDmalloc(c_bufsize + 1)))
             goto DONE;
     } /* end if */
 
     /*
      *  Call H5Oget_comment_by_name function
      */
-    if(H5Oget_comment_by_name((hid_t)*loc_id, c_name, c_comment, c_bufsize, H5P_DEFAULT) < 0)
+    if (H5Oget_comment_by_name((hid_t)*loc_id, c_name, c_comment, c_bufsize, H5P_DEFAULT) < 0)
         goto DONE;
 
     /*
-    *  Convert C name to FORTRAN and place it in the given buffer
-    */
+     *  Convert C name to FORTRAN and place it in the given buffer
+     */
     HD5packFstring(c_comment, _fcdtocp(comment), c_bufsize);
     ret_value = 0;
 
 DONE:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
-    if(c_comment)
+    if (c_comment)
         HDfree(c_comment);
     return ret_value;
 }
@@ -806,16 +808,16 @@ DONE:
  *  M. Scot Breitenfeld
  *  February 15, 2008
  * SOURCE
-*/
+ */
 int_f
 nh5gcreate_anon_c(hid_t_f *loc_id, hid_t_f *gcpl_id, hid_t_f *gapl_id, hid_t_f *grp_id)
 /******/
 {
 
-  int_f ret_value=0;          /* Return value */
+    int_f ret_value = 0; /* Return value */
 
-  if ((*grp_id = (hid_t_f)H5Gcreate_anon((hid_t)*loc_id,(hid_t)*gcpl_id,(hid_t)*gapl_id)) < 0)
-    HGOTO_DONE(FAIL);
+    if ((*grp_id = (hid_t_f)H5Gcreate_anon((hid_t)*loc_id, (hid_t)*gcpl_id, (hid_t)*gapl_id)) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
     return ret_value;
@@ -838,21 +840,20 @@ done:
  *  M. Scot Breitenfeld
  *  February 15, 2008
  * SOURCE
-*/
+ */
 int_f
-nh5gget_create_plist_c(hid_t_f *grp_id, hid_t_f *gcpl_id )
+nh5gget_create_plist_c(hid_t_f *grp_id, hid_t_f *gcpl_id)
 /******/
 {
-  int_f ret_value=0; /* Return value */
+    int_f ret_value = 0; /* Return value */
 
-  if ((*gcpl_id = (hid_t_f)H5Gget_create_plist((hid_t)*grp_id)) < 0)
-    HGOTO_DONE(FAIL);
+    if ((*gcpl_id = (hid_t_f)H5Gget_create_plist((hid_t)*grp_id)) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
     return ret_value;
 }
 
-
 /****if* H5Gf/h5gget_info_c
  * NAME
  *      h5gget_info_c
@@ -882,34 +883,34 @@ done:
  *            M. Scot Breitenfeld
  *            July 16, 2008
  * SOURCE
-*/
+ */
 int_f
-nh5gget_info_c (hid_t_f *group_id, int_f *storage_type, int_f *nlinks, int_f *max_corder, int_f *mounted )
+nh5gget_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 */
+    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);
+    /*
+     * 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;
+    *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
@@ -946,41 +947,42 @@ done:
  *            M. Scot Breitenfeld
  *            July 16, 2008
  * SOURCE
-*/
+ */
 int_f
-nh5gget_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 )
+nh5gget_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;
+    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
@@ -1016,37 +1018,38 @@ nh5gget_info_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
  *            M. Scot Breitenfeld
  *            July 16, 2008
  * SOURCE
-*/
+ */
 int_f
 nh5gget_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)
+                       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;
+    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;
 }
diff --git a/fortran/src/H5If.c b/fortran/src/H5If.c
index 60e1b27..2b18245 100644
--- a/fortran/src/H5If.c
+++ b/fortran/src/H5If.c
@@ -17,7 +17,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 #include "H5f90.h"
 #include "H5Eprivate.h"
 
@@ -38,24 +38,25 @@
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5iget_type_c (hid_t_f *obj_id, int_f *type)
+nh5iget_type_c(hid_t_f *obj_id, int_f *type)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_obj_id;
-     H5I_type_t c_type;
+    int        ret_value = -1;
+    hid_t      c_obj_id;
+    H5I_type_t c_type;
 
-     /*
-      * Call H5Iget_type function.
-      */
-     c_obj_id = *obj_id;
-     c_type = H5Iget_type(c_obj_id);
-     if (c_type == H5I_BADID) return ret_value;
-     *type = (int_f)c_type;
-     ret_value = 0;
-     return ret_value;
+    /*
+     * Call H5Iget_type function.
+     */
+    c_obj_id = *obj_id;
+    c_type   = H5Iget_type(c_obj_id);
+    if (c_type == H5I_BADID)
+        return ret_value;
+    *type     = (int_f)c_type;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5If/h5iget_name_c
  * NAME
@@ -79,41 +80,43 @@ nh5iget_type_c (hid_t_f *obj_id, int_f *type)
  *               exact size of the string (buf_size) is passed in.
  *               M. Scot Breitenfeld, April 21, 2008
  * SOURCE
-*/
+ */
 int_f
 nh5iget_name_c(hid_t_f *obj_id, _fcd buf, size_t_f *buf_size, size_t_f *name_size)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_obj_id;
-     ssize_t c_size;
-     size_t c_buf_size;
-     char *c_buf =NULL;
+    int     ret_value = -1;
+    hid_t   c_obj_id;
+    ssize_t c_size;
+    size_t  c_buf_size;
+    char *  c_buf = NULL;
 
-     /*
-      * Allocate buffer to hold name of an object
-      */
-     c_buf_size = (size_t)*buf_size +1;
-     c_buf = (char *)HDmalloc(c_buf_size);
-     if (c_buf == NULL) return ret_value;
+    /*
+     * Allocate buffer to hold name of an object
+     */
+    c_buf_size = (size_t)*buf_size + 1;
+    c_buf      = (char *)HDmalloc(c_buf_size);
+    if (c_buf == NULL)
+        return ret_value;
 
-     /*
-      * Call H5IAget_name function
-      */
-     c_obj_id = (hid_t)*obj_id;
-     c_size = H5Iget_name(c_obj_id, c_buf, c_buf_size);
-     if (c_size < 0) goto DONE;
+    /*
+     * Call H5IAget_name function
+     */
+    c_obj_id = (hid_t)*obj_id;
+    c_size   = H5Iget_name(c_obj_id, c_buf, c_buf_size);
+    if (c_size < 0)
+        goto DONE;
 
-     /*
-      * Convert C name to FORTRAN and place it in the given buffer
-      */
-      HD5packFstring(c_buf, _fcdtocp(buf), c_buf_size-1);
-      *name_size = (size_t_f)c_size;
-      ret_value = 0;
+    /*
+     * Convert C name to FORTRAN and place it in the given buffer
+     */
+    HD5packFstring(c_buf, _fcdtocp(buf), c_buf_size - 1);
+    *name_size = (size_t_f)c_size;
+    ret_value  = 0;
 
 DONE:
-      HDfree(c_buf);
-      return ret_value;
+    HDfree(c_buf);
+    return ret_value;
 }
 
 /****if* H5If/h5iinc_ref_c
@@ -131,25 +134,25 @@ DONE:
  *  Quincey Koziol
  *  Tuesday, December  9, 2003
  * SOURCE
-*/
+ */
 int_f
 nh5iinc_ref_c(hid_t_f *obj_id, int_f *ref_count)
 /******/
 {
-     int ret_value;
+    int ret_value;
 
-     /*
-      * Call H5Iinc_ref function
-      */
-     if ((ret_value = H5Iinc_ref(*obj_id)) < 0)
-         HGOTO_DONE(FAIL);
+    /*
+     * Call H5Iinc_ref function
+     */
+    if ((ret_value = H5Iinc_ref(*obj_id)) < 0)
+        HGOTO_DONE(FAIL);
 
     /* Set output & return values */
-    *ref_count=ret_value;
-    ret_value=0;
+    *ref_count = ret_value;
+    ret_value  = 0;
 
 done:
-      return ret_value;
+    return ret_value;
 }
 
 /****if* H5If/h5idec_ref_c
@@ -167,25 +170,25 @@ done:
  *  Quincey Koziol
  *              Tuesday, December  9, 2003
  * SOURCE
-*/
+ */
 int_f
 nh5idec_ref_c(hid_t_f *obj_id, int_f *ref_count)
 /******/
 {
-     int ret_value;
+    int ret_value;
 
-     /*
-      * Call H5Idec_ref function
-      */
-     if ((ret_value = H5Idec_ref(*obj_id)) < 0)
-         HGOTO_DONE(FAIL);
+    /*
+     * Call H5Idec_ref function
+     */
+    if ((ret_value = H5Idec_ref(*obj_id)) < 0)
+        HGOTO_DONE(FAIL);
 
     /* Set output & return values */
-    *ref_count=ret_value;
-    ret_value=0;
+    *ref_count = ret_value;
+    ret_value  = 0;
 
 done:
-      return ret_value;
+    return ret_value;
 }
 
 /****if* H5If/h5iget_ref_c
@@ -204,25 +207,25 @@ done:
  *  Tuesday, December  9, 2003
  *
  * SOURCE
-*/
+ */
 int_f
 nh5iget_ref_c(hid_t_f *obj_id, int_f *ref_count)
 /******/
 {
-     int ret_value;
+    int ret_value;
 
-     /*
-      * Call H5Iget_ref function
-      */
-     if ((ret_value = H5Iget_ref(*obj_id)) < 0)
-         HGOTO_DONE(FAIL);
+    /*
+     * Call H5Iget_ref function
+     */
+    if ((ret_value = H5Iget_ref(*obj_id)) < 0)
+        HGOTO_DONE(FAIL);
 
     /* Set output & return values */
-    *ref_count=ret_value;
-    ret_value=0;
+    *ref_count = ret_value;
+    ret_value  = 0;
 
 done:
-      return ret_value;
+    return ret_value;
 }
 
 /****if* H5If/h5iget_file_id_c
@@ -241,26 +244,26 @@ done:
  *  Tuesday, August 24, 2004
  *
  * SOURCE
-*/
+ */
 int_f
 nh5iget_file_id_c(hid_t_f *obj_id, hid_t_f *file_id)
 /******/
 {
-     int ret_value;
-     hid_t c_file_id;
+    int   ret_value;
+    hid_t c_file_id;
 
-     /*
-      * Call H5Iget_file_id
-      */
-     if ((c_file_id = H5Iget_file_id(*obj_id)) < 0)
-         HGOTO_DONE(FAIL);
+    /*
+     * Call H5Iget_file_id
+     */
+    if ((c_file_id = H5Iget_file_id(*obj_id)) < 0)
+        HGOTO_DONE(FAIL);
 
     /* Set output & return values */
-    *file_id=(hid_t_f)c_file_id;
-    ret_value=0;
+    *file_id  = (hid_t_f)c_file_id;
+    ret_value = 0;
 
 done:
-      return ret_value;
+    return ret_value;
 }
 
 /*----------------------------------------------------------------------------
@@ -276,19 +279,19 @@ done:
 int_f
 nh5iis_valid_c(hid_t_f *obj_id, int_f *c_valid)
 {
-     int ret_value;
-     htri_t c_ret_value;
+    int    ret_value;
+    htri_t c_ret_value;
 
-     /*
-      * Call H5Iis_valid
-      */
-     if ((c_ret_value = H5Iis_valid(*obj_id)) < 0)
-       HGOTO_DONE(FAIL);
+    /*
+     * Call H5Iis_valid
+     */
+    if ((c_ret_value = H5Iis_valid(*obj_id)) < 0)
+        HGOTO_DONE(FAIL);
 
-     /* Set output & return values */
-     *c_valid = (int_f)c_ret_value;
-     ret_value=0;
+    /* Set output & return values */
+    *c_valid  = (int_f)c_ret_value;
+    ret_value = 0;
 
 done:
-      return ret_value;
+    return ret_value;
 }
diff --git a/fortran/src/H5Lf.c b/fortran/src/H5Lf.c
index 89fd002..ac65846 100644
--- a/fortran/src/H5Lf.c
+++ b/fortran/src/H5Lf.c
@@ -17,7 +17,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 #include "H5Eprivate.h"
@@ -48,40 +48,39 @@
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5lcopy_c(hid_t_f *src_loc_id, _fcd src_name, size_t_f *src_namelen, hid_t_f *dest_loc_id,
-	     _fcd dest_name, size_t_f *dest_namelen,
-	     hid_t_f *lcpl_id, hid_t_f *lapl_id)
+nh5lcopy_c(hid_t_f *src_loc_id, _fcd src_name, size_t_f *src_namelen, hid_t_f *dest_loc_id, _fcd dest_name,
+           size_t_f *dest_namelen, hid_t_f *lcpl_id, hid_t_f *lapl_id)
 /******/
 {
-    char *c_src_name = NULL;
+    char *c_src_name  = NULL;
     char *c_dest_name = NULL;
-    int_f ret_value = 0;
+    int_f ret_value   = 0;
 
     /*
      * Convert FORTRAN name to C name
      */
-    if(NULL == (c_src_name = HD5f2cstring(src_name, (size_t)*src_namelen)))
+    if (NULL == (c_src_name = HD5f2cstring(src_name, (size_t)*src_namelen)))
         HGOTO_DONE(FAIL)
-    if(NULL == (c_dest_name = HD5f2cstring(dest_name, (size_t)*dest_namelen)))
+    if (NULL == (c_dest_name = HD5f2cstring(dest_name, (size_t)*dest_namelen)))
         HGOTO_DONE(FAIL)
 
     /*
      * Call H5Lcopy function.
      */
-    if(H5Lcopy((hid_t)*src_loc_id, c_src_name, (hid_t) *dest_loc_id,
-  	       c_dest_name, (hid_t)*lcpl_id, (hid_t)*lapl_id ) < 0)
+    if (H5Lcopy((hid_t)*src_loc_id, c_src_name, (hid_t)*dest_loc_id, c_dest_name, (hid_t)*lcpl_id,
+                (hid_t)*lapl_id) < 0)
         HGOTO_DONE(FAIL)
 
 done:
-    if(c_src_name)
+    if (c_src_name)
         HDfree(c_src_name);
-    if(c_dest_name)
+    if (c_dest_name)
         HDfree(c_dest_name);
 
-  return ret_value;
+    return ret_value;
 }
 
 /****if* H5Lf/h5lcreate_external_c
@@ -105,45 +104,45 @@ done:
  *  M. Scot Breitenfeld
  *  February 29, 2008
  * SOURCE
-*/
+ */
 
 int_f
 nh5lcreate_external_c(_fcd file_name, size_t_f *file_namelen, _fcd obj_name, size_t_f *obj_namelen,
-		      hid_t_f *link_loc_id, _fcd link_name, size_t_f *link_namelen,
-		      hid_t_f *lcpl_id, hid_t_f *lapl_id)
+                      hid_t_f *link_loc_id, _fcd link_name, size_t_f *link_namelen, hid_t_f *lcpl_id,
+                      hid_t_f *lapl_id)
 /******/
 {
-  char *c_file_name = NULL;
-  char *c_obj_name = NULL;
-  char *c_link_name = NULL;
-  int_f ret_value = 0;
-
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_file_name = HD5f2cstring(file_name, (size_t)*file_namelen)) == NULL)
-    HGOTO_DONE(FAIL);
-  if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
-    HGOTO_DONE(FAIL);
-  if((c_link_name = HD5f2cstring(link_name, (size_t)*link_namelen)) == NULL)
-    HGOTO_DONE(FAIL);
-
-  /*
-   * Call H5Lcopy function.
-   */
-  if( H5Lcreate_external( c_file_name, c_obj_name, (hid_t) *link_loc_id, c_link_name,
-			  (hid_t) *lcpl_id, (hid_t) *lapl_id) < 0)
-    HGOTO_DONE(FAIL);
+    char *c_file_name = NULL;
+    char *c_obj_name  = NULL;
+    char *c_link_name = NULL;
+    int_f ret_value   = 0;
+
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_file_name = HD5f2cstring(file_name, (size_t)*file_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+    if ((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+    if ((c_link_name = HD5f2cstring(link_name, (size_t)*link_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+
+    /*
+     * Call H5Lcopy function.
+     */
+    if (H5Lcreate_external(c_file_name, c_obj_name, (hid_t)*link_loc_id, c_link_name, (hid_t)*lcpl_id,
+                           (hid_t)*lapl_id) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
-  if(c_file_name)
-    HDfree(c_file_name);
-  if(c_obj_name)
-    HDfree(c_obj_name);
-  if(c_link_name)
-    HDfree(c_link_name);
-
-  return ret_value;
+    if (c_file_name)
+        HDfree(c_file_name);
+    if (c_obj_name)
+        HDfree(c_obj_name);
+    if (c_link_name)
+        HDfree(c_link_name);
+
+    return ret_value;
 }
 
 /****if* H5Lf/h5ldelete_c
@@ -165,29 +164,29 @@ done:
  *  M. Scot Breitenfeld
  *              January, 2008
  * SOURCE
-*/
+ */
 
 int_f
-nh5ldelete_c ( hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id )
+nh5ldelete_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id)
 /******/
 {
-  char *c_name = NULL;
-  int_f ret_value = 0;
+    char *c_name    = NULL;
+    int_f ret_value = 0;
 
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
-    HGOTO_DONE(FAIL);
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
+        HGOTO_DONE(FAIL);
 
-  /*
-   * Call H5Ldelete function.
-   */
-  if( H5Ldelete( (hid_t)*loc_id, c_name, (hid_t)*lapl_id  ) < 0)
-    HGOTO_DONE(FAIL);
+    /*
+     * Call H5Ldelete function.
+     */
+    if (H5Ldelete((hid_t)*loc_id, c_name, (hid_t)*lapl_id) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
 
     return ret_value;
@@ -213,37 +212,35 @@ done:
  *  M. Scot Breitenfeld
  *              February 20, 2008
  * SOURCE
-*/
+ */
 
 int_f
-nh5lcreate_soft_c(_fcd target_path, size_t_f *target_path_len,
-		  hid_t_f *link_loc_id,
-		  _fcd link_name, size_t_f *link_name_len,
-		  hid_t_f *lcpl_id, hid_t_f *lapl_id )
+nh5lcreate_soft_c(_fcd target_path, size_t_f *target_path_len, hid_t_f *link_loc_id, _fcd link_name,
+                  size_t_f *link_name_len, hid_t_f *lcpl_id, hid_t_f *lapl_id)
 /******/
 {
-  char *c_target_path = NULL;
-  char *c_link_name = NULL;
-  int_f ret_value = 0;
-
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_target_path = HD5f2cstring(target_path, (size_t)*target_path_len)) == NULL)
-    HGOTO_DONE(FAIL);
-  if((c_link_name = HD5f2cstring(link_name, (size_t)*link_name_len)) == NULL)
-    HGOTO_DONE(FAIL);
-
-  /*
-   * Call H5Adelete function.
-   */
-  if ( H5Lcreate_soft(c_target_path,(hid_t)*link_loc_id, c_link_name, (hid_t)*lcpl_id, (hid_t)*lapl_id) < 0)
-    HGOTO_DONE(FAIL);
-
- done:
-    if(c_target_path)
+    char *c_target_path = NULL;
+    char *c_link_name   = NULL;
+    int_f ret_value     = 0;
+
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_target_path = HD5f2cstring(target_path, (size_t)*target_path_len)) == NULL)
+        HGOTO_DONE(FAIL);
+    if ((c_link_name = HD5f2cstring(link_name, (size_t)*link_name_len)) == NULL)
+        HGOTO_DONE(FAIL);
+
+    /*
+     * Call H5Adelete function.
+     */
+    if (H5Lcreate_soft(c_target_path, (hid_t)*link_loc_id, c_link_name, (hid_t)*lcpl_id, (hid_t)*lapl_id) < 0)
+        HGOTO_DONE(FAIL);
+
+done:
+    if (c_target_path)
         HDfree(c_target_path);
-    if(c_link_name)
+    if (c_link_name)
         HDfree(c_link_name);
 
     return ret_value;
@@ -271,36 +268,35 @@ nh5lcreate_soft_c(_fcd target_path, size_t_f *target_path_len,
  *  M. Scot Breitenfeld
  *  February 27, 2008
  * SOURCE
-*/
+ */
 int_f
-nh5lcreate_hard_c(hid_t_f *obj_loc_id, _fcd obj_name, size_t_f *obj_namelen,
-		  hid_t_f *link_loc_id,
-		  _fcd link_name, size_t_f *link_namelen,
-		  hid_t_f *lcpl_id, hid_t_f *lapl_id )
+nh5lcreate_hard_c(hid_t_f *obj_loc_id, _fcd obj_name, size_t_f *obj_namelen, hid_t_f *link_loc_id,
+                  _fcd link_name, size_t_f *link_namelen, hid_t_f *lcpl_id, hid_t_f *lapl_id)
 /******/
 {
-  char *c_obj_name = NULL;
-  char *c_link_name = NULL;
-  int_f ret_value = 0;
-
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
-    HGOTO_DONE(FAIL);
-  if((c_link_name = HD5f2cstring(link_name, (size_t)*link_namelen)) == NULL)
-    HGOTO_DONE(FAIL);
-
-  /*
-   * Call H5Lcreate_hard function.
-   */
-  if ( H5Lcreate_hard((hid_t)*obj_loc_id, c_obj_name, (hid_t)*link_loc_id, c_link_name, (hid_t)*lcpl_id, (hid_t)*lapl_id) < 0)
-    HGOTO_DONE(FAIL);
-
- done:
-    if(c_obj_name)
+    char *c_obj_name  = NULL;
+    char *c_link_name = NULL;
+    int_f ret_value   = 0;
+
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+    if ((c_link_name = HD5f2cstring(link_name, (size_t)*link_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+
+    /*
+     * Call H5Lcreate_hard function.
+     */
+    if (H5Lcreate_hard((hid_t)*obj_loc_id, c_obj_name, (hid_t)*link_loc_id, c_link_name, (hid_t)*lcpl_id,
+                       (hid_t)*lapl_id) < 0)
+        HGOTO_DONE(FAIL);
+
+done:
+    if (c_obj_name)
         HDfree(c_obj_name);
-    if(c_link_name)
+    if (c_link_name)
         HDfree(c_link_name);
 
     return ret_value;
@@ -340,34 +336,35 @@ nh5lcreate_hard_c(hid_t_f *obj_loc_id, _fcd obj_name, size_t_f *obj_namelen,
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 int_f
-nh5ldelete_by_idx_c (hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
-		     int_f *index_field, int_f *order, hsize_t_f *n, hid_t_f *lapl_id)
+nh5ldelete_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen, int_f *index_field,
+                    int_f *order, hsize_t_f *n, hid_t_f *lapl_id)
 /******/
 {
-    char *c_group_name = NULL;          /* Buffer to hold C string */
-    H5_index_t c_index_field;
+    char *          c_group_name = NULL; /* Buffer to hold C string */
+    H5_index_t      c_index_field;
     H5_iter_order_t c_order;
-    int_f ret_value = 0;          /* Return value */
+    int_f           ret_value = 0; /* Return value */
 
-     /*
-      * Convert FORTRAN name to C name
-      */
-    if((c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)) == NULL)
-      HGOTO_DONE(FAIL);
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
 
     c_index_field = (H5_index_t)*index_field;
-    c_order = (H5_iter_order_t)*order;
+    c_order       = (H5_iter_order_t)*order;
 
-     /*
-      * Call H5Ldelete_by_name function.
-      */
-    if(H5Ldelete_by_idx((hid_t)*loc_id, c_group_name, c_index_field, c_order, (hsize_t)*n, (hid_t)*lapl_id) < 0)
-      HGOTO_DONE(FAIL);
+    /*
+     * Call H5Ldelete_by_name function.
+     */
+    if (H5Ldelete_by_idx((hid_t)*loc_id, c_group_name, c_index_field, c_order, (hsize_t)*n, (hid_t)*lapl_id) <
+        0)
+        HGOTO_DONE(FAIL);
 
 done:
-    if(c_group_name)
+    if (c_group_name)
         HDfree(c_group_name);
     return ret_value;
 }
@@ -393,28 +390,28 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5lexists_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id, int_f *link_exists)
+nh5lexists_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id, int_f *link_exists)
 /******/
 {
-  char *c_name = NULL;          /* Buffer to hold C string */
-  int_f ret_value = 0;          /* Return value */
+    char *c_name    = NULL; /* Buffer to hold C string */
+    int_f ret_value = 0;    /* Return value */
 
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
-    HGOTO_DONE(FAIL);
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
+        HGOTO_DONE(FAIL);
 
-  /*
-   * Call H5Lexists function.
-   */
-  if((*link_exists = (int_f)H5Lexists((hid_t)*loc_id, c_name, (hid_t)*lapl_id)) < 0)
-         HGOTO_DONE(FAIL);
+    /*
+     * Call H5Lexists function.
+     */
+    if ((*link_exists = (int_f)H5Lexists((hid_t)*loc_id, c_name, (hid_t)*lapl_id)) < 0)
+        HGOTO_DONE(FAIL);
 
 done:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
     return ret_value;
 }
@@ -452,41 +449,41 @@ done:
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 int_f
-nh5lget_info_c(hid_t_f *link_loc_id, _fcd link_name, size_t_f *link_namelen,
-		int_f *cset, int_f *corder, int_f *corder_valid, int_f *link_type,
-		haddr_t_f *address, size_t_f *val_size,
-		hid_t_f *lapl_id)
+nh5lget_info_c(hid_t_f *link_loc_id, _fcd link_name, size_t_f *link_namelen, int_f *cset, int_f *corder,
+               int_f *corder_valid, int_f *link_type, haddr_t_f *address, size_t_f *val_size,
+               hid_t_f *lapl_id)
 /******/
 {
-    char *c_link_name = NULL;          /* Buffer to hold C string */
-    int_f ret_value = 0;          /* Return value */
+    char *     c_link_name = NULL; /* Buffer to hold C string */
+    int_f      ret_value   = 0;    /* Return value */
     H5L_info_t link_buff;
 
     /*
      * Convert FORTRAN name to C name
      */
-    if(NULL == (c_link_name = HD5f2cstring(link_name, (size_t)*link_namelen)))
+    if (NULL == (c_link_name = HD5f2cstring(link_name, (size_t)*link_namelen)))
         HGOTO_DONE(FAIL);
 
     /*
      * Call H5Linfo function.
      */
-    if(H5Lget_info((hid_t)*link_loc_id, c_link_name, &link_buff, (hid_t)*lapl_id) < 0)
+    if (H5Lget_info((hid_t)*link_loc_id, c_link_name, &link_buff, (hid_t)*lapl_id) < 0)
         HGOTO_DONE(FAIL);
 
     /* Unpack the structure */
-    *cset = (int_f)link_buff.cset;
-    *corder = (int_f)link_buff.corder;
+    *cset         = (int_f)link_buff.cset;
+    *corder       = (int_f)link_buff.corder;
     *corder_valid = 0;
-    if(link_buff.corder_valid > 0) *corder_valid = 1;
+    if (link_buff.corder_valid > 0)
+        *corder_valid = 1;
     *link_type = (int_f)link_buff.type;
-    *address = (haddr_t_f)link_buff.u.address;
-    *val_size = (size_t_f)link_buff.u.val_size;
+    *address   = (haddr_t_f)link_buff.u.address;
+    *val_size  = (size_t_f)link_buff.u.val_size;
 
 done:
-    if(c_link_name)
+    if (c_link_name)
         HDfree(c_link_name);
 
     return ret_value;
@@ -521,44 +518,45 @@ done:
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 int_f
-nh5lget_info_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
-		      int_f *index_field, int_f *order, hsize_t_f *n,
-		      int_f *link_type, int_f *corder_valid, int_f *corder, int_f *cset,  haddr_t_f *address, size_t_f *val_size, hid_t_f *lapl_id)
+nh5lget_info_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen, int_f *index_field,
+                      int_f *order, hsize_t_f *n, int_f *link_type, int_f *corder_valid, int_f *corder,
+                      int_f *cset, haddr_t_f *address, size_t_f *val_size, hid_t_f *lapl_id)
 /******/
 {
-    char *c_group_name = NULL;          /* Buffer to hold C string */
-    H5_index_t c_index_field;
+    char *          c_group_name = NULL; /* Buffer to hold C string */
+    H5_index_t      c_index_field;
     H5_iter_order_t c_order;
-    int_f ret_value = 0;          /* Return value */
-    H5L_info_t link_buff;
+    int_f           ret_value = 0; /* Return value */
+    H5L_info_t      link_buff;
 
     /*
      * Convert FORTRAN name to C name
      */
-    if((c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)) == NULL)
-      HGOTO_DONE(FAIL);
+    if ((c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)) == NULL)
+        HGOTO_DONE(FAIL);
 
     c_index_field = (H5_index_t)*index_field;
-    c_order = (H5_iter_order_t)*order;
-     /*
-      * Call H5Linfo_by_idx function.
-      */
-    if(H5Lget_info_by_idx((hid_t)*loc_id, c_group_name, c_index_field, c_order, (hsize_t)*n,
-			  &link_buff, (hid_t)*lapl_id) < 0)
-      HGOTO_DONE(FAIL);
+    c_order       = (H5_iter_order_t)*order;
+    /*
+     * Call H5Linfo_by_idx function.
+     */
+    if (H5Lget_info_by_idx((hid_t)*loc_id, c_group_name, c_index_field, c_order, (hsize_t)*n, &link_buff,
+                           (hid_t)*lapl_id) < 0)
+        HGOTO_DONE(FAIL);
 
     /* Unpack the structure */
 
     *corder_valid = 0;
-    if(link_buff.corder_valid > 0) *corder_valid = 1;
+    if (link_buff.corder_valid > 0)
+        *corder_valid = 1;
 
-    *corder = (int_f)link_buff.corder;
-    *cset = (int_f)link_buff.cset;
+    *corder    = (int_f)link_buff.corder;
+    *cset      = (int_f)link_buff.cset;
     *link_type = (int_f)link_buff.type;
-    *address = (haddr_t_f)link_buff.u.address;
-    *val_size = (size_t_f)link_buff.u.val_size;
+    *address   = (haddr_t_f)link_buff.u.address;
+    *val_size  = (size_t_f)link_buff.u.val_size;
 
 done:
     return ret_value;
@@ -584,12 +582,12 @@ done:
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 int_f
 nh5lis_registered_c(int_f *link_cls_id)
 /******/
 {
-    int_f ret_value;      /* Return value */
+    int_f ret_value; /* Return value */
 
     /*
      * Call H5Lis_registered
@@ -604,7 +602,6 @@ nh5lis_registered_c(int_f *link_cls_id)
 /*   H5L_type_t c_link_cls_id; /\* User-defined link class identifier *\/ */
 /*   htri_t registered; /\* registration status *\/ */
 
-
 /*   c_link_cls_id = (H5L_type_t)*link_cls_id; */
 /*   /\* */
 /*    * Call H5Lis_registered */
@@ -616,7 +613,6 @@ nh5lis_registered_c(int_f *link_cls_id)
 /*   return ret_value; */
 /* } */
 
-
 /****if* H5Lf/h5lmove_c
  * NAME
  *        h5lmove_c
@@ -639,35 +635,35 @@ nh5lis_registered_c(int_f *link_cls_id)
  *  M. Scot Breitenfeld
  *              March 3, 2008
  * SOURCE
-*/
+ */
 int_f
-nh5lmove_c(hid_t_f *src_loc_id, _fcd src_name, size_t_f *src_namelen, hid_t_f *dest_loc_id,
-	   _fcd dest_name, size_t_f *dest_namelen, hid_t_f *lcpl_id, hid_t_f *lapl_id)
+nh5lmove_c(hid_t_f *src_loc_id, _fcd src_name, size_t_f *src_namelen, hid_t_f *dest_loc_id, _fcd dest_name,
+           size_t_f *dest_namelen, hid_t_f *lcpl_id, hid_t_f *lapl_id)
 /******/
 {
-    char *c_src_name = NULL;  /* Buffer to hold C string */
+    char *c_src_name  = NULL; /* Buffer to hold C string */
     char *c_dest_name = NULL; /* Buffer to hold C string */
-    int_f ret_value = 0;          /* Return value */
+    int_f ret_value   = 0;    /* Return value */
 
     /*
      * Convert FORTRAN name to C name
      */
-    if(NULL == (c_src_name = HD5f2cstring(src_name, (size_t)*src_namelen)))
+    if (NULL == (c_src_name = HD5f2cstring(src_name, (size_t)*src_namelen)))
         HGOTO_DONE(FAIL)
-    if(NULL == (c_dest_name = HD5f2cstring(dest_name, (size_t)*dest_namelen)))
+    if (NULL == (c_dest_name = HD5f2cstring(dest_name, (size_t)*dest_namelen)))
         HGOTO_DONE(FAIL)
 
-     /*
-      * Call H5Lmove function.
-      */
-    if(H5Lmove((hid_t)*src_loc_id, c_src_name, (hid_t)*dest_loc_id,
-	       c_dest_name, (hid_t)*lcpl_id, (hid_t)*lapl_id) < 0)
+    /*
+     * Call H5Lmove function.
+     */
+    if (H5Lmove((hid_t)*src_loc_id, c_src_name, (hid_t)*dest_loc_id, c_dest_name, (hid_t)*lcpl_id,
+                (hid_t)*lapl_id) < 0)
         HGOTO_DONE(FAIL)
 
 done:
-    if(c_src_name)
+    if (c_src_name)
         HDfree(c_src_name);
-    if(c_dest_name)
+    if (c_dest_name)
         HDfree(c_dest_name);
 
     return ret_value;
@@ -697,23 +693,22 @@ done:
  *  M. Scot Breitenfeld
  *  March 10, 2008
  * SOURCE
-*/
+ */
 int_f
-nh5lget_name_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
-		      int_f *index_field, int_f *order, hsize_t_f *n,
-		      size_t_f *size, _fcd name, hid_t_f *lapl_id)
+nh5lget_name_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen, int_f *index_field,
+                      int_f *order, hsize_t_f *n, size_t_f *size, _fcd name, hid_t_f *lapl_id)
 /******/
 {
-    char *c_group_name = NULL;    /* Buffer to hold C string */
-    char *c_name = NULL;          /* Buffer to hold C string */
-    size_t c_size;
+    char *  c_group_name = NULL; /* Buffer to hold C string */
+    char *  c_name       = NULL; /* Buffer to hold C string */
+    size_t  c_size;
     ssize_t c_size_link;
-    int_f ret_value = 0;          /* Return value */
+    int_f   ret_value = 0; /* Return value */
 
     /*
      * Convert FORTRAN name to C name
      */
-    if(NULL == (c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)))
+    if (NULL == (c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)))
         HGOTO_DONE(FAIL)
 
     c_size = (size_t)*size + 1;
@@ -721,11 +716,12 @@ nh5lget_name_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
     /*
      * Allocate buffer to hold name of an attribute
      */
-    if(NULL == (c_name = (char *)HDmalloc(c_size)))
+    if (NULL == (c_name = (char *)HDmalloc(c_size)))
         HGOTO_DONE(FAIL)
 
-    if((c_size_link = H5Lget_name_by_idx((hid_t)*loc_id, c_group_name, (H5_index_t)*index_field,
-            (H5_iter_order_t)*order, (hsize_t)*n,c_name, c_size, (hid_t)*lapl_id)) < 0)
+    if ((c_size_link =
+             H5Lget_name_by_idx((hid_t)*loc_id, c_group_name, (H5_index_t)*index_field,
+                                (H5_iter_order_t)*order, (hsize_t)*n, c_name, c_size, (hid_t)*lapl_id)) < 0)
         HGOTO_DONE(FAIL)
 
     *size = (size_t_f)c_size_link;
@@ -733,19 +729,18 @@ nh5lget_name_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
     /*
      * Convert C name to FORTRAN and place it in the given buffer
      */
-    if(c_name)
+    if (c_name)
         HD5packFstring(c_name, _fcdtocp(name), c_size - 1);
 
 done:
-    if(c_group_name)
+    if (c_group_name)
         HDfree(c_group_name);
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
 
     return ret_value;
 }
 
-
 /* /\****if* H5Lf/h5lget_val_c */
 /*  * NAME */
 /*  *        h5lget_val_c */
@@ -795,12 +790,10 @@ done:
 /*    *\/ */
 /*     HD5packFstring(c_buf, _fcdtocp(buf), c_bufsize-1); */
 
-
 /* done: */
 /*     return ret_value; */
 /* } */
 
-
 /* /\****if* H5Lf/ */
 /*  * NAME */
 /*  *        H5Lregistered_c */
@@ -934,29 +927,29 @@ done:
  *  M. Scot Breitenfeld
  *              April 11, 2008
  * SOURCE
-*/
+ */
 int_f
 nh5lget_val_c(hid_t_f *link_loc_id, _fcd link_name, size_t_f *link_namelen, size_t_f *size,
-	      void *linkval_buff, hid_t_f *lapl_id)
+              void *linkval_buff, hid_t_f *lapl_id)
 /******/
-{    
+{
     char *c_link_name = NULL; /* Buffer to hold C string */
-    int_f ret_value = 0;       /* Return value */
+    int_f ret_value   = 0;    /* Return value */
 
     /*
      * Convert FORTRAN name to C name
      */
-    if(NULL == (c_link_name = HD5f2cstring(link_name, (size_t)*link_namelen)))
+    if (NULL == (c_link_name = HD5f2cstring(link_name, (size_t)*link_namelen)))
         HGOTO_DONE(FAIL)
 
     /*
      * Call H5Lget_val
      */
-    if(H5Lget_val((hid_t)*link_loc_id, c_link_name, &linkval_buff, (size_t)*size, (hid_t)*lapl_id )< 0)
+    if (H5Lget_val((hid_t)*link_loc_id, c_link_name, &linkval_buff, (size_t)*size, (hid_t)*lapl_id) < 0)
         HGOTO_DONE(FAIL)
 
 done:
-   if(c_link_name)
+    if (c_link_name)
         HDfree(c_link_name);
 
     return ret_value;
@@ -986,27 +979,29 @@ done:
  *  M. Scot Breitenfeld
  *  July 8, 2008
  * SOURCE
-*/
+ */
 int_f
-h5literate_c(hid_t_f *group_id, int_f *index_type, int_f *order, hsize_t_f *idx, H5L_iterate_t op, void *op_data )
+h5literate_c(hid_t_f *group_id, int_f *index_type, int_f *order, hsize_t_f *idx, H5L_iterate_t op,
+             void *op_data)
 /******/
 {
-  int_f ret_value = -1;  /* Return value */
-  herr_t func_ret_value; /* H5Linterate return value */
-  hsize_t idx_c = 0;
+    int_f   ret_value = -1; /* Return value */
+    herr_t  func_ret_value; /* H5Linterate return value */
+    hsize_t idx_c = 0;
 
-  idx_c = (hsize_t)*idx;
+    idx_c = (hsize_t)*idx;
 
-  /*
-   * Call H5Linterate
-   */
+    /*
+     * Call H5Linterate
+     */
 
-  func_ret_value = H5Literate( (hid_t)*group_id, (H5_index_t)*index_type, (H5_iter_order_t)*order, &idx_c, op, op_data);
+    func_ret_value =
+        H5Literate((hid_t)*group_id, (H5_index_t)*index_type, (H5_iter_order_t)*order, &idx_c, op, op_data);
 
-  ret_value = (int_f)func_ret_value;
-  *idx = (hsize_t_f)idx_c;
+    ret_value = (int_f)func_ret_value;
+    *idx      = (hsize_t_f)idx_c;
 
-  return ret_value;
+    return ret_value;
 }
 
 /****if* H5Lf/h5literate_by_name_c
@@ -1036,38 +1031,37 @@ h5literate_c(hid_t_f *group_id, int_f *index_type, int_f *order, hsize_t_f *idx,
  *  M. Scot Breitenfeld
  *  August 18, 2008
  * SOURCE
-*/
+ */
 int_f
-h5literate_by_name_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, int_f *index_type, int_f *order, hsize_t_f *idx, H5L_iterate_t op, void *op_data, hid_t_f *lapl_id)
+h5literate_by_name_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, int_f *index_type, int_f *order,
+                     hsize_t_f *idx, H5L_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 */
-  hsize_t idx_c = 0;
-  char *c_name = NULL;        /* Buffer to hold C string */
+    int_f   ret_value = -1; /* Return value */
+    herr_t  func_ret_value; /* H5Linterate return value */
+    hsize_t idx_c  = 0;
+    char *  c_name = NULL; /* Buffer to hold C string */
 
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
-    return ret_value=-1;
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
+        return ret_value = -1;
 
-  idx_c = (hsize_t)*idx;
+    idx_c = (hsize_t)*idx;
 
-  /*
-   * Call H5Linterate
-   */
+    /*
+     * Call H5Linterate
+     */
 
-  func_ret_value = H5Literate_by_name((hid_t)*loc_id, c_name,(H5_index_t)*index_type,(H5_iter_order_t)*order,&idx_c,op,op_data,(hid_t)*lapl_id);
+    func_ret_value = H5Literate_by_name((hid_t)*loc_id, c_name, (H5_index_t)*index_type,
+                                        (H5_iter_order_t)*order, &idx_c, op, op_data, (hid_t)*lapl_id);
 
-  ret_value = (int_f)func_ret_value;
-  *idx = (hsize_t_f)idx_c;
+    ret_value = (int_f)func_ret_value;
+    *idx      = (hsize_t_f)idx_c;
 
-  if(c_name) HDfree(c_name);
+    if (c_name)
+        HDfree(c_name);
 
-  return ret_value;
+    return ret_value;
 }
-
-
-
-
diff --git a/fortran/src/H5Of.c b/fortran/src/H5Of.c
index a2d42b7..8eddcde 100644
--- a/fortran/src/H5Of.c
+++ b/fortran/src/H5Of.c
@@ -17,88 +17,87 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 #include "H5Eprivate.h"
-int_f
-fill_h5o_info_t_f(H5O_info_t Oinfo, H5O_info_t_f *object_info);
+int_f fill_h5o_info_t_f(H5O_info_t Oinfo, H5O_info_t_f *object_info);
 
 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;
+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
@@ -119,32 +118,31 @@ fill_h5o_info_t_f(H5O_info_t Oinfo, H5O_info_t_f *object_info) {
  *  M. Scot Breitenfeld
  *  April 21, 2008
  * SOURCE
-*/
+ */
 int_f
-nh5olink_c (hid_t_f *object_id, hid_t_f *new_loc_id, _fcd name, size_t_f *namelen,
-            hid_t_f *lcpl_id, hid_t_f *lapl_id)
+nh5olink_c(hid_t_f *object_id, hid_t_f *new_loc_id, _fcd name, size_t_f *namelen, hid_t_f *lcpl_id,
+           hid_t_f *lapl_id)
 /******/
 {
-  char *c_name = NULL;          /* Buffer to hold C string */
-  int_f ret_value = 0;          /* Return value */
-
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if( (c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
-    HGOTO_DONE(FAIL);
-
-  /*
-   * Call H5Olink function.
-   */
-  if((hid_t_f)H5Olink((hid_t)*object_id, (hid_t)*new_loc_id, c_name,
-		       (hid_t)*lcpl_id, (hid_t)*lapl_id) < 0)
-    HGOTO_DONE(FAIL);
-
- done:
-  if(c_name)
-    HDfree(c_name);
-  return ret_value;
+    char *c_name    = NULL; /* Buffer to hold C string */
+    int_f ret_value = 0;    /* Return value */
+
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+
+    /*
+     * Call H5Olink function.
+     */
+    if ((hid_t_f)H5Olink((hid_t)*object_id, (hid_t)*new_loc_id, c_name, (hid_t)*lcpl_id, (hid_t)*lapl_id) < 0)
+        HGOTO_DONE(FAIL);
+
+done:
+    if (c_name)
+        HDfree(c_name);
+    return ret_value;
 }
 
 /****if* H5Of/h5oopen_c
@@ -165,30 +163,30 @@ nh5olink_c (hid_t_f *object_id, hid_t_f *new_loc_id, _fcd name, size_t_f *namele
  *  M. Scot Breitenfeld
  *  April 18, 2008
  * SOURCE
-*/
+ */
 int_f
-nh5oopen_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id, hid_t_f *obj_id)
+nh5oopen_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id, hid_t_f *obj_id)
 /******/
 {
-  char *c_name = NULL;          /* Buffer to hold C string */
-  int_f ret_value = 0;          /* Return value */
-
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
-    HGOTO_DONE(FAIL);
-
-  /*
-   * Call H5Oopen function.
-   */
-  if((*obj_id = (hid_t_f)H5Oopen((hid_t)*loc_id, c_name, (hid_t)*lapl_id)) < 0)
-    HGOTO_DONE(FAIL);
-
- done:
-  if(c_name)
-    HDfree(c_name);
-  return ret_value;
+    char *c_name    = NULL; /* Buffer to hold C string */
+    int_f ret_value = 0;    /* Return value */
+
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+
+    /*
+     * Call H5Oopen function.
+     */
+    if ((*obj_id = (hid_t_f)H5Oopen((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/h5oclose_c
  * NAME
@@ -196,25 +194,25 @@ nh5oopen_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id, hid
  * PURPOSE
  *   Call H5Oclose
  * INPUTS
- *   object_id   - Object identifier  
+ *   object_id   - Object identifier
  * RETURNS
  *   0 on success, -1 on failure
  * AUTHOR
  *   M. Scot Breitenfeld
  *   December 17, 2008
  * SOURCE
-*/
+ */
 int_f
-nh5oclose_c ( hid_t_f *object_id )
+nh5oclose_c(hid_t_f *object_id)
 /******/
 {
-  int_f ret_value=0;          /* Return value */
-  
-  if (H5Oclose((hid_t)*object_id) < 0)
-    HGOTO_DONE(FAIL);
-  
- done:
-  return ret_value;
+    int_f ret_value = 0; /* Return value */
+
+    if (H5Oclose((hid_t)*object_id) < 0)
+        HGOTO_DONE(FAIL);
+
+done:
+    return ret_value;
 }
 
 /****if* H5Of/h5ovisit_c
@@ -239,22 +237,23 @@ nh5oclose_c ( hid_t_f *object_id )
  *  M. Scot Breitenfeld
  *  November 19, 2008
  * SOURCE
-*/
+ */
 int_f
-h5ovisit_c(hid_t_f *group_id, int_f *index_type, int_f *order, H5O_iterate_t op, void *op_data )
+h5ovisit_c(hid_t_f *group_id, int_f *index_type, int_f *order, H5O_iterate_t op, void *op_data)
 /******/
 {
-  int_f ret_value = -1;       /* Return value */
-  herr_t func_ret_value; /* H5Linterate return value */
+    int_f  ret_value = -1; /* Return value */
+    herr_t func_ret_value; /* H5Linterate return value */
 
-  /*
-   * Call H5Ovisit
-   */
-  func_ret_value = H5Ovisit( (hid_t)*group_id, (H5_index_t)*index_type, (H5_iter_order_t)*order, op, op_data);
+    /*
+     * Call H5Ovisit
+     */
+    func_ret_value =
+        H5Ovisit((hid_t)*group_id, (H5_index_t)*index_type, (H5_iter_order_t)*order, op, op_data);
 
-  ret_value = (int_f)func_ret_value;
+    ret_value = (int_f)func_ret_value;
 
-  return ret_value;
+    return ret_value;
 }
 
 /****if* H5Of/h5oopen_by_addr_c
@@ -267,7 +266,7 @@ h5ovisit_c(hid_t_f *group_id, int_f *index_type, int_f *order, H5O_iterate_t op,
  *    addr  - Object’s address in the file
  *
  * OUTPUTS
- *  obj_id  - Dataset identifier      
+ *  obj_id  - Dataset identifier
  *
  * RETURNS
  *     0 on success, -1 on failure
@@ -275,21 +274,21 @@ h5ovisit_c(hid_t_f *group_id, int_f *index_type, int_f *order, H5O_iterate_t op,
  *  M. Scot Breitenfeld
  *  September 14, 2009
  * SOURCE
-*/
+ */
 int_f
-nh5oopen_by_addr_c (hid_t_f *loc_id, haddr_t_f *addr, hid_t_f *obj_id)
+nh5oopen_by_addr_c(hid_t_f *loc_id, haddr_t_f *addr, hid_t_f *obj_id)
 /******/
 {
-  int_f ret_value = 0;          /* Return value */
+    int_f ret_value = 0; /* Return value */
 
-  /*
-   * Call H5Oopen_by_address function.
-   */
-  if((*obj_id = (hid_t_f)H5Oopen_by_addr((hid_t)*loc_id, (haddr_t)*addr)) < 0)
-    HGOTO_DONE(FAIL);
+    /*
+     * Call H5Oopen_by_address function.
+     */
+    if ((*obj_id = (hid_t_f)H5Oopen_by_addr((hid_t)*loc_id, (haddr_t)*addr)) < 0)
+        HGOTO_DONE(FAIL);
 
- done:
-  return ret_value;
+done:
+    return ret_value;
 }
 
 /****if* H5Of/H5Oget_info_by_name_c
@@ -311,35 +310,34 @@ nh5oopen_by_addr_c (hid_t_f *loc_id, haddr_t_f *addr, hid_t_f *obj_id)
  *  M. Scot Breitenfeld
  *  December 1, 2008
  * SOURCE
-*/
+ */
 int_f
-h5oget_info_by_name_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id,
-			H5O_info_t_f *object_info)
+h5oget_info_by_name_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id,
+                      H5O_info_t_f *object_info)
 /******/
 {
-  char *c_name = NULL;          /* Buffer to hold C string */
-  int_f ret_value = 0;          /* Return value */
-  H5O_info_t Oinfo;
-  
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
-    HGOTO_DONE(FAIL);
-
-  /*
-   * Call H5Oinfo_by_name function.
-   */
-  if(H5Oget_info_by_name((hid_t)*loc_id, c_name,
-			 &Oinfo, (hid_t)*lapl_id) < 0)
-    HGOTO_DONE(FAIL);
-
-  ret_value = fill_h5o_info_t_f(Oinfo,object_info);
-
- done:
-  if(c_name)
-    HDfree(c_name);
-  return ret_value;
+    char *     c_name    = NULL; /* Buffer to hold C string */
+    int_f      ret_value = 0;    /* Return value */
+    H5O_info_t Oinfo;
+
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
+        HGOTO_DONE(FAIL);
+
+    /*
+     * Call H5Oinfo_by_name function.
+     */
+    if (H5Oget_info_by_name((hid_t)*loc_id, c_name, &Oinfo, (hid_t)*lapl_id) < 0)
+        HGOTO_DONE(FAIL);
+
+    ret_value = fill_h5o_info_t_f(Oinfo, object_info);
+
+done:
+    if (c_name)
+        HDfree(c_name);
+    return ret_value;
 }
 
 /****if* H5Of/H5Oget_info_by_idx_c
@@ -361,40 +359,40 @@ h5oget_info_by_name_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *l
  *  M. Scot Breitenfeld
  *  December 1, 2008
  * SOURCE
-*/
+ */
 int_f
-h5oget_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)
+h5oget_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);
-
-  c_index_field = (H5_index_t)*index_field;
-  c_order = (H5_iter_order_t)*order;
-
-  /*
-   * 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);
-
-  ret_value = fill_h5o_info_t_f(Oinfo,object_info);
-
- done:
-  if(c_group_name)
-    HDfree(c_group_name);
-  return ret_value;
+    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);
+
+    c_index_field = (H5_index_t)*index_field;
+    c_order       = (H5_iter_order_t)*order;
+
+    /*
+     * 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);
+
+    ret_value = fill_h5o_info_t_f(Oinfo, object_info);
+
+done:
+    if (c_group_name)
+        HDfree(c_group_name);
+    return ret_value;
 }
 
 /****if* H5Of/H5Oget_info_c
@@ -413,24 +411,24 @@ h5oget_info_by_idx_c (hid_t_f *loc_id, _fcd  group_name, size_t_f *namelen,
  *  M. Scot Breitenfeld
  *  May 16, 2012
  * SOURCE
-*/
+ */
 int_f
-h5oget_info_c (hid_t_f *object_id, H5O_info_t_f *object_info)
+h5oget_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);
-
-  ret_value = fill_h5o_info_t_f(Oinfo,object_info);
-
- done:
-  return ret_value;
+    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);
+
+    ret_value = fill_h5o_info_t_f(Oinfo, object_info);
+
+done:
+    return ret_value;
 }
 
 /* ***if* H5Of/H5Ocopy_c
@@ -438,12 +436,12 @@ h5oget_info_c (hid_t_f *object_id, H5O_info_t_f *object_info)
  *  H5Ocopy_c
  * PURPOSE
  *  Calls H5Ocopy
- * INPUTS  
- *  src_loc_id   - Object identifier indicating the location of the source object to be copied 
- *  src_name     - Name of the source object to be copied 
+ * INPUTS
+ *  src_loc_id   - Object identifier indicating the location of the source object to be copied
+ *  src_name     - Name of the source object to be copied
  *  src_name_len - Length of src_name
- *  dst_loc_id   - Location identifier specifying the destination 
- *  dst_name     - Name to be assigned to the new copy 
+ *  dst_loc_id   - Location identifier specifying the destination
+ *  dst_name     - Name to be assigned to the new copy
  *  dst_name_len - Length of dst_name
  *  ocpypl_id    - Object copy property list
  *  lcpl_id      - Link creation property list for the new hard link
@@ -454,41 +452,39 @@ h5oget_info_c (hid_t_f *object_id, H5O_info_t_f *object_info)
  *  M. Scot Breitenfeld
  *  March 14, 2012
  * SOURCE
-*/
+ */
 int_f
-nh5ocopy_c (hid_t_f *src_loc_id, _fcd src_name, size_t_f *src_name_len,
-	    hid_t_f *dst_loc_id, _fcd dst_name, size_t_f *dst_name_len, 
-	    hid_t_f *ocpypl_id, hid_t_f *lcpl_id )
+nh5ocopy_c(hid_t_f *src_loc_id, _fcd src_name, size_t_f *src_name_len, hid_t_f *dst_loc_id, _fcd dst_name,
+           size_t_f *dst_name_len, hid_t_f *ocpypl_id, hid_t_f *lcpl_id)
 /******/
 {
-  char *c_src_name = NULL;  /* Buffer to hold C string */
-  char *c_dst_name = NULL;  /* Buffer to hold C string */
-  
-  int_f ret_value = 0;      /* Return value */
-  
-  /*
-   * Convert FORTRAN name to C name
-   */
-  if((c_src_name = HD5f2cstring(src_name, (size_t)*src_name_len)) == NULL)
-    HGOTO_DONE(FAIL);
-  if((c_dst_name = HD5f2cstring(dst_name, (size_t)*dst_name_len)) == NULL)
-    HGOTO_DONE(FAIL);
-
-  /*
-   * Call H5Ocopy function.
-   */
-  if(H5Ocopy( (hid_t)*src_loc_id, c_src_name, (hid_t)*dst_loc_id, c_dst_name, 
-	      (hid_t)*ocpypl_id, (hid_t)*lcpl_id) < 0)
-    HGOTO_DONE(FAIL);
-
- done:
-  if(c_src_name)
-    HDfree(c_src_name);
-  if(c_dst_name)
-    HDfree(c_dst_name);
-
-  return ret_value;
-
+    char *c_src_name = NULL; /* Buffer to hold C string */
+    char *c_dst_name = NULL; /* Buffer to hold C string */
+
+    int_f ret_value = 0; /* Return value */
+
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if ((c_src_name = HD5f2cstring(src_name, (size_t)*src_name_len)) == NULL)
+        HGOTO_DONE(FAIL);
+    if ((c_dst_name = HD5f2cstring(dst_name, (size_t)*dst_name_len)) == NULL)
+        HGOTO_DONE(FAIL);
+
+    /*
+     * Call H5Ocopy function.
+     */
+    if (H5Ocopy((hid_t)*src_loc_id, c_src_name, (hid_t)*dst_loc_id, c_dst_name, (hid_t)*ocpypl_id,
+                (hid_t)*lcpl_id) < 0)
+        HGOTO_DONE(FAIL);
+
+done:
+    if (c_src_name)
+        HDfree(c_src_name);
+    if (c_dst_name)
+        HDfree(c_dst_name);
+
+    return ret_value;
 }
 
 /****if* H5Of/h5ovisit_by_name_c
@@ -513,34 +509,33 @@ nh5ocopy_c (hid_t_f *src_loc_id, _fcd src_name, size_t_f *src_name_len,
  *  M. Scot Breitenfeld
  *  May 16, 2012
  * SOURCE
-*/
+ */
 int_f
-h5ovisit_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 )
+h5ovisit_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;
-
+    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
@@ -556,21 +551,21 @@ h5ovisit_by_name_c(hid_t_f *loc_id,  _fcd object_name, size_t_f *namelen, int_f
  *  M. Scot Breitenfeld
  *  May 16, 2012
  * SOURCE
-*/
+ */
 int_f
-nh5odecr_refcount_c (hid_t_f *object_id)
+nh5odecr_refcount_c(hid_t_f *object_id)
 /******/
 {
-  int_f ret_value = 0;  /* Return value */
+    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);
+    /*
+     * Call H5Odecr_refcount function.
+     */
+    if ((hid_t_f)H5Odecr_refcount((hid_t)*object_id) < 0)
+        HGOTO_DONE(FAIL);
 
- done:
-  return ret_value;
+done:
+    return ret_value;
 }
 
 /****if* H5Of/h5oexists_by_name_c
@@ -590,30 +585,30 @@ nh5odecr_refcount_c (hid_t_f *object_id)
  *  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)
+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 */
-
-  /*
-   * 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;
+    char *c_name    = NULL; /* Buffer to hold C string */
+    int_f ret_value = 0;    /* Return value */
+
+    /*
+     * 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
@@ -629,21 +624,21 @@ nh5oexists_by_name_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *la
  *  M. Scot Breitenfeld
  *  May 16, 2012
  * SOURCE
-*/
+ */
 int_f
-nh5oincr_refcount_c (hid_t_f *object_id)
+nh5oincr_refcount_c(hid_t_f *object_id)
 /******/
 {
-  int_f ret_value = 0;  /* Return value */
+    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);
+    /*
+     * Call H5Oincr_refcount function.
+     */
+    if ((hid_t_f)H5Oincr_refcount((hid_t)*object_id) < 0)
+        HGOTO_DONE(FAIL);
 
- done:
-  return ret_value;
+done:
+    return ret_value;
 }
 
 /****if* H5Of/h5oset_comment_c
@@ -661,30 +656,30 @@ nh5oincr_refcount_c (hid_t_f *object_id)
  *  M. Scot Breitenfeld
  *  May 17, 2012
  * SOURCE
-*/
+ */
 int_f
-nh5oset_comment_c (hid_t_f *object_id, _fcd comment, size_t_f *commentlen)
+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;
+    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
@@ -694,8 +689,8 @@ nh5oset_comment_c (hid_t_f *object_id, _fcd comment, size_t_f *commentlen)
  *  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. 
+ *  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.
@@ -706,38 +701,39 @@ nh5oset_comment_c (hid_t_f *object_id, _fcd comment, size_t_f *commentlen)
  *  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)
+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;
+    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
@@ -760,36 +756,37 @@ nh5oset_comment_by_name_c (hid_t_f *object_id, _fcd name, size_t_f *namelen,  _f
  *  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)
+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;
+    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
@@ -809,43 +806,43 @@ nh5oopen_by_idx_c (hid_t_f *loc_id, _fcd  group_name, size_t_f *group_namelen,
  *  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)
+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;
+    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
@@ -865,54 +862,55 @@ nh5oget_comment_c (hid_t_f *object_id, _fcd comment, size_t_f *commentsize,  hss
  *  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)
+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 */
-  ssize_t c_bufsize;
-  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((c_bufsize = H5Oget_comment_by_name((hid_t)*loc_id, c_name, c_comment, (size_t)*commentsize,(hid_t)*lapl_id )) < 0)
-    HGOTO_DONE(FAIL);
-
-  *bufsize = (size_t_f)c_bufsize;
-
-  /*
-   * 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;
+    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 */
+    ssize_t c_bufsize;
+    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 ((c_bufsize = H5Oget_comment_by_name((hid_t)*loc_id, c_name, c_comment, (size_t)*commentsize,
+                                            (hid_t)*lapl_id)) < 0)
+        HGOTO_DONE(FAIL);
+
+    *bufsize = (size_t_f)c_bufsize;
+
+    /*
+     * 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;
 }
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index ed3e4e4..3e95476 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -17,7 +17,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 #include "H5Eprivate.h"
@@ -38,17 +38,17 @@
  *  Wednesday, October 9, 2002
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pcreate_c ( hid_t_f *cls, hid_t_f *prp_id )
+nh5pcreate_c(hid_t_f *cls, hid_t_f *prp_id)
 /******/
 {
     hid_t c_prp_id;
     int_f ret_value = 0;
 
     c_prp_id = H5Pcreate((hid_t)*cls);
-    if(c_prp_id  < 0)
+    if (c_prp_id < 0)
         HGOTO_DONE(FAIL)
 
     *prp_id = (hid_t_f)c_prp_id;
@@ -71,21 +71,20 @@ done:
  *              Saturday, August 14, 1999
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pclose_c ( hid_t_f *prp_id )
+nh5pclose_c(hid_t_f *prp_id)
 /******/
 {
     int_f ret_value = 0;
 
-    if(H5Pclose((hid_t)*prp_id) < 0)
+    if (H5Pclose((hid_t)*prp_id) < 0)
         ret_value = -1;
 
     return ret_value;
 }
 
-
 /****if* H5Pf/h5pcopy_c
  * NAME
  *        h5pcopy_c
@@ -102,16 +101,16 @@ nh5pclose_c ( hid_t_f *prp_id )
  *              Saturday, August 14, 1999
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pcopy_c ( hid_t_f *prp_id , hid_t_f *new_prp_id)
+nh5pcopy_c(hid_t_f *prp_id, hid_t_f *new_prp_id)
 /******/
 {
     hid_t c_new_prp_id;
     int_f ret_value = 0;
 
     c_new_prp_id = H5Pcopy((hid_t)*prp_id);
-    if(c_new_prp_id < 0)
+    if (c_new_prp_id < 0)
         HGOTO_DONE(FAIL)
 
     *new_prp_id = (hid_t_f)c_new_prp_id;
@@ -137,16 +136,16 @@ done:
  *              Monday, September 30, 2002
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pequal_c ( hid_t_f *plist1_id , hid_t_f *plist2_id, int_f * c_flag)
+nh5pequal_c(hid_t_f *plist1_id, hid_t_f *plist2_id, int_f *c_flag)
 /******/
 {
     htri_t c_c_flag;
-    int_f ret_value = 0;
+    int_f  ret_value = 0;
 
     c_c_flag = H5Pequal((hid_t)*plist1_id, (hid_t)*plist2_id);
-    if(c_c_flag < 0)
+    if (c_c_flag < 0)
         HGOTO_DONE(FAIL)
 
     *c_flag = (int_f)c_c_flag;
@@ -155,7 +154,6 @@ done:
     return ret_value;
 }
 
-
 /****if* H5Pf/h5pget_class_c
  * NAME
  *  h5pget_class_c
@@ -171,17 +169,17 @@ done:
  *  Elena Pourmal
  *  Saturday, August 14, 1999
  * SOURCE
-*/
+ */
 
 int_f
-nh5pget_class_c ( hid_t_f *prp_id , hid_t_f *classtype)
+nh5pget_class_c(hid_t_f *prp_id, hid_t_f *classtype)
 /******/
 {
     hid_t c_classtype;
     int_f ret_value = 0;
 
-    if( (c_classtype = H5Pget_class((hid_t)*prp_id)) < 0)
-       HGOTO_DONE(FAIL)
+    if ((c_classtype = H5Pget_class((hid_t)*prp_id)) < 0)
+        HGOTO_DONE(FAIL)
 
     *classtype = (hid_t_f)c_classtype;
 
@@ -204,25 +202,26 @@ done:
  *  Elena Pourmal
  *  Thursday, February 17, 2000
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_preserve_c ( hid_t_f *prp_id , int_f *flag)
+nh5pset_preserve_c(hid_t_f *prp_id, int_f *flag)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_prp_id;
-  herr_t status;
-  hbool_t c_flag = 0;
+    int     ret_value = 0;
+    hid_t   c_prp_id;
+    herr_t  status;
+    hbool_t c_flag = 0;
 
-  if (*flag > 0) c_flag = 1;
-  c_prp_id = (hid_t)*prp_id;
-  status = H5Pset_preserve(c_prp_id, c_flag);
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
+    if (*flag > 0)
+        c_flag = 1;
+    c_prp_id = (hid_t)*prp_id;
+    status   = H5Pset_preserve(c_prp_id, c_flag);
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
-
 /****if* H5Pf/h5pget_preserve_c
  * NAME
  *        h5pget_preserve_c
@@ -239,21 +238,22 @@ nh5pset_preserve_c ( hid_t_f *prp_id , int_f *flag)
  *  Elena Pourmal
  *  Thursday, February 17, 2000
  * SOURCE
-*/
+ */
 
 int_f
-nh5pget_preserve_c ( hid_t_f *prp_id , int_f *flag)
+nh5pget_preserve_c(hid_t_f *prp_id, int_f *flag)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_prp_id;
-  int c_flag;
+    int   ret_value = 0;
+    hid_t c_prp_id;
+    int   c_flag;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_flag = H5Pget_preserve(c_prp_id);
-  if ( c_flag < 0  ) ret_value = -1;
-  *flag = (int_f)c_flag;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    c_flag   = H5Pget_preserve(c_prp_id);
+    if (c_flag < 0)
+        ret_value = -1;
+    *flag = (int_f)c_flag;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_deflate_c
@@ -270,26 +270,25 @@ nh5pget_preserve_c ( hid_t_f *prp_id , int_f *flag)
  *  Elena Pourmal
  *              Saturday, August 14, 1999
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_deflate_c ( hid_t_f *prp_id , int_f *level)
+nh5pset_deflate_c(hid_t_f *prp_id, int_f *level)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_prp_id;
-  unsigned c_level;
-  herr_t status;
+    int      ret_value = 0;
+    hid_t    c_prp_id;
+    unsigned c_level;
+    herr_t   status;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_level = (unsigned)*level;
-  status = H5Pset_deflate(c_prp_id, c_level);
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    c_level  = (unsigned)*level;
+    status   = H5Pset_deflate(c_prp_id, c_level);
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
-
-
 /****if* H5Pf/h5pset_chunk_c
  * NAME
  *        h5pset_chunk_c
@@ -306,34 +305,34 @@ nh5pset_deflate_c ( hid_t_f *prp_id , int_f *level)
  * AUTHOR
  *  Elena Pourmal
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_chunk_c ( hid_t_f *prp_id, int_f *rank, hsize_t_f *dims )
+nh5pset_chunk_c(hid_t_f *prp_id, int_f *rank, hsize_t_f *dims)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_prp_id = (hid_t)*prp_id;
-  int c_rank = (int)*rank;
-  hsize_t c_dims[H5S_MAX_RANK];
-  herr_t status;
-  int i;
+    int     ret_value = -1;
+    hid_t   c_prp_id  = (hid_t)*prp_id;
+    int     c_rank    = (int)*rank;
+    hsize_t c_dims[H5S_MAX_RANK];
+    herr_t  status;
+    int     i;
 
-  /*
-   * Transpose dimension arrays because of C-FORTRAN storage order
-   */
-  for (i = 0; i < c_rank ; i++)
-       c_dims[i] =  (hsize_t)dims[c_rank - i - 1];
+    /*
+     * Transpose dimension arrays because of C-FORTRAN storage order
+     */
+    for (i = 0; i < c_rank; i++)
+        c_dims[i] = (hsize_t)dims[c_rank - i - 1];
 
-  status = H5Pset_chunk(c_prp_id, c_rank, c_dims);
-  if (status < 0) goto DONE;
-  ret_value = 0;
+    status = H5Pset_chunk(c_prp_id, c_rank, c_dims);
+    if (status < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-  return ret_value;
+    return ret_value;
 }
 
-
 /****if* H5Pf/h5pget_chunk_c
  * NAME
  *        h5pget_chunk_c
@@ -350,29 +349,30 @@ DONE:
  * AUTHOR
  *  Elena Pourmal
  * SOURCE
-*/
+ */
 
 int_f
-nh5pget_chunk_c ( hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims )
+nh5pget_chunk_c(hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_prp_id = (hid_t)*prp_id;
-  hsize_t c_dims[H5S_MAX_RANK];
-  int rank;
-  int c_max_rank = (int)*max_rank;
-  int i;
+    int     ret_value = -1;
+    hid_t   c_prp_id  = (hid_t)*prp_id;
+    hsize_t c_dims[H5S_MAX_RANK];
+    int     rank;
+    int     c_max_rank = (int)*max_rank;
+    int     i;
 
-  rank = H5Pget_chunk(c_prp_id, c_max_rank, c_dims);
+    rank = H5Pget_chunk(c_prp_id, c_max_rank, c_dims);
 
-  /*
-   * Transpose dimension arrays because of C-FORTRAN storage order
-   */
-  for (i = 0; i < c_max_rank ; i++)
-       dims[c_max_rank - i - 1] = (hsize_t_f)c_dims[i];
-  if (rank < 0) return ret_value;
-  ret_value = (int_f)rank;
-  return ret_value;
+    /*
+     * Transpose dimension arrays because of C-FORTRAN storage order
+     */
+    for (i = 0; i < c_max_rank; i++)
+        dims[c_max_rank - i - 1] = (hsize_t_f)c_dims[i];
+    if (rank < 0)
+        return ret_value;
+    ret_value = (int_f)rank;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_fill_valuec_c
@@ -390,19 +390,19 @@ nh5pget_chunk_c ( hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims )
  * AUTHOR
  *  Elena Pourmal
  * SOURCE
-*/
+ */
 int_f
-nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
+nh5pset_fill_valuec_c(hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
 /******/
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5pset_fill_value_c  function.
-      */
-     ret_value = h5pset_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));
+    /*
+     * Call h5pset_fill_value_c  function.
+     */
+    ret_value = h5pset_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));
 
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_fill_value_c
@@ -420,54 +420,55 @@ nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
  *  Elena Pourmal
  *  Saturday, August 14, 1999
  * SOURCE
-*/
+ */
 int_f
-h5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+h5pset_fill_value_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     hid_t c_type_id;
-     herr_t ret;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    hid_t  c_type_id;
+    herr_t ret;
 
-     /*
-      * Call H5Pset_fill_value function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     c_type_id = (hid_t)*type_id;
-     ret = H5Pset_fill_value(c_prp_id, c_type_id, fillvalue);
+    /*
+     * Call H5Pset_fill_value function.
+     */
+    c_prp_id  = (hid_t)*prp_id;
+    c_type_id = (hid_t)*type_id;
+    ret       = H5Pset_fill_value(c_prp_id, c_type_id, fillvalue);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 int_f
-nh5pset_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+nh5pset_fill_value_integer_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
 /******/
 {
-     /*
-      * Call h5pset_fill_value_c  function.
-      */
-     return h5pset_fill_value_c(prp_id, type_id, fillvalue);
+    /*
+     * Call h5pset_fill_value_c  function.
+     */
+    return h5pset_fill_value_c(prp_id, type_id, fillvalue);
 }
 
 int_f
-nh5pset_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+nh5pset_fill_value_real_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
 {
-     /*
-      * Call h5pset_fill_value_c  function.
-      */
-     return h5pset_fill_value_c(prp_id, type_id, fillvalue);
+    /*
+     * Call h5pset_fill_value_c  function.
+     */
+    return h5pset_fill_value_c(prp_id, type_id, fillvalue);
 }
 
 int_f
-nh5pset_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+nh5pset_fill_value_double_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
 {
-     /*
-      * Call h5pset_fill_value_c  function.
-      */
-     return h5pset_fill_value_c(prp_id, type_id, fillvalue);
+    /*
+     * Call h5pset_fill_value_c  function.
+     */
+    return h5pset_fill_value_c(prp_id, type_id, fillvalue);
 }
 
 /****if* H5Pf/h5pget_fill_valuec_c
@@ -489,19 +490,19 @@ nh5pset_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
  *  to nh5pget_fill_value_c. MSB - 7/21/2014
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
+nh5pget_fill_valuec_c(hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
 /******/
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5pget_fill_value_c function.
-      */
-     ret_value = h5pget_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));
+    /*
+     * Call h5pget_fill_value_c function.
+     */
+    ret_value = h5pget_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));
 
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_fill_value_c
@@ -519,53 +520,54 @@ nh5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
  *  Elena Pourmal
  *  Saturday, August 14, 1999
  * SOURCE
-*/
+ */
 int_f
-h5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+h5pget_fill_value_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     hid_t c_type_id;
-     herr_t ret;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    hid_t  c_type_id;
+    herr_t ret;
 
-     /*
-      * Call H5Pget_fill_value function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     c_type_id = (hid_t)*type_id;
-     ret = H5Pget_fill_value(c_prp_id, c_type_id, fillvalue);
+    /*
+     * Call H5Pget_fill_value function.
+     */
+    c_prp_id  = (hid_t)*prp_id;
+    c_type_id = (hid_t)*type_id;
+    ret       = H5Pget_fill_value(c_prp_id, c_type_id, fillvalue);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 int_f
-nh5pget_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+nh5pget_fill_value_integer_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
 {
-     /*
-      * Call h5pget_fill_value_c  function.
-      */
-     return h5pget_fill_value_c(prp_id, type_id, fillvalue);
+    /*
+     * Call h5pget_fill_value_c  function.
+     */
+    return h5pget_fill_value_c(prp_id, type_id, fillvalue);
 }
 
 int_f
-nh5pget_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+nh5pget_fill_value_real_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
 {
-     /*
-      * Call h5pget_fill_value_c  function.
-      */
-     return h5pget_fill_value_c(prp_id, type_id, fillvalue);
+    /*
+     * Call h5pget_fill_value_c  function.
+     */
+    return h5pget_fill_value_c(prp_id, type_id, fillvalue);
 }
 
 int_f
-nh5pget_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+nh5pget_fill_value_double_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
 {
-     /*
-      * Call h5pget_fill_value_c  function.
-      */
-     return h5pget_fill_value_c(prp_id, type_id, fillvalue);
+    /*
+     * Call h5pget_fill_value_c  function.
+     */
+    return h5pget_fill_value_c(prp_id, type_id, fillvalue);
 }
 
 /****if* H5Pf/h5pget_version_c
@@ -589,41 +591,42 @@ nh5pget_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
  * HISTORY
  * Removed extra length parameters EP 7/6/00
  * SOURCE
-*/
+ */
 int_f
-nh5pget_version_c (hid_t_f *prp_id, int_f * boot,int_f * freelist, int_f * stab, int_f *shhdr)
+nh5pget_version_c(hid_t_f *prp_id, int_f *boot, int_f *freelist, int_f *stab, int_f *shhdr)
 /******/
 {
-     int ret_value = -1;
+    int ret_value = -1;
 #ifndef H5_NO_DEPRECATED_SYMBOLS
-     herr_t ret;
-     unsigned c_boot;
-     unsigned c_freelist;
-     unsigned c_stab;
-     unsigned c_shhdr;
-
-     /*
-      * Call H5Pget_version function.
-      */
-     ret = H5Pget_version((hid_t)*prp_id, &c_boot, &c_freelist, &c_stab, &c_shhdr);
-     if (ret < 0) return ret_value;
-
-     *boot = (int_f)c_boot;
-     *freelist = (int_f)c_freelist;
-     *stab = (int_f)c_stab;
-     *shhdr = (int_f)c_shhdr;
-#else /* H5_NO_DEPRECATED_SYMBOLS */
-     /*
-      * Fill in fake values [since we need a file ID to call H5Fget_info :-( -QAK ]
-      */
-     *boot = (int_f)0;
-     *freelist = (int_f)0;
-     *stab = (int_f)0;
-     *shhdr = (int_f)0;
+    herr_t   ret;
+    unsigned c_boot;
+    unsigned c_freelist;
+    unsigned c_stab;
+    unsigned c_shhdr;
+
+    /*
+     * Call H5Pget_version function.
+     */
+    ret = H5Pget_version((hid_t)*prp_id, &c_boot, &c_freelist, &c_stab, &c_shhdr);
+    if (ret < 0)
+        return ret_value;
+
+    *boot     = (int_f)c_boot;
+    *freelist = (int_f)c_freelist;
+    *stab     = (int_f)c_stab;
+    *shhdr    = (int_f)c_shhdr;
+#else  /* H5_NO_DEPRECATED_SYMBOLS */
+    /*
+     * Fill in fake values [since we need a file ID to call H5Fget_info :-( -QAK ]
+     */
+    *boot     = (int_f)0;
+    *freelist = (int_f)0;
+    *stab     = (int_f)0;
+    *shhdr    = (int_f)0;
 #endif /* H5_NO_DEPRECATED_SYMBOLS */
-     ret_value = 0;
+    ret_value = 0;
 
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_userblock_c
@@ -641,27 +644,28 @@ nh5pget_version_c (hid_t_f *prp_id, int_f * boot,int_f * freelist, int_f * stab,
  *  Xiangyang Su
  *              Wednesday, February 23, 2000
  * SOURCE
-*/
+ */
 int_f
-nh5pget_userblock_c (hid_t_f *prp_id, hsize_t_f * size)
+nh5pget_userblock_c(hid_t_f *prp_id, hsize_t_f *size)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     hsize_t c_size;
+    int     ret_value = -1;
+    hid_t   c_prp_id;
+    herr_t  ret;
+    hsize_t c_size;
 
-     /*
-      * Call H5Pget_userblock function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pget_userblock(c_prp_id, &c_size);
-     if (ret < 0) return ret_value;
+    /*
+     * Call H5Pget_userblock function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pget_userblock(c_prp_id, &c_size);
+    if (ret < 0)
+        return ret_value;
 
-     *size = (hsize_t_f)c_size;
-     ret_value = 0;
+    *size     = (hsize_t_f)c_size;
+    ret_value = 0;
 
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_userblock_c
@@ -679,26 +683,27 @@ nh5pget_userblock_c (hid_t_f *prp_id, hsize_t_f * size)
  *  Xiangyang Su
  *              Wednesday, February 23, 2000
  * SOURCE
-*/
+ */
 int_f
-nh5pset_userblock_c (hid_t_f *prp_id, hsize_t_f * size)
+nh5pset_userblock_c(hid_t_f *prp_id, hsize_t_f *size)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     hsize_t c_size;
-     c_size = (hsize_t)*size;
+    int     ret_value = -1;
+    hid_t   c_prp_id;
+    herr_t  ret;
+    hsize_t c_size;
+    c_size = (hsize_t)*size;
 
-     /*
-      * Call H5Pset_userblock function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pset_userblock(c_prp_id, c_size);
+    /*
+     * Call H5Pset_userblock function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pset_userblock(c_prp_id, c_size);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_sizes_c
@@ -719,29 +724,30 @@ nh5pset_userblock_c (hid_t_f *prp_id, hsize_t_f * size)
  * HISTORY
  * Deleted extra length parameters. EP 6/7/00
  * SOURCE
-*/
+ */
 int_f
-nh5pget_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size)
+nh5pget_sizes_c(hid_t_f *prp_id, size_t_f *sizeof_addr, size_t_f *sizeof_size)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     size_t c_sizeof_addr;
-     size_t c_sizeof_size;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    herr_t ret;
+    size_t c_sizeof_addr;
+    size_t c_sizeof_size;
 
-     /*
-      * Call H5Pget_sizes function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pget_sizes(c_prp_id, &c_sizeof_addr, &c_sizeof_size);
-     if (ret < 0) return ret_value;
+    /*
+     * Call H5Pget_sizes function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pget_sizes(c_prp_id, &c_sizeof_addr, &c_sizeof_size);
+    if (ret < 0)
+        return ret_value;
 
-     *sizeof_addr = (size_t_f)c_sizeof_addr;
-     *sizeof_size = (size_t_f)c_sizeof_size;
-     ret_value = 0;
+    *sizeof_addr = (size_t_f)c_sizeof_addr;
+    *sizeof_size = (size_t_f)c_sizeof_size;
+    ret_value    = 0;
 
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_sizes_c
@@ -761,27 +767,28 @@ nh5pget_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size)
+nh5pset_sizes_c(hid_t_f *prp_id, size_t_f *sizeof_addr, size_t_f *sizeof_size)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     size_t c_addr, c_size;
-     c_addr = (size_t)*sizeof_addr;
-     c_size = (size_t)*sizeof_size;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    herr_t ret;
+    size_t c_addr, c_size;
+    c_addr = (size_t)*sizeof_addr;
+    c_size = (size_t)*sizeof_size;
 
-     /*
-      * Call H5Pset_sizes function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pset_sizes(c_prp_id, c_addr, c_size);
+    /*
+     * Call H5Pset_sizes function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pset_sizes(c_prp_id, c_addr, c_size);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_sym_k_c
@@ -800,28 +807,29 @@ nh5pset_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size
  *  Xiangyang Su
  *              Friday, February 25, 2000
  * SOURCE
-*/
+ */
 int_f
-nh5pset_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk)
+nh5pset_sym_k_c(hid_t_f *prp_id, int_f *ik, int_f *lk)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     unsigned c_ik;
-     unsigned c_lk;
-     herr_t ret;
+    int      ret_value = -1;
+    hid_t    c_prp_id;
+    unsigned c_ik;
+    unsigned c_lk;
+    herr_t   ret;
 
-     /*
-      * Call H5Pset_sym_k function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     c_ik = (unsigned)*ik;
-     c_lk = (unsigned)*lk;
-     ret = H5Pset_sym_k(c_prp_id, c_ik, c_lk);
+    /*
+     * Call H5Pset_sym_k function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    c_ik     = (unsigned)*ik;
+    c_lk     = (unsigned)*lk;
+    ret      = H5Pset_sym_k(c_prp_id, c_ik, c_lk);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_sym_k_c
@@ -843,27 +851,28 @@ nh5pset_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk)
+nh5pget_sym_k_c(hid_t_f *prp_id, int_f *ik, int_f *lk)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     unsigned c_ik;
-     unsigned c_lk;
+    int      ret_value = -1;
+    hid_t    c_prp_id;
+    herr_t   ret;
+    unsigned c_ik;
+    unsigned c_lk;
 
-     /*
-      * Call H5Pget_sym_k function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pget_sym_k(c_prp_id, &c_ik, &c_lk);
-     *ik = (int_f)c_ik;
-     *lk = (int_f)c_lk;
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    /*
+     * Call H5Pget_sym_k function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pget_sym_k(c_prp_id, &c_ik, &c_lk);
+    *ik      = (int_f)c_ik;
+    *lk      = (int_f)c_lk;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_istore_k_c
@@ -883,26 +892,27 @@ nh5pget_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_istore_k_c (hid_t_f *prp_id, int_f* ik)
+nh5pset_istore_k_c(hid_t_f *prp_id, int_f *ik)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     unsigned c_ik;
-     herr_t ret;
+    int      ret_value = -1;
+    hid_t    c_prp_id;
+    unsigned c_ik;
+    herr_t   ret;
 
-     /*
-      * Call H5Pset_istore_k function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     c_ik = (unsigned)*ik;
-     ret = H5Pset_istore_k(c_prp_id, c_ik);
+    /*
+     * Call H5Pset_istore_k function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    c_ik     = (unsigned)*ik;
+    ret      = H5Pset_istore_k(c_prp_id, c_ik);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_istore_k_c
@@ -923,25 +933,26 @@ nh5pset_istore_k_c (hid_t_f *prp_id, int_f* ik)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_istore_k_c (hid_t_f *prp_id, int_f* ik)
+nh5pget_istore_k_c(hid_t_f *prp_id, int_f *ik)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     unsigned c_ik;
+    int      ret_value = -1;
+    hid_t    c_prp_id;
+    herr_t   ret;
+    unsigned c_ik;
 
-     /*
-      * Call H5Pget_istore_k function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pget_istore_k(c_prp_id, &c_ik);
-     *ik = (int_f)c_ik;
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    /*
+     * Call H5Pget_istore_k function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pget_istore_k(c_prp_id, &c_ik);
+    *ik      = (int_f)c_ik;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_driver_c
@@ -961,25 +972,26 @@ nh5pget_istore_k_c (hid_t_f *prp_id, int_f* ik)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_driver_c (hid_t_f *prp_id, hid_t_f* driver)
+nh5pget_driver_c(hid_t_f *prp_id, hid_t_f *driver)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_driver;
+    int   ret_value = -1;
+    hid_t c_driver;
 
-     /*
-      * Call H5Pget_driver function.
-      */
-     c_driver = H5Pget_driver((hid_t)*prp_id);
-     if (c_driver < 0) goto DONE;
+    /*
+     * Call H5Pget_driver function.
+     */
+    c_driver = H5Pget_driver((hid_t)*prp_id);
+    if (c_driver < 0)
+        goto DONE;
 
-     *driver = (hid_t_f) c_driver;
-     ret_value = 0;
+    *driver   = (hid_t_f)c_driver;
+    ret_value = 0;
 
 DONE:
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_fapl_stdio_c
@@ -998,22 +1010,23 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_fapl_stdio_c (hid_t_f *prp_id)
+nh5pset_fapl_stdio_c(hid_t_f *prp_id)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret = -1;
-     /*
-      * Call H5Pset_fapl_stdio function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pset_fapl_stdio(c_prp_id);
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    herr_t ret = -1;
+    /*
+     * Call H5Pset_fapl_stdio function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pset_fapl_stdio(c_prp_id);
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 #ifdef NO_SUCH_F90_FUNCTION
 /****if* H5Pf/h5pget_fapl_stdio_c
@@ -1035,23 +1048,24 @@ nh5pset_fapl_stdio_c (hid_t_f *prp_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_fapl_stdio_c (hid_t_f *prp_id, int_f* io)
+nh5pget_fapl_stdio_c(hid_t_f *prp_id, int_f *io)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret = -1;
-     /*
-      * Call H5Pget_fapl_stdio function.
-      */
-     c_prp_id = *prp_id;
-     ret = H5Pget_fapl_stdio(c_prp_id);
-     if (ret < 0) return ret_value;
-     *io = (int_f)ret;
-     ret_value = 0;
-     return ret_value;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    herr_t ret = -1;
+    /*
+     * Call H5Pget_fapl_stdio function.
+     */
+    c_prp_id = *prp_id;
+    ret      = H5Pget_fapl_stdio(c_prp_id);
+    if (ret < 0)
+        return ret_value;
+    *io       = (int_f)ret;
+    ret_value = 0;
+    return ret_value;
 }
 
 #endif /*NO_SUCH_F90_FUNCTION*/
@@ -1072,22 +1086,23 @@ nh5pget_fapl_stdio_c (hid_t_f *prp_id, int_f* io)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_fapl_sec2_c (hid_t_f *prp_id)
+nh5pset_fapl_sec2_c(hid_t_f *prp_id)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret = -1;
-     /*
-      * Call H5Pset_fapl_sec2 function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pset_fapl_sec2(c_prp_id);
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    herr_t ret = -1;
+    /*
+     * Call H5Pset_fapl_sec2 function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pset_fapl_sec2(c_prp_id);
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 #ifdef NO_SUCH_F90_FUNCTION
@@ -1110,23 +1125,24 @@ nh5pset_fapl_sec2_c (hid_t_f *prp_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_fapl_sec2_c (hid_t_f *prp_id, int_f* sec2)
+nh5pget_fapl_sec2_c(hid_t_f *prp_id, int_f *sec2)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret = -1;
-     /*
-      * Call H5Pget_fapl_sec2 function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pget_fapl_sec2(c_prp_id);
-     if (ret < 0) return ret_value;
-     *sec2 = (int_f)ret;
-     ret_value = 0;
-     return ret_value;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    herr_t ret = -1;
+    /*
+     * Call H5Pget_fapl_sec2 function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pget_fapl_sec2(c_prp_id);
+    if (ret < 0)
+        return ret_value;
+    *sec2     = (int_f)ret;
+    ret_value = 0;
+    return ret_value;
 }
 #endif /*NO_SUCH_F90_FUNCTION*/
 
@@ -1148,25 +1164,26 @@ nh5pget_fapl_sec2_c (hid_t_f *prp_id, int_f* sec2)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_alignment_c (hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment)
+nh5pset_alignment_c(hid_t_f *prp_id, hsize_t_f *threshold, hsize_t_f *alignment)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     hsize_t c_threshold, c_alignment;
-     c_threshold = (hsize_t)*threshold;
-     c_alignment = (hsize_t)* alignment;
-     /*
-      * Call H5Pset_alignment function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pset_alignment(c_prp_id, c_threshold, c_alignment);
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    int     ret_value = -1;
+    hid_t   c_prp_id;
+    herr_t  ret;
+    hsize_t c_threshold, c_alignment;
+    c_threshold = (hsize_t)*threshold;
+    c_alignment = (hsize_t)*alignment;
+    /*
+     * Call H5Pset_alignment function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pset_alignment(c_prp_id, c_threshold, c_alignment);
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_alignment_c
@@ -1187,26 +1204,27 @@ nh5pset_alignment_c (hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_alignment_c (hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment)
+nh5pget_alignment_c(hid_t_f *prp_id, hsize_t_f *threshold, hsize_t_f *alignment)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     hsize_t c_threshold, c_alignment;
-     /*
-      * Call H5Pget_alignment function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pget_alignment(c_prp_id, &c_threshold, &c_alignment);
-     if (ret < 0) return ret_value;
-     *threshold = (hsize_t_f)c_threshold;
-     *alignment = (hsize_t_f)c_alignment;
+    int     ret_value = -1;
+    hid_t   c_prp_id;
+    herr_t  ret;
+    hsize_t c_threshold, c_alignment;
+    /*
+     * Call H5Pget_alignment function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pget_alignment(c_prp_id, &c_threshold, &c_alignment);
+    if (ret < 0)
+        return ret_value;
+    *threshold = (hsize_t_f)c_threshold;
+    *alignment = (hsize_t_f)c_alignment;
 
-     ret_value = 0;
-     return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_fapl_core_c
@@ -1228,27 +1246,28 @@ nh5pget_alignment_c (hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_fapl_core_c (hid_t_f *prp_id, size_t_f* increment, int_f *flag)
+nh5pset_fapl_core_c(hid_t_f *prp_id, size_t_f *increment, int_f *flag)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret = -1;
-     size_t c_increment;
-     hbool_t c_backing_store;
-     c_increment = (size_t)*increment;
-     c_backing_store = (hbool_t)*flag;
+    int     ret_value = -1;
+    hid_t   c_prp_id;
+    herr_t  ret = -1;
+    size_t  c_increment;
+    hbool_t c_backing_store;
+    c_increment     = (size_t)*increment;
+    c_backing_store = (hbool_t)*flag;
 
-     /*
-      * Call H5Pset_fapl_core function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pset_fapl_core(c_prp_id, c_increment, c_backing_store);
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    /*
+     * Call H5Pset_fapl_core function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pset_fapl_core(c_prp_id, c_increment, c_backing_store);
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_fapl_core_c
@@ -1268,27 +1287,29 @@ nh5pset_fapl_core_c (hid_t_f *prp_id, size_t_f* increment, int_f *flag)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_fapl_core_c (hid_t_f *prp_id, size_t_f* increment, int_f *flag)
+nh5pget_fapl_core_c(hid_t_f *prp_id, size_t_f *increment, int_f *flag)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret = -1;
-     size_t c_increment = 0;
-     hbool_t c_backing_store;
-     *flag = 0;
-     /*
-      * Call H5Pset_fapl_core function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pget_fapl_core(c_prp_id, &c_increment, &c_backing_store);
-     if (ret < 0) return ret_value;
-     *increment = (size_t_f)c_increment;
-     if(c_backing_store  > 0) *flag = 1;
-     ret_value = 0;
-     return ret_value;
+    int     ret_value = -1;
+    hid_t   c_prp_id;
+    herr_t  ret         = -1;
+    size_t  c_increment = 0;
+    hbool_t c_backing_store;
+    *flag = 0;
+    /*
+     * Call H5Pset_fapl_core function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pget_fapl_core(c_prp_id, &c_increment, &c_backing_store);
+    if (ret < 0)
+        return ret_value;
+    *increment = (size_t_f)c_increment;
+    if (c_backing_store > 0)
+        *flag = 1;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_fapl_family_c
@@ -1310,26 +1331,27 @@ nh5pget_fapl_core_c (hid_t_f *prp_id, size_t_f* increment, int_f *flag)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_fapl_family_c(hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist )
+nh5pset_fapl_family_c(hid_t_f *prp_id, hsize_t_f *memb_size, hid_t_f *memb_plist)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret = -1;
-     hsize_t c_memb_size;
-     hid_t c_memb_plist;
-     c_memb_size =(hsize_t) *memb_size;
-     c_memb_plist =(hid_t) *memb_plist;
-     /*
-      * Call H5Pset_fapl_family function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pset_fapl_family(c_prp_id, c_memb_size, c_memb_plist);
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    int     ret_value = -1;
+    hid_t   c_prp_id;
+    herr_t  ret = -1;
+    hsize_t c_memb_size;
+    hid_t   c_memb_plist;
+    c_memb_size  = (hsize_t)*memb_size;
+    c_memb_plist = (hid_t)*memb_plist;
+    /*
+     * Call H5Pset_fapl_family function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pset_fapl_family(c_prp_id, c_memb_size, c_memb_plist);
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_fapl_family_c
@@ -1351,27 +1373,28 @@ nh5pset_fapl_family_c(hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_fapl_family_c(hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist)
+nh5pget_fapl_family_c(hid_t_f *prp_id, hsize_t_f *memb_size, hid_t_f *memb_plist)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret = -1;
-     hsize_t c_memb_size = 0;
-     hid_t c_memb_plist = -1;
-     /*
-      * Call H5Pget_fapl_family function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pget_fapl_family(c_prp_id, &c_memb_size, &c_memb_plist);
-     if (ret < 0) return ret_value;
-     *memb_size = (hsize_t_f)c_memb_size;
-     *memb_plist = (hid_t_f)c_memb_plist;
+    int     ret_value = -1;
+    hid_t   c_prp_id;
+    herr_t  ret          = -1;
+    hsize_t c_memb_size  = 0;
+    hid_t   c_memb_plist = -1;
+    /*
+     * Call H5Pget_fapl_family function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pget_fapl_family(c_prp_id, &c_memb_size, &c_memb_plist);
+    if (ret < 0)
+        return ret_value;
+    *memb_size  = (hsize_t_f)c_memb_size;
+    *memb_plist = (hid_t_f)c_memb_plist;
 
-     ret_value = 0;
-     return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_cache_c
@@ -1396,31 +1419,33 @@ nh5pget_fapl_family_c(hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist
  * Changed the type of the rdcc_w0 parameter to be real_f EP 7/7/00
  *                instead of double
  * SOURCE
-*/
+ */
 int_f
-nh5pset_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts,  size_t_f* rdcc_nbytes , real_f* rdcc_w0 )
+nh5pset_cache_c(hid_t_f *prp_id, int_f *mdc_nelmts, size_t_f *rdcc_nelmts, size_t_f *rdcc_nbytes,
+                real_f *rdcc_w0)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     int c_mdc_nelmts;
-     size_t c_rdcc_nelmts;
-     size_t c_rdcc_nbytes;
-     double c_rdcc_w0;
-     c_rdcc_nbytes =(size_t) *rdcc_nbytes;
-     c_rdcc_w0 = (double)*rdcc_w0;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    herr_t ret;
+    int    c_mdc_nelmts;
+    size_t c_rdcc_nelmts;
+    size_t c_rdcc_nbytes;
+    double c_rdcc_w0;
+    c_rdcc_nbytes = (size_t)*rdcc_nbytes;
+    c_rdcc_w0     = (double)*rdcc_w0;
 
-     /*
-      * Call H5Pset_cache function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     c_mdc_nelmts = (int)*mdc_nelmts;
-     c_rdcc_nelmts = (size_t)*rdcc_nelmts;
-     ret = H5Pset_cache(c_prp_id, c_mdc_nelmts, c_rdcc_nelmts, c_rdcc_nbytes, c_rdcc_w0  );
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    /*
+     * Call H5Pset_cache function.
+     */
+    c_prp_id      = (hid_t)*prp_id;
+    c_mdc_nelmts  = (int)*mdc_nelmts;
+    c_rdcc_nelmts = (size_t)*rdcc_nelmts;
+    ret           = H5Pset_cache(c_prp_id, c_mdc_nelmts, c_rdcc_nelmts, c_rdcc_nbytes, c_rdcc_w0);
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_cache_c
@@ -1448,31 +1473,33 @@ nh5pset_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts,  size
  *                Changed type of the rdcc_nelmts parameter to be int_f.
  *                                                          EIP  October 10, 2003
  * SOURCE
-*/
+ */
 int_f
-nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts, size_t_f* rdcc_nbytes , real_f* rdcc_w0)
+nh5pget_cache_c(hid_t_f *prp_id, int_f *mdc_nelmts, size_t_f *rdcc_nelmts, size_t_f *rdcc_nbytes,
+                real_f *rdcc_w0)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     int c_mdc_nelmts;
-     size_t c_rdcc_nelmts;
-     size_t c_rdcc_nbytes;
-     double c_rdcc_w0;
-     /*
-      * Call H5Pget_cache function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pget_cache(c_prp_id, &c_mdc_nelmts, &c_rdcc_nelmts, &c_rdcc_nbytes, &c_rdcc_w0);
-     if (ret < 0) return ret_value;
-     *mdc_nelmts = (int_f)c_mdc_nelmts;
-     *rdcc_nelmts = (size_t_f)c_rdcc_nelmts;
-     *rdcc_nbytes = (size_t_f)c_rdcc_nbytes;
-     *rdcc_w0 = (real_f)c_rdcc_w0;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    herr_t ret;
+    int    c_mdc_nelmts;
+    size_t c_rdcc_nelmts;
+    size_t c_rdcc_nbytes;
+    double c_rdcc_w0;
+    /*
+     * Call H5Pget_cache function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pget_cache(c_prp_id, &c_mdc_nelmts, &c_rdcc_nelmts, &c_rdcc_nbytes, &c_rdcc_w0);
+    if (ret < 0)
+        return ret_value;
+    *mdc_nelmts  = (int_f)c_mdc_nelmts;
+    *rdcc_nelmts = (size_t_f)c_rdcc_nelmts;
+    *rdcc_nbytes = (size_t_f)c_rdcc_nbytes;
+    *rdcc_w0     = (real_f)c_rdcc_w0;
 
-     ret_value = 0;
-     return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_fapl_split_c
@@ -1497,44 +1524,47 @@ nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts, size_
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_fapl_split_c(hid_t_f *prp_id, int_f* meta_len, _fcd meta_ext, hid_t_f* meta_plist, int_f* raw_len, _fcd raw_ext, hid_t_f * raw_plist)
+nh5pset_fapl_split_c(hid_t_f *prp_id, int_f *meta_len, _fcd meta_ext, hid_t_f *meta_plist, int_f *raw_len,
+                     _fcd raw_ext, hid_t_f *raw_plist)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     hid_t c_meta_plist;
-     hid_t c_raw_plist;
-     herr_t ret = -1;
-     char* c_meta_ext;
-     char* c_raw_ext;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    hid_t  c_meta_plist;
+    hid_t  c_raw_plist;
+    herr_t ret = -1;
+    char * c_meta_ext;
+    char * c_raw_ext;
 
-     c_meta_ext = (char *)HD5f2cstring(meta_ext, (size_t)*meta_len);
-     if (c_meta_ext == NULL) return ret_value;
-     c_raw_ext = (char *)HD5f2cstring(raw_ext, (size_t)*raw_len);
-     if (c_raw_ext == NULL) { HDfree(c_meta_ext);
-                              return ret_value;
-                            }
+    c_meta_ext = (char *)HD5f2cstring(meta_ext, (size_t)*meta_len);
+    if (c_meta_ext == NULL)
+        return ret_value;
+    c_raw_ext = (char *)HD5f2cstring(raw_ext, (size_t)*raw_len);
+    if (c_raw_ext == NULL) {
+        HDfree(c_meta_ext);
+        return ret_value;
+    }
 
-     /*
-      * Call H5Pset_fapl_split function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     c_meta_plist = (hid_t)*meta_plist;
-     c_raw_plist = (hid_t)*raw_plist;
-     ret = H5Pset_fapl_split(c_prp_id, c_meta_ext, c_meta_plist, c_raw_ext, c_raw_plist );
+    /*
+     * Call H5Pset_fapl_split function.
+     */
+    c_prp_id     = (hid_t)*prp_id;
+    c_meta_plist = (hid_t)*meta_plist;
+    c_raw_plist  = (hid_t)*raw_plist;
+    ret          = H5Pset_fapl_split(c_prp_id, c_meta_ext, c_meta_plist, c_raw_ext, c_raw_plist);
 
-     if (ret < 0) goto DONE;
-     ret_value = 0;
+    if (ret < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-     HDfree(c_meta_ext);
-     HDfree(c_raw_ext);
-     return ret_value;
+    HDfree(c_meta_ext);
+    HDfree(c_raw_ext);
+    return ret_value;
 }
 
-
 #ifdef NO_SUCH_F90_FUNCTION
 /****if* H5Pf/h5pget_fapl_split_c
  * NAME
@@ -1561,41 +1591,45 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_fapl_split_c(hid_t_f *prp_id, size_t_f* meta_ext_size , _fcd meta_ext, hid_t_f* meta_plist, size_t_f* raw_ext_size, _fcd raw_ext, hid_t_f * raw_plist)
+nh5pget_fapl_split_c(hid_t_f *prp_id, size_t_f *meta_ext_size, _fcd meta_ext, hid_t_f *meta_plist,
+                     size_t_f *raw_ext_size, _fcd raw_ext, hid_t_f *raw_plist)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret = -1;
-     size_t c_meta_ext_size, c_raw_ext_size;
-     hid_t c_meta_plist = -1;
-     hid_t c_raw_plist = -1;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    herr_t ret = -1;
+    size_t c_meta_ext_size, c_raw_ext_size;
+    hid_t  c_meta_plist = -1;
+    hid_t  c_raw_plist  = -1;
 
-     char* c_meta_ext = NULL;
-     char* c_raw_ext  = NULL;
+    char *c_meta_ext = NULL;
+    char *c_raw_ext  = NULL;
 
-     c_meta_ext_size = (size_t) *meta_ext_size;
-     c_raw_ext_size = (size_t) *raw_ext_size;
-     c_meta_ext = (char *)HDmalloc(sizeof(char) * c_meta_ext_size);
-     c_raw_ext = (char *)HDmalloc(sizeof(char) * c_raw_ext_size);
-     if(c_meta_ext == NULL || c_raw_ext == NULL) return ret_value;
+    c_meta_ext_size = (size_t)*meta_ext_size;
+    c_raw_ext_size  = (size_t)*raw_ext_size;
+    c_meta_ext      = (char *)HDmalloc(sizeof(char) * c_meta_ext_size);
+    c_raw_ext       = (char *)HDmalloc(sizeof(char) * c_raw_ext_size);
+    if (c_meta_ext == NULL || c_raw_ext == NULL)
+        return ret_value;
 
-     /*
-      * Call H5Pget_fapl_split function.
-      */
-     c_prp_id = *prp_id;
-     ret = H5Pget_fapl_split(c_prp_id, c_meta_ext_size, c_meta_ext,&c_meta_plist, c_raw_ext_size, c_raw_ext, &c_raw_plist );
+    /*
+     * Call H5Pget_fapl_split function.
+     */
+    c_prp_id = *prp_id;
+    ret = H5Pget_fapl_split(c_prp_id, c_meta_ext_size, c_meta_ext, &c_meta_plist, c_raw_ext_size, c_raw_ext,
+                            &c_raw_plist);
 
-     if (ret < 0) return ret_value;
-     *meta_plist = c_meta_plist;
-     *raw_plist = c_raw_plist;
-     HD5packFstring(c_meta_ext, _fcdtocp(meta_ext), strlen(c_meta_ext));
-     HD5packFstring(c_raw_ext, _fcdtocp(raw_ext), strlen(c_raw_ext));
+    if (ret < 0)
+        return ret_value;
+    *meta_plist = c_meta_plist;
+    *raw_plist  = c_raw_plist;
+    HD5packFstring(c_meta_ext, _fcdtocp(meta_ext), strlen(c_meta_ext));
+    HD5packFstring(c_raw_ext, _fcdtocp(raw_ext), strlen(c_raw_ext));
 
-     ret_value = 0;
-     return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 #endif /*NO_SUCH_F90_FUNCTION*/
 
@@ -1617,26 +1651,27 @@ nh5pget_fapl_split_c(hid_t_f *prp_id, size_t_f* meta_ext_size , _fcd meta_ext, h
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_gc_references_c (hid_t_f *prp_id, int_f* gc_references)
+nh5pset_gc_references_c(hid_t_f *prp_id, int_f *gc_references)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     unsigned c_gc_references;
-     c_gc_references = (unsigned)*gc_references;
+    int      ret_value = -1;
+    hid_t    c_prp_id;
+    herr_t   ret;
+    unsigned c_gc_references;
+    c_gc_references = (unsigned)*gc_references;
 
-     /*
-      * Call H5Pset_gc_references function.
-      */
-     c_prp_id = *prp_id;
-     ret = H5Pset_gc_references(c_prp_id, c_gc_references);
+    /*
+     * Call H5Pset_gc_references function.
+     */
+    c_prp_id = *prp_id;
+    ret      = H5Pset_gc_references(c_prp_id, c_gc_references);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_gc_references_c
@@ -1657,24 +1692,25 @@ nh5pset_gc_references_c (hid_t_f *prp_id, int_f* gc_references)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_gc_references_c (hid_t_f *prp_id, int_f* gc_references)
+nh5pget_gc_references_c(hid_t_f *prp_id, int_f *gc_references)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     unsigned c_gc_references;
-     herr_t ret;
-     /*
-      * Call H5Pget_gc_references function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pget_gc_references(c_prp_id, &c_gc_references);
-     if (ret < 0) return ret_value;
-     *gc_references = (int_f)c_gc_references;
-     ret_value = 0;
-     return ret_value;
+    int      ret_value = -1;
+    hid_t    c_prp_id;
+    unsigned c_gc_references;
+    herr_t   ret;
+    /*
+     * Call H5Pget_gc_references function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pget_gc_references(c_prp_id, &c_gc_references);
+    if (ret < 0)
+        return ret_value;
+    *gc_references = (int_f)c_gc_references;
+    ret_value      = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_layout_c
@@ -1694,25 +1730,26 @@ nh5pget_gc_references_c (hid_t_f *prp_id, int_f* gc_references)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_layout_c (hid_t_f *prp_id, int_f* layout)
+nh5pset_layout_c(hid_t_f *prp_id, int_f *layout)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     H5D_layout_t c_layout;
-     c_layout = (H5D_layout_t)*layout;
-     /*
-      * Call H5Pset_layout function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pset_layout(c_prp_id, c_layout);
+    int          ret_value = -1;
+    hid_t        c_prp_id;
+    herr_t       ret;
+    H5D_layout_t c_layout;
+    c_layout = (H5D_layout_t)*layout;
+    /*
+     * Call H5Pset_layout function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pset_layout(c_prp_id, c_layout);
 
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_layout_c
@@ -1733,23 +1770,24 @@ nh5pset_layout_c (hid_t_f *prp_id, int_f* layout)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_layout_c (hid_t_f *prp_id, int_f* layout)
+nh5pget_layout_c(hid_t_f *prp_id, int_f *layout)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     H5D_layout_t c_layout;
-     /*
-      * Call H5Pget_layout function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     c_layout = H5Pget_layout(c_prp_id);
-     if (c_layout < 0) return ret_value;
-     *layout = (int_f)c_layout;
-     ret_value = 0;
-     return ret_value;
+    int          ret_value = -1;
+    hid_t        c_prp_id;
+    H5D_layout_t c_layout;
+    /*
+     * Call H5Pget_layout function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    c_layout = H5Pget_layout(c_prp_id);
+    if (c_layout < 0)
+        return ret_value;
+    *layout   = (int_f)c_layout;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_filter_c
@@ -1772,36 +1810,38 @@ nh5pget_layout_c (hid_t_f *prp_id, int_f* layout)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_filter_c (hid_t_f *prp_id, int_f* filter, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values )
+nh5pset_filter_c(hid_t_f *prp_id, int_f *filter, int_f *flags, size_t_f *cd_nelmts, int_f *cd_values)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id = (hid_t)*prp_id;
-     herr_t ret;
-     size_t c_cd_nelmts = (size_t)*cd_nelmts;
-     unsigned int c_flags = (unsigned)*flags;
-     H5Z_filter_t c_filter = (H5Z_filter_t)*filter;
-     unsigned int * c_cd_values;
-     unsigned i;
+    int           ret_value = -1;
+    hid_t         c_prp_id  = (hid_t)*prp_id;
+    herr_t        ret;
+    size_t        c_cd_nelmts = (size_t)*cd_nelmts;
+    unsigned int  c_flags     = (unsigned)*flags;
+    H5Z_filter_t  c_filter    = (H5Z_filter_t)*filter;
+    unsigned int *c_cd_values;
+    unsigned      i;
 
-     c_cd_values = (unsigned int*)HDmalloc(sizeof(unsigned int) * c_cd_nelmts);
-     if (!c_cd_values) return ret_value;
-     for (i = 0; i < c_cd_nelmts; i++)
-          c_cd_values[i] = (unsigned int)cd_values[i];
+    c_cd_values = (unsigned int *)HDmalloc(sizeof(unsigned int) * c_cd_nelmts);
+    if (!c_cd_values)
+        return ret_value;
+    for (i = 0; i < c_cd_nelmts; i++)
+        c_cd_values[i] = (unsigned int)cd_values[i];
 
-     /*
-      * Call H5Pset_filter function.
-      */
-     ret = H5Pset_filter(c_prp_id, c_filter, c_flags, c_cd_nelmts,c_cd_values );
+    /*
+     * Call H5Pset_filter function.
+     */
+    ret = H5Pset_filter(c_prp_id, c_filter, c_flags, c_cd_nelmts, c_cd_values);
 
-     if (ret < 0) goto DONE;
-     ret_value = 0;
+    if (ret < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-     HDfree(c_cd_values);
-     return ret_value;
+    HDfree(c_cd_values);
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_nfilters_c
@@ -1820,25 +1860,26 @@ DONE:
  *  Xiangyang Su
  *  Friday, February 25, 2000
  * SOURCE
-*/
+ */
 int_f
-nh5pget_nfilters_c (hid_t_f *prp_id, int_f* nfilters)
+nh5pget_nfilters_c(hid_t_f *prp_id, int_f *nfilters)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     int c_nfilters;
-     /*
-      * Call H5Pget_nfilters function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     c_nfilters = H5Pget_nfilters(c_prp_id);
-     if (c_nfilters < 0) return ret_value;
+    int   ret_value = -1;
+    hid_t c_prp_id;
+    int   c_nfilters;
+    /*
+     * Call H5Pget_nfilters function.
+     */
+    c_prp_id   = (hid_t)*prp_id;
+    c_nfilters = H5Pget_nfilters(c_prp_id);
+    if (c_nfilters < 0)
+        return ret_value;
 
-     *nfilters = (int_f)c_nfilters;
-     ret_value = 0;
+    *nfilters = (int_f)c_nfilters;
+    ret_value = 0;
 
-     return ret_value;
+    return ret_value;
 }
 
 /*----------------------------------------------------------------------------
@@ -1865,45 +1906,47 @@ nh5pget_nfilters_c (hid_t_f *prp_id, int_f* nfilters)
  *              MSB January 27, 2009
  *---------------------------------------------------------------------------*/
 int_f
-nh5pget_filter_c(hid_t_f *prp_id, int_f* filter_number, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values, size_t_f *namelen, _fcd name, int_f* filter_id)
+nh5pget_filter_c(hid_t_f *prp_id, int_f *filter_number, int_f *flags, size_t_f *cd_nelmts, int_f *cd_values,
+                 size_t_f *namelen, _fcd name, int_f *filter_id)
 /******/
 {
     unsigned int  c_flags;
-    size_t c_cd_nelmts = 0;
-    H5Z_filter_t c_filter;
+    size_t        c_cd_nelmts = 0;
+    H5Z_filter_t  c_filter;
     unsigned int *c_cd_values = NULL;
-    char *c_name = NULL;
-    unsigned i;
-    int ret_value = -1;
+    char *        c_name      = NULL;
+    unsigned      i;
+    int           ret_value = -1;
 
     c_cd_nelmts = (size_t)*cd_nelmts;
 
-    if(NULL == (c_name = (char *)HDmalloc((size_t)*namelen + 1)))
+    if (NULL == (c_name = (char *)HDmalloc((size_t)*namelen + 1)))
         goto DONE;
 
-    if(NULL == (c_cd_values = (unsigned int *)HDmalloc(sizeof(unsigned int) * c_cd_nelmts)))
+    if (NULL == (c_cd_values = (unsigned int *)HDmalloc(sizeof(unsigned int) * c_cd_nelmts)))
         goto DONE;
 
     /*
      * Call H5Pget_filter2 function.
      */
-    if((c_filter = H5Pget_filter2((hid_t)*prp_id, (unsigned)*filter_number, &c_flags, &c_cd_nelmts, c_cd_values, (size_t)*namelen, c_name, NULL)) < 0)
+    if ((c_filter = H5Pget_filter2((hid_t)*prp_id, (unsigned)*filter_number, &c_flags, &c_cd_nelmts,
+                                   c_cd_values, (size_t)*namelen, c_name, NULL)) < 0)
         goto DONE;
 
     *filter_id = (int_f)c_filter;
     *cd_nelmts = (size_t_f)c_cd_nelmts;
-    *flags = (int_f)c_flags;
+    *flags     = (int_f)c_flags;
     HD5packFstring(c_name, _fcdtocp(name), strlen(c_name));
 
-    for(i = 0; i < c_cd_nelmts; i++)
-         cd_values[i] = (int_f)c_cd_values[i];
+    for (i = 0; i < c_cd_nelmts; i++)
+        cd_values[i] = (int_f)c_cd_values[i];
 
     ret_value = 0;
 
 DONE:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
-    if(c_cd_values)
+    if (c_cd_values)
         HDfree(c_cd_values);
     return ret_value;
 }
@@ -1928,39 +1971,40 @@ DONE:
  *  Wednesday, February 23, 2000
  * HISTORY
  *  Changed type of 'offset' from int_f to off_t_f -- MSB January 9, 2012
- *  
+ *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_external_c (hid_t_f *prp_id, _fcd name, int_f* namelen, off_t_f* offset, hsize_t_f*bytes)
+nh5pset_external_c(hid_t_f *prp_id, _fcd name, int_f *namelen, off_t_f *offset, hsize_t_f *bytes)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     hsize_t c_bytes;
-     char* c_name;
-     size_t c_namelen = (size_t)*namelen;
-     off_t c_offset;
-     c_bytes = (hsize_t) *bytes;
-     c_offset = (off_t) *offset;
-
+    int     ret_value = -1;
+    hid_t   c_prp_id;
+    herr_t  ret;
+    hsize_t c_bytes;
+    char *  c_name;
+    size_t  c_namelen = (size_t)*namelen;
+    off_t   c_offset;
+    c_bytes  = (hsize_t)*bytes;
+    c_offset = (off_t)*offset;
 
-     c_name = (char *)HD5f2cstring(name, c_namelen);
-     if (c_name == NULL) return ret_value;
+    c_name = (char *)HD5f2cstring(name, c_namelen);
+    if (c_name == NULL)
+        return ret_value;
 
-     /*
-      * Call H5Pset_external function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pset_external(c_prp_id, c_name, c_offset, c_bytes);
+    /*
+     * Call H5Pset_external function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pset_external(c_prp_id, c_name, c_offset, c_bytes);
 
-     if (ret < 0) goto DONE;
-     ret_value = 0;
+    if (ret < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-     HDfree(c_name);
-     return ret_value;
+    HDfree(c_name);
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_external_count_c
@@ -1981,23 +2025,24 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_external_count_c (hid_t_f *prp_id, int_f* count)
+nh5pget_external_count_c(hid_t_f *prp_id, int_f *count)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     int c_count;
-     /*
-      * Call H5Pget_external_count function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     c_count = H5Pget_external_count(c_prp_id);
-     if (c_count < 0) return ret_value;
-     *count = (int_f)c_count;
-     ret_value = 0;
-     return ret_value;
+    int   ret_value = -1;
+    hid_t c_prp_id;
+    int   c_count;
+    /*
+     * Call H5Pget_external_count function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    c_count  = H5Pget_external_count(c_prp_id);
+    if (c_count < 0)
+        return ret_value;
+    *count    = (int_f)c_count;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_external_c
@@ -2023,93 +2068,90 @@ nh5pget_external_count_c (hid_t_f *prp_id, int_f* count)
  *  Changed type of 'offset' from integer to off_t -- MSB January 9, 2012
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_external_c(hid_t_f *prp_id, int_f *idx, size_t_f* name_size, _fcd name, off_t_f* offset, hsize_t_f*bytes)
+nh5pget_external_c(hid_t_f *prp_id, int_f *idx, size_t_f *name_size, _fcd name, off_t_f *offset,
+                   hsize_t_f *bytes)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     unsigned c_idx;
-     herr_t status;
-     size_t c_namelen;
-     char* c_name = NULL;
-     off_t c_offset;
-     hsize_t size;
+    int      ret_value = -1;
+    hid_t    c_prp_id;
+    unsigned c_idx;
+    herr_t   status;
+    size_t   c_namelen;
+    char *   c_name = NULL;
+    off_t    c_offset;
+    hsize_t  size;
 
-     c_namelen = (size_t)*name_size;
-     /*
-      * Allocate memory to store the name of the external file.
-      */
-     if(c_namelen) c_name = (char*)HDmalloc(c_namelen + 1);
-     if (c_name == NULL) return ret_value;
+    c_namelen = (size_t)*name_size;
+    /*
+     * Allocate memory to store the name of the external file.
+     */
+    if (c_namelen)
+        c_name = (char *)HDmalloc(c_namelen + 1);
+    if (c_name == NULL)
+        return ret_value;
 
-     /*
-      * Call H5Pget_external function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     c_idx = (unsigned)*idx;
-     status = H5Pget_external(c_prp_id, c_idx, c_namelen+1, c_name, &c_offset, &size );
+    /*
+     * Call H5Pget_external function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    c_idx    = (unsigned)*idx;
+    status   = H5Pget_external(c_prp_id, c_idx, c_namelen + 1, c_name, &c_offset, &size);
 
-     if (status < 0) goto DONE;
+    if (status < 0)
+        goto DONE;
 
-     *offset = (off_t_f)c_offset;
-     *bytes = (hsize_t_f)size;
-     /* Note: if the size of the fortran buffer is larger then the returned string
-      *       from the function then we need to give HD5packFstring the fortran buffer size so
-      *       that it fills the remaining unused characters with blanks. MSB
-      */
-     HD5packFstring(c_name, _fcdtocp(name), c_namelen);
-     ret_value = 0;
+    *offset = (off_t_f)c_offset;
+    *bytes  = (hsize_t_f)size;
+    /* Note: if the size of the fortran buffer is larger then the returned string
+     *       from the function then we need to give HD5packFstring the fortran buffer size so
+     *       that it fills the remaining unused characters with blanks. MSB
+     */
+    HD5packFstring(c_name, _fcdtocp(name), c_namelen);
+    ret_value = 0;
 
 DONE:
-     HDfree(c_name);
-     return ret_value;
+    HDfree(c_name);
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_btree_ratios_c
  * NAME
  *        h5pset_btree_ratios_c
  * PURPOSE
- *     Call H5Pset_btree_ratios to set B-tree split ratios for B-tree split ratios for a dataset transfer property list. a
- *              dataset transfer property list.
- * INPUTS
- *      prp_id - property list identifier
- *              left - The B-tree split ratio for left-most nodes.
- *              middle - The B-tree split ratio for all other nodes
- *              right - The B-tree split ratio for right-most nodes
- *                      and lone nodes.
- * RETURNS
- *     0 on success, -1 on failure
- * AUTHOR
- *  Xiangyang Su
+ *     Call H5Pset_btree_ratios to set B-tree split ratios for B-tree split ratios for a dataset transfer
+ * property list. a dataset transfer property list. INPUTS prp_id - property list identifier left - The B-tree
+ * split ratio for left-most nodes. middle - The B-tree split ratio for all other nodes right - The B-tree
+ * split ratio for right-most nodes and lone nodes. RETURNS 0 on success, -1 on failure AUTHOR Xiangyang Su
  *              Friday, February 25, 2000
  * HISTORY
  * Changed the type of the last three parameters from double to real_f
  * SOURCE
-*/
+ */
 int_f
-nh5pset_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* right)
+nh5pset_btree_ratios_c(hid_t_f *prp_id, real_f *left, real_f *middle, real_f *right)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     double c_left;
-     double c_middle;
-     double c_right;
-     c_left = (double)*left;
-     c_middle = (double)*middle;
-     c_right = (double)*right;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    herr_t ret;
+    double c_left;
+    double c_middle;
+    double c_right;
+    c_left   = (double)*left;
+    c_middle = (double)*middle;
+    c_right  = (double)*right;
 
-     /*
-      * Call H5Pset_btree_ratios function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pset_btree_ratios(c_prp_id, c_left, c_middle, c_right);
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    /*
+     * Call H5Pset_btree_ratios function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pset_btree_ratios(c_prp_id, c_left, c_middle, c_right);
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_btree_ratios_c
@@ -2132,27 +2174,28 @@ nh5pset_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* ri
  * HISTORY
  * Changed the type of the last three parameters from double to real_f
  * SOURCE
-*/
+ */
 int_f
-nh5pget_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* right)
+nh5pget_btree_ratios_c(hid_t_f *prp_id, real_f *left, real_f *middle, real_f *right)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_prp_id;
-     herr_t ret;
-     double c_left, c_right, c_middle;
+    int    ret_value = -1;
+    hid_t  c_prp_id;
+    herr_t ret;
+    double c_left, c_right, c_middle;
 
-     /*
-      * Call H5Pget_btree_ratios function.
-      */
-     c_prp_id = (hid_t)*prp_id;
-     ret = H5Pget_btree_ratios(c_prp_id, &c_left, &c_middle, &c_right);
-     *left = (real_f)c_left;
-     *middle = (real_f)c_middle;
-     *right = (real_f)c_right;
-     if (ret < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    /*
+     * Call H5Pget_btree_ratios function.
+     */
+    c_prp_id = (hid_t)*prp_id;
+    ret      = H5Pget_btree_ratios(c_prp_id, &c_left, &c_middle, &c_right);
+    *left    = (real_f)c_left;
+    *middle  = (real_f)c_middle;
+    *right   = (real_f)c_right;
+    if (ret < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Pf/h5pget_fclose_degree_c
  * NAME
@@ -2176,22 +2219,23 @@ nh5pget_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* ri
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pget_fclose_degree_c ( hid_t_f *fapl_id , int_f *degree)
+nh5pget_fclose_degree_c(hid_t_f *fapl_id, int_f *degree)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_fapl_id;
-  H5F_close_degree_t c_degree;
+    int                ret_value = -1;
+    hid_t              c_fapl_id;
+    H5F_close_degree_t c_degree;
 
-  c_fapl_id = (hid_t)*fapl_id;
-  if( H5Pget_fclose_degree(c_fapl_id, &c_degree) < 0) return ret_value;
+    c_fapl_id = (hid_t)*fapl_id;
+    if (H5Pget_fclose_degree(c_fapl_id, &c_degree) < 0)
+        return ret_value;
 
-  *degree = (int_f)c_degree;
-  ret_value = 0;
-  return ret_value;
+    *degree   = (int_f)c_degree;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_fclose_degree_c
@@ -2214,22 +2258,23 @@ nh5pget_fclose_degree_c ( hid_t_f *fapl_id , int_f *degree)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_fclose_degree_c ( hid_t_f *fapl_id , int_f *degree)
+nh5pset_fclose_degree_c(hid_t_f *fapl_id, int_f *degree)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_fapl_id;
-  H5F_close_degree_t c_degree;
+    int                ret_value = -1;
+    hid_t              c_fapl_id;
+    H5F_close_degree_t c_degree;
 
-  c_fapl_id = (hid_t)*fapl_id;
-  c_degree = (H5F_close_degree_t)*degree;
-  if( H5Pset_fclose_degree(c_fapl_id, c_degree) < 0) return ret_value;
+    c_fapl_id = (hid_t)*fapl_id;
+    c_degree  = (H5F_close_degree_t)*degree;
+    if (H5Pset_fclose_degree(c_fapl_id, c_degree) < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_buffer_c
@@ -2250,20 +2295,21 @@ nh5pset_fclose_degree_c ( hid_t_f *fapl_id , int_f *degree)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_buffer_c ( hid_t_f *prp_id , hsize_t_f *size)
+nh5pset_buffer_c(hid_t_f *prp_id, hsize_t_f *size)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_prp_id;
-  size_t c_size;
+    int    ret_value = 0;
+    hid_t  c_prp_id;
+    size_t c_size;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_size = (size_t)*size;
-  if ( H5Pset_buffer(c_prp_id, c_size, NULL, NULL) < 0  ) ret_value = -1;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    c_size   = (size_t)*size;
+    if (H5Pset_buffer(c_prp_id, c_size, NULL, NULL) < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_buffer_c
@@ -2283,22 +2329,23 @@ nh5pset_buffer_c ( hid_t_f *prp_id , hsize_t_f *size)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pget_buffer_c ( hid_t_f *prp_id , hsize_t_f *size)
+nh5pget_buffer_c(hid_t_f *prp_id, hsize_t_f *size)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_prp_id;
-  hsize_t c_size;
+    int     ret_value = -1;
+    hid_t   c_prp_id;
+    hsize_t c_size;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_size = H5Pget_buffer(c_prp_id, NULL, NULL);
-  if ( c_size == 0  ) return ret_value;
-  *size = (hsize_t_f)c_size;
-  ret_value = 0;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    c_size   = H5Pget_buffer(c_prp_id, NULL, NULL);
+    if (c_size == 0)
+        return ret_value;
+    *size     = (hsize_t_f)c_size;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Pf/h5pfill_value_defined_c
  * NAME
@@ -2317,21 +2364,22 @@ nh5pget_buffer_c ( hid_t_f *prp_id , hsize_t_f *size)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pfill_value_defined_c ( hid_t_f *prp_id , int_f *flag)
+nh5pfill_value_defined_c(hid_t_f *prp_id, int_f *flag)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_prp_id;
-  H5D_fill_value_t c_flag;
+    int              ret_value = -1;
+    hid_t            c_prp_id;
+    H5D_fill_value_t c_flag;
 
-  c_prp_id = (hid_t)*prp_id;
-  if ( H5Pfill_value_defined(c_prp_id, &c_flag) < 0  ) return ret_value;
-  *flag = (int_f)c_flag;
-  ret_value = 0;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    if (H5Pfill_value_defined(c_prp_id, &c_flag) < 0)
+        return ret_value;
+    *flag     = (int_f)c_flag;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Pf/h5pget_alloc_time_c
  * NAME
@@ -2351,21 +2399,22 @@ nh5pfill_value_defined_c ( hid_t_f *prp_id , int_f *flag)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pget_alloc_time_c ( hid_t_f *prp_id , int_f *flag)
+nh5pget_alloc_time_c(hid_t_f *prp_id, int_f *flag)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_prp_id;
-  H5D_alloc_time_t c_flag;
+    int              ret_value = -1;
+    hid_t            c_prp_id;
+    H5D_alloc_time_t c_flag;
 
-  c_prp_id = (hid_t)*prp_id;
-  if ( H5Pget_alloc_time(c_prp_id, &c_flag) < 0  ) return ret_value;
-  *flag = (int_f)c_flag;
-  ret_value = 0;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    if (H5Pget_alloc_time(c_prp_id, &c_flag) < 0)
+        return ret_value;
+    *flag     = (int_f)c_flag;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Pf/h5pset_alloc_time_c
  * NAME
@@ -2384,21 +2433,22 @@ nh5pget_alloc_time_c ( hid_t_f *prp_id , int_f *flag)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_alloc_time_c ( hid_t_f *prp_id , int_f *flag)
+nh5pset_alloc_time_c(hid_t_f *prp_id, int_f *flag)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_prp_id;
-  H5D_alloc_time_t c_flag;
+    int              ret_value = -1;
+    hid_t            c_prp_id;
+    H5D_alloc_time_t c_flag;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_flag = (H5D_alloc_time_t)*flag;
-  if ( H5Pset_alloc_time(c_prp_id, c_flag) < 0  ) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    c_flag   = (H5D_alloc_time_t)*flag;
+    if (H5Pset_alloc_time(c_prp_id, c_flag) < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Pf/h5pget_fill_time_c
  * NAME
@@ -2418,21 +2468,22 @@ nh5pset_alloc_time_c ( hid_t_f *prp_id , int_f *flag)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pget_fill_time_c ( hid_t_f *prp_id , int_f *flag)
+nh5pget_fill_time_c(hid_t_f *prp_id, int_f *flag)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_prp_id;
-  H5D_fill_time_t c_flag;
+    int             ret_value = -1;
+    hid_t           c_prp_id;
+    H5D_fill_time_t c_flag;
 
-  c_prp_id = (hid_t)*prp_id;
-  if ( H5Pget_fill_time(c_prp_id, &c_flag) < 0  ) return ret_value;
-  *flag = (int_f)c_flag;
-  ret_value = 0;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    if (H5Pget_fill_time(c_prp_id, &c_flag) < 0)
+        return ret_value;
+    *flag     = (int_f)c_flag;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Pf/h5pset_fill_time_c
  * NAME
@@ -2451,21 +2502,22 @@ nh5pget_fill_time_c ( hid_t_f *prp_id , int_f *flag)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_fill_time_c ( hid_t_f *prp_id , int_f *flag)
+nh5pset_fill_time_c(hid_t_f *prp_id, int_f *flag)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_prp_id;
-  H5D_fill_time_t c_flag;
+    int             ret_value = -1;
+    hid_t           c_prp_id;
+    H5D_fill_time_t c_flag;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_flag = (H5D_fill_time_t)*flag;
-  if ( H5Pset_fill_time(c_prp_id, c_flag) < 0  ) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    c_flag   = (H5D_fill_time_t)*flag;
+    if (H5Pset_fill_time(c_prp_id, c_flag) < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Pf/h5pset_meta_block_size_c
  * NAME
@@ -2485,20 +2537,21 @@ nh5pset_fill_time_c ( hid_t_f *prp_id , int_f *flag)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_meta_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
+nh5pset_meta_block_size_c(hid_t_f *prp_id, hsize_t_f *size)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_prp_id;
-  hsize_t c_size;
+    int     ret_value = 0;
+    hid_t   c_prp_id;
+    hsize_t c_size;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_size = (hsize_t)*size;
-  if ( H5Pset_meta_block_size(c_prp_id, c_size) < 0  ) ret_value = -1;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    c_size   = (hsize_t)*size;
+    if (H5Pset_meta_block_size(c_prp_id, c_size) < 0)
+        ret_value = -1;
+    return ret_value;
 }
 /****if* H5Pf/h5pget_meta_block_size_c
  * NAME
@@ -2518,20 +2571,21 @@ nh5pset_meta_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pget_meta_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
+nh5pget_meta_block_size_c(hid_t_f *prp_id, hsize_t_f *size)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_prp_id;
-  hsize_t c_size;
+    int     ret_value = 0;
+    hid_t   c_prp_id;
+    hsize_t c_size;
 
-  c_prp_id = (hid_t)*prp_id;
-  if ( H5Pget_meta_block_size(c_prp_id, &c_size) < 0  ) ret_value = -1;
-  *size = (hsize_t_f)c_size;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    if (H5Pget_meta_block_size(c_prp_id, &c_size) < 0)
+        ret_value = -1;
+    *size = (hsize_t_f)c_size;
+    return ret_value;
 }
 /****if* H5Pf/h5pset_sieve_buf_size_c
  * NAME
@@ -2551,20 +2605,21 @@ nh5pget_meta_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_sieve_buf_size_c ( hid_t_f *prp_id , size_t_f *size)
+nh5pset_sieve_buf_size_c(hid_t_f *prp_id, size_t_f *size)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_prp_id;
-  size_t c_size;
+    int    ret_value = 0;
+    hid_t  c_prp_id;
+    size_t c_size;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_size = (size_t)*size;
-  if ( H5Pset_sieve_buf_size(c_prp_id, c_size) < 0  ) ret_value = -1;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    c_size   = (size_t)*size;
+    if (H5Pset_sieve_buf_size(c_prp_id, c_size) < 0)
+        ret_value = -1;
+    return ret_value;
 }
 /****if* H5Pf/h5pget_sieve_buf_size_c
  * NAME
@@ -2584,20 +2639,21 @@ nh5pset_sieve_buf_size_c ( hid_t_f *prp_id , size_t_f *size)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pget_sieve_buf_size_c ( hid_t_f *prp_id , size_t_f *size)
+nh5pget_sieve_buf_size_c(hid_t_f *prp_id, size_t_f *size)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_prp_id;
-  size_t c_size;
+    int    ret_value = 0;
+    hid_t  c_prp_id;
+    size_t c_size;
 
-  c_prp_id = (hid_t)*prp_id;
-  if ( H5Pget_sieve_buf_size(c_prp_id, &c_size) < 0  ) ret_value = -1;
-  *size = (size_t_f)c_size;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    if (H5Pget_sieve_buf_size(c_prp_id, &c_size) < 0)
+        ret_value = -1;
+    *size = (size_t_f)c_size;
+    return ret_value;
 }
 /****if* H5Pf/h5pset_small_data_block_size_c
  * NAME
@@ -2617,20 +2673,21 @@ nh5pget_sieve_buf_size_c ( hid_t_f *prp_id , size_t_f *size)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_small_data_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
+nh5pset_small_data_block_size_c(hid_t_f *prp_id, hsize_t_f *size)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_prp_id;
-  hsize_t c_size;
+    int     ret_value = 0;
+    hid_t   c_prp_id;
+    hsize_t c_size;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_size = (hsize_t)*size;
-  if ( H5Pset_small_data_block_size(c_prp_id, c_size) < 0  ) ret_value = -1;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    c_size   = (hsize_t)*size;
+    if (H5Pset_small_data_block_size(c_prp_id, c_size) < 0)
+        ret_value = -1;
+    return ret_value;
 }
 /****if* H5Pf/h5pget_small_data_block_size_c
  * NAME
@@ -2650,20 +2707,21 @@ nh5pset_small_data_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pget_small_data_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
+nh5pget_small_data_block_size_c(hid_t_f *prp_id, hsize_t_f *size)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_prp_id;
-  hsize_t c_size;
+    int     ret_value = 0;
+    hid_t   c_prp_id;
+    hsize_t c_size;
 
-  c_prp_id = (hid_t)*prp_id;
-  if ( H5Pget_small_data_block_size(c_prp_id, &c_size) < 0  ) ret_value = -1;
-  *size = (hsize_t_f)c_size;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    if (H5Pget_small_data_block_size(c_prp_id, &c_size) < 0)
+        ret_value = -1;
+    *size = (hsize_t_f)c_size;
+    return ret_value;
 }
 /****if* H5Pf/h5pset_hyper_vector_size_c
  * NAME
@@ -2683,20 +2741,21 @@ nh5pget_small_data_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size)
+nh5pset_hyper_vector_size_c(hid_t_f *prp_id, size_t_f *size)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_prp_id;
-  size_t c_size;
+    int    ret_value = 0;
+    hid_t  c_prp_id;
+    size_t c_size;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_size = (size_t)*size;
-  if ( H5Pset_hyper_vector_size(c_prp_id, c_size) < 0  ) ret_value = -1;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    c_size   = (size_t)*size;
+    if (H5Pset_hyper_vector_size(c_prp_id, c_size) < 0)
+        ret_value = -1;
+    return ret_value;
 }
 /****if* H5Pf/h5pget_hyper_vector_size_c
  * NAME
@@ -2716,20 +2775,21 @@ nh5pset_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pget_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size)
+nh5pget_hyper_vector_size_c(hid_t_f *prp_id, size_t_f *size)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_prp_id;
-  size_t c_size;
+    int    ret_value = 0;
+    hid_t  c_prp_id;
+    size_t c_size;
 
-  c_prp_id = (hid_t)*prp_id;
-  if ( H5Pget_hyper_vector_size(c_prp_id, &c_size) < 0  ) ret_value = -1;
-  *size = (size_t_f)c_size;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    if (H5Pget_hyper_vector_size(c_prp_id, &c_size) < 0)
+        ret_value = -1;
+    *size = (size_t_f)c_size;
+    return ret_value;
 }
 /****if* H5Pf/h5pcreate_class_c
  * NAME
@@ -2750,18 +2810,17 @@ nh5pget_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size)
  *
  * HISTORY
  * SOURCE
-*/
+ */
 int_f
 nh5pcreate_class_f90_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls)
 /******/
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     ret_value = h5pcreate_class_c(parent, name, name_len, cls, NULL, NULL, NULL, NULL, NULL, NULL);
-     return  ret_value;
+    ret_value = h5pcreate_class_c(parent, name, name_len, cls, NULL, NULL, NULL, NULL, NULL, NULL);
+    return ret_value;
 }
 
-
 /****if* H5Pf/h5pcreate_class_c
  * NAME
  *  h5pcreate_class_c
@@ -2783,36 +2842,38 @@ nh5pcreate_class_f90_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls
  *  Added the callback parameters (FORTRAN 2003 compilers only)
  *  M. Scot Breitenfeld, July 3, 2008
  * SOURCE
-*/
+ */
 int_f
-h5pcreate_class_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls,
-		   H5P_cls_create_func_t create, void *create_data,
-		   H5P_cls_copy_func_t copy, void *copy_data,
-		   H5P_cls_close_func_t close, void *close_data)
+h5pcreate_class_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls, H5P_cls_create_func_t create,
+                  void *create_data, H5P_cls_copy_func_t copy, void *copy_data, H5P_cls_close_func_t close,
+                  void *close_data)
 /******/
 {
-     int ret_value = -1;
-     hid_t c_class;
-     char* c_name;
+    int   ret_value = -1;
+    hid_t c_class;
+    char *c_name;
 
-     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
-     if (c_name == NULL) goto DONE;
+    c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
+    if (c_name == NULL)
+        goto DONE;
 
-     /*
-      * Call H5Pcreate_class function.
-      */
-     c_class = H5Pcreate_class((hid_t)*parent, c_name, create, create_data, copy, copy_data, close, close_data);
+    /*
+     * Call H5Pcreate_class function.
+     */
+    c_class =
+        H5Pcreate_class((hid_t)*parent, c_name, create, create_data, copy, copy_data, close, close_data);
 
-     if (c_class < 0) goto DONE;
-     *cls = (hid_t_f)c_class;
-     ret_value = 0;
+    if (c_class < 0)
+        goto DONE;
+    *cls      = (hid_t_f)c_class;
+    ret_value = 0;
 
 DONE:
-     if(c_name != NULL) HDfree(c_name);
-     return ret_value;
+    if (c_name != NULL)
+        HDfree(c_name);
+    return ret_value;
 }
 
-
 /****if* H5Pf/h5pregisterc_c
  * NAME
  *  h5pregisterc_c
@@ -2832,18 +2893,19 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pregisterc_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f H5_ATTR_UNUSED *value_len)
+nh5pregisterc_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, _fcd value,
+                int_f H5_ATTR_UNUSED *value_len)
 /******/
 {
-     int ret_value = -1;
+    int ret_value = -1;
 
-     /*
-      * Call h5pregister_c function
-      */
-      ret_value = h5pregister_c(cls, name, name_len, size, _fcdtocp(value));
-      return ret_value;
+    /*
+     * Call h5pregister_c function
+     */
+    ret_value = h5pregister_c(cls, name, name_len, size, _fcdtocp(value));
+    return ret_value;
 }
 
 /****if* H5Pf/h5pregister_c
@@ -2865,55 +2927,55 @@ nh5pregisterc_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, _fcd v
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 h5pregister_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void H5_ATTR_UNUSED *value)
 /******/
 {
-     char* c_name = NULL;
-     int_f ret_value = -1;
+    char *c_name    = NULL;
+    int_f ret_value = -1;
 
-     if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*name_len)))
-         goto DONE;
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*name_len)))
+        goto DONE;
 
-     /*
-      * Call H5Pregister2 function.
-      */
-     if(H5Pregister2((hid_t)*cls, c_name, (size_t)*size, value, NULL, NULL, NULL, NULL, NULL, NULL, NULL) < 0)
-         goto DONE;
-     ret_value = 0;
+    /*
+     * Call H5Pregister2 function.
+     */
+    if (H5Pregister2((hid_t)*cls, c_name, (size_t)*size, value, NULL, NULL, NULL, NULL, NULL, NULL, NULL) < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-     if(c_name != NULL)
-         HDfree(c_name);
-     return ret_value;
+    if (c_name != NULL)
+        HDfree(c_name);
+    return ret_value;
 }
 
 int_f
 nh5pregister_integer_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void *value)
 {
-     /*
-      * Call h5pregister_c function
-      */
-     return h5pregister_c(cls, name, name_len, size, value);
+    /*
+     * Call h5pregister_c function
+     */
+    return h5pregister_c(cls, name, name_len, size, value);
 }
 
 int_f
 nh5pregister_real_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void *value)
 {
-     /*
-      * Call h5pregister_c function
-      */
-     return h5pregister_c(cls, name, name_len, size, value);
+    /*
+     * Call h5pregister_c function
+     */
+    return h5pregister_c(cls, name, name_len, size, value);
 }
 
 int_f
 nh5pregister_double_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void *value)
 {
-     /*
-      * Call h5pregister_c function
-      */
-     return h5pregister_c(cls, name, name_len, size, value);
+    /*
+     * Call h5pregister_c function
+     */
+    return h5pregister_c(cls, name, name_len, size, value);
 }
 
 /****if* H5Pf/h5pinsertc_c
@@ -2935,18 +2997,19 @@ nh5pregister_double_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size,
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f H5_ATTR_UNUSED *value_len)
+nh5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd value,
+              int_f H5_ATTR_UNUSED *value_len)
 /******/
 {
-     int_f ret_value = -1;
+    int_f ret_value = -1;
 
-     /*
-      * Call h5pinsert_c function
-      */
-      ret_value = h5pinsert_c(plist, name, name_len, size, _fcdtocp(value));
-      return ret_value;
+    /*
+     * Call h5pinsert_c function
+     */
+    ret_value = h5pinsert_c(plist, name, name_len, size, _fcdtocp(value));
+    return ret_value;
 }
 
 /****if* H5Pf/h5pinsert_c
@@ -2968,55 +3031,55 @@ nh5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd v
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 h5pinsert_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void H5_ATTR_UNUSED *value)
 /******/
 {
-     char* c_name = NULL;
-     int_f ret_value = -1;
+    char *c_name    = NULL;
+    int_f ret_value = -1;
 
-     if(NULL == ( c_name = (char *)HD5f2cstring(name, (size_t)*name_len)))
-         goto DONE;
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*name_len)))
+        goto DONE;
 
-     /*
-      * Call H5Pinsert2 function.
-      */
-     if(H5Pinsert2((hid_t)*plist, c_name, (size_t)*size, value, NULL, NULL, NULL, NULL, NULL, NULL) < 0)
-         goto DONE;
-     ret_value = 0;
+    /*
+     * Call H5Pinsert2 function.
+     */
+    if (H5Pinsert2((hid_t)*plist, c_name, (size_t)*size, value, NULL, NULL, NULL, NULL, NULL, NULL) < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-     if(c_name)
-         HDfree(c_name);
-     return ret_value;
+    if (c_name)
+        HDfree(c_name);
+    return ret_value;
 }
 
 int_f
 nh5pinsert_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
 {
-     /*
-      * Call h5pinsert_c function
-      */
-     return h5pinsert_c(plist, name, name_len, size, value);
+    /*
+     * Call h5pinsert_c function
+     */
+    return h5pinsert_c(plist, name, name_len, size, value);
 }
 
 int_f
 nh5pinsert_real_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
 {
-     /*
-      * Call h5pinsert_c function
-      */
-     return h5pinsert_c(plist, name, name_len, size, value);
+    /*
+     * Call h5pinsert_c function
+     */
+    return h5pinsert_c(plist, name, name_len, size, value);
 }
 
 int_f
 nh5pinsert_double_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
 {
-     /*
-      * Call h5pinsert_c function
-      */
-     return h5pinsert_c(plist, name, name_len, size, value);
+    /*
+     * Call h5pinsert_c function
+     */
+    return h5pinsert_c(plist, name, name_len, size, value);
 }
 
 /****if* H5Pf/h5pexist_c
@@ -3037,29 +3100,31 @@ nh5pinsert_double_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size,
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pexist_c(hid_t_f *cls, _fcd name, int_f *name_len)
 /******/
 {
-     int_f ret_value = -1;
-     hid_t c_class;
-     char* c_name;
-     htri_t status;
+    int_f  ret_value = -1;
+    hid_t  c_class;
+    char * c_name;
+    htri_t status;
 
-     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
-     if (c_name == NULL) goto DONE;
+    c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
+    if (c_name == NULL)
+        goto DONE;
 
-     c_class = (hid_t)*cls;
-     /*
-      * Call H5Pexist function.
-      */
-     status = H5Pexist(c_class, c_name);
-     ret_value = status;
+    c_class = (hid_t)*cls;
+    /*
+     * Call H5Pexist function.
+     */
+    status    = H5Pexist(c_class, c_name);
+    ret_value = status;
 
 DONE:
-     if(c_name != NULL) HDfree(c_name);
-     return  ret_value;
+    if (c_name != NULL)
+        HDfree(c_name);
+    return ret_value;
 }
 /****if* H5Pf/h5pisa_class_c
  * NAME
@@ -3078,25 +3143,25 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pisa_class_c(hid_t_f *plist, hid_t_f *cls)
 /******/
 {
-     int_f ret_value = -1;
-     hid_t c_class;
-     hid_t c_plist;
-     htri_t status;
+    int_f  ret_value = -1;
+    hid_t  c_class;
+    hid_t  c_plist;
+    htri_t status;
 
-     c_class = (hid_t)*cls;
-     c_plist = (hid_t)*plist;
+    c_class = (hid_t)*cls;
+    c_plist = (hid_t)*plist;
 
-     /*
-      * Call H5Pisa_class function.
-      */
-     status = H5Pisa_class(c_plist, c_class);
-     ret_value = status;
-     return  ret_value;
+    /*
+     * Call H5Pisa_class function.
+     */
+    status    = H5Pisa_class(c_plist, c_class);
+    ret_value = status;
+    return ret_value;
 }
 /****if* H5Pf/h5pget_size_c
  * NAME
@@ -3117,30 +3182,33 @@ nh5pisa_class_c(hid_t_f *plist, hid_t_f *cls)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pget_size_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size)
 /******/
 {
-     int_f ret_value = -1;
-     hid_t c_plist;
-     char* c_name;
-     size_t c_size;
+    int_f  ret_value = -1;
+    hid_t  c_plist;
+    char * c_name;
+    size_t c_size;
 
-     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
-     if (c_name == NULL) goto DONE;
+    c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
+    if (c_name == NULL)
+        goto DONE;
 
-     c_plist = (hid_t)*plist;
-     /*
-      * Call H5Pget_size function.
-      */
-     if( H5Pget_size(c_plist, c_name, &c_size) < 0) goto DONE;
-     *size = (size_t_f)c_size;
-      ret_value = 0;
+    c_plist = (hid_t)*plist;
+    /*
+     * Call H5Pget_size function.
+     */
+    if (H5Pget_size(c_plist, c_name, &c_size) < 0)
+        goto DONE;
+    *size     = (size_t_f)c_size;
+    ret_value = 0;
 
 DONE:
-     if(c_name != NULL) HDfree(c_name);
-     return ret_value;
+    if (c_name != NULL)
+        HDfree(c_name);
+    return ret_value;
 }
 /****if* H5Pf/h5pget_nprops_c
  * NAME
@@ -3159,25 +3227,26 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pget_nprops_c(hid_t_f *plist, size_t_f *nprops)
 /******/
 {
-     int_f ret_value = -1;
-     hid_t c_plist;
-     size_t c_nprops;
+    int_f  ret_value = -1;
+    hid_t  c_plist;
+    size_t c_nprops;
 
-     c_plist = (hid_t)*plist;
+    c_plist = (hid_t)*plist;
 
-     /*
-      * Call H5Pget_nprops function.
-      */
-     if( H5Pget_nprops(c_plist, &c_nprops) < 0) return ret_value;
+    /*
+     * Call H5Pget_nprops function.
+     */
+    if (H5Pget_nprops(c_plist, &c_nprops) < 0)
+        return ret_value;
 
-     *nprops = (size_t_f)c_nprops;
-     ret_value = 0;
-     return ret_value;
+    *nprops   = (size_t_f)c_nprops;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Pf/h5pget_class_parent_c
  * NAME
@@ -3197,26 +3266,27 @@ nh5pget_nprops_c(hid_t_f *plist, size_t_f *nprops)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pget_class_parent_c(hid_t_f *prp_id, hid_t_f *parent_id)
 /******/
 {
-     int_f ret_value = -1;
-     hid_t c_prp_id;
-     hid_t c_parent_id;
+    int_f ret_value = -1;
+    hid_t c_prp_id;
+    hid_t c_parent_id;
 
-     c_prp_id = (hid_t)*prp_id;
+    c_prp_id = (hid_t)*prp_id;
 
-     /*
-      * Call H5Pget_class_parent function.
-      */
-     c_parent_id = H5Pget_class_parent(c_prp_id);
-     if( c_parent_id < 0) return ret_value;
+    /*
+     * Call H5Pget_class_parent function.
+     */
+    c_parent_id = H5Pget_class_parent(c_prp_id);
+    if (c_parent_id < 0)
+        return ret_value;
 
-     *parent_id =(hid_t_f)c_parent_id;
-     ret_value = 0;
-     return ret_value;
+    *parent_id = (hid_t_f)c_parent_id;
+    ret_value  = 0;
+    return ret_value;
 }
 /****if* H5Pf/h5pcopy_prop_c
  * NAME
@@ -3237,29 +3307,32 @@ nh5pget_class_parent_c(hid_t_f *prp_id, hid_t_f *parent_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pcopy_prop_c(hid_t_f *dst_id, hid_t_f *src_id, _fcd name, int_f *name_len)
 /******/
 {
-     int_f ret_value = -1;
-     hid_t c_dst_id, c_src_id;
-     char* c_name;
+    int_f ret_value = -1;
+    hid_t c_dst_id, c_src_id;
+    char *c_name;
 
-     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
-     if (c_name == NULL) goto DONE;
+    c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
+    if (c_name == NULL)
+        goto DONE;
 
-     c_dst_id = (hid_t)*dst_id;
-     c_src_id = (hid_t)*src_id;
-     /*
-      * Call H5Pcopy_prop function.
-      */
-     if( H5Pcopy_prop(c_dst_id, c_src_id, c_name) < 0) goto DONE;
-     ret_value = 0;
+    c_dst_id = (hid_t)*dst_id;
+    c_src_id = (hid_t)*src_id;
+    /*
+     * Call H5Pcopy_prop function.
+     */
+    if (H5Pcopy_prop(c_dst_id, c_src_id, c_name) < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-     if(c_name != NULL) HDfree(c_name);
-     return ret_value;
+    if (c_name != NULL)
+        HDfree(c_name);
+    return ret_value;
 }
 /****if* H5Pf/h5premove_c
  * NAME
@@ -3278,28 +3351,31 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5premove_c(hid_t_f *plid, _fcd name, int_f *name_len)
 /******/
 {
-     int_f ret_value = -1;
-     hid_t c_plid;
-     char* c_name;
+    int_f ret_value = -1;
+    hid_t c_plid;
+    char *c_name;
 
-     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
-     if (c_name == NULL) goto DONE;
+    c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
+    if (c_name == NULL)
+        goto DONE;
 
-     c_plid = (hid_t)*plid;
-     /*
-      * Call H5Premove function.
-      */
-     if( H5Premove(c_plid, c_name) < 0) goto DONE;
-     ret_value = 0;
+    c_plid = (hid_t)*plid;
+    /*
+     * Call H5Premove function.
+     */
+    if (H5Premove(c_plid, c_name) < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-     if(c_name != NULL) HDfree(c_name);
-     return ret_value;
+    if (c_name != NULL)
+        HDfree(c_name);
+    return ret_value;
 }
 /****if* H5Pf/h5punregister_c
  * NAME
@@ -3318,28 +3394,31 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5punregister_c(hid_t_f *cls, _fcd name, int_f *name_len)
 /******/
 {
-     int_f ret_value = -1;
-     hid_t c_class;
-     char* c_name;
+    int_f ret_value = -1;
+    hid_t c_class;
+    char *c_name;
 
-     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
-     if (c_name == NULL) goto DONE;
+    c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
+    if (c_name == NULL)
+        goto DONE;
 
-     c_class = (hid_t)*cls;
-     /*
-      * Call H5Punregister function.
-      */
-     if( H5Punregister(c_class, c_name) < 0) goto DONE;
-     ret_value = 0;
+    c_class = (hid_t)*cls;
+    /*
+     * Call H5Punregister function.
+     */
+    if (H5Punregister(c_class, c_name) < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-     if(c_name != NULL) HDfree(c_name);
-     return ret_value;
+    if (c_name != NULL)
+        HDfree(c_name);
+    return ret_value;
 }
 /****if* H5Pf/h5pclose_class_c
  * NAME
@@ -3356,21 +3435,22 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pclose_class_c(hid_t_f *cls)
 /******/
 {
-     int_f ret_value = -1;
-     hid_t c_class;
+    int_f ret_value = -1;
+    hid_t c_class;
 
-     c_class = (hid_t)*cls;
-     /*
-      * Call H5Pclose_class function.
-      */
-     if( H5Pclose_class(c_class) < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    c_class = (hid_t)*cls;
+    /*
+     * Call H5Pclose_class function.
+     */
+    if (H5Pclose_class(c_class) < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_class_name_c
@@ -3390,29 +3470,29 @@ nh5pclose_class_c(hid_t_f *cls)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pget_class_name_c(hid_t_f *cls, _fcd name, int_f *name_len)
 /******/
 {
-     int_f ret_value = -1;
+    int_f ret_value = -1;
 
-     /* Buffer to return name by C function */
-     char *c_name;
+    /* Buffer to return name by C function */
+    char *c_name;
 
-     /*
-      * Call H5Pget_class_name function. c_name is allocated by the library, 
-      * has to be freed by application.
-      */
-     if(NULL == (c_name = H5Pget_class_name((hid_t)*cls)))
-         goto DONE;
+    /*
+     * Call H5Pget_class_name function. c_name is allocated by the library,
+     * has to be freed by application.
+     */
+    if (NULL == (c_name = H5Pget_class_name((hid_t)*cls)))
+        goto DONE;
 
-     HD5packFstring(c_name, _fcdtocp(name), (size_t)*name_len);
-     ret_value = (int_f)HDstrlen(c_name);
-     H5free_memory(c_name);
+    HD5packFstring(c_name, _fcdtocp(name), (size_t)*name_len);
+    ret_value = (int_f)HDstrlen(c_name);
+    H5free_memory(c_name);
 
 DONE:
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Pf/h5psetc_c
@@ -3433,18 +3513,18 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f H5_ATTR_UNUSED *value_len)
 /******/
 {
-     int_f ret_value = -1;
+    int_f ret_value = -1;
 
-     /*
-      * Call h5pset_c function
-      */
-      ret_value = h5pset_c(plist, name, name_len, _fcdtocp(value));
-      return ret_value;
+    /*
+     * Call h5pset_c function
+     */
+    ret_value = h5pset_c(plist, name, name_len, _fcdtocp(value));
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_c
@@ -3465,53 +3545,56 @@ nh5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f H5_ATTR
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 h5pset_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
 /******/
 {
-     int_f ret_value = -1;
-     char* c_name;
+    int_f ret_value = -1;
+    char *c_name;
 
-     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
-     if (c_name == NULL) goto DONE;
+    c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
+    if (c_name == NULL)
+        goto DONE;
 
-     /*
-      * Call H5Pset function.
-      */
-     if( H5Pset((hid_t)*plist, c_name, value) <0) goto DONE;
-     ret_value = 0;
+    /*
+     * Call H5Pset function.
+     */
+    if (H5Pset((hid_t)*plist, c_name, value) < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-     if(c_name != NULL) HDfree(c_name);
-     return ret_value;
+    if (c_name != NULL)
+        HDfree(c_name);
+    return ret_value;
 }
 
 int_f
 nh5pset_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
 {
-     /*
-      * Call h5pset_c function
-      */
-     return h5pset_c(plist, name, name_len, value);
+    /*
+     * Call h5pset_c function
+     */
+    return h5pset_c(plist, name, name_len, value);
 }
 
 int_f
 nh5pset_real_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
 {
-     /*
-      * Call h5pset_c function
-      */
-     return h5pset_c(plist, name, name_len, value);
+    /*
+     * Call h5pset_c function
+     */
+    return h5pset_c(plist, name, name_len, value);
 }
 
 int_f
 nh5pset_double_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
 {
-     /*
-      * Call h5pset_c function
-      */
-     return h5pset_c(plist, name, name_len, value);
+    /*
+     * Call h5pset_c function
+     */
+    return h5pset_c(plist, name, name_len, value);
 }
 /****if* H5Pf/h5pgetc_c
  * NAME
@@ -3531,18 +3614,18 @@ nh5pset_double_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pgetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f H5_ATTR_UNUSED *value_len)
 /******/
 {
-     int_f ret_value = -1;
+    int_f ret_value = -1;
 
-     /*
-      * Call h5pget_c function
-      */
-      ret_value = h5pget_c(plist, name, name_len, _fcdtocp(value));
-      return ret_value;
+    /*
+     * Call h5pget_c function
+     */
+    ret_value = h5pget_c(plist, name, name_len, _fcdtocp(value));
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_c
@@ -3554,7 +3637,7 @@ nh5pgetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f H5_ATTR
  *  plist   - property list class identifier
  *  name     - name of the new property
  *  name_len - length of the "name" buffer
- * Output:  
+ * Output:
  *  value - property value
  * RETURNS
  *  0 on success, -1 on failure
@@ -3564,56 +3647,58 @@ nh5pgetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f H5_ATTR
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 h5pget_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
 /******/
 {
-     int_f ret_value = -1;
-     char* c_name;
+    int_f ret_value = -1;
+    char *c_name;
 
-     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
-     if (c_name == NULL) goto DONE;
+    c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
+    if (c_name == NULL)
+        goto DONE;
 
-     /*
-      * Call H5Pset function.
-      */
-     if( H5Pget((hid_t)*plist, c_name, value) <0) goto DONE;
-     ret_value = 0;
+    /*
+     * Call H5Pset function.
+     */
+    if (H5Pget((hid_t)*plist, c_name, value) < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-     if(c_name != NULL) HDfree(c_name);
-     return ret_value;
+    if (c_name != NULL)
+        HDfree(c_name);
+    return ret_value;
 }
 
 int_f
 nh5pget_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
 {
-     /*
-      * Call h5pget_c function
-      */
-     return h5pget_c(plist, name, name_len, value);
+    /*
+     * Call h5pget_c function
+     */
+    return h5pget_c(plist, name, name_len, value);
 }
 
 int_f
 nh5pget_real_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
 {
-     /*
-      * Call h5pget_c function
-      */
-     return h5pget_c(plist, name, name_len, value);
+    /*
+     * Call h5pget_c function
+     */
+    return h5pget_c(plist, name, name_len, value);
 }
 
 int_f
 nh5pget_double_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
 {
-     /*
-      * Call h5pget_c function
-      */
-     return h5pget_c(plist, name, name_len, value);
+    /*
+     * Call h5pget_c function
+     */
+    return h5pget_c(plist, name, name_len, value);
 }
 
-
 /****if* H5Pf/h5pset_shuffle_c
  * NAME
  *        h5pset_shuffle_c
@@ -3630,20 +3715,21 @@ nh5pget_double_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_shuffle_c ( hid_t_f *prp_id )
+nh5pset_shuffle_c(hid_t_f *prp_id)
 /******/
 {
-  int_f ret_value = 0;
-  hid_t c_prp_id;
-  herr_t status;
+    int_f  ret_value = 0;
+    hid_t  c_prp_id;
+    herr_t status;
 
-  c_prp_id = (hid_t)*prp_id;
-  status = H5Pset_shuffle(c_prp_id);
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    status   = H5Pset_shuffle(c_prp_id);
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
 }
 /****if* H5Pf/h5pset_fletcher32_c
  * NAME
@@ -3660,20 +3746,21 @@ nh5pset_shuffle_c ( hid_t_f *prp_id )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_fletcher32_c ( hid_t_f *prp_id )
+nh5pset_fletcher32_c(hid_t_f *prp_id)
 /******/
 {
-  int_f ret_value = 0;
-  hid_t c_prp_id;
-  herr_t status;
+    int_f  ret_value = 0;
+    hid_t  c_prp_id;
+    herr_t status;
 
-  c_prp_id = (hid_t)*prp_id;
-  status = H5Pset_fletcher32(c_prp_id);
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    status   = H5Pset_fletcher32(c_prp_id);
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_edc_check_c
@@ -3692,22 +3779,23 @@ nh5pset_fletcher32_c ( hid_t_f *prp_id )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_edc_check_c ( hid_t_f *prp_id, int_f *flag )
+nh5pset_edc_check_c(hid_t_f *prp_id, int_f *flag)
 /******/
 {
-  int_f ret_value = 0;
-  hid_t c_prp_id;
-  H5Z_EDC_t c_flag;
-  herr_t status;
+    int_f     ret_value = 0;
+    hid_t     c_prp_id;
+    H5Z_EDC_t c_flag;
+    herr_t    status;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_flag = (H5Z_EDC_t)*flag;
-  status = H5Pset_edc_check(c_prp_id, c_flag);
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    c_flag   = (H5Z_EDC_t)*flag;
+    status   = H5Pset_edc_check(c_prp_id, c_flag);
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_edc_check_c
@@ -3726,21 +3814,22 @@ nh5pset_edc_check_c ( hid_t_f *prp_id, int_f *flag )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pget_edc_check_c ( hid_t_f *prp_id, int_f *flag )
+nh5pget_edc_check_c(hid_t_f *prp_id, int_f *flag)
 /******/
 {
-  int_f ret_value = 0;
-  hid_t c_prp_id;
-  H5Z_EDC_t c_flag;
+    int_f     ret_value = 0;
+    hid_t     c_prp_id;
+    H5Z_EDC_t c_flag;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_flag = H5Pget_edc_check(c_prp_id);
-  if ( c_flag  < 0  ) ret_value = -1;
-  *flag = (int_f)c_flag;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    c_flag   = H5Pget_edc_check(c_prp_id);
+    if (c_flag < 0)
+        ret_value = -1;
+    *flag = (int_f)c_flag;
+    return ret_value;
 }
 /****if* H5Pf/h5pset_family_offset_c
  * NAME
@@ -3758,22 +3847,23 @@ nh5pget_edc_check_c ( hid_t_f *prp_id, int_f *flag )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_family_offset_c ( hid_t_f *prp_id , hsize_t_f *offset)
+nh5pset_family_offset_c(hid_t_f *prp_id, hsize_t_f *offset)
 /******/
 {
-  int_f ret_value = 0;
-  hid_t c_prp_id;
-  hsize_t c_offset;
-  herr_t status;
+    int_f   ret_value = 0;
+    hid_t   c_prp_id;
+    hsize_t c_offset;
+    herr_t  status;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_offset = (hsize_t)*offset;
-  status = H5Pset_family_offset(c_prp_id, c_offset);
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
+    c_prp_id = (hid_t)*prp_id;
+    c_offset = (hsize_t)*offset;
+    status   = H5Pset_family_offset(c_prp_id, c_offset);
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_fapl_multi_c
@@ -3797,74 +3887,81 @@ nh5pset_family_offset_c ( hid_t_f *prp_id , hsize_t_f *offset)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
 /*
  * nh5pset_fapl_multi_c(hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _fcd memb_name,
  * int_f *len, int_f *lenmax, haddr_t_f *memb_addr, int_f *flag)
  */
-nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _fcd memb_name, int_f *len, int_f *lenmax, real_f *memb_addr, int_f *flag)
-/******/
-{
-  int_f ret_value = -1;
-  hid_t c_prp_id;
-  H5FD_mem_t c_memb_map[H5FD_MEM_NTYPES];
-  hid_t c_memb_fapl[H5FD_MEM_NTYPES];
-  char *c_memb_name[H5FD_MEM_NTYPES];
-  haddr_t c_memb_addr[H5FD_MEM_NTYPES];
-  hbool_t relax;
-  herr_t status;
-  char *tmp, *tmp_p, *tmp_pp;
-  int i;
-  int c_lenmax;
-  long double  tmp_max_addr;
-  c_lenmax = (int)*lenmax;
-  relax = (hbool_t)*flag;
-/*
- * Check that we got correct values from Fortran for memb_addr array
- */
-  for (i=0; i < H5FD_MEM_NTYPES; i++) {
-       if(memb_addr[i] >= 1.0f) return ret_value;
-  }
-/*
- * Take care of names array
- */
-
-  tmp = (char *)HD5f2cstring(memb_name, (size_t)c_lenmax*(H5FD_MEM_NTYPES));
-  if (tmp ==NULL) return ret_value;
-  tmp_p = tmp;
-  for (i=0; i < H5FD_MEM_NTYPES; i++) {
-       c_memb_name[i] = (char *)HDmalloc((size_t)len[i] + 1);
-       HDmemcpy(c_memb_name[i], tmp_p, (size_t)len[i]);
-       tmp_pp = c_memb_name[i];
-       tmp_pp[len[i]] = '\0';
-       tmp_p = tmp_p + c_lenmax;
- }
-/*
- * Take care of othe arguments
- */
-  tmp_max_addr =  (long double)(HADDR_MAX);
-  c_prp_id = (hid_t)*prp_id;
-  for (i=0; i < H5FD_MEM_NTYPES; i++) {
-       c_memb_map[i] = (H5FD_mem_t)memb_map[i];
-       c_memb_fapl[i] = (hid_t)memb_fapl[i];
-       if(memb_addr[i] < 0) c_memb_addr[i] = HADDR_UNDEF;
-       else c_memb_addr[i] = (haddr_t)(((float)memb_addr[i])*(tmp_max_addr));
-  }
-/*
- * Call  H5Pset_fapl_multi function
- */
+nh5pset_fapl_multi_c(hid_t_f *prp_id, int_f *memb_map, hid_t_f *memb_fapl, _fcd memb_name, int_f *len,
+                     int_f *lenmax, real_f *memb_addr, int_f *flag)
+/******/
+{
+    int_f       ret_value = -1;
+    hid_t       c_prp_id;
+    H5FD_mem_t  c_memb_map[H5FD_MEM_NTYPES];
+    hid_t       c_memb_fapl[H5FD_MEM_NTYPES];
+    char *      c_memb_name[H5FD_MEM_NTYPES];
+    haddr_t     c_memb_addr[H5FD_MEM_NTYPES];
+    hbool_t     relax;
+    herr_t      status;
+    char *      tmp, *tmp_p, *tmp_pp;
+    int         i;
+    int         c_lenmax;
+    long double tmp_max_addr;
+    c_lenmax = (int)*lenmax;
+    relax    = (hbool_t)*flag;
+    /*
+     * Check that we got correct values from Fortran for memb_addr array
+     */
+    for (i = 0; i < H5FD_MEM_NTYPES; i++) {
+        if (memb_addr[i] >= 1.0f)
+            return ret_value;
+    }
+    /*
+     * Take care of names array
+     */
 
-  status = H5Pset_fapl_multi(c_prp_id, c_memb_map, c_memb_fapl, (const char * const *)c_memb_name, c_memb_addr, relax);
-  if ( status < 0  ) goto DONE;
-  ret_value = 0;
+    tmp = (char *)HD5f2cstring(memb_name, (size_t)c_lenmax * (H5FD_MEM_NTYPES));
+    if (tmp == NULL)
+        return ret_value;
+    tmp_p = tmp;
+    for (i = 0; i < H5FD_MEM_NTYPES; i++) {
+        c_memb_name[i] = (char *)HDmalloc((size_t)len[i] + 1);
+        HDmemcpy(c_memb_name[i], tmp_p, (size_t)len[i]);
+        tmp_pp         = c_memb_name[i];
+        tmp_pp[len[i]] = '\0';
+        tmp_p          = tmp_p + c_lenmax;
+    }
+    /*
+     * Take care of othe arguments
+     */
+    tmp_max_addr = (long double)(HADDR_MAX);
+    c_prp_id     = (hid_t)*prp_id;
+    for (i = 0; i < H5FD_MEM_NTYPES; i++) {
+        c_memb_map[i]  = (H5FD_mem_t)memb_map[i];
+        c_memb_fapl[i] = (hid_t)memb_fapl[i];
+        if (memb_addr[i] < 0)
+            c_memb_addr[i] = HADDR_UNDEF;
+        else
+            c_memb_addr[i] = (haddr_t)(((float)memb_addr[i]) * (tmp_max_addr));
+    }
+    /*
+     * Call  H5Pset_fapl_multi function
+     */
+
+    status = H5Pset_fapl_multi(c_prp_id, c_memb_map, c_memb_fapl, (const char *const *)c_memb_name,
+                               c_memb_addr, relax);
+    if (status < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-  HDfree(tmp);
-  for (i=0; i < H5FD_MEM_NTYPES; i++)
-      HDfree(c_memb_name[i]);
-  return ret_value;
+    HDfree(tmp);
+    for (i = 0; i < H5FD_MEM_NTYPES; i++)
+        HDfree(c_memb_name[i]);
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_fapl_multi_sc
@@ -3882,27 +3979,28 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_fapl_multi_sc ( hid_t_f *prp_id , int_f *flag)
+nh5pset_fapl_multi_sc(hid_t_f *prp_id, int_f *flag)
 /******/
 {
-  int_f ret_value = -1;
-  hid_t c_prp_id;
-  hbool_t relax;
-  herr_t status;
+    int_f   ret_value = -1;
+    hid_t   c_prp_id;
+    hbool_t relax;
+    herr_t  status;
 
-  relax = (hbool_t)*flag;
-  c_prp_id = (hid_t)*prp_id;
-/*
- * Call  H5Pset_fapl_multi function
- */
+    relax    = (hbool_t)*flag;
+    c_prp_id = (hid_t)*prp_id;
+    /*
+     * Call  H5Pset_fapl_multi function
+     */
 
-  status = H5Pset_fapl_multi(c_prp_id, NULL, NULL, NULL, NULL, relax);
-  if ( status < 0  ) return ret_value; /* error occurred */
-  ret_value = 0;
-  return ret_value;
+    status = H5Pset_fapl_multi(c_prp_id, NULL, NULL, NULL, NULL, relax);
+    if (status < 0)
+        return ret_value; /* error occurred */
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Pf/h5pget_fapl_multi_c
  * NAME
@@ -3926,66 +4024,70 @@ nh5pset_fapl_multi_sc ( hid_t_f *prp_id , int_f *flag)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pget_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _fcd memb_name, int_f *len, int_f *lenmax, real_f *memb_addr, int_f *flag, int_f *maxlen_out)
+nh5pget_fapl_multi_c(hid_t_f *prp_id, int_f *memb_map, hid_t_f *memb_fapl, _fcd memb_name, int_f *len,
+                     int_f *lenmax, real_f *memb_addr, int_f *flag, int_f *maxlen_out)
 /******/
 {
-  int_f ret_value = -1;
-  hid_t c_prp_id;
-  H5FD_mem_t c_memb_map[H5FD_MEM_NTYPES];
-  hid_t c_memb_fapl[H5FD_MEM_NTYPES];
-  char *c_memb_name[H5FD_MEM_NTYPES];
-  haddr_t c_memb_addr[H5FD_MEM_NTYPES];
-  hbool_t relax;
-  herr_t status;
-  char *tmp, *tmp_p;
-  int i;
-  size_t c_lenmax;
-  size_t length = 0;
-  c_lenmax = (size_t)*lenmax;
+    int_f      ret_value = -1;
+    hid_t      c_prp_id;
+    H5FD_mem_t c_memb_map[H5FD_MEM_NTYPES];
+    hid_t      c_memb_fapl[H5FD_MEM_NTYPES];
+    char *     c_memb_name[H5FD_MEM_NTYPES];
+    haddr_t    c_memb_addr[H5FD_MEM_NTYPES];
+    hbool_t    relax;
+    herr_t     status;
+    char *     tmp, *tmp_p;
+    int        i;
+    size_t     c_lenmax;
+    size_t     length = 0;
+    c_lenmax          = (size_t)*lenmax;
 
-  c_prp_id = (hid_t)*prp_id;
-/*
- * Call  H5Pget_fapl_multi function
- */
+    c_prp_id = (hid_t)*prp_id;
+    /*
+     * Call  H5Pget_fapl_multi function
+     */
 
-  status = H5Pget_fapl_multi(c_prp_id, c_memb_map, c_memb_fapl, c_memb_name, c_memb_addr, &relax);
-  if ( status < 0  ) return ret_value;
+    status = H5Pget_fapl_multi(c_prp_id, c_memb_map, c_memb_fapl, c_memb_name, c_memb_addr, &relax);
+    if (status < 0)
+        return ret_value;
 
-/*
- * Take care of names array
- */
-  tmp = (char *)HDmalloc(c_lenmax*H5FD_MEM_NTYPES + 1);
-  tmp_p = tmp;
-  HDmemset(tmp,' ', c_lenmax*H5FD_MEM_NTYPES);
-  tmp[c_lenmax*H5FD_MEM_NTYPES] = '\0';
-  for (i=0; i < H5FD_MEM_NTYPES; i++) {
-       memcpy(tmp_p, c_memb_name[i], strlen(c_memb_name[i]));
-       len[i] = (int_f)strlen(c_memb_name[i]);
-       length = H5_MAX(length, strlen(c_memb_name[i]));
-       tmp_p = tmp_p + c_lenmax;
- }
-HD5packFstring(tmp, _fcdtocp(memb_name), (size_t)(c_lenmax*H5FD_MEM_NTYPES));
+    /*
+     * Take care of names array
+     */
+    tmp   = (char *)HDmalloc(c_lenmax * H5FD_MEM_NTYPES + 1);
+    tmp_p = tmp;
+    HDmemset(tmp, ' ', c_lenmax * H5FD_MEM_NTYPES);
+    tmp[c_lenmax * H5FD_MEM_NTYPES] = '\0';
+    for (i = 0; i < H5FD_MEM_NTYPES; i++) {
+        memcpy(tmp_p, c_memb_name[i], strlen(c_memb_name[i]));
+        len[i] = (int_f)strlen(c_memb_name[i]);
+        length = H5_MAX(length, strlen(c_memb_name[i]));
+        tmp_p  = tmp_p + c_lenmax;
+    }
+    HD5packFstring(tmp, _fcdtocp(memb_name), (size_t)(c_lenmax * H5FD_MEM_NTYPES));
 
-/*
- * Take care of other arguments
- */
+    /*
+     * Take care of other arguments
+     */
 
-  for (i=0; i < H5FD_MEM_NTYPES; i++) {
-       memb_map[i] = (int_f)c_memb_map[i];
-       memb_fapl[i] = (hid_t_f)c_memb_fapl[i];
-       if(c_memb_addr[i] == HADDR_UNDEF) memb_addr[i] = -1;
-       else memb_addr[i] = (real_f) (c_memb_addr[i]/HADDR_MAX);
-  }
-  *flag = (int_f)relax;
-  *maxlen_out = (int_f)length;
-  ret_value = 0;
-  HDfree(tmp);
-  for (i=0; i < H5FD_MEM_NTYPES; i++)
-      HDfree(c_memb_name[i]);
-  return ret_value;
+    for (i = 0; i < H5FD_MEM_NTYPES; i++) {
+        memb_map[i]  = (int_f)c_memb_map[i];
+        memb_fapl[i] = (hid_t_f)c_memb_fapl[i];
+        if (c_memb_addr[i] == HADDR_UNDEF)
+            memb_addr[i] = -1;
+        else
+            memb_addr[i] = (real_f)(c_memb_addr[i] / HADDR_MAX);
+    }
+    *flag       = (int_f)relax;
+    *maxlen_out = (int_f)length;
+    ret_value   = 0;
+    HDfree(tmp);
+    for (i = 0; i < H5FD_MEM_NTYPES; i++)
+        HDfree(c_memb_name[i]);
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_szip_c
@@ -4005,29 +4107,30 @@ HD5packFstring(tmp, _fcdtocp(memb_name), (size_t)(c_lenmax*H5FD_MEM_NTYPES));
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pset_szip_c ( hid_t_f *prp_id , int_f *options_mask, int_f *pixels_per_block)
+nh5pset_szip_c(hid_t_f *prp_id, int_f *options_mask, int_f *pixels_per_block)
 /******/
 {
-  int_f ret_value = -1;
-  hid_t c_prp_id;
-  unsigned   c_options_mask;
-  unsigned  c_pixels_per_block;
-  herr_t status;
+    int_f    ret_value = -1;
+    hid_t    c_prp_id;
+    unsigned c_options_mask;
+    unsigned c_pixels_per_block;
+    herr_t   status;
 
-  c_prp_id = (hid_t)*prp_id;
-  c_options_mask = (unsigned)*options_mask;
-  c_pixels_per_block = (unsigned)*pixels_per_block;
-/*
- * Call  H5Pset_szip function
- */
+    c_prp_id           = (hid_t)*prp_id;
+    c_options_mask     = (unsigned)*options_mask;
+    c_pixels_per_block = (unsigned)*pixels_per_block;
+    /*
+     * Call  H5Pset_szip function
+     */
 
-  status = H5Pset_szip(c_prp_id, c_options_mask, c_pixels_per_block);
-  if ( status < 0  ) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    status = H5Pset_szip(c_prp_id, c_options_mask, c_pixels_per_block);
+    if (status < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Pf/h5pall_filters_avail_c
  * NAME
@@ -4046,28 +4149,29 @@ nh5pset_szip_c ( hid_t_f *prp_id , int_f *options_mask, int_f *pixels_per_block)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5pall_filters_avail_c ( hid_t_f *prp_id , int_f *status)
+nh5pall_filters_avail_c(hid_t_f *prp_id, int_f *status)
 /******/
 {
-  int_f ret_value = -1;
-  hid_t c_prp_id;
-  htri_t c_status;
-
+    int_f  ret_value = -1;
+    hid_t  c_prp_id;
+    htri_t c_status;
 
-  c_prp_id = (hid_t)*prp_id;
-/*
- * Call  H5Pall_filters_avail function
- */
+    c_prp_id = (hid_t)*prp_id;
+    /*
+     * Call  H5Pall_filters_avail function
+     */
 
-  c_status = H5Pall_filters_avail(c_prp_id);
-  if ( c_status < 0  ) return ret_value;
-  *status = 0;
-  if (c_status == 1) *status = 1;
-  ret_value = 0;
-  return ret_value;
+    c_status = H5Pall_filters_avail(c_prp_id);
+    if (c_status < 0)
+        return ret_value;
+    *status = 0;
+    if (c_status == 1)
+        *status = 1;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_filter_by_id_c
@@ -4094,44 +4198,46 @@ nh5pall_filters_avail_c ( hid_t_f *prp_id , int_f *status)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_filter_by_id_c(hid_t_f *prp_id, int_f* filter_id, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values, size_t_f *namelen, _fcd name)
+nh5pget_filter_by_id_c(hid_t_f *prp_id, int_f *filter_id, int_f *flags, size_t_f *cd_nelmts, int_f *cd_values,
+                       size_t_f *namelen, _fcd name)
 /******/
 {
-     unsigned int c_flags;
-     size_t c_cd_nelmts = (size_t)*cd_nelmts;
-     size_t c_cd_nelmts_in = (size_t)*cd_nelmts;
-     unsigned int *c_cd_values = NULL;
-     char *c_name = NULL;
-     unsigned i;
-     int_f ret_value = -1;
-
-     if(NULL == (c_name = (char *)HDmalloc((size_t)*namelen + 1)))
-         goto DONE;
+    unsigned int  c_flags;
+    size_t        c_cd_nelmts    = (size_t)*cd_nelmts;
+    size_t        c_cd_nelmts_in = (size_t)*cd_nelmts;
+    unsigned int *c_cd_values    = NULL;
+    char *        c_name         = NULL;
+    unsigned      i;
+    int_f         ret_value = -1;
+
+    if (NULL == (c_name = (char *)HDmalloc((size_t)*namelen + 1)))
+        goto DONE;
 
-     if(NULL == (c_cd_values = (unsigned int *)HDmalloc(sizeof(unsigned int) * c_cd_nelmts_in)))
-         goto DONE;
+    if (NULL == (c_cd_values = (unsigned int *)HDmalloc(sizeof(unsigned int) * c_cd_nelmts_in)))
+        goto DONE;
 
-     /*
-      * Call H5Pget_filter_by_id2 function.
-      */
-     if(H5Pget_filter_by_id2((hid_t)*prp_id, (H5Z_filter_t)*filter_id, &c_flags, &c_cd_nelmts, c_cd_values, (size_t)*namelen, c_name, NULL) < 0)
-         goto DONE;
+    /*
+     * Call H5Pget_filter_by_id2 function.
+     */
+    if (H5Pget_filter_by_id2((hid_t)*prp_id, (H5Z_filter_t)*filter_id, &c_flags, &c_cd_nelmts, c_cd_values,
+                             (size_t)*namelen, c_name, NULL) < 0)
+        goto DONE;
 
-     *cd_nelmts = (size_t_f)c_cd_nelmts;
-     *flags = (int_f)c_flags;
-     HD5packFstring(c_name, _fcdtocp(name), HDstrlen(c_name));
+    *cd_nelmts = (size_t_f)c_cd_nelmts;
+    *flags     = (int_f)c_flags;
+    HD5packFstring(c_name, _fcdtocp(name), HDstrlen(c_name));
 
-     for(i = 0; i < c_cd_nelmts_in; i++)
-          cd_values[i] = (int_f)c_cd_values[i];
+    for (i = 0; i < c_cd_nelmts_in; i++)
+        cd_values[i] = (int_f)c_cd_values[i];
 
-     ret_value = 0;
+    ret_value = 0;
 
 DONE:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
-    if(c_cd_values)
+    if (c_cd_values)
         HDfree(c_cd_values);
 
     return ret_value;
@@ -4157,36 +4263,38 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pmodify_filter_c (hid_t_f *prp_id, int_f* filter, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values )
+nh5pmodify_filter_c(hid_t_f *prp_id, int_f *filter, int_f *flags, size_t_f *cd_nelmts, int_f *cd_values)
 /******/
 {
-     int_f ret_value = -1;
-     hid_t c_prp_id = (hid_t)*prp_id;
-     herr_t ret;
-     size_t c_cd_nelmts = (size_t)*cd_nelmts;
-     unsigned int c_flags = (unsigned)*flags;
-     H5Z_filter_t c_filter = (H5Z_filter_t)*filter;
-     unsigned int * c_cd_values;
-     unsigned i;
+    int_f         ret_value = -1;
+    hid_t         c_prp_id  = (hid_t)*prp_id;
+    herr_t        ret;
+    size_t        c_cd_nelmts = (size_t)*cd_nelmts;
+    unsigned int  c_flags     = (unsigned)*flags;
+    H5Z_filter_t  c_filter    = (H5Z_filter_t)*filter;
+    unsigned int *c_cd_values;
+    unsigned      i;
 
-     c_cd_values = (unsigned int *)HDmalloc(sizeof(unsigned int) * c_cd_nelmts);
-     if (!c_cd_values) return ret_value;
-     for (i = 0; i < c_cd_nelmts; i++)
-          c_cd_values[i] = (unsigned int)cd_values[i];
+    c_cd_values = (unsigned int *)HDmalloc(sizeof(unsigned int) * c_cd_nelmts);
+    if (!c_cd_values)
+        return ret_value;
+    for (i = 0; i < c_cd_nelmts; i++)
+        c_cd_values[i] = (unsigned int)cd_values[i];
 
-     /*
-      * Call H5Pmodify_filter function.
-      */
-     ret = H5Pmodify_filter(c_prp_id, c_filter, c_flags, c_cd_nelmts,c_cd_values );
+    /*
+     * Call H5Pmodify_filter function.
+     */
+    ret = H5Pmodify_filter(c_prp_id, c_filter, c_flags, c_cd_nelmts, c_cd_values);
 
-     if (ret < 0) goto DONE;
-     ret_value = 0;
+    if (ret < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-     HDfree(c_cd_values);
-     return ret_value;
+    HDfree(c_cd_values);
+    return ret_value;
 }
 
 /****if* H5Pf/h5premove_filter_c
@@ -4205,26 +4313,27 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5premove_filter_c (hid_t_f *prp_id, int_f* filter)
+nh5premove_filter_c(hid_t_f *prp_id, int_f *filter)
 /******/
 {
-     int_f ret_value = -1;
-     hid_t c_prp_id;
-     H5Z_filter_t c_filter;
+    int_f        ret_value = -1;
+    hid_t        c_prp_id;
+    H5Z_filter_t c_filter;
 
-     c_filter = (H5Z_filter_t)*filter;
-     c_prp_id = (hid_t)*prp_id;
+    c_filter = (H5Z_filter_t)*filter;
+    c_prp_id = (hid_t)*prp_id;
 
-     /*
-      * Call H5Premove_filter function.
-      */
-     if(H5Premove_filter(c_prp_id, c_filter) < 0) goto DONE;
-     ret_value = 0;
+    /*
+     * Call H5Premove_filter function.
+     */
+    if (H5Premove_filter(c_prp_id, c_filter) < 0)
+        goto DONE;
+    ret_value = 0;
 
 DONE:
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_attr_phase_change_c
@@ -4245,27 +4354,28 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_attr_phase_change_c(hid_t_f *ocpl_id, int_f *max_compact, int_f *min_dense )
+nh5pget_attr_phase_change_c(hid_t_f *ocpl_id, int_f *max_compact, int_f *min_dense)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_ocpl_id;
-  unsigned c_max_compact;
-  unsigned c_min_dense;
-  herr_t ret;
-  /*
-   * Call H5Pget_attr_phase_change function.
-   */
-  c_ocpl_id = (hid_t)*ocpl_id;
-  ret = H5Pget_attr_phase_change(c_ocpl_id, &c_max_compact,&c_min_dense);
-  if (ret < 0) return ret_value;
-
-  *max_compact = (int_f)c_max_compact;
-  *min_dense = (int_f)c_min_dense;
-  ret_value = 0;
-  return ret_value;
+    int      ret_value = -1;
+    hid_t    c_ocpl_id;
+    unsigned c_max_compact;
+    unsigned c_min_dense;
+    herr_t   ret;
+    /*
+     * Call H5Pget_attr_phase_change function.
+     */
+    c_ocpl_id = (hid_t)*ocpl_id;
+    ret       = H5Pget_attr_phase_change(c_ocpl_id, &c_max_compact, &c_min_dense);
+    if (ret < 0)
+        return ret_value;
+
+    *max_compact = (int_f)c_max_compact;
+    *min_dense   = (int_f)c_min_dense;
+    ret_value    = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_attr_creation_order_c
@@ -4285,24 +4395,25 @@ nh5pget_attr_phase_change_c(hid_t_f *ocpl_id, int_f *max_compact, int_f *min_den
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags )
+nh5pset_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags)
 /******/
 {
-  int ret_value = -1;
-  unsigned c_crt_order_flags;
-  herr_t ret;
-  /*
-   * Call h5pset_attr_creation_order function.
-   */
-  c_crt_order_flags = (unsigned)*crt_order_flags;
-  ret = H5Pset_attr_creation_order((hid_t)*ocpl_id, c_crt_order_flags);
-  if (ret < 0) return ret_value;
+    int      ret_value = -1;
+    unsigned c_crt_order_flags;
+    herr_t   ret;
+    /*
+     * Call h5pset_attr_creation_order function.
+     */
+    c_crt_order_flags = (unsigned)*crt_order_flags;
+    ret               = H5Pset_attr_creation_order((hid_t)*ocpl_id, c_crt_order_flags);
+    if (ret < 0)
+        return ret_value;
 
-  *crt_order_flags = (int_f)c_crt_order_flags;
-  ret_value = 0;
-  return ret_value;
+    *crt_order_flags = (int_f)c_crt_order_flags;
+    ret_value        = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_shared_mesg_nindexes_c
@@ -4327,25 +4438,26 @@ nh5pset_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_shared_mesg_nindexes_c(hid_t_f *plist_id, int_f *nindexes )
+nh5pset_shared_mesg_nindexes_c(hid_t_f *plist_id, int_f *nindexes)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_plist_id;
-  unsigned c_nindexes;
-  herr_t ret;
-  /*
-   * Call h5pset_shared_mesg_nindexes function.
-   */
-  c_plist_id = (hid_t)*plist_id;
-  c_nindexes = (unsigned)*nindexes;
-  ret = H5Pset_shared_mesg_nindexes(c_plist_id, c_nindexes );
-  if (ret < 0) return ret_value;
+    int      ret_value = -1;
+    hid_t    c_plist_id;
+    unsigned c_nindexes;
+    herr_t   ret;
+    /*
+     * Call h5pset_shared_mesg_nindexes function.
+     */
+    c_plist_id = (hid_t)*plist_id;
+    c_nindexes = (unsigned)*nindexes;
+    ret        = H5Pset_shared_mesg_nindexes(c_plist_id, c_nindexes);
+    if (ret < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_shared_mesg_index_c
@@ -4371,21 +4483,23 @@ nh5pset_shared_mesg_nindexes_c(hid_t_f *plist_id, int_f *nindexes )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pset_shared_mesg_index_c(hid_t_f *fcpl_id, int_f *index_num, int_f *mesg_type_flags, int_f *min_mesg_size)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
-  /*
-   * Call h5pset_shared_mesg_index function.
-   */
-  ret = H5Pset_shared_mesg_index((hid_t)*fcpl_id,(unsigned)*index_num, (unsigned)*mesg_type_flags, (unsigned)*min_mesg_size);
-  if (ret < 0) return ret_value;
+    int    ret_value = -1;
+    herr_t ret;
+    /*
+     * Call h5pset_shared_mesg_index function.
+     */
+    ret = H5Pset_shared_mesg_index((hid_t)*fcpl_id, (unsigned)*index_num, (unsigned)*mesg_type_flags,
+                                   (unsigned)*min_mesg_size);
+    if (ret < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_attr_creation_order_c
@@ -4409,26 +4523,27 @@ nh5pset_shared_mesg_index_c(hid_t_f *fcpl_id, int_f *index_num, int_f *mesg_type
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pget_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
+    int    ret_value = -1;
+    herr_t ret;
 
-  unsigned c_crt_order_flags;
-  /*
-   * Call h5pget_attr_creation_order function.
-   */
+    unsigned c_crt_order_flags;
+    /*
+     * Call h5pget_attr_creation_order function.
+     */
 
-  ret = H5Pget_attr_creation_order((hid_t)*ocpl_id, &c_crt_order_flags);
-  if (ret < 0) return ret_value;
+    ret = H5Pget_attr_creation_order((hid_t)*ocpl_id, &c_crt_order_flags);
+    if (ret < 0)
+        return ret_value;
 
-  *crt_order_flags = (int_f)c_crt_order_flags;
+    *crt_order_flags = (int_f)c_crt_order_flags;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Pf/h5pset_libver_bounds_c
  * NAME
@@ -4452,22 +4567,23 @@ nh5pget_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_libver_bounds_c(hid_t_f *fapl_id, int_f *low, int_f *high )
+nh5pset_libver_bounds_c(hid_t_f *fapl_id, int_f *low, int_f *high)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
+    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;
+    /*
+     * 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;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_link_creation_order_c
@@ -4489,21 +4605,22 @@ nh5pset_libver_bounds_c(hid_t_f *fapl_id, int_f *low, int_f *high )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_link_creation_order_c(hid_t_f *gcpl_id, int_f *crt_order_flags )
+nh5pset_link_creation_order_c(hid_t_f *gcpl_id, int_f *crt_order_flags)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
-  /*
-   * Call H5Pset_link_creation_order function.
-   */
-  ret = H5Pset_link_creation_order((hid_t)*gcpl_id, (unsigned)*crt_order_flags);
-  if (ret < 0) return ret_value;
+    int    ret_value = -1;
+    herr_t ret;
+    /*
+     * Call H5Pset_link_creation_order function.
+     */
+    ret = H5Pset_link_creation_order((hid_t)*gcpl_id, (unsigned)*crt_order_flags);
+    if (ret < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_link_phase_change_c
@@ -4524,26 +4641,27 @@ nh5pset_link_creation_order_c(hid_t_f *gcpl_id, int_f *crt_order_flags )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_dense )
+nh5pget_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_dense)
 /******/
 {
-  int ret_value = -1;
-  unsigned c_max_compact;
-  unsigned c_min_dense;
-  herr_t ret;
+    int      ret_value = -1;
+    unsigned c_max_compact;
+    unsigned c_min_dense;
+    herr_t   ret;
 
-  /*
-   * Call H5Pget_link_phase_change function.
-   */
-  ret = H5Pget_link_phase_change((hid_t)*gcpl_id, &c_max_compact,&c_min_dense);
-  if (ret < 0) return ret_value;
+    /*
+     * Call H5Pget_link_phase_change function.
+     */
+    ret = H5Pget_link_phase_change((hid_t)*gcpl_id, &c_max_compact, &c_min_dense);
+    if (ret < 0)
+        return ret_value;
 
-  *max_compact = (int_f)c_max_compact;
-  *min_dense = (int_f)c_min_dense;
-  ret_value = 0;
-  return ret_value;
+    *max_compact = (int_f)c_max_compact;
+    *min_dense   = (int_f)c_min_dense;
+    ret_value    = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_obj_track_times_c
@@ -4565,27 +4683,29 @@ nh5pget_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_den
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
 nh5pget_obj_track_times_c(hid_t_f *plist_id, int_f *flag)
 /******/
 {
-  int ret_value = -1;
-  hbool_t c_track_times=0;
-  herr_t ret;
+    int     ret_value     = -1;
+    hbool_t c_track_times = 0;
+    herr_t  ret;
 
-  /*
-   * Call H5Pget_obj_track_times function.
-   */
-  ret = H5Pget_obj_track_times((hid_t)*plist_id, &c_track_times);
+    /*
+     * Call H5Pget_obj_track_times function.
+     */
+    ret = H5Pget_obj_track_times((hid_t)*plist_id, &c_track_times);
 
-  if (ret < 0) return ret_value; /* error occurred */
+    if (ret < 0)
+        return ret_value; /* error occurred */
 
-  *flag = 0;
-  if(c_track_times > 0) *flag = 1;
-  ret_value = 0;
-  return ret_value;
+    *flag = 0;
+    if (c_track_times > 0)
+        *flag = 1;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_obj_track_times_c
@@ -4605,27 +4725,27 @@ nh5pget_obj_track_times_c(hid_t_f *plist_id, int_f *flag)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
 nh5pset_obj_track_times_c(hid_t_f *plist_id, int_f *flag)
 /******/
 {
-  int ret_value = -1;
-  hbool_t c_track_times;
-  herr_t ret;
-
+    int     ret_value = -1;
+    hbool_t c_track_times;
+    herr_t  ret;
 
-  c_track_times = (hbool_t)*flag;
+    c_track_times = (hbool_t)*flag;
 
-  /*
-   * Call H5Pset_obj_track_times function.
-   */
-  ret = H5Pset_obj_track_times((hid_t)*plist_id, c_track_times);
+    /*
+     * Call H5Pset_obj_track_times function.
+     */
+    ret = H5Pset_obj_track_times((hid_t)*plist_id, c_track_times);
 
-  if (ret < 0) return ret_value; /* error occurred */
-  ret_value = 0;
-  return ret_value;
+    if (ret < 0)
+        return ret_value; /* error occurred */
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_create_inter_group_c
@@ -4648,23 +4768,24 @@ nh5pset_obj_track_times_c(hid_t_f *plist_id, int_f *flag)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
 nh5pset_create_inter_group_c(hid_t_f *lcpl_id, int_f *crt_intermed_group)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
+    int    ret_value = -1;
+    herr_t ret;
 
-  /*
-   * Call H5Pset_create_intermediate_group function.
-   */
-  ret = H5Pset_create_intermediate_group((hid_t)*lcpl_id, (unsigned)*crt_intermed_group);
+    /*
+     * Call H5Pset_create_intermediate_group function.
+     */
+    ret = H5Pset_create_intermediate_group((hid_t)*lcpl_id, (unsigned)*crt_intermed_group);
 
-  if (ret < 0) return ret_value; /* error occurred */
-  ret_value = 0;
-  return ret_value;
+    if (ret < 0)
+        return ret_value; /* error occurred */
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_link_creation_order_c
@@ -4688,26 +4809,27 @@ nh5pset_create_inter_group_c(hid_t_f *lcpl_id, int_f *crt_intermed_group)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pget_link_creation_order_c(hid_t_f *gcpl_id, int_f *crt_order_flags)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
+    int    ret_value = -1;
+    herr_t ret;
 
-  unsigned c_crt_order_flags;
-  /*
-   * Call h5pget_link_creation_order function.
-   */
+    unsigned c_crt_order_flags;
+    /*
+     * Call h5pget_link_creation_order function.
+     */
 
-  ret = H5Pget_link_creation_order((hid_t)*gcpl_id, &c_crt_order_flags);
-  if (ret < 0) return ret_value;
+    ret = H5Pget_link_creation_order((hid_t)*gcpl_id, &c_crt_order_flags);
+    if (ret < 0)
+        return ret_value;
 
-  *crt_order_flags = (int_f)c_crt_order_flags;
+    *crt_order_flags = (int_f)c_crt_order_flags;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_char_encoding_c
@@ -4733,25 +4855,25 @@ nh5pget_link_creation_order_c(hid_t_f *gcpl_id, int_f *crt_order_flags)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pset_char_encoding_c(hid_t_f *plist_id, int_f *encoding)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
+    int    ret_value = -1;
+    herr_t ret;
 
-  /*
-   * Call H5Pset_char_encoding function.
-   */
-  ret = H5Pset_char_encoding((hid_t)*plist_id, (H5T_cset_t)*encoding);
-  if (ret < 0) return ret_value;
+    /*
+     * Call H5Pset_char_encoding function.
+     */
+    ret = H5Pset_char_encoding((hid_t)*plist_id, (H5T_cset_t)*encoding);
+    if (ret < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
-
 /****if* H5Pf/h5pget_char_encoding_c
  * NAME
  *     h5pget_char_encoding_c
@@ -4775,24 +4897,25 @@ nh5pset_char_encoding_c(hid_t_f *plist_id, int_f *encoding)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pget_char_encoding_c(hid_t_f *plist_id, int_f *encoding)
 /******/
 {
-  int ret_value = -1;
-  H5T_cset_t c_encoding;
-  herr_t ret;
-  /*
-   * Call H5Pget_char_encoding function.
-   */
-  ret = H5Pget_char_encoding((hid_t)*plist_id, &c_encoding);
-  if (ret < 0) return ret_value;
+    int        ret_value = -1;
+    H5T_cset_t c_encoding;
+    herr_t     ret;
+    /*
+     * Call H5Pget_char_encoding function.
+     */
+    ret = H5Pget_char_encoding((hid_t)*plist_id, &c_encoding);
+    if (ret < 0)
+        return ret_value;
 
-  *encoding = (int_f)c_encoding;
+    *encoding = (int_f)c_encoding;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_copy_object_c
@@ -4818,21 +4941,22 @@ nh5pget_char_encoding_c(hid_t_f *plist_id, int_f *encoding)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pset_copy_object_c(hid_t_f *ocp_plist_id, int_f *copy_options)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
-  /*
-   * Call H5Pset_copy_object function.
-   */
-  ret = H5Pset_copy_object((hid_t)*ocp_plist_id, (unsigned)*copy_options);
-  if (ret < 0) return ret_value;
+    int    ret_value = -1;
+    herr_t ret;
+    /*
+     * Call H5Pset_copy_object function.
+     */
+    ret = H5Pset_copy_object((hid_t)*ocp_plist_id, (unsigned)*copy_options);
+    if (ret < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_copy_object_c
@@ -4857,24 +4981,25 @@ nh5pset_copy_object_c(hid_t_f *ocp_plist_id, int_f *copy_options)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pget_copy_object_c(hid_t_f *ocp_plist_id, int_f *copy_options)
 /******/
 {
-  int ret_value = -1;
-  unsigned c_copy_options;
-  herr_t ret;
-  /*
-   * Call H5Pget_copy_object function.
-   */
-  ret = H5Pget_copy_object((hid_t)*ocp_plist_id, &c_copy_options);
-  if (ret < 0) return ret_value;
+    int      ret_value = -1;
+    unsigned c_copy_options;
+    herr_t   ret;
+    /*
+     * Call H5Pget_copy_object function.
+     */
+    ret = H5Pget_copy_object((hid_t)*ocp_plist_id, &c_copy_options);
+    if (ret < 0)
+        return ret_value;
 
-  *copy_options = (int_f)c_copy_options;
+    *copy_options = (int_f)c_copy_options;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_data_transform_c
@@ -4901,31 +5026,31 @@ nh5pget_copy_object_c(hid_t_f *ocp_plist_id, int_f *copy_options)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pget_data_transform_c(hid_t_f *plist_id, _fcd expression, int_f *expression_len, size_t_f *size)
 /******/
 {
-    char *c_expression = NULL;          /* Buffer to hold C string */
-    size_t c_expression_len = (size_t)*expression_len + 1;
+    char *  c_expression     = NULL; /* Buffer to hold C string */
+    size_t  c_expression_len = (size_t)*expression_len + 1;
     ssize_t ret;
-    int_f ret_value = 0;
+    int_f   ret_value = 0;
 
     /*
      * Allocate memory to store the expression.
      */
-    if(c_expression_len) {
+    if (c_expression_len) {
         c_expression = (char *)HDmalloc(c_expression_len);
-        if(NULL == c_expression)
-           HGOTO_DONE(FAIL)
+        if (NULL == c_expression)
+            HGOTO_DONE(FAIL)
     } /* end if */
 
     /*
      * Call H5Pget_data_transform function.
      */
     ret = H5Pget_data_transform((hid_t)*plist_id, c_expression, c_expression_len);
-    if(ret < 0)
-       HGOTO_DONE(FAIL)
+    if (ret < 0)
+        HGOTO_DONE(FAIL)
 
     /* or strlen ? */
     HD5packFstring(c_expression, _fcdtocp(expression), (size_t)*expression_len);
@@ -4933,7 +5058,7 @@ nh5pget_data_transform_c(hid_t_f *plist_id, _fcd expression, int_f *expression_l
     *size = (size_t_f)ret;
 
 done:
-    if(c_expression)
+    if (c_expression)
         HDfree(c_expression);
 
     return ret_value;
@@ -4963,31 +5088,31 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pset_data_transform_c(hid_t_f *plist_id, _fcd expression, int_f *expression_len)
 /******/
 {
-     char* c_expression = NULL; /* Buffer to hold C string */
-     int_f ret_value = 0; /* Return value */
+    char *c_expression = NULL; /* Buffer to hold C string */
+    int_f ret_value    = 0;    /* Return value */
 
-     /*
-      * Convert FORTRAN name to C name
-      */
-     if(NULL == (c_expression = HD5f2cstring(expression, (size_t)*expression_len)))
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if (NULL == (c_expression = HD5f2cstring(expression, (size_t)*expression_len)))
         HGOTO_DONE(FAIL)
 
-     /*
-      * Call H5Pset_data_transform function.
-      */
-     if(H5Pset_data_transform((hid_t)*plist_id, c_expression) < 0)
+    /*
+     * Call H5Pset_data_transform function.
+     */
+    if (H5Pset_data_transform((hid_t)*plist_id, c_expression) < 0)
         HGOTO_DONE(FAIL)
 
 done:
-    if(c_expression)
+    if (c_expression)
         HDfree(c_expression);
 
-     return ret_value;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_local_heap_size_hint_c
@@ -5012,23 +5137,24 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pget_local_heap_size_hint_c(hid_t_f *gcpl_id, size_t_f *size_hint)
 /******/
 {
-     int_f ret_value = -1; /* Return value */
-     size_t c_size_hint;
-     herr_t ret;
-     /*
-      * Call H5Pget_local_heap_size_hint function.
-      */
-     ret = H5Pget_local_heap_size_hint((hid_t)*gcpl_id, &c_size_hint);
-     if(ret<0) return ret_value;
+    int_f  ret_value = -1; /* Return value */
+    size_t c_size_hint;
+    herr_t ret;
+    /*
+     * Call H5Pget_local_heap_size_hint function.
+     */
+    ret = H5Pget_local_heap_size_hint((hid_t)*gcpl_id, &c_size_hint);
+    if (ret < 0)
+        return ret_value;
 
-     *size_hint = (size_t_f)c_size_hint;
-     ret_value = 0;
-     return ret_value;
+    *size_hint = (size_t_f)c_size_hint;
+    ret_value  = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_est_link_info_c
@@ -5054,26 +5180,27 @@ nh5pget_local_heap_size_hint_c(hid_t_f *gcpl_id, size_t_f *size_hint)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pget_est_link_info_c(hid_t_f *gcpl_id, int_f *est_num_entries, int_f *est_name_len)
 /******/
 {
-     int_f ret_value = -1; /* Return value */
-     unsigned c_est_num_entries;
-     unsigned c_est_name_len;
-     herr_t ret;
-     /*
-      * Call h5pget_est_link_info function.
-      */
-     ret = H5Pget_est_link_info((hid_t)*gcpl_id, &c_est_num_entries, &c_est_name_len);
-     if(ret<0) return ret_value;
+    int_f    ret_value = -1; /* Return value */
+    unsigned c_est_num_entries;
+    unsigned c_est_name_len;
+    herr_t   ret;
+    /*
+     * Call h5pget_est_link_info function.
+     */
+    ret = H5Pget_est_link_info((hid_t)*gcpl_id, &c_est_num_entries, &c_est_name_len);
+    if (ret < 0)
+        return ret_value;
 
-     *est_num_entries = (int_f)c_est_num_entries;
-     *est_name_len = (int_f)c_est_name_len;
+    *est_num_entries = (int_f)c_est_num_entries;
+    *est_name_len    = (int_f)c_est_name_len;
 
-     ret_value = 0;
-     return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_local_heap_size_hint_c
@@ -5099,21 +5226,22 @@ nh5pget_est_link_info_c(hid_t_f *gcpl_id, int_f *est_num_entries, int_f *est_nam
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pset_local_heap_size_hint_c(hid_t_f *gcpl_id, size_t_f *size_hint)
 /******/
 {
-     int_f ret_value = -1; /* Return value */
-     herr_t ret;
-     /*
-      * Call H5Pget_local_heap_size_hint function.
-      */
-     ret = H5Pset_local_heap_size_hint((hid_t)*gcpl_id, (size_t)*size_hint);
-     if(ret<0) return ret_value;
+    int_f  ret_value = -1; /* Return value */
+    herr_t ret;
+    /*
+     * Call H5Pget_local_heap_size_hint function.
+     */
+    ret = H5Pset_local_heap_size_hint((hid_t)*gcpl_id, (size_t)*size_hint);
+    if (ret < 0)
+        return ret_value;
 
-     ret_value = 0;
-     return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_est_link_info_c
@@ -5139,21 +5267,22 @@ nh5pset_local_heap_size_hint_c(hid_t_f *gcpl_id, size_t_f *size_hint)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pset_est_link_info_c(hid_t_f *gcpl_id, int_f *est_num_entries, int_f *est_name_len)
 /******/
 {
-     int_f ret_value = -1; /* Return value */
-     herr_t ret;
-     /*
-      * Call h5pset_est_link_info function.
-      */
-     ret = H5Pset_est_link_info((hid_t)*gcpl_id, (unsigned)*est_num_entries, (unsigned)*est_name_len);
-     if(ret<0) return ret_value;
+    int_f  ret_value = -1; /* Return value */
+    herr_t ret;
+    /*
+     * Call h5pset_est_link_info function.
+     */
+    ret = H5Pset_est_link_info((hid_t)*gcpl_id, (unsigned)*est_num_entries, (unsigned)*est_name_len);
+    if (ret < 0)
+        return ret_value;
 
-     ret_value = 0;
-     return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_link_phase_change_c
@@ -5175,22 +5304,23 @@ nh5pset_est_link_info_c(hid_t_f *gcpl_id, int_f *est_num_entries, int_f *est_nam
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_dense )
+nh5pset_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_dense)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
+    int    ret_value = -1;
+    herr_t ret;
 
-  /*
-   * Call H5Pset_link_phase_change function.
-   */
-  ret = H5Pset_link_phase_change((hid_t)*gcpl_id, (unsigned)*max_compact,(unsigned)*min_dense);
-  if (ret < 0) return ret_value;
+    /*
+     * Call H5Pset_link_phase_change function.
+     */
+    ret = H5Pset_link_phase_change((hid_t)*gcpl_id, (unsigned)*max_compact, (unsigned)*min_dense);
+    if (ret < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_fapl_direct_c
@@ -5214,25 +5344,27 @@ nh5pset_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_den
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_fapl_direct_c(hid_t_f H5_ATTR_UNUSED *fapl_id, size_t_f H5_ATTR_UNUSED *alignment, size_t_f H5_ATTR_UNUSED *block_size, size_t_f H5_ATTR_UNUSED *cbuf_size)
+nh5pset_fapl_direct_c(hid_t_f H5_ATTR_UNUSED *fapl_id, size_t_f H5_ATTR_UNUSED *alignment,
+                      size_t_f H5_ATTR_UNUSED *block_size, size_t_f H5_ATTR_UNUSED *cbuf_size)
 /******/
 {
-  int ret_value = -1;
+    int ret_value = -1;
 #ifdef H5_HAVE_DIRECT
-  herr_t ret;
+    herr_t ret;
 
-  /*
-   * Call H5Pset_link_phase_change function.
-   */
-  ret = H5Pset_fapl_direct((hid_t)*fapl_id, (size_t)*alignment, (size_t)*block_size, (size_t)*cbuf_size );
-    if (ret < 0) return ret_value;
+    /*
+     * Call H5Pset_link_phase_change function.
+     */
+    ret = H5Pset_fapl_direct((hid_t)*fapl_id, (size_t)*alignment, (size_t)*block_size, (size_t)*cbuf_size);
+    if (ret < 0)
+        return ret_value;
 
-  ret_value = 0;
+    ret_value = 0;
 
 #endif
-  return ret_value;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_fapl_direct_c
@@ -5257,31 +5389,33 @@ nh5pset_fapl_direct_c(hid_t_f H5_ATTR_UNUSED *fapl_id, size_t_f H5_ATTR_UNUSED *
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pget_fapl_direct_c(hid_t_f H5_ATTR_UNUSED *fapl_id, size_t_f H5_ATTR_UNUSED *alignment, size_t_f H5_ATTR_UNUSED *block_size, size_t_f H5_ATTR_UNUSED *cbuf_size)
+nh5pget_fapl_direct_c(hid_t_f H5_ATTR_UNUSED *fapl_id, size_t_f H5_ATTR_UNUSED *alignment,
+                      size_t_f H5_ATTR_UNUSED *block_size, size_t_f H5_ATTR_UNUSED *cbuf_size)
 /******/
 {
-  int ret_value = -1;
+    int ret_value = -1;
 #ifdef H5_HAVE_DIRECT
-  herr_t ret;
-  size_t c_alignment;
-  size_t c_block_size;
-  size_t c_cbuf_size;
-
-  /*
-   * Call H5Pget_link_phase_change function.
-   */
-  ret = H5Pget_fapl_direct((hid_t)*fapl_id, &c_alignment, &c_block_size, &c_cbuf_size );
-  if (ret < 0) return ret_value;
-
-  *alignment  = (size_t_f)c_alignment;
-  *block_size = (size_t_f)c_block_size;
-  *cbuf_size  = (size_t_f)c_cbuf_size;
-
-  ret_value = 0;
+    herr_t ret;
+    size_t c_alignment;
+    size_t c_block_size;
+    size_t c_cbuf_size;
+
+    /*
+     * Call H5Pget_link_phase_change function.
+     */
+    ret = H5Pget_fapl_direct((hid_t)*fapl_id, &c_alignment, &c_block_size, &c_cbuf_size);
+    if (ret < 0)
+        return ret_value;
+
+    *alignment  = (size_t_f)c_alignment;
+    *block_size = (size_t_f)c_block_size;
+    *cbuf_size  = (size_t_f)c_cbuf_size;
+
+    ret_value = 0;
 #endif
-  return ret_value;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_attr_phase_change_c
@@ -5304,21 +5438,22 @@ nh5pget_fapl_direct_c(hid_t_f H5_ATTR_UNUSED *fapl_id, size_t_f H5_ATTR_UNUSED *
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_attr_phase_change_c(hid_t_f *ocpl_id, int_f *max_compact, int_f *min_dense )
+nh5pset_attr_phase_change_c(hid_t_f *ocpl_id, int_f *max_compact, int_f *min_dense)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
-  /*
-   * Call H5Pset_attr_phase_change function.
-   */
-  ret = H5Pset_attr_phase_change((hid_t)*ocpl_id, (unsigned)*max_compact,(unsigned)*min_dense);
-  if (ret < 0) return ret_value;
+    int    ret_value = -1;
+    herr_t ret;
+    /*
+     * Call H5Pset_attr_phase_change function.
+     */
+    ret = H5Pset_attr_phase_change((hid_t)*ocpl_id, (unsigned)*max_compact, (unsigned)*min_dense);
+    if (ret < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_nbit_c
@@ -5339,21 +5474,22 @@ nh5pset_attr_phase_change_c(hid_t_f *ocpl_id, int_f *max_compact, int_f *min_den
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5pset_nbit_c(hid_t_f *plist_id )
+nh5pset_nbit_c(hid_t_f *plist_id)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
-  /*
-   * Call H5Pset_nbit_change function.
-   */
-  ret = H5Pset_nbit((hid_t)*plist_id);
-  if (ret < 0) return ret_value;
+    int    ret_value = -1;
+    herr_t ret;
+    /*
+     * Call H5Pset_nbit_change function.
+     */
+    ret = H5Pset_nbit((hid_t)*plist_id);
+    if (ret < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Pf/h5pset_scaleoffset_c
  * NAME
@@ -5372,24 +5508,25 @@ nh5pset_nbit_c(hid_t_f *plist_id )
  *  M. Scot Breitenfeld
  *  March 21, 2008
  * SOURCE
-*/
+ */
 int_f
-nh5pset_scaleoffset_c(hid_t_f *plist_id, int_f *scale_type, int_f *scale_factor )
+nh5pset_scaleoffset_c(hid_t_f *plist_id, int_f *scale_type, int_f *scale_factor)
 /******/
 {
-  int ret_value = -1;
-  H5Z_SO_scale_type_t c_scale_type;
-  herr_t ret;
-  /*
-   * Call H5Pset_scaleoffset_change function.
-   */
-  c_scale_type = (H5Z_SO_scale_type_t)*scale_type;
+    int                 ret_value = -1;
+    H5Z_SO_scale_type_t c_scale_type;
+    herr_t              ret;
+    /*
+     * Call H5Pset_scaleoffset_change function.
+     */
+    c_scale_type = (H5Z_SO_scale_type_t)*scale_type;
 
-  ret = H5Pset_scaleoffset((hid_t)*plist_id, c_scale_type, (int)*scale_factor);
-  if (ret < 0) return ret_value;
+    ret = H5Pset_scaleoffset((hid_t)*plist_id, c_scale_type, (int)*scale_factor);
+    if (ret < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pset_nlinks
@@ -5407,21 +5544,22 @@ nh5pset_scaleoffset_c(hid_t_f *plist_id, int_f *scale_type, int_f *scale_factor
  *  M. Scot Breitenfeld
  *  March 24, 2008
  * SOURCE
-*/
+ */
 int_f
 nh5pset_nlinks_c(hid_t_f *lapl_id, size_t_f *nlinks)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
-  /*
-   * Call H5Pset_nlinks function.
-   */
-  ret = H5Pset_nlinks((hid_t)*lapl_id, (size_t)*nlinks);
-  if (ret < 0) return ret_value;
+    int    ret_value = -1;
+    herr_t ret;
+    /*
+     * Call H5Pset_nlinks function.
+     */
+    ret = H5Pset_nlinks((hid_t)*lapl_id, (size_t)*nlinks);
+    if (ret < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_nlinks
@@ -5446,23 +5584,24 @@ nh5pset_nlinks_c(hid_t_f *lapl_id, size_t_f *nlinks)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pget_nlinks_c(hid_t_f *lapl_id, size_t_f *nlinks)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
-  size_t c_nlinks;
-  /*
-   * Call H5Pget_nlinks function.
-   */
-  ret = H5Pget_nlinks((hid_t)*lapl_id, &c_nlinks);
-  if (ret < 0) return ret_value;
+    int    ret_value = -1;
+    herr_t ret;
+    size_t c_nlinks;
+    /*
+     * Call H5Pget_nlinks function.
+     */
+    ret = H5Pget_nlinks((hid_t)*lapl_id, &c_nlinks);
+    if (ret < 0)
+        return ret_value;
 
-  *nlinks = (size_t_f)c_nlinks;
-  ret_value = 0;
-  return ret_value;
+    *nlinks   = (size_t_f)c_nlinks;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Pf/h5pget_create_inter_group_c
@@ -5484,25 +5623,26 @@ nh5pget_nlinks_c(hid_t_f *lapl_id, size_t_f *nlinks)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5pget_create_inter_group_c(hid_t_f *lcpl_id, int_f *crt_intermed_group)
 /******/
 {
-  int ret_value = -1;
-  herr_t ret;
-  unsigned c_crt_intermed_group;
+    int      ret_value = -1;
+    herr_t   ret;
+    unsigned c_crt_intermed_group;
 
-  /*
-   * Call H5Pget_create_intermediate_group function.
-   */
-  ret = H5Pget_create_intermediate_group((hid_t)*lcpl_id, &c_crt_intermed_group);
+    /*
+     * Call H5Pget_create_intermediate_group function.
+     */
+    ret = H5Pget_create_intermediate_group((hid_t)*lcpl_id, &c_crt_intermed_group);
 
-  if (ret < 0) return ret_value; /* error occurred */
+    if (ret < 0)
+        return ret_value; /* error occurred */
 
-  *crt_intermed_group = (int_f)c_crt_intermed_group;
-  ret_value = 0;
-  return ret_value;
+    *crt_intermed_group = (int_f)c_crt_intermed_group;
+    ret_value           = 0;
+    return ret_value;
 }
 
 /*----------------------------------------------------------------------------
@@ -5523,16 +5663,17 @@ nh5pget_create_inter_group_c(hid_t_f *lcpl_id, int_f *crt_intermed_group)
 int_f
 nh5pset_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nbytes, real_f *rdcc_w0)
 {
-  int ret_value = -1;
+    int ret_value = -1;
 
-  /*
-   * Call H5Pset_chunk_cache function.
-   */
-  if( (H5Pset_chunk_cache((hid_t)*dapl_id, (size_t)*rdcc_nslots, (size_t)*rdcc_nbytes, (double)*rdcc_w0)) <0 )
-    return ret_value; /* error occurred */
+    /*
+     * Call H5Pset_chunk_cache function.
+     */
+    if ((H5Pset_chunk_cache((hid_t)*dapl_id, (size_t)*rdcc_nslots, (size_t)*rdcc_nbytes, (double)*rdcc_w0)) <
+        0)
+        return ret_value; /* error occurred */
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /*----------------------------------------------------------------------------
@@ -5554,22 +5695,22 @@ nh5pset_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nb
 int_f
 nh5pget_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nbytes, real_f *rdcc_w0)
 {
-  int ret_value = -1;
-  size_t c_rdcc_nslots;
-  size_t c_rdcc_nbytes;
-  double c_rdcc_w0;
-  /*
-   * Call H5Pget_chunk_cache function.
-   */
-  if( (H5Pget_chunk_cache((hid_t)*dapl_id, &c_rdcc_nslots, &c_rdcc_nbytes, &c_rdcc_w0)) <0 )
-    return ret_value; /* error occurred */
+    int    ret_value = -1;
+    size_t c_rdcc_nslots;
+    size_t c_rdcc_nbytes;
+    double c_rdcc_w0;
+    /*
+     * Call H5Pget_chunk_cache function.
+     */
+    if ((H5Pget_chunk_cache((hid_t)*dapl_id, &c_rdcc_nslots, &c_rdcc_nbytes, &c_rdcc_w0)) < 0)
+        return ret_value; /* error occurred */
 
-  *rdcc_nslots=(size_t_f)c_rdcc_nslots;
-  *rdcc_nbytes=(size_t_f)c_rdcc_nbytes;
-  *rdcc_w0=(real_f)c_rdcc_w0;
+    *rdcc_nslots = (size_t_f)c_rdcc_nslots;
+    *rdcc_nbytes = (size_t_f)c_rdcc_nbytes;
+    *rdcc_w0     = (real_f)c_rdcc_w0;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /*----------------------------------------------------------------------------
@@ -5578,7 +5719,7 @@ nh5pget_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nb
  *
  * Inputs:
  *  fapl_id - File access property list identifier
- *  buf_ptr - Pointer to the initial file image, 
+ *  buf_ptr - Pointer to the initial file image,
  *            or NULL if no initial file image is desired
  *  buf_len - Size of the supplied buffer, or 0 (zero) if no initial image is desired
  *
@@ -5590,15 +5731,15 @@ nh5pget_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nb
 int_f
 h5pset_file_image_c(hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len)
 {
-  int ret_value = -1;
-  /*
-   * Call H5Pset_file_image function.
-   */
-  if( (H5Pset_file_image((hid_t)*fapl_id, buf_ptr, (size_t)*buf_len)) <0 )
-    return ret_value; /* error occurred */
+    int ret_value = -1;
+    /*
+     * Call H5Pset_file_image function.
+     */
+    if ((H5Pset_file_image((hid_t)*fapl_id, buf_ptr, (size_t)*buf_len)) < 0)
+        return ret_value; /* error occurred */
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /*----------------------------------------------------------------------------
@@ -5608,7 +5749,7 @@ h5pset_file_image_c(hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len)
  * Inputs:
  *  fapl_id - File access property list identifier
  * Outputs:
- *  buf_ptr - Pointer to the initial file image, 
+ *  buf_ptr - Pointer to the initial file image,
  *            or NULL if no initial file image is desired
  *  buf_len - Size of the supplied buffer, or 0 (zero) if no initial image is desired
  *
@@ -5620,24 +5761,25 @@ h5pset_file_image_c(hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len)
 int_f
 h5pget_file_image_c(hid_t_f *fapl_id, void **buf_ptr, size_t_f *buf_len_ptr)
 {
-  int ret_value = -1;
-  size_t c_buf_len_ptr;
-  void *c_buf_ptr = NULL;
+    int    ret_value = -1;
+    size_t c_buf_len_ptr;
+    void * c_buf_ptr = NULL;
 
-  c_buf_len_ptr = (size_t)*buf_len_ptr;
+    c_buf_len_ptr = (size_t)*buf_len_ptr;
 
-  /*
-   * Call H5Pget_file_image function.
-   */
-  if( (H5Pget_file_image((hid_t)*fapl_id, (void **)&c_buf_ptr, &c_buf_len_ptr)) <0 )
-    return ret_value; /* error occurred */
+    /*
+     * Call H5Pget_file_image function.
+     */
+    if ((H5Pget_file_image((hid_t)*fapl_id, (void **)&c_buf_ptr, &c_buf_len_ptr)) < 0)
+        return ret_value; /* error occurred */
 
-  HDmemcpy((void *)*buf_ptr, (void *)c_buf_ptr, c_buf_len_ptr);
+    HDmemcpy((void *)*buf_ptr, (void *)c_buf_ptr, c_buf_len_ptr);
 
-  *buf_len_ptr=(size_t_f)c_buf_len_ptr;
+    *buf_len_ptr = (size_t_f)c_buf_len_ptr;
 
-  ret_value = 0;
-  if(c_buf_ptr) HDfree(c_buf_ptr);
+    ret_value = 0;
+    if (c_buf_ptr)
+        HDfree(c_buf_ptr);
 
-  return ret_value;
+    return ret_value;
 }
diff --git a/fortran/src/H5Rf.c b/fortran/src/H5Rf.c
index 20665ef..50ff688 100644
--- a/fortran/src/H5Rf.c
+++ b/fortran/src/H5Rf.c
@@ -17,7 +17,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 #include "H5Eprivate.h"
@@ -39,34 +39,34 @@
  *  Elena Pourmal
  *  Wednesday, December 1, 1999
  * SOURCE
-*/
+ */
 int_f
 nh5rcreate_object_c(haddr_t_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen)
 /******/
 {
-     char *c_name = NULL;
-     hobj_ref_t ref_c;
-     int_f ret_value = 0;
+    char *     c_name = NULL;
+    hobj_ref_t ref_c;
+    int_f      ret_value = 0;
 
-     /*
-      * Convert FORTRAN name to C name
-      */
-     if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
-         HGOTO_DONE(FAIL)
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+        HGOTO_DONE(FAIL)
 
-     /*
-      * Call H5Rcreate function.
-      */
-     if(H5Rcreate(&ref_c, *loc_id, c_name, H5R_OBJECT, (hid_t)-1) < 0)
-         HGOTO_DONE(FAIL)
+    /*
+     * Call H5Rcreate function.
+     */
+    if (H5Rcreate(&ref_c, *loc_id, c_name, H5R_OBJECT, (hid_t)-1) < 0)
+        HGOTO_DONE(FAIL)
 
-     /* Copy the reference created */
-     *ref = (haddr_t_f)ref_c;
+    /* Copy the reference created */
+    *ref = (haddr_t_f)ref_c;
 
 done:
-     if(c_name)
-         HDfree(c_name);
-     return ret_value;
+    if (c_name)
+        HDfree(c_name);
+    return ret_value;
 } /* nh5rcreate_object_c() */
 
 /****if* H5Rf/h5rcreate_region_c
@@ -90,34 +90,34 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5rcreate_region_c(int_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *space_id)
 /******/
 {
-     char *c_name = NULL;
-     hdset_reg_ref_t ref_c;
-     int_f ret_value = 0;
+    char *          c_name = NULL;
+    hdset_reg_ref_t ref_c;
+    int_f           ret_value = 0;
 
-     /*
-      * Convert FORTRAN name to C name
-      */
-     if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
-         HGOTO_DONE(FAIL)
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+        HGOTO_DONE(FAIL)
 
-     /*
-      * Call H5Rcreate function.
-      */
-     if(H5Rcreate(&ref_c, (hid_t)*loc_id, c_name, H5R_DATASET_REGION, (hid_t)*space_id) < 0)
-         HGOTO_DONE(FAIL)
+    /*
+     * Call H5Rcreate function.
+     */
+    if (H5Rcreate(&ref_c, (hid_t)*loc_id, c_name, H5R_DATASET_REGION, (hid_t)*space_id) < 0)
+        HGOTO_DONE(FAIL)
 
-     /* Copy the reference created */
-     HDmemcpy(ref, &ref_c, H5R_DSET_REG_REF_BUF_SIZE);
+    /* Copy the reference created */
+    HDmemcpy(ref, &ref_c, H5R_DSET_REG_REF_BUF_SIZE);
 
 done:
-     if(c_name)
-         HDfree(c_name);
-     return ret_value;
+    if (c_name)
+        HDfree(c_name);
+    return ret_value;
 } /* end nh5rcreate_region_c() */
 
 /****if* H5Rf/h5rcreate_ptr_c
@@ -139,28 +139,29 @@ done:
  *  June 20, 2008
  *
  * SOURCE
-*/
+ */
 int_f
-h5rcreate_ptr_c (void *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *ref_type, hid_t_f *space_id)
+h5rcreate_ptr_c(void *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *ref_type, hid_t_f *space_id)
 /******/
 {
-     int ret_value = -1;
-     char *c_name;
-
-     /*
-      * Convert FORTRAN name to C name
-      */
-     c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
-     if (c_name == NULL) return ret_value;
-
-     /*
-      * Call H5Rcreate function.
-      */
-     if(H5Rcreate(ref, (hid_t)*loc_id, c_name, (H5R_type_t)*ref_type, (hid_t)*space_id) >= 0)
-       ret_value = 0;
-
-     HDfree(c_name);
-     return ret_value;
+    int   ret_value = -1;
+    char *c_name;
+
+    /*
+     * Convert FORTRAN name to C name
+     */
+    c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
+    if (c_name == NULL)
+        return ret_value;
+
+    /*
+     * Call H5Rcreate function.
+     */
+    if (H5Rcreate(ref, (hid_t)*loc_id, c_name, (H5R_type_t)*ref_type, (hid_t)*space_id) >= 0)
+        ret_value = 0;
+
+    HDfree(c_name);
+    return ret_value;
 }
 
 /****if* H5Rf/h5rdereference_region_c
@@ -181,29 +182,29 @@ h5rcreate_ptr_c (void *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *r
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5rdereference_region_c(hid_t_f *dset_id, int_f *ref, hid_t_f *obj_id)
 /******/
 {
-     hdset_reg_ref_t ref_c;
-     hid_t c_obj_id;
-     int_f ret_value = 0;
+    hdset_reg_ref_t ref_c;
+    hid_t           c_obj_id;
+    int_f           ret_value = 0;
 
-     /* Copy the reference to dereference */
-     HDmemcpy(&ref_c, ref, H5R_DSET_REG_REF_BUF_SIZE);
+    /* Copy the reference to dereference */
+    HDmemcpy(&ref_c, ref, H5R_DSET_REG_REF_BUF_SIZE);
 
-     /*
-      * Call H5Rdereference function.
-      */
-     if((c_obj_id = H5Rdereference((hid_t)*dset_id, H5R_DATASET_REGION, &ref_c)) < 0)
-         HGOTO_DONE(FAIL)
+    /*
+     * Call H5Rdereference function.
+     */
+    if ((c_obj_id = H5Rdereference((hid_t)*dset_id, H5R_DATASET_REGION, &ref_c)) < 0)
+        HGOTO_DONE(FAIL)
 
-     /* Copy the object's ID */
-     *obj_id = (hid_t_f)c_obj_id;
+    /* Copy the object's ID */
+    *obj_id = (hid_t_f)c_obj_id;
 
 done:
-     return ret_value;
+    return ret_value;
 } /* end nh5rdereference_region_c() */
 
 /****if* H5Rf/h5rdereference_object_c
@@ -224,26 +225,26 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5rdereference_object_c(hid_t_f *dset_id, haddr_t_f *ref, hid_t_f *obj_id)
 /******/
 {
-     hid_t c_obj_id;
-     hobj_ref_t ref_c = (hobj_ref_t)*ref;
-     int_f ret_value = 0;
+    hid_t      c_obj_id;
+    hobj_ref_t ref_c     = (hobj_ref_t)*ref;
+    int_f      ret_value = 0;
 
-     /*
-      * Call H5Rdereference function.
-      */
-     if((c_obj_id = H5Rdereference((hid_t)*dset_id, H5R_OBJECT, &ref_c)) < 0)
-         HGOTO_DONE(FAIL)
+    /*
+     * Call H5Rdereference function.
+     */
+    if ((c_obj_id = H5Rdereference((hid_t)*dset_id, H5R_OBJECT, &ref_c)) < 0)
+        HGOTO_DONE(FAIL)
 
-     /* Copy the object's ID */
-     *obj_id = (hid_t_f)c_obj_id;
+    /* Copy the object's ID */
+    *obj_id = (hid_t_f)c_obj_id;
 
 done:
-     return ret_value;
+    return ret_value;
 } /* end nh5rdereference_object_c() */
 
 /****if* H5Rf/h5rdereference_ptr_c
@@ -266,22 +267,23 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-h5rdereference_ptr_c (hid_t_f *obj_id, int_f *ref_type, void *ref, hid_t_f *ref_obj_id)
+h5rdereference_ptr_c(hid_t_f *obj_id, int_f *ref_type, void *ref, hid_t_f *ref_obj_id)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_ref_obj_id;
-
-  /*
-   * Call H5Rdereference function.
-   */
-  c_ref_obj_id = H5Rdereference((hid_t)*obj_id, (H5R_type_t)*ref_type, ref);
-  if(c_ref_obj_id < 0) return ret_value;
-  *ref_obj_id = (hid_t_f)c_ref_obj_id;
-  ret_value = 0;
-  return ret_value;
+    int   ret_value = -1;
+    hid_t c_ref_obj_id;
+
+    /*
+     * Call H5Rdereference function.
+     */
+    c_ref_obj_id = H5Rdereference((hid_t)*obj_id, (H5R_type_t)*ref_type, ref);
+    if (c_ref_obj_id < 0)
+        return ret_value;
+    *ref_obj_id = (hid_t_f)c_ref_obj_id;
+    ret_value   = 0;
+    return ret_value;
 }
 
 /****if* H5Rf/h5rget_region_region_object_c
@@ -302,29 +304,29 @@ h5rdereference_ptr_c (hid_t_f *obj_id, int_f *ref_type, void *ref, hid_t_f *ref_
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5rget_region_region_c(hid_t_f *dset_id, int_f *ref, hid_t_f *space_id)
 /******/
 {
-     hid_t c_space_id;
-     hdset_reg_ref_t ref_c;
-     int_f ret_value = 0;
+    hid_t           c_space_id;
+    hdset_reg_ref_t ref_c;
+    int_f           ret_value = 0;
 
-     /* Copy the reference to dereference */
-     HDmemcpy(&ref_c, ref, H5R_DSET_REG_REF_BUF_SIZE);
+    /* Copy the reference to dereference */
+    HDmemcpy(&ref_c, ref, H5R_DSET_REG_REF_BUF_SIZE);
 
-     /*
-      * Call H5Rget_region function.
-      */
-     if((c_space_id = H5Rget_region((hid_t)*dset_id, H5R_DATASET_REGION, &ref_c)) < 0)
-         HGOTO_DONE(FAIL)
+    /*
+     * Call H5Rget_region function.
+     */
+    if ((c_space_id = H5Rget_region((hid_t)*dset_id, H5R_DATASET_REGION, &ref_c)) < 0)
+        HGOTO_DONE(FAIL)
 
-     /* Copy the dataspace ID */
-     *space_id = (hid_t_f)c_space_id;
+    /* Copy the dataspace ID */
+    *space_id = (hid_t_f)c_space_id;
 
 done:
-     return ret_value;
+    return ret_value;
 } /* end nh5rget_region_region_c() */
 
 /****if* H5Rf/h5rget_region_ptr_c
@@ -345,28 +347,27 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 h5rget_region_ptr_c(hid_t_f *dset_id, void *ref, hid_t_f *space_id)
 /******/
 {
-     hid_t c_space_id;
-     int_f ret_value = 0;
+    hid_t c_space_id;
+    int_f ret_value = 0;
 
-     /*
-      * Call H5Rget_region function.
-      */
-     if((c_space_id = H5Rget_region((hid_t)*dset_id, H5R_DATASET_REGION, ref)) < 0)
-         HGOTO_DONE(FAIL)
+    /*
+     * Call H5Rget_region function.
+     */
+    if ((c_space_id = H5Rget_region((hid_t)*dset_id, H5R_DATASET_REGION, ref)) < 0)
+        HGOTO_DONE(FAIL)
 
-     /* Copy the dataspace ID */
-     *space_id = (hid_t_f)c_space_id;
+    /* Copy the dataspace ID */
+    *space_id = (hid_t_f)c_space_id;
 
 done:
-     return ret_value;
+    return ret_value;
 } /* end nh5rget_region_ptr_c() */
 
-
 /****if* H5Rf/h5rget_object_type_obj_c
  * NAME
  *        h5rget_object_type_obj_c
@@ -386,26 +387,26 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5rget_object_type_obj_c(hid_t_f *dset_id, haddr_t_f *ref, int_f *obj_type)
 /******/
 {
-     H5O_type_t c_obj_type;
-     hobj_ref_t ref_c = (hobj_ref_t)*ref;
-     int_f ret_value = 0;
+    H5O_type_t c_obj_type;
+    hobj_ref_t ref_c     = (hobj_ref_t)*ref;
+    int_f      ret_value = 0;
 
-     /*
-      * Call H5Rget_object_type function.
-      */
-     if(H5Rget_obj_type2((hid_t)*dset_id, H5R_OBJECT, &ref_c, &c_obj_type) < 0)
-         HGOTO_DONE(FAIL)
+    /*
+     * Call H5Rget_object_type function.
+     */
+    if (H5Rget_obj_type2((hid_t)*dset_id, H5R_OBJECT, &ref_c, &c_obj_type) < 0)
+        HGOTO_DONE(FAIL)
 
-     /* Copy the object type */
-     *obj_type = (int_f)c_obj_type;
+    /* Copy the object type */
+    *obj_type = (int_f)c_obj_type;
 
 done:
-     return ret_value;
+    return ret_value;
 } /* end nh5rget_object_type_obj_c() */
 
 /****if* H5Rf/h5rget_name_object_c
@@ -430,40 +431,39 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5rget_name_object_c(hid_t_f *loc_id, haddr_t_f *ref, _fcd name, size_t_f *name_len, size_t_f *size_default)
 /******/
 {
-     hobj_ref_t ref_c = (hobj_ref_t)*ref;
-     ssize_t c_size;
-     size_t c_bufsize = (size_t)*name_len + 1;
-     char *c_buf = NULL;  /* Buffer to hold C string */
-     int_f ret_value = 0;
-
-
-     /*
-      * Allocate buffer to hold name of an attribute
-      */
-     if(NULL == (c_buf = (char *)HDmalloc(c_bufsize)))
-         HGOTO_DONE(FAIL)
-        
-     /*
-      * Call H5Rget_name function.
-      */
-     if((c_size = H5Rget_name((hid_t)*loc_id, H5R_OBJECT, &ref_c, c_buf, c_bufsize)) < 0)
-         HGOTO_DONE(FAIL)
-
-     /*
-      * Convert C name to FORTRAN and place it in the given buffer
-      */
-     HD5packFstring(c_buf, _fcdtocp(name), c_bufsize-1);
-     *size_default = (size_t_f)c_size;
+    hobj_ref_t ref_c = (hobj_ref_t)*ref;
+    ssize_t    c_size;
+    size_t     c_bufsize = (size_t)*name_len + 1;
+    char *     c_buf     = NULL; /* Buffer to hold C string */
+    int_f      ret_value = 0;
+
+    /*
+     * Allocate buffer to hold name of an attribute
+     */
+    if (NULL == (c_buf = (char *)HDmalloc(c_bufsize)))
+        HGOTO_DONE(FAIL)
+
+    /*
+     * Call H5Rget_name function.
+     */
+    if ((c_size = H5Rget_name((hid_t)*loc_id, H5R_OBJECT, &ref_c, c_buf, c_bufsize)) < 0)
+        HGOTO_DONE(FAIL)
+
+    /*
+     * Convert C name to FORTRAN and place it in the given buffer
+     */
+    HD5packFstring(c_buf, _fcdtocp(name), c_bufsize - 1);
+    *size_default = (size_t_f)c_size;
 
 done:
-     if(c_buf) 
-         HDfree(c_buf);
-     return ret_value;
+    if (c_buf)
+        HDfree(c_buf);
+    return ret_value;
 } /* end nh5rget_name_object_c() */
 
 /****if* H5Rf/h5rget_name_region_c
@@ -488,42 +488,42 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5rget_name_region_c(hid_t_f *loc_id, int_f *ref, _fcd name, size_t_f *name_len, size_t_f *size_default)
 /******/
 {
-     hdset_reg_ref_t ref_c;
-     ssize_t c_size;
-     size_t c_bufsize = (size_t)*name_len + 1;
-     char *c_buf = NULL;  /* Buffer to hold C string */
-     int_f ret_value = 0;
-
-     /* Copy the reference to query */
-     HDmemcpy(&ref_c, ref, H5R_DSET_REG_REF_BUF_SIZE);
-
-     /*
-      * Allocate buffer to hold name of an attribute
-      */
-     if(NULL == (c_buf = (char *)HDmalloc(c_bufsize)))
-         HGOTO_DONE(FAIL)
-
-     /*
-      * Call H5Rget_name function.
-      */
-     if((c_size = H5Rget_name((hid_t)*loc_id, H5R_DATASET_REGION, &ref_c, c_buf, c_bufsize)) < 0)
-         HGOTO_DONE(FAIL)
-
-     /*
-      * Convert C name to FORTRAN and place it in the given buffer
-      */
-     HD5packFstring(c_buf, _fcdtocp(name), c_bufsize - 1);
-     *size_default = (size_t_f)c_size;
+    hdset_reg_ref_t ref_c;
+    ssize_t         c_size;
+    size_t          c_bufsize = (size_t)*name_len + 1;
+    char *          c_buf     = NULL; /* Buffer to hold C string */
+    int_f           ret_value = 0;
+
+    /* Copy the reference to query */
+    HDmemcpy(&ref_c, ref, H5R_DSET_REG_REF_BUF_SIZE);
+
+    /*
+     * Allocate buffer to hold name of an attribute
+     */
+    if (NULL == (c_buf = (char *)HDmalloc(c_bufsize)))
+        HGOTO_DONE(FAIL)
+
+    /*
+     * Call H5Rget_name function.
+     */
+    if ((c_size = H5Rget_name((hid_t)*loc_id, H5R_DATASET_REGION, &ref_c, c_buf, c_bufsize)) < 0)
+        HGOTO_DONE(FAIL)
+
+    /*
+     * Convert C name to FORTRAN and place it in the given buffer
+     */
+    HD5packFstring(c_buf, _fcdtocp(name), c_bufsize - 1);
+    *size_default = (size_t_f)c_size;
 
 done:
-     if(c_buf) 
-         HDfree(c_buf);
-     return ret_value;
+    if (c_buf)
+        HDfree(c_buf);
+    return ret_value;
 }
 
 /****if* H5Rf/h5rget_name_ptr_c
@@ -549,40 +549,43 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-h5rget_name_ptr_c (hid_t_f *loc_id, int_f *ref_type, void *ref, _fcd name, size_t_f *name_len, size_t_f *size_default)
+h5rget_name_ptr_c(hid_t_f *loc_id, int_f *ref_type, void *ref, _fcd name, size_t_f *name_len,
+                  size_t_f *size_default)
 /******/
 {
-     int_f ret_value = -1;
-     ssize_t c_size;
-     size_t c_bufsize;
-     char *c_buf= NULL;  /* Buffer to hold C string */
-
-     c_bufsize = (size_t)*name_len+1;
-     /*
-      * Allocate buffer to hold name of an attribute
-      */
-     if ((c_buf = (char *)HDmalloc(c_bufsize)) == NULL)
-       return ret_value;
-
-     /*
-      * Call H5Rget_name function.
-      */
-     if((c_size=H5Rget_name((hid_t)*loc_id, (H5R_type_t)*ref_type, ref, c_buf, c_bufsize)) < 0){
-       if(c_buf) HDfree(c_buf);
-       return ret_value;
-     }
-     /*
-      * Convert C name to FORTRAN and place it in the given buffer
-      */
-     HD5packFstring(c_buf, _fcdtocp(name), c_bufsize-1);
-
-     *size_default = (size_t_f)c_size;
-     ret_value = 0;
-     if(c_buf) HDfree(c_buf);
-
-     return ret_value;
+    int_f   ret_value = -1;
+    ssize_t c_size;
+    size_t  c_bufsize;
+    char *  c_buf = NULL; /* Buffer to hold C string */
+
+    c_bufsize = (size_t)*name_len + 1;
+    /*
+     * Allocate buffer to hold name of an attribute
+     */
+    if ((c_buf = (char *)HDmalloc(c_bufsize)) == NULL)
+        return ret_value;
+
+    /*
+     * Call H5Rget_name function.
+     */
+    if ((c_size = H5Rget_name((hid_t)*loc_id, (H5R_type_t)*ref_type, ref, c_buf, c_bufsize)) < 0) {
+        if (c_buf)
+            HDfree(c_buf);
+        return ret_value;
+    }
+    /*
+     * Convert C name to FORTRAN and place it in the given buffer
+     */
+    HD5packFstring(c_buf, _fcdtocp(name), c_bufsize - 1);
+
+    *size_default = (size_t_f)c_size;
+    ret_value     = 0;
+    if (c_buf)
+        HDfree(c_buf);
+
+    return ret_value;
 }
 
 /****if* H5Rf/h5rget_obj_type_c
@@ -599,7 +602,7 @@ h5rget_name_ptr_c (hid_t_f *loc_id, int_f *ref_type, void *ref, _fcd name, size_
  * OUTPUTS
  *   obj_type - Type of referenced object. These are defined in H5Opublic.h,
  *              enum H5O_type_t
- *              
+ *
  * RETURNS
  *   0 on success, -1 on failure
  * AUTHOR
@@ -607,22 +610,22 @@ h5rget_name_ptr_c (hid_t_f *loc_id, int_f *ref_type, void *ref, _fcd name, size_
  *   December 17, 2008
  *
  * SOURCE
-*/
+ */
 int_f
-h5rget_obj_type_c (hid_t_f *loc_id, int_f *ref_type, void *ref, int_f *obj_type)
+h5rget_obj_type_c(hid_t_f *loc_id, int_f *ref_type, void *ref, int_f *obj_type)
 /******/
 {
-  int_f ret_value = -1;
-  H5O_type_t obj_type_c;
+    int_f      ret_value = -1;
+    H5O_type_t obj_type_c;
 
-  /*
-   * Call H5Rget_obj_type function.
-   */
-  if((H5Rget_obj_type2((hid_t)*loc_id, (H5R_type_t)*ref_type, ref, &obj_type_c)) < 0)
-    return ret_value;
+    /*
+     * Call H5Rget_obj_type function.
+     */
+    if ((H5Rget_obj_type2((hid_t)*loc_id, (H5R_type_t)*ref_type, ref, &obj_type_c)) < 0)
+        return ret_value;
 
-  *obj_type = (int_f)obj_type_c;
+    *obj_type = (int_f)obj_type_c;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c
index 7fb7b0b..808b3ce 100644
--- a/fortran/src/H5Sf.c
+++ b/fortran/src/H5Sf.c
@@ -17,7 +17,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 #include "H5Eprivate.h"
@@ -44,25 +44,25 @@
 */
 
 int_f
-nh5screate_simple_c ( int_f *rank, hsize_t_f *dims, hsize_t_f *maxdims, hid_t_f *space_id )
+nh5screate_simple_c(int_f *rank, hsize_t_f *dims, hsize_t_f *maxdims, hid_t_f *space_id)
 /******/
 {
     hsize_t c_dims[H5S_MAX_RANK];
     hsize_t c_maxdims[H5S_MAX_RANK];
-    hid_t c_space_id;
-    int i;
-    int_f ret_value = 0;
+    hid_t   c_space_id;
+    int     i;
+    int_f   ret_value = 0;
 
     /*
      * Transpose dimension arrays because of C-FORTRAN storage order
      */
-    for(i = 0; i < *rank ; i++) {
-         c_dims[i] =  dims[*rank - i - 1];
-         c_maxdims[i] = maxdims[*rank - i - 1];
+    for (i = 0; i < *rank; i++) {
+        c_dims[i]    = dims[*rank - i - 1];
+        c_maxdims[i] = maxdims[*rank - i - 1];
     } /* end for */
 
     c_space_id = H5Screate_simple(*rank, c_dims, c_maxdims);
-    if(c_space_id < 0)
+    if (c_space_id < 0)
         HGOTO_DONE(FAIL)
 
     *space_id = (hid_t_f)c_space_id;
@@ -86,18 +86,19 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sclose_c ( hid_t_f *space_id )
+nh5sclose_c(hid_t_f *space_id)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_space_id;
+    int   ret_value = 0;
+    hid_t c_space_id;
 
-  c_space_id = (hid_t)*space_id;
-  if ( H5Sclose(c_space_id) < 0  ) ret_value = -1;
-  return ret_value;
+    c_space_id = (hid_t)*space_id;
+    if (H5Sclose(c_space_id) < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Sf/h5screate_c
@@ -117,21 +118,22 @@ nh5sclose_c ( hid_t_f *space_id )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5screate_c ( int_f *classtype, hid_t_f *space_id )
+nh5screate_c(int_f *classtype, hid_t_f *space_id)
 /******/
 {
-  H5S_class_t c_classtype;
-  int ret_value = 0;
-  hid_t c_space_id;
-  c_classtype = (H5S_class_t) *classtype;
-  c_space_id = H5Screate(c_classtype);
-
-  if ( c_space_id  < 0  ) ret_value = -1;
-  *space_id = (hid_t_f) c_space_id;
-  return ret_value;
+    H5S_class_t c_classtype;
+    int         ret_value = 0;
+    hid_t       c_space_id;
+    c_classtype = (H5S_class_t)*classtype;
+    c_space_id  = H5Screate(c_classtype);
+
+    if (c_space_id < 0)
+        ret_value = -1;
+    *space_id = (hid_t_f)c_space_id;
+    return ret_value;
 }
 
 /****if* H5Sf/h5scopy_c
@@ -151,22 +153,23 @@ nh5screate_c ( int_f *classtype, hid_t_f *space_id )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5scopy_c( hid_t_f *space_id , hid_t_f *new_space_id)
+nh5scopy_c(hid_t_f *space_id, hid_t_f *new_space_id)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_new_space_id;
-  hid_t c_space_id;
+    int   ret_value = 0;
+    hid_t c_new_space_id;
+    hid_t c_space_id;
 
-  c_space_id = (hid_t)*space_id;
-  c_new_space_id = H5Scopy(c_space_id);
-  if ( c_new_space_id < 0  ) ret_value = -1;
+    c_space_id     = (hid_t)*space_id;
+    c_new_space_id = H5Scopy(c_space_id);
+    if (c_new_space_id < 0)
+        ret_value = -1;
 
-  *new_space_id = (hid_t_f)c_new_space_id;
-  return ret_value;
+    *new_space_id = (hid_t_f)c_new_space_id;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sget_select_hyper_nblocks_c
@@ -189,22 +192,23 @@ nh5scopy_c( hid_t_f *space_id , hid_t_f *new_space_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sget_select_hyper_nblocks_c( hid_t_f *space_id , hssize_t_f * num_blocks)
+nh5sget_select_hyper_nblocks_c(hid_t_f *space_id, hssize_t_f *num_blocks)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_space_id;
-  hssize_t c_num_blocks;
+    int      ret_value = 0;
+    hid_t    c_space_id;
+    hssize_t c_num_blocks;
 
-  c_space_id = (hid_t)*space_id;
-  c_num_blocks = H5Sget_select_hyper_nblocks(c_space_id);
-  if ( c_num_blocks < 0  ) ret_value = -1;
+    c_space_id   = (hid_t)*space_id;
+    c_num_blocks = H5Sget_select_hyper_nblocks(c_space_id);
+    if (c_num_blocks < 0)
+        ret_value = -1;
 
-  *num_blocks = (hssize_t_f)c_num_blocks;
-  return ret_value;
+    *num_blocks = (hssize_t_f)c_num_blocks;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sget_select_elem_npoints_c
@@ -227,22 +231,23 @@ nh5sget_select_hyper_nblocks_c( hid_t_f *space_id , hssize_t_f * num_blocks)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sget_select_elem_npoints_c( hid_t_f *space_id , hssize_t_f * num_points)
+nh5sget_select_elem_npoints_c(hid_t_f *space_id, hssize_t_f *num_points)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_space_id;
-  hssize_t c_num_points;
+    int      ret_value = 0;
+    hid_t    c_space_id;
+    hssize_t c_num_points;
 
-  c_space_id = (hid_t)*space_id;
-  c_num_points = H5Sget_select_elem_npoints(c_space_id);
-  if ( c_num_points < 0  ) ret_value = -1;
+    c_space_id   = (hid_t)*space_id;
+    c_num_points = H5Sget_select_elem_npoints(c_space_id);
+    if (c_num_points < 0)
+        ret_value = -1;
 
-  *num_points = (hssize_t_f)c_num_points;
-  return ret_value;
+    *num_points = (hssize_t_f)c_num_points;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sget_select_hyper_blocklist_c
@@ -273,54 +278,56 @@ nh5sget_select_elem_npoints_c( hid_t_f *space_id , hssize_t_f * num_points)
  *              Transpose dimension arrays because of C-FORTRAN storage order
  *              M. Scot Breitenfeld
  * SOURCE
-*/
+ */
 
 int_f
-nh5sget_select_hyper_blocklist_c( hid_t_f *space_id ,hsize_t_f *startblock,
-                                  hsize_t_f *num_blocks, hsize_t_f *buf)
+nh5sget_select_hyper_blocklist_c(hid_t_f *space_id, hsize_t_f *startblock, hsize_t_f *num_blocks,
+                                 hsize_t_f *buf)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_space_id;
-  hsize_t c_num_blocks;
-
-  hsize_t i;
-  int j,k,m,n;
-  int rank;
-  hsize_t c_startblock, *c_buf;
-
-  c_space_id = (hid_t)*space_id;
-  c_num_blocks = (hsize_t)*num_blocks;
-
-  rank = H5Sget_simple_extent_ndims(c_space_id);
-  if (rank < 0 ) return ret_value;
-  c_startblock = (hsize_t)*startblock;
-
-  c_buf = (hsize_t*)HDmalloc(sizeof(hsize_t)*(size_t)(c_num_blocks*2*(hsize_t)rank));
-  if (!c_buf) return ret_value;
-
-  ret_value = H5Sget_select_hyper_blocklist(c_space_id, c_startblock,
-                                            c_num_blocks, c_buf);
-
-  /*
-   * Transpose dimension arrays because of C-FORTRAN storage order and add 1
-   */
-  n = 0;
-  m = 0;
-  for (i=0; i < c_num_blocks; i++) {
-    for (j=0; j < rank; j++) {
-      for (k=0; k < rank; k++) {
-	int t= (m + rank - k - 1);
-	buf[n] = (hsize_t_f)c_buf[t]+1;
-	n = n + 1;
-      }
-      m = m + rank;
+    int     ret_value = -1;
+    hid_t   c_space_id;
+    hsize_t c_num_blocks;
+
+    hsize_t i;
+    int     j, k, m, n;
+    int     rank;
+    hsize_t c_startblock, *c_buf;
+
+    c_space_id   = (hid_t)*space_id;
+    c_num_blocks = (hsize_t)*num_blocks;
+
+    rank = H5Sget_simple_extent_ndims(c_space_id);
+    if (rank < 0)
+        return ret_value;
+    c_startblock = (hsize_t)*startblock;
+
+    c_buf = (hsize_t *)HDmalloc(sizeof(hsize_t) * (size_t)(c_num_blocks * 2 * (hsize_t)rank));
+    if (!c_buf)
+        return ret_value;
+
+    ret_value = H5Sget_select_hyper_blocklist(c_space_id, c_startblock, c_num_blocks, c_buf);
+
+    /*
+     * Transpose dimension arrays because of C-FORTRAN storage order and add 1
+     */
+    n = 0;
+    m = 0;
+    for (i = 0; i < c_num_blocks; i++) {
+        for (j = 0; j < rank; j++) {
+            for (k = 0; k < rank; k++) {
+                int t  = (m + rank - k - 1);
+                buf[n] = (hsize_t_f)c_buf[t] + 1;
+                n      = n + 1;
+            }
+            m = m + rank;
+        }
     }
-  }
 
-  HDfree(c_buf);
-  if (ret_value  >= 0  ) ret_value = 0;
-  return ret_value;
+    HDfree(c_buf);
+    if (ret_value >= 0)
+        ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sget_select_bounds_c
@@ -346,29 +353,29 @@ nh5sget_select_hyper_blocklist_c( hid_t_f *space_id ,hsize_t_f *startblock,
  *                matrix notation.
  *                M. Scot Breitenfeld
  * SOURCE
-*/
+ */
 
 int_f
-nh5sget_select_bounds_c( hid_t_f *space_id , hsize_t_f * start, hsize_t_f * end)
+nh5sget_select_bounds_c(hid_t_f *space_id, hsize_t_f *start, hsize_t_f *end)
 /******/
 {
-    hid_t c_space_id;
+    hid_t   c_space_id;
     hsize_t c_start[H5S_MAX_RANK];
     hsize_t c_end[H5S_MAX_RANK];
-    int i, rank;
-    int_f ret_value = 0;
+    int     i, rank;
+    int_f   ret_value = 0;
 
     c_space_id = (hid_t)*space_id;
-    rank = H5Sget_simple_extent_ndims(c_space_id);
-    if(rank < 0 )
+    rank       = H5Sget_simple_extent_ndims(c_space_id);
+    if (rank < 0)
         HGOTO_DONE(FAIL)
 
-    if(H5Sget_select_bounds(c_space_id, c_start, c_end) < 0)
+    if (H5Sget_select_bounds(c_space_id, c_start, c_end) < 0)
         HGOTO_DONE(FAIL)
 
-    for(i = 0; i < rank; i++) {
+    for (i = 0; i < rank; i++) {
         start[i] = (hsize_t_f)(c_start[rank - i - 1] + 1);
-        end[i] = (hsize_t_f)(c_end[rank - i - 1] + 1);
+        end[i]   = (hsize_t_f)(c_end[rank - i - 1] + 1);
     } /* end for */
 
 done:
@@ -401,50 +408,52 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sget_select_elem_pointlist_c( hid_t_f *space_id ,hsize_t_f * startpoint,
-                                  hsize_t_f * numpoints, hsize_t_f * buf)
+nh5sget_select_elem_pointlist_c(hid_t_f *space_id, hsize_t_f *startpoint, hsize_t_f *numpoints,
+                                hsize_t_f *buf)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_space_id;
-  hsize_t c_num_points;
-  hsize_t c_startpoint,* c_buf;
-  hsize_t i, i1;
-  int rank;
-  int j,i2;
-
-  c_space_id = (hid_t)*space_id;
-  c_num_points = (hsize_t)* numpoints;
-
-  rank = H5Sget_simple_extent_ndims(c_space_id);
-  if (rank < 0 ) return ret_value;
-
-  c_startpoint = (hsize_t)*startpoint;
-  c_buf = (hsize_t*)HDmalloc(sizeof(hsize_t)*(size_t)(c_num_points*(hsize_t)rank));
-  if (!c_buf) return ret_value;
-  ret_value = H5Sget_select_elem_pointlist(c_space_id, c_startpoint,
-                                            c_num_points, c_buf);
-
-  /* re-arrange the return buffer to account for Fortran ordering of 2D arrays */
-  /* and add 1 to account for array's starting at one in Fortran */
-  i2 = 0;
-  for( i = 0; i < c_num_points; i++) {
-    i1 =  (hsize_t)rank*(i+1);
-    for(j = 0; j < rank; j++) {
-      buf[i2] = (hsize_t_f)(c_buf[i1-1]+1);
-      i2 = i2 + 1;
-      i1 = i1 - 1;
+    int     ret_value = -1;
+    hid_t   c_space_id;
+    hsize_t c_num_points;
+    hsize_t c_startpoint, *c_buf;
+    hsize_t i, i1;
+    int     rank;
+    int     j, i2;
+
+    c_space_id   = (hid_t)*space_id;
+    c_num_points = (hsize_t)*numpoints;
+
+    rank = H5Sget_simple_extent_ndims(c_space_id);
+    if (rank < 0)
+        return ret_value;
+
+    c_startpoint = (hsize_t)*startpoint;
+    c_buf        = (hsize_t *)HDmalloc(sizeof(hsize_t) * (size_t)(c_num_points * (hsize_t)rank));
+    if (!c_buf)
+        return ret_value;
+    ret_value = H5Sget_select_elem_pointlist(c_space_id, c_startpoint, c_num_points, c_buf);
+
+    /* re-arrange the return buffer to account for Fortran ordering of 2D arrays */
+    /* and add 1 to account for array's starting at one in Fortran */
+    i2 = 0;
+    for (i = 0; i < c_num_points; i++) {
+        i1 = (hsize_t)rank * (i + 1);
+        for (j = 0; j < rank; j++) {
+            buf[i2] = (hsize_t_f)(c_buf[i1 - 1] + 1);
+            i2      = i2 + 1;
+            i1      = i1 - 1;
+        }
     }
-  }
 
-  if (ret_value  >= 0  ) ret_value = 0;
+    if (ret_value >= 0)
+        ret_value = 0;
 
-  HDfree(c_buf);
+    HDfree(c_buf);
 
-  return ret_value;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sselect_all_c
@@ -462,18 +471,19 @@ nh5sget_select_elem_pointlist_c( hid_t_f *space_id ,hsize_t_f * startpoint,
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sselect_all_c ( hid_t_f *space_id )
+nh5sselect_all_c(hid_t_f *space_id)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_space_id;
+    int   ret_value = 0;
+    hid_t c_space_id;
 
-  c_space_id = (hid_t)*space_id;
-  if ( H5Sselect_all(c_space_id) < 0  ) ret_value = -1;
-  return ret_value;
+    c_space_id = (hid_t)*space_id;
+    if (H5Sselect_all(c_space_id) < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sselect_none_c
@@ -491,18 +501,19 @@ nh5sselect_all_c ( hid_t_f *space_id )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sselect_none_c ( hid_t_f *space_id )
+nh5sselect_none_c(hid_t_f *space_id)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_space_id;
+    int   ret_value = 0;
+    hid_t c_space_id;
 
-  c_space_id = (hid_t)*space_id;
-  if ( H5Sselect_none(c_space_id) < 0  ) ret_value = -1;
-  return ret_value;
+    c_space_id = (hid_t)*space_id;
+    if (H5Sselect_none(c_space_id) < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sselect_valid_c
@@ -524,21 +535,22 @@ nh5sselect_none_c ( hid_t_f *space_id )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sselect_valid_c ( hid_t_f *space_id , int_f *flag )
+nh5sselect_valid_c(hid_t_f *space_id, int_f *flag)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_space_id;
-  htri_t status;
-
-  c_space_id = (hid_t)*space_id;
-  status = H5Sselect_valid(c_space_id);
-  *flag = (int_f)status;
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
+    int    ret_value = 0;
+    hid_t  c_space_id;
+    htri_t status;
+
+    c_space_id = (hid_t)*space_id;
+    status     = H5Sselect_valid(c_space_id);
+    *flag      = (int_f)status;
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sget_simple_extent_npoints_c
@@ -559,21 +571,22 @@ nh5sselect_valid_c ( hid_t_f *space_id , int_f *flag )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sget_simple_extent_npoints_c ( hid_t_f *space_id , hsize_t_f *npoints )
+nh5sget_simple_extent_npoints_c(hid_t_f *space_id, hsize_t_f *npoints)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_space_id;
-  hssize_t c_npoints;
-
-  c_space_id = (hid_t)*space_id;
-  c_npoints = H5Sget_simple_extent_npoints(c_space_id);
-  if ( c_npoints == 0  ) ret_value = -1;
-  *npoints = (hsize_t_f)c_npoints;
-  return ret_value;
+    int      ret_value = 0;
+    hid_t    c_space_id;
+    hssize_t c_npoints;
+
+    c_space_id = (hid_t)*space_id;
+    c_npoints  = H5Sget_simple_extent_npoints(c_space_id);
+    if (c_npoints == 0)
+        ret_value = -1;
+    *npoints = (hsize_t_f)c_npoints;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sget_select_npoints_c
@@ -594,21 +607,22 @@ nh5sget_simple_extent_npoints_c ( hid_t_f *space_id , hsize_t_f *npoints )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sget_select_npoints_c ( hid_t_f *space_id , hssize_t_f *npoints )
+nh5sget_select_npoints_c(hid_t_f *space_id, hssize_t_f *npoints)
 /******/
 {
-  int ret_value = 0;
-  hssize_t c_npoints;
-  hid_t c_space_id;
-
-  c_space_id = (hid_t)*space_id;
-  c_npoints = H5Sget_select_npoints(c_space_id);
-  if ( c_npoints < 0  ) ret_value = -1;
-  *npoints = (hssize_t_f)c_npoints;
-  return ret_value;
+    int      ret_value = 0;
+    hssize_t c_npoints;
+    hid_t    c_space_id;
+
+    c_space_id = (hid_t)*space_id;
+    c_npoints  = H5Sget_select_npoints(c_space_id);
+    if (c_npoints < 0)
+        ret_value = -1;
+    *npoints = (hssize_t_f)c_npoints;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sget_simple_extent_ndims_c
@@ -629,21 +643,22 @@ nh5sget_select_npoints_c ( hid_t_f *space_id , hssize_t_f *npoints )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sget_simple_extent_ndims_c ( hid_t_f *space_id , int_f *ndims )
+nh5sget_simple_extent_ndims_c(hid_t_f *space_id, int_f *ndims)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_space_id;
-  int c_ndims;
-
-  c_space_id = (hid_t)*space_id;
-  c_ndims = H5Sget_simple_extent_ndims(c_space_id);
-  if ( c_ndims < 0  ) ret_value = -1;
-  *ndims = (int_f)c_ndims;
-  return ret_value;
+    int   ret_value = 0;
+    hid_t c_space_id;
+    int   c_ndims;
+
+    c_space_id = (hid_t)*space_id;
+    c_ndims    = H5Sget_simple_extent_ndims(c_space_id);
+    if (c_ndims < 0)
+        ret_value = -1;
+    *ndims = (int_f)c_ndims;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sget_simple_extent_type_c
@@ -665,26 +680,27 @@ nh5sget_simple_extent_ndims_c ( hid_t_f *space_id , int_f *ndims )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sget_simple_extent_type_c ( hid_t_f *space_id , int_f *classtype)
+nh5sget_simple_extent_type_c(hid_t_f *space_id, int_f *classtype)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_space_id;
-  H5S_class_t c_classtype;
-
-  c_space_id = (hid_t)*space_id;
-  c_classtype = H5Sget_simple_extent_type(c_space_id);
-  if ( c_classtype < 0  ) ret_value = -1;
-   *classtype = c_classtype;
-/*
-  if (c_classtype == H5S_SCALAR) *classtype = H5S_SCALAR_F;
-  if (c_classtype == H5S_SIMPLE) *classtype = H5S_SIMPLE_F;
-  if (c_classtype == H5S_NULL)   *classtype = H5S_NULL_F;
-*/
-  return ret_value;
+    int         ret_value = 0;
+    hid_t       c_space_id;
+    H5S_class_t c_classtype;
+
+    c_space_id  = (hid_t)*space_id;
+    c_classtype = H5Sget_simple_extent_type(c_space_id);
+    if (c_classtype < 0)
+        ret_value = -1;
+    *classtype = c_classtype;
+    /*
+      if (c_classtype == H5S_SCALAR) *classtype = H5S_SCALAR_F;
+      if (c_classtype == H5S_SIMPLE) *classtype = H5S_SIMPLE_F;
+      if (c_classtype == H5S_NULL)   *classtype = H5S_NULL_F;
+    */
+    return ret_value;
 }
 
 /****if* H5Sf/h5soffset_simple_c
@@ -704,30 +720,30 @@ nh5sget_simple_extent_type_c ( hid_t_f *space_id , int_f *classtype)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5soffset_simple_c ( hid_t_f *space_id , hssize_t_f *offset)
+nh5soffset_simple_c(hid_t_f *space_id, hssize_t_f *offset)
 /******/
 {
-    hid_t c_space_id;
-    int rank;
+    hid_t    c_space_id;
+    int      rank;
     hssize_t c_offset[H5S_MAX_RANK];
-    int i;
-    int_f ret_value = 0;
+    int      i;
+    int_f    ret_value = 0;
 
     c_space_id = (hid_t)*space_id;
-    rank = H5Sget_simple_extent_ndims(c_space_id);
-    if(rank < 0)
+    rank       = H5Sget_simple_extent_ndims(c_space_id);
+    if (rank < 0)
         HGOTO_DONE(FAIL)
 
     /*
      * Reverse dimensions due to C-FORTRAN storage order.
      */
-    for(i = 0; i < rank; i++)
+    for (i = 0; i < rank; i++)
         c_offset[i] = offset[rank - i - 1];
 
-    if(H5Soffset_simple(c_space_id, c_offset) < 0)
+    if (H5Soffset_simple(c_space_id, c_offset) < 0)
         HGOTO_DONE(FAIL)
 
 done:
@@ -753,33 +769,32 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sset_extent_simple_c ( hid_t_f *space_id , int_f *rank, hsize_t_f *current_size, hsize_t_f *maximum_size)
+nh5sset_extent_simple_c(hid_t_f *space_id, int_f *rank, hsize_t_f *current_size, hsize_t_f *maximum_size)
 /******/
 {
     hsize_t c_current_size[H5S_MAX_RANK];
     hsize_t c_maximum_size[H5S_MAX_RANK];
-    int i;
-    int_f ret_value = 0;
+    int     i;
+    int_f   ret_value = 0;
 
     /*
      * Reverse dimensions due to C-FORTRAN storage order.
      */
-    for(i = 0; i < *rank; i++) {
+    for (i = 0; i < *rank; i++) {
         c_current_size[i] = (hsize_t)current_size[*rank - i - 1];
         c_maximum_size[i] = (hsize_t)maximum_size[*rank - i - 1];
     } /* end for */
 
-    if(H5Sset_extent_simple((hid_t)*space_id, (int)*rank, c_current_size, c_maximum_size) < 0)
+    if (H5Sset_extent_simple((hid_t)*space_id, (int)*rank, c_current_size, c_maximum_size) < 0)
         HGOTO_DONE(FAIL)
 
 done:
     return ret_value;
 }
 
-
 /****if* H5Sf/h5sget_simple_extent_dims_c
  * NAME
  *        h5sget_simple_extent_dims_c
@@ -799,32 +814,32 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sget_simple_extent_dims_c ( hid_t_f *space_id , hsize_t_f *dims, hsize_t_f *maxdims)
+nh5sget_simple_extent_dims_c(hid_t_f *space_id, hsize_t_f *dims, hsize_t_f *maxdims)
 /******/
 {
-    hid_t c_space_id;
+    hid_t   c_space_id;
     hsize_t c_dims[H5S_MAX_RANK];
     hsize_t c_maxdims[H5S_MAX_RANK];
-    int rank;
-    int i;
-    int_f ret_value;
+    int     rank;
+    int     i;
+    int_f   ret_value;
 
     c_space_id = (hid_t)*space_id;
-    rank = H5Sget_simple_extent_ndims(c_space_id);
-    if(rank < 0)
+    rank       = H5Sget_simple_extent_ndims(c_space_id);
+    if (rank < 0)
         HGOTO_DONE(FAIL)
 
-    if(H5Sget_simple_extent_dims(c_space_id, c_dims, c_maxdims) < 0)
+    if (H5Sget_simple_extent_dims(c_space_id, c_dims, c_maxdims) < 0)
         HGOTO_DONE(FAIL)
 
     /*
      * Reverse dimensions due to C-FORTRAN storage order.
      */
-    for(i = 0; i < rank; i++) {
-        dims[rank - i - 1] = (hsize_t_f)c_dims[i];
+    for (i = 0; i < rank; i++) {
+        dims[rank - i - 1]    = (hsize_t_f)c_dims[i];
         maxdims[rank - i - 1] = (hsize_t_f)c_maxdims[i];
     } /* end for */
 
@@ -853,23 +868,23 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sis_simple_c ( hid_t_f *space_id , int_f *flag )
+nh5sis_simple_c(hid_t_f *space_id, int_f *flag)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_space_id;
-  htri_t status;
-
-  c_space_id = (hid_t)*space_id;
-  status = H5Sis_simple(c_space_id);
-  *flag = (int_f)status;
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
-}
+    int    ret_value = 0;
+    hid_t  c_space_id;
+    htri_t status;
 
+    c_space_id = (hid_t)*space_id;
+    status     = H5Sis_simple(c_space_id);
+    *flag      = (int_f)status;
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
+}
 
 /****if* H5Sf/h5sextent_copy_c
  * NAME
@@ -887,21 +902,22 @@ nh5sis_simple_c ( hid_t_f *space_id , int_f *flag )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sextent_copy_c ( hid_t_f *dest_space_id , hid_t_f *source_space_id)
+nh5sextent_copy_c(hid_t_f *dest_space_id, hid_t_f *source_space_id)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_dest_space_id, c_source_space_id;
-  herr_t status;
-
-  c_dest_space_id = (hid_t)*dest_space_id;
-  c_source_space_id = (hid_t)*source_space_id;
-  status = H5Sextent_copy(c_dest_space_id, c_source_space_id);
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
+    int    ret_value = 0;
+    hid_t  c_dest_space_id, c_source_space_id;
+    herr_t status;
+
+    c_dest_space_id   = (hid_t)*dest_space_id;
+    c_source_space_id = (hid_t)*source_space_id;
+    status            = H5Sextent_copy(c_dest_space_id, c_source_space_id);
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sset_extent_none_c
@@ -919,20 +935,21 @@ nh5sextent_copy_c ( hid_t_f *dest_space_id , hid_t_f *source_space_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sset_extent_none_c ( hid_t_f *space_id )
+nh5sset_extent_none_c(hid_t_f *space_id)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_space_id;
-  herr_t status;
-
-  c_space_id = (hid_t)*space_id;
-  status = H5Sset_extent_none(c_space_id);
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
+    int    ret_value = 0;
+    hid_t  c_space_id;
+    herr_t status;
+
+    c_space_id = (hid_t)*space_id;
+    status     = H5Sset_extent_none(c_space_id);
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sselect_hyperslab_c
@@ -957,44 +974,44 @@ nh5sset_extent_none_c ( hid_t_f *space_id )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sselect_hyperslab_c ( hid_t_f *space_id , int_f *op, hsize_t_f *start, hsize_t_f *count, hsize_t_f *stride, hsize_t_f *block)
+nh5sselect_hyperslab_c(hid_t_f *space_id, int_f *op, hsize_t_f *start, hsize_t_f *count, hsize_t_f *stride,
+                       hsize_t_f *block)
 /******/
 {
     hsize_t c_start[H5S_MAX_RANK];
     hsize_t c_count[H5S_MAX_RANK];
     hsize_t c_stride[H5S_MAX_RANK];
     hsize_t c_block[H5S_MAX_RANK];
-    int rank;
-    int i;
-    int_f ret_value = 0;
+    int     rank;
+    int     i;
+    int_f   ret_value = 0;
 
     rank = H5Sget_simple_extent_ndims((hid_t)*space_id);
-    if(rank < 0 )
+    if (rank < 0)
         HGOTO_DONE(FAIL)
 
     /*
      * Reverse dimensions due to C-FORTRAN storage order.
      */
-    for(i = 0; i < rank; i++) {
+    for (i = 0; i < rank; i++) {
         int t = (rank - i) - 1;
 
-        c_start[i] = (hsize_t)start[t];
-        c_count[i] = (hsize_t)count[t];
+        c_start[i]  = (hsize_t)start[t];
+        c_count[i]  = (hsize_t)count[t];
         c_stride[i] = (hsize_t)stride[t];
-        c_block[i] = (hsize_t)block[t];
+        c_block[i]  = (hsize_t)block[t];
     } /* end for */
 
-    if(H5Sselect_hyperslab((hid_t)*space_id, (H5S_seloper_t)*op, c_start, c_stride, c_count, c_block) < 0)
+    if (H5Sselect_hyperslab((hid_t)*space_id, (H5S_seloper_t)*op, c_start, c_stride, c_count, c_block) < 0)
         HGOTO_DONE(FAIL)
 
 done:
     return ret_value;
 }
 
-
 #ifdef NEW_HYPERSLAB_API
 /****if* H5Sf/h5scombine_hyperslab_c
  * NAME
@@ -1018,65 +1035,75 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5scombine_hyperslab_c ( hid_t_f *space_id , int_f *op, hsize_t_f *start, hsize_t_f *count, hsize_t_f *stride, hsize_t_f *block, hid_t_f *hyper_id)
+nh5scombine_hyperslab_c(hid_t_f *space_id, int_f *op, hsize_t_f *start, hsize_t_f *count, hsize_t_f *stride,
+                        hsize_t_f *block, hid_t_f *hyper_id)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_space_id;
-  hid_t c_hyper_id;
-  hsize_t *c_start = NULL;
-  hsize_t *c_count = NULL;
-  hsize_t *c_stride = NULL;
-  hsize_t *c_block = NULL;
-
-  H5S_seloper_t c_op;
-  herr_t  status;
-  int rank;
-  int i;
-
-  rank = H5Sget_simple_extent_ndims(*space_id);
-  if (rank < 0 ) return ret_value;
-  c_start = (hsize_t *)HDmalloc(sizeof(hsize_t)*rank);
-  if (c_start == NULL) goto DONE;
-
-  c_count = (hsize_t *)HDmalloc(sizeof(hsize_t)*rank);
-  if (c_count == NULL) goto DONE;
-
-  c_stride = (hsize_t *)HDmalloc(sizeof(hsize_t)*rank);
-  if (c_stride == NULL) goto DONE;
-
-  c_block = (hsize_t *)HDmalloc(sizeof(hsize_t)*rank);
-  if (c_block == NULL) goto DONE;
-
-
-  /*
-   * Reverse dimensions due to C-FORTRAN storage order.
-   */
-
-  for (i=0; i < rank; i++) {
-      int t= (rank - i) - 1;
-      c_start[i] = (hsize_t)start[t];
-      c_count[i] = (hsize_t)count[t];
-      c_stride[i] = (hsize_t)stride[t];
-      c_block[i] = (hsize_t)block[t];
-  }
-
-   c_op = (H5S_seloper_t)*op;
-
-  c_space_id = (hid_t)*space_id;
-  c_hyper_id = H5Scombine_hyperslab(c_space_id, c_op, c_start, c_stride, c_count, c_block);
-  if ( c_hyper_id < 0  ) goto DONE;
-  *hyper_id = (hid_t_f)c_hyper_id;
-  ret_value = 0;
+    int      ret_value = -1;
+    hid_t    c_space_id;
+    hid_t    c_hyper_id;
+    hsize_t *c_start  = NULL;
+    hsize_t *c_count  = NULL;
+    hsize_t *c_stride = NULL;
+    hsize_t *c_block  = NULL;
+
+    H5S_seloper_t c_op;
+    herr_t        status;
+    int           rank;
+    int           i;
+
+    rank = H5Sget_simple_extent_ndims(*space_id);
+    if (rank < 0)
+        return ret_value;
+    c_start = (hsize_t *)HDmalloc(sizeof(hsize_t) * rank);
+    if (c_start == NULL)
+        goto DONE;
+
+    c_count = (hsize_t *)HDmalloc(sizeof(hsize_t) * rank);
+    if (c_count == NULL)
+        goto DONE;
+
+    c_stride = (hsize_t *)HDmalloc(sizeof(hsize_t) * rank);
+    if (c_stride == NULL)
+        goto DONE;
+
+    c_block = (hsize_t *)HDmalloc(sizeof(hsize_t) * rank);
+    if (c_block == NULL)
+        goto DONE;
+
+    /*
+     * Reverse dimensions due to C-FORTRAN storage order.
+     */
+
+    for (i = 0; i < rank; i++) {
+        int t       = (rank - i) - 1;
+        c_start[i]  = (hsize_t)start[t];
+        c_count[i]  = (hsize_t)count[t];
+        c_stride[i] = (hsize_t)stride[t];
+        c_block[i]  = (hsize_t)block[t];
+    }
+
+    c_op = (H5S_seloper_t)*op;
+
+    c_space_id = (hid_t)*space_id;
+    c_hyper_id = H5Scombine_hyperslab(c_space_id, c_op, c_start, c_stride, c_count, c_block);
+    if (c_hyper_id < 0)
+        goto DONE;
+    *hyper_id = (hid_t_f)c_hyper_id;
+    ret_value = 0;
 DONE:
-  if(c_start != NULL) HDfree(c_start);
-  if(c_count != NULL) HDfree(c_count);
-  if(c_stride!= NULL) HDfree(c_stride);
-  if(c_block != NULL) HDfree(c_block);
-  return ret_value;
+    if (c_start != NULL)
+        HDfree(c_start);
+    if (c_count != NULL)
+        HDfree(c_count);
+    if (c_stride != NULL)
+        HDfree(c_stride);
+    if (c_block != NULL)
+        HDfree(c_block);
+    return ret_value;
 }
 /****if* H5Sf/h5scombine_select_c
  * NAME
@@ -1097,27 +1124,28 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5scombine_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *space2_id, hid_t_f *ds_id)
+nh5scombine_select_c(hid_t_f *space1_id, int_f *op, hid_t_f *space2_id, hid_t_f *ds_id)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_space1_id;
-  hid_t c_space2_id;
-  hid_t c_ds_id;
-  H5S_seloper_t c_op;
-
-  c_op = (H5S_seloper_t)*op;
-
-  c_space1_id = (hid_t)*space1_id;
-  c_space2_id = (hid_t)*space2_id;
-  c_ds_id = H5Scombine_select(c_space1_id, c_op, c_space2_id);
-  if ( c_ds_id < 0  ) return ret_value;
-  *ds_id = (hid_t_f)c_ds_id;
-  ret_value = 0;
-  return ret_value;
+    int           ret_value = -1;
+    hid_t         c_space1_id;
+    hid_t         c_space2_id;
+    hid_t         c_ds_id;
+    H5S_seloper_t c_op;
+
+    c_op = (H5S_seloper_t)*op;
+
+    c_space1_id = (hid_t)*space1_id;
+    c_space2_id = (hid_t)*space2_id;
+    c_ds_id     = H5Scombine_select(c_space1_id, c_op, c_space2_id);
+    if (c_ds_id < 0)
+        return ret_value;
+    *ds_id    = (hid_t_f)c_ds_id;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Sf/h5sselect_select_c
  * NAME
@@ -1136,24 +1164,25 @@ nh5scombine_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *space2_id, hid_t
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sselect_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *space2_id)
+nh5sselect_select_c(hid_t_f *space1_id, int_f *op, hid_t_f *space2_id)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_space1_id;
-  hid_t c_space2_id;
-  H5S_seloper_t c_op;
-
-  c_op = (H5S_seloper_t)*op;
-
-  c_space1_id = (hid_t)*space1_id;
-  c_space2_id = (hid_t)*space2_id;
-  if( H5Sselect_select(c_space1_id, c_op, c_space2_id)< 0) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    int           ret_value = -1;
+    hid_t         c_space1_id;
+    hid_t         c_space2_id;
+    H5S_seloper_t c_op;
+
+    c_op = (H5S_seloper_t)*op;
+
+    c_space1_id = (hid_t)*space1_id;
+    c_space2_id = (hid_t)*space2_id;
+    if (H5Sselect_select(c_space1_id, c_op, c_space2_id) < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 #endif /*NEW_HYPERSLAB_API*/
 /****if* H5Sf/h5sget_select_type_c
@@ -1173,23 +1202,23 @@ nh5sselect_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *space2_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5sget_select_type_c ( hid_t_f *space_id , int_f *type)
+nh5sget_select_type_c(hid_t_f *space_id, int_f *type)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_space_id;
-  H5S_sel_type c_type;
-
-  c_space_id = (hid_t)*space_id;
-  c_type = H5Sget_select_type(c_space_id);
-  if(c_type < 0) return ret_value;
-  *type = (int_f)c_type;
-  ret_value = 0;
-  return ret_value;
-}
+    int          ret_value = -1;
+    hid_t        c_space_id;
+    H5S_sel_type c_type;
 
+    c_space_id = (hid_t)*space_id;
+    c_type     = H5Sget_select_type(c_space_id);
+    if (c_type < 0)
+        return ret_value;
+    *type     = (int_f)c_type;
+    ret_value = 0;
+    return ret_value;
+}
 
 /****if* H5Sf/h5sselect_elements_c
  * NAME
@@ -1211,40 +1240,42 @@ nh5sget_select_type_c ( hid_t_f *space_id , int_f *type)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sselect_elements_c ( hid_t_f *space_id , int_f *op, size_t_f *nelements,  hsize_t_f *coord)
+nh5sselect_elements_c(hid_t_f *space_id, int_f *op, size_t_f *nelements, hsize_t_f *coord)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_space_id;
-  H5S_seloper_t c_op;
-  herr_t  status;
-  int rank;
-  size_t i;
-  int j;
-  hsize_t *c_coord;
-  size_t c_nelements;
-
-  c_op = (H5S_seloper_t)*op;
-
-  c_space_id = *space_id;
-  rank = H5Sget_simple_extent_ndims(c_space_id);
-
-  c_coord = (hsize_t *)HDmalloc(sizeof(hsize_t)*(size_t)rank*((size_t)*nelements));
-  if(!c_coord) return ret_value;
-  for (i=0; i< (size_t)*nelements; i++) {
-      for (j = 0; j < rank; j++) {
-	c_coord[(size_t)j+i*(size_t)rank] = (hsize_t)coord[(size_t)j + i*(size_t)rank];
-      }
-  }
-
-  c_nelements = *nelements;
-  status = H5Sselect_elements(c_space_id, c_op, c_nelements, c_coord);
-  if ( status >= 0  ) ret_value = 0;
-  HDfree(c_coord);
-  return ret_value;
+    int           ret_value = -1;
+    hid_t         c_space_id;
+    H5S_seloper_t c_op;
+    herr_t        status;
+    int           rank;
+    size_t        i;
+    int           j;
+    hsize_t *     c_coord;
+    size_t        c_nelements;
+
+    c_op = (H5S_seloper_t)*op;
+
+    c_space_id = *space_id;
+    rank       = H5Sget_simple_extent_ndims(c_space_id);
+
+    c_coord = (hsize_t *)HDmalloc(sizeof(hsize_t) * (size_t)rank * ((size_t)*nelements));
+    if (!c_coord)
+        return ret_value;
+    for (i = 0; i < (size_t)*nelements; i++) {
+        for (j = 0; j < rank; j++) {
+            c_coord[(size_t)j + i * (size_t)rank] = (hsize_t)coord[(size_t)j + i * (size_t)rank];
+        }
+    }
+
+    c_nelements = *nelements;
+    status      = H5Sselect_elements(c_space_id, c_op, c_nelements, c_coord);
+    if (status >= 0)
+        ret_value = 0;
+    HDfree(c_coord);
+    return ret_value;
 }
 
 /****if* H5Sf/h5sdecode_c
@@ -1267,30 +1298,30 @@ nh5sselect_elements_c ( hid_t_f *space_id , int_f *op, size_t_f *nelements,  hsi
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sdecode_c ( _fcd buf, hid_t_f *obj_id )
+nh5sdecode_c(_fcd buf, hid_t_f *obj_id)
 /******/
 {
-  int ret_value = -1;
-  unsigned char *c_buf = NULL;  /* Buffer to hold C string */
-  hid_t c_obj_id;
+    int            ret_value = -1;
+    unsigned char *c_buf     = NULL; /* Buffer to hold C string */
+    hid_t          c_obj_id;
 
-  /*
-   * Call H5Sdecode function.
-   */
+    /*
+     * Call H5Sdecode function.
+     */
 
-  c_buf = (unsigned char*)buf;
+    c_buf = (unsigned char *)buf;
 
-  c_obj_id = H5Sdecode(c_buf);
-  if(c_obj_id < 0)
-    return ret_value;
+    c_obj_id = H5Sdecode(c_buf);
+    if (c_obj_id < 0)
+        return ret_value;
 
-  *obj_id = (hid_t_f)c_obj_id;
-  ret_value = 0;
+    *obj_id   = (hid_t_f)c_obj_id;
+    ret_value = 0;
 
-  return ret_value;
+    return ret_value;
 }
 
 /****if* H5Sf/h5sencode_c
@@ -1311,55 +1342,56 @@ nh5sdecode_c ( _fcd buf, hid_t_f *obj_id )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sencode_c (_fcd buf, hid_t_f *obj_id, size_t_f *nalloc )
+nh5sencode_c(_fcd buf, hid_t_f *obj_id, size_t_f *nalloc)
 /******/
 {
-  int ret_value = -1;
-  unsigned char *c_buf = NULL;          /* Buffer to hold C string */
-  size_t c_size;
+    int            ret_value = -1;
+    unsigned char *c_buf     = NULL; /* Buffer to hold C string */
+    size_t         c_size;
 
-  /* return just the size of the allocated buffer;
-   * equivalent to C routine for which 'name' is set equal to NULL
-   */
+    /* return just the size of the allocated buffer;
+     * equivalent to C routine for which 'name' is set equal to NULL
+     */
 
-  if (*nalloc == 0) {
+    if (*nalloc == 0) {
 
-    if(H5Sencode((hid_t)*obj_id, c_buf, &c_size) < 0)
-      return ret_value;
+        if (H5Sencode((hid_t)*obj_id, c_buf, &c_size) < 0)
+            return ret_value;
 
-    *nalloc = (size_t_f)c_size;
+        *nalloc = (size_t_f)c_size;
 
-    ret_value = 0;
-    return ret_value;
-  }
+        ret_value = 0;
+        return ret_value;
+    }
 
-  c_size = (size_t)*nalloc;
-  /*
-   * Allocate buffer
-   */
-  if(NULL == (c_buf = (unsigned char *)HDmalloc(c_size)))
-    return ret_value;
-  /*
-   * Call H5Sencode function.
-   */
-  if(H5Sencode((hid_t)*obj_id, c_buf, &c_size) < 0){
-    return ret_value;
-  }
+    c_size = (size_t)*nalloc;
+    /*
+     * Allocate buffer
+     */
+    if (NULL == (c_buf = (unsigned char *)HDmalloc(c_size)))
+        return ret_value;
+    /*
+     * Call H5Sencode function.
+     */
+    if (H5Sencode((hid_t)*obj_id, c_buf, &c_size) < 0) {
+        return ret_value;
+    }
 
-  /* copy the C buffer to the FORTRAN buffer.
-   * Can not use HD5packFstring because we don't want to
-   * eliminate the NUL terminator or pad remaining space
-   * with blanks.
-   */
+    /* copy the C buffer to the FORTRAN buffer.
+     * Can not use HD5packFstring because we don't want to
+     * eliminate the NUL terminator or pad remaining space
+     * with blanks.
+     */
 
-  HDmemcpy(_fcdtocp(buf),(char *)c_buf,c_size);
+    HDmemcpy(_fcdtocp(buf), (char *)c_buf, c_size);
 
-  ret_value = 0;
-  if(c_buf) HDfree(c_buf);
-  return ret_value;
+    ret_value = 0;
+    if (c_buf)
+        HDfree(c_buf);
+    return ret_value;
 }
 
 /****if* H5Sf/h5sextent_equal_c
@@ -1382,18 +1414,17 @@ nh5sencode_c (_fcd buf, hid_t_f *obj_id, size_t_f *nalloc )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5sextent_equal_c ( hid_t_f * space1_id, hid_t_f *space2_id, hid_t_f *c_equal)
+nh5sextent_equal_c(hid_t_f *space1_id, hid_t_f *space2_id, hid_t_f *c_equal)
 /******/
 {
-  int ret_value = -1;
+    int ret_value = -1;
 
-  if( (*c_equal = (hid_t_f)H5Sextent_equal((hid_t)*space1_id, (hid_t)*space2_id)) < 0)
-    return ret_value;
+    if ((*c_equal = (hid_t_f)H5Sextent_equal((hid_t)*space1_id, (hid_t)*space2_id)) < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
-
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c
index ca9567c..37d1f00 100644
--- a/fortran/src/H5Tf.c
+++ b/fortran/src/H5Tf.c
@@ -17,11 +17,10 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 
-
 /****if* H5Tf/h5topen_c
  * NAME
  *  h5topen_c
@@ -42,38 +41,37 @@
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5topen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *tapl_id)
+nh5topen_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *tapl_id)
 /******/
 {
     char *c_name = NULL;
     hid_t c_type_id;
-    int ret_value = -1;
+    int   ret_value = -1;
 
     /*
      * Convert FORTRAN name to C name
      */
-    if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
         goto done;
 
     /*
      * Call H5Topen2 function.
      */
-    if((c_type_id = H5Topen2((hid_t)*loc_id, c_name, (hid_t)*tapl_id)) < 0)
+    if ((c_type_id = H5Topen2((hid_t)*loc_id, c_name, (hid_t)*tapl_id)) < 0)
         goto done;
     *type_id = (hid_t_f)c_type_id;
 
     ret_value = 0;
 
 done:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
 
     return ret_value;
 }
 
-
 /****if* H5Tf/h5tcommit_c
  * NAME
  *  h5tcommit_c
@@ -97,27 +95,28 @@ done:
  *              - Added passing optional parameters for version 1.8
  *                M. Scot Breitenfeld
  * SOURCE
-*/
+ */
 int_f
-nh5tcommit_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id,
-	     hid_t_f *lcpl_id, hid_t_f *tcpl_id, hid_t_f *tapl_id)
+nh5tcommit_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *lcpl_id, hid_t_f *tcpl_id,
+             hid_t_f *tapl_id)
 /******/
 {
-    char *c_name = NULL;
-    int ret_value = -1;
+    char *c_name    = NULL;
+    int   ret_value = -1;
 
     /* Convert FORTRAN name to C name */
-    if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
+    if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
         goto done;
 
     /* Call H5Tcommit2 function */
-    if(H5Tcommit2((hid_t)*loc_id, c_name, (hid_t)*type_id, (hid_t)*lcpl_id, (hid_t)*tcpl_id, (hid_t)*tapl_id) < 0)
+    if (H5Tcommit2((hid_t)*loc_id, c_name, (hid_t)*type_id, (hid_t)*lcpl_id, (hid_t)*tcpl_id,
+                   (hid_t)*tapl_id) < 0)
         goto done;
 
     ret_value = 0;
 
 done:
-    if(c_name)
+    if (c_name)
         HDfree(c_name);
     return ret_value;
 }
@@ -137,21 +136,21 @@ done:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tclose_c ( hid_t_f *type_id )
+nh5tclose_c(hid_t_f *type_id)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_type_id;
+    int   ret_value = 0;
+    hid_t c_type_id;
 
-  c_type_id = *type_id;
-  if ( H5Tclose(c_type_id) < 0  ) ret_value = -1;
-  return ret_value;
+    c_type_id = *type_id;
+    if (H5Tclose(c_type_id) < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
-
 /****if* H5Tf/h5tcopy_c
  * NAME
  *  h5tcopy_c
@@ -169,21 +168,22 @@ nh5tclose_c ( hid_t_f *type_id )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tcopy_c ( hid_t_f *type_id , hid_t_f *new_type_id)
+nh5tcopy_c(hid_t_f *type_id, hid_t_f *new_type_id)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_type_id;
-  hid_t c_new_type_id;
-
-  c_type_id = *type_id;
-  c_new_type_id = H5Tcopy(c_type_id);
-  if ( c_new_type_id < 0  ) ret_value = -1;
-  *new_type_id = (hid_t_f)c_new_type_id;
-  return ret_value;
+    int   ret_value = 0;
+    hid_t c_type_id;
+    hid_t c_new_type_id;
+
+    c_type_id     = *type_id;
+    c_new_type_id = H5Tcopy(c_type_id);
+    if (c_new_type_id < 0)
+        ret_value = -1;
+    *new_type_id = (hid_t_f)c_new_type_id;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tequal_c
@@ -204,23 +204,24 @@ nh5tcopy_c ( hid_t_f *type_id , hid_t_f *new_type_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tequal_c ( hid_t_f *type1_id , hid_t_f *type2_id, int_f *c_flag)
+nh5tequal_c(hid_t_f *type1_id, hid_t_f *type2_id, int_f *c_flag)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type1_id, c_type2_id;
-  htri_t status;
-
-  c_type1_id = *type1_id;
-  c_type2_id = *type2_id;
-  status = H5Tequal(c_type1_id, c_type2_id);
-  if ( status < 0  ) return ret_value;
-  *c_flag = (int_f)status;
-  ret_value = 0;
-  return ret_value;
+    int    ret_value = -1;
+    hid_t  c_type1_id, c_type2_id;
+    htri_t status;
+
+    c_type1_id = *type1_id;
+    c_type2_id = *type2_id;
+    status     = H5Tequal(c_type1_id, c_type2_id);
+    if (status < 0)
+        return ret_value;
+    *c_flag   = (int_f)status;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_class_c
@@ -252,37 +253,37 @@ nh5tequal_c ( hid_t_f *type1_id , hid_t_f *type2_id, int_f *c_flag)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_class_c ( hid_t_f *type_id , int_f *classtype)
+nh5tget_class_c(hid_t_f *type_id, int_f *classtype)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_type_id;
-  H5T_class_t c_classtype;
-
-  c_type_id = *type_id;
-  c_classtype = H5Tget_class(c_type_id);
-  if (c_classtype == H5T_NO_CLASS ) {
-      /* *classtype = H5T_NO_CLASS_F; */
-      *classtype = (int_f)H5T_NO_CLASS;
-       ret_value = -1;
-       return ret_value;
-  }
-  *classtype = c_classtype;
-/*
-  if (c_classtype == H5T_INTEGER)   *classtype = H5T_INTEGER_F;
-  if (c_classtype == H5T_FLOAT)     *classtype = H5T_FLOAT_F;
-  if (c_classtype == H5T_TIME)      *classtype = H5T_TIME_F;
-  if (c_classtype == H5T_STRING)    *classtype = H5T_STRING_F;
-  if (c_classtype == H5T_BITFIELD)  *classtype = H5T_BITFIELD_F;
-  if (c_classtype == H5T_OPAQUE)    *classtype = H5T_OPAQUE_F;
-  if (c_classtype == H5T_COMPOUND)  *classtype = H5T_COMPOUND_F;
-  if (c_classtype == H5T_REFERENCE) *classtype = H5T_REFERENCE_F;
-  if (c_classtype == H5T_ENUM)      *classtype = H5T_ENUM_F;
-*/
-  return ret_value;
+    int         ret_value = 0;
+    hid_t       c_type_id;
+    H5T_class_t c_classtype;
+
+    c_type_id   = *type_id;
+    c_classtype = H5Tget_class(c_type_id);
+    if (c_classtype == H5T_NO_CLASS) {
+        /* *classtype = H5T_NO_CLASS_F; */
+        *classtype = (int_f)H5T_NO_CLASS;
+        ret_value  = -1;
+        return ret_value;
+    }
+    *classtype = c_classtype;
+    /*
+      if (c_classtype == H5T_INTEGER)   *classtype = H5T_INTEGER_F;
+      if (c_classtype == H5T_FLOAT)     *classtype = H5T_FLOAT_F;
+      if (c_classtype == H5T_TIME)      *classtype = H5T_TIME_F;
+      if (c_classtype == H5T_STRING)    *classtype = H5T_STRING_F;
+      if (c_classtype == H5T_BITFIELD)  *classtype = H5T_BITFIELD_F;
+      if (c_classtype == H5T_OPAQUE)    *classtype = H5T_OPAQUE_F;
+      if (c_classtype == H5T_COMPOUND)  *classtype = H5T_COMPOUND_F;
+      if (c_classtype == H5T_REFERENCE) *classtype = H5T_REFERENCE_F;
+      if (c_classtype == H5T_ENUM)      *classtype = H5T_ENUM_F;
+    */
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_order_c
@@ -305,29 +306,29 @@ nh5tget_class_c ( hid_t_f *type_id , int_f *classtype)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_order_c ( hid_t_f *type_id , int_f *order)
+nh5tget_order_c(hid_t_f *type_id, int_f *order)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  H5T_order_t c_order;
-
-  c_type_id = *type_id;
-  c_order = H5Tget_order(c_type_id);
-  if ( c_order < 0  ) return ret_value;
-  *order = (int_f)c_order;
-   ret_value = 0;
-/*
-  if ( c_order == H5T_ORDER_LE)  *order = H5T_ORDER_LE_F;
-  if ( c_order == H5T_ORDER_BE)  *order = H5T_ORDER_BE_F;
-  if ( c_order == H5T_ORDER_VAX) *order = H5T_ORDER_VAX_F;
-*/
-  return ret_value;
-}
+    int         ret_value = -1;
+    hid_t       c_type_id;
+    H5T_order_t c_order;
 
+    c_type_id = *type_id;
+    c_order   = H5Tget_order(c_type_id);
+    if (c_order < 0)
+        return ret_value;
+    *order    = (int_f)c_order;
+    ret_value = 0;
+    /*
+      if ( c_order == H5T_ORDER_LE)  *order = H5T_ORDER_LE_F;
+      if ( c_order == H5T_ORDER_BE)  *order = H5T_ORDER_BE_F;
+      if ( c_order == H5T_ORDER_VAX) *order = H5T_ORDER_VAX_F;
+    */
+    return ret_value;
+}
 
 /****if* H5Tf/h5tset_order_c
  * NAME
@@ -348,26 +349,27 @@ nh5tget_order_c ( hid_t_f *type_id , int_f *order)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tset_order_c ( hid_t_f *type_id , int_f *order)
+nh5tset_order_c(hid_t_f *type_id, int_f *order)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_type_id;
-  H5T_order_t c_order;
-  herr_t status;
-  c_order = (H5T_order_t)*order;
-/*
-  if ( *order == H5T_ORDER_LE_F) c_order = H5T_ORDER_LE;
-  if ( *order == H5T_ORDER_BE_F) c_order = H5T_ORDER_BE;
-  if ( *order == H5T_ORDER_VAX_F) c_order = H5T_ORDER_VAX;
-*/
-  c_type_id = *type_id;
-  status = H5Tset_order(c_type_id, c_order);
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
+    int         ret_value = 0;
+    hid_t       c_type_id;
+    H5T_order_t c_order;
+    herr_t      status;
+    c_order = (H5T_order_t)*order;
+    /*
+      if ( *order == H5T_ORDER_LE_F) c_order = H5T_ORDER_LE;
+      if ( *order == H5T_ORDER_BE_F) c_order = H5T_ORDER_BE;
+      if ( *order == H5T_ORDER_VAX_F) c_order = H5T_ORDER_VAX;
+    */
+    c_type_id = *type_id;
+    status    = H5Tset_order(c_type_id, c_order);
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_size_c
@@ -387,22 +389,23 @@ nh5tset_order_c ( hid_t_f *type_id , int_f *order)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_size_c ( hid_t_f *type_id , size_t_f *size)
+nh5tget_size_c(hid_t_f *type_id, size_t_f *size)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  size_t c_size;
-
-  c_type_id = *type_id;
-  c_size = H5Tget_size(c_type_id);
-  if ( c_size == 0  ) return ret_value;
-  *size = (size_t_f)c_size ;
-  ret_value = 0;
-  return ret_value;
+    int    ret_value = -1;
+    hid_t  c_type_id;
+    size_t c_size;
+
+    c_type_id = *type_id;
+    c_size    = H5Tget_size(c_type_id);
+    if (c_size == 0)
+        return ret_value;
+    *size     = (size_t_f)c_size;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tset_size_c
@@ -422,23 +425,24 @@ nh5tget_size_c ( hid_t_f *type_id , size_t_f *size)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tset_size_c ( hid_t_f *type_id , size_t_f *size)
+nh5tset_size_c(hid_t_f *type_id, size_t_f *size)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  size_t c_size;
-  herr_t status;
-
-  c_size = (size_t)*size;
-  c_type_id = *type_id;
-  status = H5Tset_size(c_type_id, c_size);
-  if ( status < 0  ) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    int    ret_value = -1;
+    hid_t  c_type_id;
+    size_t c_size;
+    herr_t status;
+
+    c_size    = (size_t)*size;
+    c_type_id = *type_id;
+    status    = H5Tset_size(c_type_id, c_size);
+    if (status < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_precision_c
@@ -458,22 +462,23 @@ nh5tset_size_c ( hid_t_f *type_id , size_t_f *size)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_precision_c ( hid_t_f *type_id , size_t_f *precision)
+nh5tget_precision_c(hid_t_f *type_id, size_t_f *precision)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  size_t c_precision;
-
-  c_type_id = *type_id;
-  c_precision = H5Tget_precision(c_type_id);
-  if ( c_precision == 0  ) return ret_value;
-  *precision = (size_t_f)c_precision ;
-  ret_value = 0;
-  return ret_value;
+    int    ret_value = -1;
+    hid_t  c_type_id;
+    size_t c_precision;
+
+    c_type_id   = *type_id;
+    c_precision = H5Tget_precision(c_type_id);
+    if (c_precision == 0)
+        return ret_value;
+    *precision = (size_t_f)c_precision;
+    ret_value  = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tset_precision_c
@@ -492,23 +497,24 @@ nh5tget_precision_c ( hid_t_f *type_id , size_t_f *precision)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tset_precision_c ( hid_t_f *type_id , size_t_f *precision)
+nh5tset_precision_c(hid_t_f *type_id, size_t_f *precision)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  size_t c_precision;
-  herr_t status;
-
-  c_type_id = *type_id;
-  c_precision = (size_t)*precision;
-  status = H5Tset_precision(c_type_id, c_precision);
-  if ( status < 0 ) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    int    ret_value = -1;
+    hid_t  c_type_id;
+    size_t c_precision;
+    herr_t status;
+
+    c_type_id   = *type_id;
+    c_precision = (size_t)*precision;
+    status      = H5Tset_precision(c_type_id, c_precision);
+    if (status < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_offset_c
@@ -529,23 +535,24 @@ nh5tset_precision_c ( hid_t_f *type_id , size_t_f *precision)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_offset_c ( hid_t_f *type_id , size_t_f *offset)
+nh5tget_offset_c(hid_t_f *type_id, size_t_f *offset)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  int c_offset;
+    int   ret_value = -1;
+    hid_t c_type_id;
+    int   c_offset;
 
-  c_type_id = *type_id;
-  c_offset = H5Tget_offset(c_type_id);
-  if ( c_offset < 0  ) return ret_value;
+    c_type_id = *type_id;
+    c_offset  = H5Tget_offset(c_type_id);
+    if (c_offset < 0)
+        return ret_value;
 
-  *offset = (size_t_f)c_offset ;
-  ret_value = 0;
-  return ret_value;
+    *offset   = (size_t_f)c_offset;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tset_offset_c
@@ -565,23 +572,24 @@ nh5tget_offset_c ( hid_t_f *type_id , size_t_f *offset)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tset_offset_c ( hid_t_f *type_id , size_t_f *offset)
+nh5tset_offset_c(hid_t_f *type_id, size_t_f *offset)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  size_t c_offset;
-  herr_t status;
-
-  c_offset = (size_t)*offset;
-  c_type_id = *type_id;
-  status = H5Tset_offset(c_type_id, c_offset);
-  if ( status < 0 ) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    int    ret_value = -1;
+    hid_t  c_type_id;
+    size_t c_offset;
+    herr_t status;
+
+    c_offset  = (size_t)*offset;
+    c_type_id = *type_id;
+    status    = H5Tset_offset(c_type_id, c_offset);
+    if (status < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_pad_c
@@ -604,25 +612,26 @@ nh5tset_offset_c ( hid_t_f *type_id , size_t_f *offset)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_pad_c ( hid_t_f *type_id , int_f * lsbpad, int_f * msbpad)
+nh5tget_pad_c(hid_t_f *type_id, int_f *lsbpad, int_f *msbpad)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  herr_t status;
-  H5T_pad_t c_lsb, c_msb;
-
-  c_type_id = *type_id;
-  status = H5Tget_pad(c_type_id, &c_lsb, &c_msb);
-  if ( status < 0  ) return ret_value;
-
-  *lsbpad = (int_f) c_lsb;
-  *msbpad = (int_f) c_msb;
-  ret_value = 0;
-  return ret_value;
+    int       ret_value = -1;
+    hid_t     c_type_id;
+    herr_t    status;
+    H5T_pad_t c_lsb, c_msb;
+
+    c_type_id = *type_id;
+    status    = H5Tget_pad(c_type_id, &c_lsb, &c_msb);
+    if (status < 0)
+        return ret_value;
+
+    *lsbpad   = (int_f)c_lsb;
+    *msbpad   = (int_f)c_msb;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tset_pad_c
@@ -646,24 +655,25 @@ nh5tget_pad_c ( hid_t_f *type_id , int_f * lsbpad, int_f * msbpad)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tset_pad_c ( hid_t_f *type_id, int_f * lsbpad, int_f* msbpad )
+nh5tset_pad_c(hid_t_f *type_id, int_f *lsbpad, int_f *msbpad)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  herr_t status;
-  H5T_pad_t c_lsb, c_msb;
-
-  c_type_id = *type_id;
-  c_lsb = (H5T_pad_t)*lsbpad;
-  c_msb = (H5T_pad_t)*msbpad;
-  status = H5Tset_pad(c_type_id, c_lsb, c_msb);
-  if ( status < 0 ) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    int       ret_value = -1;
+    hid_t     c_type_id;
+    herr_t    status;
+    H5T_pad_t c_lsb, c_msb;
+
+    c_type_id = *type_id;
+    c_lsb     = (H5T_pad_t)*lsbpad;
+    c_msb     = (H5T_pad_t)*msbpad;
+    status    = H5Tset_pad(c_type_id, c_lsb, c_msb);
+    if (status < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_sign_c
@@ -683,22 +693,23 @@ nh5tset_pad_c ( hid_t_f *type_id, int_f * lsbpad, int_f* msbpad )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_sign_c ( hid_t_f *type_id , int_f *sign)
+nh5tget_sign_c(hid_t_f *type_id, int_f *sign)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  H5T_sign_t c_sign;
-
-  c_type_id = *type_id;
-  c_sign = H5Tget_sign(c_type_id);
-  if ( c_sign == -1  ) return ret_value;
-  *sign = (int_f)c_sign ;
-  ret_value = 0;
-  return ret_value;
+    int        ret_value = -1;
+    hid_t      c_type_id;
+    H5T_sign_t c_sign;
+
+    c_type_id = *type_id;
+    c_sign    = H5Tget_sign(c_type_id);
+    if (c_sign == -1)
+        return ret_value;
+    *sign     = (int_f)c_sign;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tset_sign_c
@@ -717,24 +728,25 @@ nh5tget_sign_c ( hid_t_f *type_id , int_f *sign)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tset_sign_c ( hid_t_f *type_id , int_f* sign)
+nh5tset_sign_c(hid_t_f *type_id, int_f *sign)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  H5T_sign_t c_sign;
-  herr_t status;
-
-  c_type_id = *type_id;
-  c_sign = (H5T_sign_t)*sign;
-  status = H5Tset_sign(c_type_id, c_sign);
-  if ( status < 0 ) return ret_value;
-
-  ret_value = 0;
-  return ret_value;
+    int        ret_value = -1;
+    hid_t      c_type_id;
+    H5T_sign_t c_sign;
+    herr_t     status;
+
+    c_type_id = *type_id;
+    c_sign    = (H5T_sign_t)*sign;
+    status    = H5Tset_sign(c_type_id, c_sign);
+    if (status < 0)
+        return ret_value;
+
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_fields_c
@@ -758,27 +770,29 @@ nh5tset_sign_c ( hid_t_f *type_id , int_f* sign)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_fields_c ( hid_t_f *type_id , size_t_f *spos, size_t_f *epos, size_t_f* esize, size_t_f* mpos, size_t_f* msize)
+nh5tget_fields_c(hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f *esize, size_t_f *mpos,
+                 size_t_f *msize)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  herr_t status;
-  size_t  c_spos, c_epos, c_esize, c_mpos, c_msize;
-
-  c_type_id = *type_id;
-  status = H5Tget_fields(c_type_id, &c_spos, &c_epos, &c_esize, &c_mpos, &c_msize);
-  if ( status < 0  ) return ret_value;
-  *spos = (size_t_f) c_spos;
-  *epos = (size_t_f) c_epos;
-  *esize = (size_t_f) c_esize;
-  *mpos = (size_t_f) c_mpos;
-  *msize = (size_t_f) c_msize;
-  ret_value = 0;
-  return ret_value;
+    int    ret_value = -1;
+    hid_t  c_type_id;
+    herr_t status;
+    size_t c_spos, c_epos, c_esize, c_mpos, c_msize;
+
+    c_type_id = *type_id;
+    status    = H5Tget_fields(c_type_id, &c_spos, &c_epos, &c_esize, &c_mpos, &c_msize);
+    if (status < 0)
+        return ret_value;
+    *spos     = (size_t_f)c_spos;
+    *epos     = (size_t_f)c_epos;
+    *esize    = (size_t_f)c_esize;
+    *mpos     = (size_t_f)c_mpos;
+    *msize    = (size_t_f)c_msize;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tset_fields_c
@@ -801,28 +815,30 @@ nh5tget_fields_c ( hid_t_f *type_id , size_t_f *spos, size_t_f *epos, size_t_f*
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tset_fields_c ( hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f* esize, size_t_f* mpos, size_t_f* msize)
+nh5tset_fields_c(hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f *esize, size_t_f *mpos,
+                 size_t_f *msize)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  herr_t status;
-  size_t  c_spos, c_epos, c_esize, c_mpos, c_msize;
-
-  c_spos = (size_t)*spos;
-  c_epos = (size_t)*epos;
-  c_esize = (size_t)*esize;
-  c_mpos = (size_t)*mpos;
-  c_msize = (size_t)*msize;
-  c_type_id = *type_id;
-  status = H5Tset_fields(c_type_id, c_spos, c_epos, c_esize, c_mpos, c_msize);
-  if ( status < 0 ) return ret_value;
-
-  ret_value = 0;
-  return ret_value;
+    int    ret_value = -1;
+    hid_t  c_type_id;
+    herr_t status;
+    size_t c_spos, c_epos, c_esize, c_mpos, c_msize;
+
+    c_spos    = (size_t)*spos;
+    c_epos    = (size_t)*epos;
+    c_esize   = (size_t)*esize;
+    c_mpos    = (size_t)*mpos;
+    c_msize   = (size_t)*msize;
+    c_type_id = *type_id;
+    status    = H5Tset_fields(c_type_id, c_spos, c_epos, c_esize, c_mpos, c_msize);
+    if (status < 0)
+        return ret_value;
+
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_ebias_c
@@ -843,23 +859,24 @@ nh5tset_fields_c ( hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f* e
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_ebias_c ( hid_t_f *type_id , size_t_f *ebias)
+nh5tget_ebias_c(hid_t_f *type_id, size_t_f *ebias)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  size_t c_ebias;
+    int    ret_value = -1;
+    hid_t  c_type_id;
+    size_t c_ebias;
 
-  c_type_id = *type_id;
-  c_ebias = H5Tget_ebias(c_type_id);
-  if ( c_ebias == 0  ) return ret_value;
+    c_type_id = *type_id;
+    c_ebias   = H5Tget_ebias(c_type_id);
+    if (c_ebias == 0)
+        return ret_value;
 
-  *ebias = (size_t_f)c_ebias;
-  ret_value = 0;
-  return ret_value;
+    *ebias    = (size_t_f)c_ebias;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tset_ebias_c
@@ -879,24 +896,25 @@ nh5tget_ebias_c ( hid_t_f *type_id , size_t_f *ebias)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tset_ebias_c ( hid_t_f *type_id , size_t_f *ebias)
+nh5tset_ebias_c(hid_t_f *type_id, size_t_f *ebias)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  size_t c_ebias;
-  herr_t status;
-
-  c_type_id = *type_id;
-  c_ebias = (size_t)*ebias;
-  status = H5Tset_ebias(c_type_id, c_ebias);
-  if ( status < 0  ) return ret_value;
-
-  ret_value = 0;
-  return ret_value;
+    int    ret_value = -1;
+    hid_t  c_type_id;
+    size_t c_ebias;
+    herr_t status;
+
+    c_type_id = *type_id;
+    c_ebias   = (size_t)*ebias;
+    status    = H5Tset_ebias(c_type_id, c_ebias);
+    if (status < 0)
+        return ret_value;
+
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_norm_c
@@ -917,23 +935,24 @@ nh5tset_ebias_c ( hid_t_f *type_id , size_t_f *ebias)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_norm_c ( hid_t_f *type_id , int_f *norm)
+nh5tget_norm_c(hid_t_f *type_id, int_f *norm)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  H5T_norm_t  c_norm;
+    int        ret_value = -1;
+    hid_t      c_type_id;
+    H5T_norm_t c_norm;
 
-  c_type_id = *type_id;
-  c_norm = H5Tget_norm(c_type_id);
-  if ( c_norm == H5T_NORM_ERROR  ) return ret_value;
+    c_type_id = *type_id;
+    c_norm    = H5Tget_norm(c_type_id);
+    if (c_norm == H5T_NORM_ERROR)
+        return ret_value;
 
-  *norm = (int_f)c_norm;
-  ret_value = 0;
-  return ret_value;
+    *norm     = (int_f)c_norm;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tset_norm_c
@@ -953,24 +972,25 @@ nh5tget_norm_c ( hid_t_f *type_id , int_f *norm)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tset_norm_c ( hid_t_f *type_id , int_f *norm)
+nh5tset_norm_c(hid_t_f *type_id, int_f *norm)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  H5T_norm_t  c_norm;
-  herr_t status;
-
-  c_type_id = *type_id;
-  c_norm = (H5T_norm_t)*norm;
-  status = H5Tset_norm(c_type_id, c_norm);
-  if ( status < 0  ) return ret_value;
-
-  ret_value = 0;
-  return ret_value;
+    int        ret_value = -1;
+    hid_t      c_type_id;
+    H5T_norm_t c_norm;
+    herr_t     status;
+
+    c_type_id = *type_id;
+    c_norm    = (H5T_norm_t)*norm;
+    status    = H5Tset_norm(c_type_id, c_norm);
+    if (status < 0)
+        return ret_value;
+
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_inpad_c
@@ -993,23 +1013,24 @@ nh5tset_norm_c ( hid_t_f *type_id , int_f *norm)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_inpad_c ( hid_t_f *type_id , int_f * padtype)
+nh5tget_inpad_c(hid_t_f *type_id, int_f *padtype)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  H5T_pad_t c_padtype;
+    int       ret_value = -1;
+    hid_t     c_type_id;
+    H5T_pad_t c_padtype;
 
-  c_type_id = *type_id;
-  c_padtype = H5Tget_inpad(c_type_id);
-  if ( c_padtype == H5T_PAD_ERROR  ) return ret_value;
+    c_type_id = *type_id;
+    c_padtype = H5Tget_inpad(c_type_id);
+    if (c_padtype == H5T_PAD_ERROR)
+        return ret_value;
 
-  *padtype = (int_f) c_padtype;
-  ret_value = 0;
-  return ret_value;
+    *padtype  = (int_f)c_padtype;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tset_inpad_c
@@ -1033,24 +1054,25 @@ nh5tget_inpad_c ( hid_t_f *type_id , int_f * padtype)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tset_inpad_c ( hid_t_f *type_id, int_f * padtype)
+nh5tset_inpad_c(hid_t_f *type_id, int_f *padtype)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  herr_t status;
-  H5T_pad_t c_padtype;
-
-  c_type_id = *type_id;
-  c_padtype = (H5T_pad_t)*padtype;
-  status = H5Tset_inpad(c_type_id, c_padtype);
-  if ( status < 0 ) return ret_value;
-
-  ret_value = 0;
-  return ret_value;
+    int       ret_value = -1;
+    hid_t     c_type_id;
+    herr_t    status;
+    H5T_pad_t c_padtype;
+
+    c_type_id = *type_id;
+    c_padtype = (H5T_pad_t)*padtype;
+    status    = H5Tset_inpad(c_type_id, c_padtype);
+    if (status < 0)
+        return ret_value;
+
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_cset_c
@@ -1072,23 +1094,24 @@ nh5tset_inpad_c ( hid_t_f *type_id, int_f * padtype)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_cset_c ( hid_t_f *type_id , int_f * cset)
+nh5tget_cset_c(hid_t_f *type_id, int_f *cset)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  H5T_cset_t  c_cset;
+    int        ret_value = -1;
+    hid_t      c_type_id;
+    H5T_cset_t c_cset;
 
-  c_type_id = *type_id;
-  c_cset = H5Tget_cset(c_type_id);
-  if ( c_cset == H5T_CSET_ERROR  ) return ret_value;
+    c_type_id = *type_id;
+    c_cset    = H5Tget_cset(c_type_id);
+    if (c_cset == H5T_CSET_ERROR)
+        return ret_value;
 
-  *cset = (int_f) c_cset;
-  ret_value = 0;
-  return ret_value;
+    *cset     = (int_f)c_cset;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tset_cset_c
@@ -1111,24 +1134,25 @@ nh5tget_cset_c ( hid_t_f *type_id , int_f * cset)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tset_cset_c ( hid_t_f *type_id, int_f * cset)
+nh5tset_cset_c(hid_t_f *type_id, int_f *cset)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  herr_t status;
-  H5T_cset_t c_cset;
-
-  c_type_id = *type_id;
-  c_cset = (H5T_cset_t)*cset;
-  status = H5Tset_cset(c_type_id, c_cset);
-
-  if ( status < 0 ) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    int        ret_value = -1;
+    hid_t      c_type_id;
+    herr_t     status;
+    H5T_cset_t c_cset;
+
+    c_type_id = *type_id;
+    c_cset    = (H5T_cset_t)*cset;
+    status    = H5Tset_cset(c_type_id, c_cset);
+
+    if (status < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_strpad_c
@@ -1149,22 +1173,23 @@ nh5tset_cset_c ( hid_t_f *type_id, int_f * cset)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5tget_strpad_c ( hid_t_f *type_id , int_f * strpad)
+nh5tget_strpad_c(hid_t_f *type_id, int_f *strpad)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  H5T_str_t  c_strpad;
+    int       ret_value = -1;
+    hid_t     c_type_id;
+    H5T_str_t c_strpad;
 
-  c_type_id = *type_id;
-  c_strpad = H5Tget_strpad(c_type_id);
-  if ( c_strpad == H5T_STR_ERROR  ) return ret_value;
+    c_type_id = *type_id;
+    c_strpad  = H5Tget_strpad(c_type_id);
+    if (c_strpad == H5T_STR_ERROR)
+        return ret_value;
 
-  *strpad = (int_f) c_strpad;
-  ret_value = 0;
-  return ret_value;
+    *strpad   = (int_f)c_strpad;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tset_strpad_c
@@ -1187,24 +1212,25 @@ nh5tget_strpad_c ( hid_t_f *type_id , int_f * strpad)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tset_strpad_c ( hid_t_f *type_id, int_f * strpad)
+nh5tset_strpad_c(hid_t_f *type_id, int_f *strpad)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  herr_t status;
-  H5T_str_t c_strpad;
-
-  c_type_id = *type_id;
-  c_strpad = (H5T_str_t)*strpad;
-  status = H5Tset_strpad(c_type_id, c_strpad);
-  if ( status < 0 ) return ret_value;
-
-  ret_value = 0;
-  return ret_value;
+    int       ret_value = -1;
+    hid_t     c_type_id;
+    herr_t    status;
+    H5T_str_t c_strpad;
+
+    c_type_id = *type_id;
+    c_strpad  = (H5T_str_t)*strpad;
+    status    = H5Tset_strpad(c_type_id, c_strpad);
+    if (status < 0)
+        return ret_value;
+
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_nmembers_c
@@ -1225,21 +1251,22 @@ nh5tset_strpad_c ( hid_t_f *type_id, int_f * strpad)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_nmembers_c ( hid_t_f *type_id , int_f * num_members)
+nh5tget_nmembers_c(hid_t_f *type_id, int_f *num_members)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
+    int   ret_value = -1;
+    hid_t c_type_id;
 
-  c_type_id = *type_id;
-  *num_members = (int_f)H5Tget_nmembers(c_type_id);
-  if (*num_members < 0  ) return ret_value;
+    c_type_id    = *type_id;
+    *num_members = (int_f)H5Tget_nmembers(c_type_id);
+    if (*num_members < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_member_name_c
@@ -1261,27 +1288,28 @@ nh5tget_nmembers_c ( hid_t_f *type_id , int_f * num_members)
  * Elena Pourmal
  * Added namelen parameter to return length of the name to Fortran user
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_member_name_c ( hid_t_f *type_id ,int_f* idx, _fcd member_name, int_f *namelen)
+nh5tget_member_name_c(hid_t_f *type_id, int_f *idx, _fcd member_name, int_f *namelen)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  unsigned c_index;
-  char *c_name;
-
-  c_type_id = *type_id;
-  c_index = (unsigned)*idx;
-  c_name = H5Tget_member_name(c_type_id, c_index);
-  if (c_name == NULL ) return ret_value;
-
-  HD5packFstring(c_name, _fcdtocp(member_name), strlen(c_name));
-  *namelen = (int_f)strlen(c_name);
-  H5free_memory(c_name);
-  ret_value = 0;
-  return ret_value;
+    int      ret_value = -1;
+    hid_t    c_type_id;
+    unsigned c_index;
+    char *   c_name;
+
+    c_type_id = *type_id;
+    c_index   = (unsigned)*idx;
+    c_name    = H5Tget_member_name(c_type_id, c_index);
+    if (c_name == NULL)
+        return ret_value;
+
+    HD5packFstring(c_name, _fcdtocp(member_name), strlen(c_name));
+    *namelen = (int_f)strlen(c_name);
+    H5free_memory(c_name);
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Tf/h5tget_member_index_c
  * NAME
@@ -1303,37 +1331,38 @@ nh5tget_member_name_c ( hid_t_f *type_id ,int_f* idx, _fcd member_name, int_f *n
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5tget_member_index_c (hid_t_f *type_id, _fcd name, int_f *namelen, int_f *idx)
+nh5tget_member_index_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *idx)
 /******/
 {
-     int ret_value = -1;
-     char *c_name;
-     hid_t c_type_id;
-     int c_index;
-
-     /*
-      * Convert FORTRAN name to C name
-      */
-     c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
-     if (c_name == NULL) return ret_value;
-
-     /*
-      * Call H5Tget_member_index function.
-      */
-     c_type_id = (hid_t)*type_id;
-     c_index = H5Tget_member_index(c_type_id, c_name);
-
-     if (c_index < 0) goto DONE;
-     *idx = (int_f)c_index;
+    int   ret_value = -1;
+    char *c_name;
+    hid_t c_type_id;
+    int   c_index;
+
+    /*
+     * Convert FORTRAN name to C name
+     */
+    c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
+    if (c_name == NULL)
+        return ret_value;
+
+    /*
+     * Call H5Tget_member_index function.
+     */
+    c_type_id = (hid_t)*type_id;
+    c_index   = H5Tget_member_index(c_type_id, c_name);
+
+    if (c_index < 0)
+        goto DONE;
+    *idx = (int_f)c_index;
 DONE:
-     HDfree(c_name);
-     ret_value = 0;
-     return ret_value;
+    HDfree(c_name);
+    ret_value = 0;
+    return ret_value;
 }
 
-
 /****if* H5Tf/h5tget_member_offset_c
  * NAME
  *  h5tget_member_offset_c
@@ -1355,19 +1384,19 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_member_offset_c ( hid_t_f *type_id ,int_f* member_no, size_t_f * offset)
+nh5tget_member_offset_c(hid_t_f *type_id, int_f *member_no, size_t_f *offset)
 /******/
 {
-  int ret_value = -1;
-  size_t c_offset;
+    int    ret_value = -1;
+    size_t c_offset;
 
-  c_offset = H5Tget_member_offset((hid_t)*type_id, (unsigned)*member_no);
-  *offset = (size_t_f)c_offset;
-  ret_value = 0;
-  return ret_value;
+    c_offset  = H5Tget_member_offset((hid_t)*type_id, (unsigned)*member_no);
+    *offset   = (size_t_f)c_offset;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_array_dims_c
@@ -1388,23 +1417,23 @@ nh5tget_member_offset_c ( hid_t_f *type_id ,int_f* member_no, size_t_f * offset)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_array_dims_c ( hid_t_f *type_id , hsize_t_f * dims)
+nh5tget_array_dims_c(hid_t_f *type_id, hsize_t_f *dims)
 /******/
 {
     hsize_t c_dims[H5S_MAX_RANK];
-    int rank, i;
-    int ret_value = -1;
+    int     rank, i;
+    int     ret_value = -1;
 
-    if((rank = H5Tget_array_ndims((hid_t)*type_id)) < 0)
+    if ((rank = H5Tget_array_ndims((hid_t)*type_id)) < 0)
         goto DONE;
 
-    if(H5Tget_array_dims2((hid_t)*type_id, c_dims) < 0)
+    if (H5Tget_array_dims2((hid_t)*type_id, c_dims) < 0)
         goto DONE;
 
-    for(i = 0; i < rank; i++)
+    for (i = 0; i < rank; i++)
         dims[(rank - i) - 1] = (hsize_t_f)c_dims[i];
 
     ret_value = 0;
@@ -1431,23 +1460,24 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_array_ndims_c ( hid_t_f *type_id , int_f * ndims)
+nh5tget_array_ndims_c(hid_t_f *type_id, int_f *ndims)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  int c_ndims;
+    int   ret_value = -1;
+    hid_t c_type_id;
+    int   c_ndims;
 
-  c_type_id = (hid_t)*type_id;
-  c_ndims = H5Tget_array_ndims(c_type_id);
-  if (c_ndims < 0) return ret_value;
+    c_type_id = (hid_t)*type_id;
+    c_ndims   = H5Tget_array_ndims(c_type_id);
+    if (c_ndims < 0)
+        return ret_value;
 
-  *ndims = (int_f)c_ndims;
-  ret_value = 0;
-  return ret_value;
+    *ndims    = (int_f)c_ndims;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_super_c
@@ -1468,26 +1498,26 @@ nh5tget_array_ndims_c ( hid_t_f *type_id , int_f * ndims)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_super_c ( hid_t_f *type_id , hid_t_f *base_type_id)
+nh5tget_super_c(hid_t_f *type_id, hid_t_f *base_type_id)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  hid_t c_base_type_id;
+    int   ret_value = -1;
+    hid_t c_type_id;
+    hid_t c_base_type_id;
 
-  c_type_id = (hid_t)*type_id;
-  c_base_type_id = H5Tget_super(c_type_id);
-  if (c_base_type_id < 0) return ret_value;
+    c_type_id      = (hid_t)*type_id;
+    c_base_type_id = H5Tget_super(c_type_id);
+    if (c_base_type_id < 0)
+        return ret_value;
 
-  *base_type_id = (hid_t_f)c_base_type_id;
-  ret_value = 0;
-  return ret_value;
+    *base_type_id = (hid_t_f)c_base_type_id;
+    ret_value     = 0;
+    return ret_value;
 }
 
-
 /****if* H5Tf/h5tget_member_type_c
  * NAME
  *  h5tget_member_type_c
@@ -1507,22 +1537,22 @@ nh5tget_super_c ( hid_t_f *type_id , hid_t_f *base_type_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_member_type_c ( hid_t_f *type_id ,int_f* field_idx, hid_t_f * datatype)
+nh5tget_member_type_c(hid_t_f *type_id, int_f *field_idx, hid_t_f *datatype)
 /******/
 {
-  int ret_value = -1;
+    int ret_value = -1;
 
-  *datatype = (hid_t_f)H5Tget_member_type((hid_t)*type_id, (unsigned)*field_idx);
-  if(*datatype < 0) return ret_value;
+    *datatype = (hid_t_f)H5Tget_member_type((hid_t)*type_id, (unsigned)*field_idx);
+    if (*datatype < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
-
 /****if* H5Tf/h5tcreate_c
  * NAME
  *  h5tcreate_c
@@ -1539,24 +1569,25 @@ nh5tget_member_type_c ( hid_t_f *type_id ,int_f* field_idx, hid_t_f * datatype)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
 nh5tcreate_c(int_f *cls, size_t_f *size, hid_t_f *type_id)
 /******/
 {
-  int ret_value = -1;
-  H5T_class_t c_class;
-  size_t c_size;
+    int         ret_value = -1;
+    H5T_class_t c_class;
+    size_t      c_size;
 
-  c_size =(size_t) *size;
-  c_class = (H5T_class_t) *cls;
+    c_size  = (size_t)*size;
+    c_class = (H5T_class_t)*cls;
 
-  *type_id = (hid_t_f)H5Tcreate(c_class, c_size);
-  if(*type_id < 0) return ret_value;
+    *type_id = (hid_t_f)H5Tcreate(c_class, c_size);
+    if (*type_id < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tinsert_c
@@ -1578,28 +1609,29 @@ nh5tcreate_c(int_f *cls, size_t_f *size, hid_t_f *type_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tinsert_c(hid_t_f *type_id, _fcd name, int_f* namelen, size_t_f *offset, hid_t_f * field_id)
+nh5tinsert_c(hid_t_f *type_id, _fcd name, int_f *namelen, size_t_f *offset, hid_t_f *field_id)
 /******/
 {
-  int ret_value = -1;
-  char* c_name;
-  herr_t error;
+    int    ret_value = -1;
+    char * c_name;
+    herr_t error;
 
-  c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
-  if (c_name == NULL) return ret_value;
+    c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
+    if (c_name == NULL)
+        return ret_value;
 
-  error = H5Tinsert((hid_t)*type_id, c_name, (size_t)*offset, (hid_t)*field_id);
+    error = H5Tinsert((hid_t)*type_id, c_name, (size_t)*offset, (hid_t)*field_id);
 
-  HDfree(c_name);
-  if(error < 0) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    HDfree(c_name);
+    if (error < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
-
 /****if* H5Tf/h5tpack_c
  * NAME
  *  h5tpack_c
@@ -1617,22 +1649,23 @@ nh5tinsert_c(hid_t_f *type_id, _fcd name, int_f* namelen, size_t_f *offset, hid_
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tpack_c(hid_t_f * type_id)
+nh5tpack_c(hid_t_f *type_id)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  herr_t status;
+    int    ret_value = -1;
+    hid_t  c_type_id;
+    herr_t status;
 
-  c_type_id = *type_id;
-  status = H5Tpack(c_type_id);
-  if (status < 0) return ret_value;
+    c_type_id = *type_id;
+    status    = H5Tpack(c_type_id);
+    if (status < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tarray_create_c
@@ -1653,34 +1686,32 @@ nh5tpack_c(hid_t_f * type_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5tarray_create_c(hid_t_f * base_id, int_f *rank, hsize_t_f* dims, hid_t_f* type_id)
+nh5tarray_create_c(hid_t_f *base_id, int_f *rank, hsize_t_f *dims, hid_t_f *type_id)
 /******/
 {
-    hsize_t c_dims[H5S_MAX_RANK];
-    hid_t c_type_id;
-    unsigned u;                 /* Local index variable */
-    int ret_value = -1;
-
+    hsize_t  c_dims[H5S_MAX_RANK];
+    hid_t    c_type_id;
+    unsigned u; /* Local index variable */
+    int      ret_value = -1;
 
     /*
      * Transpose dimension arrays because of C-FORTRAN storage order
      */
-    for(u = 0; u < (unsigned)*rank ; u++)
-      c_dims[u] =  (hsize_t)dims[((unsigned)*rank - u) - 1];
+    for (u = 0; u < (unsigned)*rank; u++)
+        c_dims[u] = (hsize_t)dims[((unsigned)*rank - u) - 1];
 
-    if((c_type_id = H5Tarray_create2((hid_t)*base_id, (unsigned)*rank, c_dims)) < 0)
+    if ((c_type_id = H5Tarray_create2((hid_t)*base_id, (unsigned)*rank, c_dims)) < 0)
         goto DONE;
 
-    *type_id = (hid_t_f)c_type_id;
+    *type_id  = (hid_t_f)c_type_id;
     ret_value = 0;
 
 DONE:
     return ret_value;
 }
 
-
 /****if* H5Tf/h5tenum_create_c
  * NAME
  *  h5tenum_create_c
@@ -1699,20 +1730,21 @@ DONE:
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tenum_create_c ( hid_t_f *parent_id , hid_t_f *new_type_id)
+nh5tenum_create_c(hid_t_f *parent_id, hid_t_f *new_type_id)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_new_type_id;
+    int   ret_value = 0;
+    hid_t c_new_type_id;
 
-  c_new_type_id = H5Tenum_create((hid_t)*parent_id);
-  if ( c_new_type_id < 0  ) ret_value = -1;
+    c_new_type_id = H5Tenum_create((hid_t)*parent_id);
+    if (c_new_type_id < 0)
+        ret_value = -1;
 
-  *new_type_id = (hid_t_f)c_new_type_id;
-  return ret_value;
+    *new_type_id = (hid_t_f)c_new_type_id;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tenum_insert_c
@@ -1735,31 +1767,32 @@ nh5tenum_create_c ( hid_t_f *parent_id , hid_t_f *new_type_id)
  *  it should not be cast to an int (which might be 4 bytes). Instead the value
  *  is written as the size of an int_f.
  * SOURCE
-*/
+ */
 
 int_f
-nh5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value)
+nh5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *value)
 /******/
 {
-  int ret_value = -1;
-  char* c_name;
-  herr_t error;
-  int_f c_value;
+    int    ret_value = -1;
+    char * c_name;
+    herr_t error;
+    int_f  c_value;
 
-  c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
-  if (c_name == NULL) return ret_value;
+    c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
+    if (c_name == NULL)
+        return ret_value;
 
-  c_value = *value;
-  error = H5Tenum_insert((hid_t)*type_id, c_name, &c_value);
+    c_value = *value;
+    error   = H5Tenum_insert((hid_t)*type_id, c_name, &c_value);
 
-  HDfree(c_name);
-  if(error < 0) return ret_value;
+    HDfree(c_name);
+    if (error < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
-
 /****if* H5Tf/h5tenum_nameof_c
  * NAME
  *  h5tenum_nameof_c
@@ -1779,29 +1812,30 @@ nh5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tenum_nameof_c(hid_t_f *type_id, int_f* value, _fcd name, size_t_f* namelen)
+nh5tenum_nameof_c(hid_t_f *type_id, int_f *value, _fcd name, size_t_f *namelen)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  char* c_name;
-  size_t c_namelen;
-  herr_t error;
-  int_f c_value;
-  c_value = *value;
-  c_namelen = ((size_t)*namelen) +1;
-  c_name = (char *)HDmalloc(sizeof(char)*c_namelen);
-  c_type_id = (hid_t)*type_id;
-  error = H5Tenum_nameof(c_type_id, &c_value, c_name, c_namelen);
-  HD5packFstring(c_name, _fcdtocp(name), strlen(c_name));
-  HDfree(c_name);
-
-  if(error < 0) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    int    ret_value = -1;
+    hid_t  c_type_id;
+    char * c_name;
+    size_t c_namelen;
+    herr_t error;
+    int_f  c_value;
+    c_value   = *value;
+    c_namelen = ((size_t)*namelen) + 1;
+    c_name    = (char *)HDmalloc(sizeof(char) * c_namelen);
+    c_type_id = (hid_t)*type_id;
+    error     = H5Tenum_nameof(c_type_id, &c_value, c_name, c_namelen);
+    HD5packFstring(c_name, _fcdtocp(name), strlen(c_name));
+    HDfree(c_name);
+
+    if (error < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tenum_valueof_c
@@ -1823,26 +1857,27 @@ nh5tenum_nameof_c(hid_t_f *type_id, int_f* value, _fcd name, size_t_f* namelen)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value)
+nh5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *value)
 /******/
 {
-  int ret_value = -1;
-  char* c_name;
-  herr_t error;
-  c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
-  if (c_name == NULL) return ret_value;
-
-  error = H5Tenum_valueof((hid_t)*type_id, c_name, value);
-  HDfree(c_name);
-
-  if(error < 0) return ret_value;
-  ret_value = 0;
-  return ret_value;
-}
+    int    ret_value = -1;
+    char * c_name;
+    herr_t error;
+    c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
+    if (c_name == NULL)
+        return ret_value;
 
+    error = H5Tenum_valueof((hid_t)*type_id, c_name, value);
+    HDfree(c_name);
+
+    if (error < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
+}
 
 /****if* H5Tf/h5tget_member_value_c
  * NAME
@@ -1862,22 +1897,23 @@ nh5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_member_value_c(hid_t_f *type_id, int_f* member_no, int_f* value)
+nh5tget_member_value_c(hid_t_f *type_id, int_f *member_no, int_f *value)
 /******/
 {
-  int ret_value = -1;
-  int c_value;
-  herr_t error;
+    int    ret_value = -1;
+    int    c_value;
+    herr_t error;
 
-  error = H5Tget_member_value((hid_t)*type_id, (unsigned)*member_no, &c_value);
-  if(error < 0) return ret_value;
+    error = H5Tget_member_value((hid_t)*type_id, (unsigned)*member_no, &c_value);
+    if (error < 0)
+        return ret_value;
 
-  *value = (int_f)c_value;
-  ret_value = 0;
-  return ret_value;
+    *value    = (int_f)c_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tset_tag_c
@@ -1900,23 +1936,24 @@ nh5tget_member_value_c(hid_t_f *type_id, int_f* member_no, int_f* value)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5tset_tag_c(hid_t_f* type_id, _fcd tag, int_f* namelen)
+nh5tset_tag_c(hid_t_f *type_id, _fcd tag, int_f *namelen)
 /******/
 {
-  int ret_value = -1;
-  herr_t status;
-  char* c_tag;
+    int    ret_value = -1;
+    herr_t status;
+    char * c_tag;
 
-  c_tag = (char *)HD5f2cstring(tag, (size_t)*namelen);
+    c_tag = (char *)HD5f2cstring(tag, (size_t)*namelen);
 
-  status = H5Tset_tag((hid_t)*type_id, c_tag);
-  HDfree(c_tag);
-  if ( status < 0 ) return ret_value;
+    status = H5Tset_tag((hid_t)*type_id, c_tag);
+    HDfree(c_tag);
+    if (status < 0)
+        return ret_value;
 
-  ret_value = 0;
-  return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_tag_c
@@ -1938,24 +1975,25 @@ nh5tset_tag_c(hid_t_f* type_id, _fcd tag, int_f* namelen)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5tget_tag_c(hid_t_f* type_id, _fcd tag, size_t_f* tag_size, int_f* taglen)
+nh5tget_tag_c(hid_t_f *type_id, _fcd tag, size_t_f *tag_size, int_f *taglen)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  char *c_tag;
-
-  c_type_id = *type_id;
-  c_tag = H5Tget_tag(c_type_id);
-  if (c_tag == NULL ) return ret_value;
-
-  HD5packFstring(c_tag, _fcdtocp(tag), (size_t)*tag_size);
-  *taglen = (int_f)HDstrlen(c_tag);
-  H5free_memory(c_tag);
-  ret_value = 0;
-  return ret_value;
+    int   ret_value = -1;
+    hid_t c_type_id;
+    char *c_tag;
+
+    c_type_id = *type_id;
+    c_tag     = H5Tget_tag(c_type_id);
+    if (c_tag == NULL)
+        return ret_value;
+
+    HD5packFstring(c_tag, _fcdtocp(tag), (size_t)*tag_size);
+    *taglen = (int_f)HDstrlen(c_tag);
+    H5free_memory(c_tag);
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Tf/h5tvlen_create_c
  * NAME
@@ -1974,21 +2012,22 @@ nh5tget_tag_c(hid_t_f* type_id, _fcd tag, size_t_f* tag_size, int_f* taglen)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5tvlen_create_c(hid_t_f* type_id, hid_t_f *vltype_id)
+nh5tvlen_create_c(hid_t_f *type_id, hid_t_f *vltype_id)
 /******/
 {
-  int ret_value = -1;
-  hid_t c_type_id;
-  hid_t c_vltype_id;
-
-  c_type_id = (hid_t)*type_id;
-  c_vltype_id = H5Tvlen_create(c_type_id);
-  if (c_vltype_id < 0 ) return ret_value;
-  *vltype_id = (hid_t_f)c_vltype_id;
-  ret_value = 0;
-  return ret_value;
+    int   ret_value = -1;
+    hid_t c_type_id;
+    hid_t c_vltype_id;
+
+    c_type_id   = (hid_t)*type_id;
+    c_vltype_id = H5Tvlen_create(c_type_id);
+    if (c_vltype_id < 0)
+        return ret_value;
+    *vltype_id = (hid_t_f)c_vltype_id;
+    ret_value  = 0;
+    return ret_value;
 }
 /****if* H5Tf/h5tis_variable_str_c
  * NAME
@@ -2009,21 +2048,22 @@ nh5tvlen_create_c(hid_t_f* type_id, hid_t_f *vltype_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tis_variable_str_c ( hid_t_f *type_id , int_f *flag )
+nh5tis_variable_str_c(hid_t_f *type_id, int_f *flag)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_type_id;
-  htri_t status;
-
-  c_type_id = (hid_t)*type_id;
-  status = H5Tis_variable_str(c_type_id);
-  *flag = (int_f)status;
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
+    int    ret_value = 0;
+    hid_t  c_type_id;
+    htri_t status;
+
+    c_type_id = (hid_t)*type_id;
+    status    = H5Tis_variable_str(c_type_id);
+    *flag     = (int_f)status;
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
 }
 /****if* H5Tf/h5tget_member_class_c
  * NAME
@@ -2045,24 +2085,25 @@ nh5tis_variable_str_c ( hid_t_f *type_id , int_f *flag )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_member_class_c ( hid_t_f *type_id ,  int_f *member_no, int_f *cls )
+nh5tget_member_class_c(hid_t_f *type_id, int_f *member_no, int_f *cls)
 /******/
 {
-  int ret_value = 0;
-  hid_t c_type_id;
-  unsigned c_member_no;
-  H5T_class_t c_class;
-
-  c_type_id = (hid_t)*type_id;
-  c_member_no = (unsigned)*member_no;
-  c_class = H5Tget_member_class(c_type_id, c_member_no);
-
-  if ( c_class == H5T_NO_CLASS  ) ret_value = -1;
-  *cls = (int_f)c_class;
-  return ret_value;
+    int         ret_value = 0;
+    hid_t       c_type_id;
+    unsigned    c_member_no;
+    H5T_class_t c_class;
+
+    c_type_id   = (hid_t)*type_id;
+    c_member_no = (unsigned)*member_no;
+    c_class     = H5Tget_member_class(c_type_id, c_member_no);
+
+    if (c_class == H5T_NO_CLASS)
+        ret_value = -1;
+    *cls = (int_f)c_class;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tcommit_anon_c
@@ -2083,22 +2124,21 @@ nh5tget_member_class_c ( hid_t_f *type_id ,  int_f *member_no, int_f *cls )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5tcommit_anon_c(hid_t_f *loc_id, hid_t_f *dtype_id,
-		  hid_t_f *tcpl_id, hid_t_f *tapl_id)
+nh5tcommit_anon_c(hid_t_f *loc_id, hid_t_f *dtype_id, hid_t_f *tcpl_id, hid_t_f *tapl_id)
 /******/
 {
-  int ret_value = -1;
+    int ret_value = -1;
 
-  /* Call H5Tcommit_anon function */
-  if(H5Tcommit_anon((hid_t)*loc_id, (hid_t)*dtype_id, (hid_t)*tcpl_id, (hid_t)*tapl_id) < 0)
-    goto done;
+    /* Call H5Tcommit_anon function */
+    if (H5Tcommit_anon((hid_t)*loc_id, (hid_t)*dtype_id, (hid_t)*tcpl_id, (hid_t)*tapl_id) < 0)
+        goto done;
 
-  ret_value = 0;
+    ret_value = 0;
 
- done:
-  return ret_value;
+done:
+    return ret_value;
 }
 
 /****if* H5Tf/h5tcommitted_c
@@ -2117,19 +2157,18 @@ nh5tcommit_anon_c(hid_t_f *loc_id, hid_t_f *dtype_id,
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
 nh5tcommitted_c(hid_t_f *dtype_id)
 /******/
 {
-  int_f ret_value;
+    int_f ret_value;
 
-  /* Call H5Tcommitted function */
+    /* Call H5Tcommitted function */
 
-  ret_value=(int_f)H5Tcommitted((hid_t)*dtype_id);
-
-  return ret_value;
+    ret_value = (int_f)H5Tcommitted((hid_t)*dtype_id);
 
+    return ret_value;
 }
 
 /****if* H5Tf/h5tdecode_c
@@ -2152,30 +2191,30 @@ nh5tcommitted_c(hid_t_f *dtype_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tdecode_c ( _fcd buf, hid_t_f *obj_id )
+nh5tdecode_c(_fcd buf, hid_t_f *obj_id)
 /******/
 {
-  int ret_value = -1;
-  unsigned char *c_buf = NULL;  /* Buffer to hold C string */
-  hid_t c_obj_id;
+    int            ret_value = -1;
+    unsigned char *c_buf     = NULL; /* Buffer to hold C string */
+    hid_t          c_obj_id;
 
-  /*
-   * Call H5Tdecode function.
-   */
+    /*
+     * Call H5Tdecode function.
+     */
 
-  c_buf = (unsigned char*)buf;
+    c_buf = (unsigned char *)buf;
 
-  c_obj_id = H5Tdecode(c_buf);
-  if(c_obj_id < 0)
-    return ret_value;
+    c_obj_id = H5Tdecode(c_buf);
+    if (c_obj_id < 0)
+        return ret_value;
 
-  *obj_id = (hid_t_f)c_obj_id;
-  ret_value = 0;
+    *obj_id   = (hid_t_f)c_obj_id;
+    ret_value = 0;
 
-  return ret_value;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tencode_c
@@ -2196,56 +2235,56 @@ nh5tdecode_c ( _fcd buf, hid_t_f *obj_id )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tencode_c (_fcd buf, hid_t_f *obj_id, size_t_f *nalloc )
+nh5tencode_c(_fcd buf, hid_t_f *obj_id, size_t_f *nalloc)
 /******/
 {
-  int ret_value = -1;
-  unsigned char *c_buf = NULL;          /* Buffer to hold C string */
-  size_t c_size;
+    int            ret_value = -1;
+    unsigned char *c_buf     = NULL; /* Buffer to hold C string */
+    size_t         c_size;
 
-  /* return just the size of the allocated buffer;
-   * equivalent to C routine for which 'name' is set equal to NULL
-   */
+    /* return just the size of the allocated buffer;
+     * equivalent to C routine for which 'name' is set equal to NULL
+     */
 
-  if (*nalloc == 0) {
+    if (*nalloc == 0) {
 
-    if(H5Tencode((hid_t)*obj_id, c_buf, &c_size) < 0)
-      return ret_value;
+        if (H5Tencode((hid_t)*obj_id, c_buf, &c_size) < 0)
+            return ret_value;
 
-    *nalloc = (size_t_f)c_size;
+        *nalloc = (size_t_f)c_size;
 
-    ret_value = 0;
-    return ret_value;
-  }
+        ret_value = 0;
+        return ret_value;
+    }
 
-  /*
-   * Allocate buffer
-   */
-  c_size = (size_t)*nalloc;
-  if(NULL == (c_buf = (unsigned char *)HDmalloc(c_size)))
-    return ret_value;
+    /*
+     * Allocate buffer
+     */
+    c_size = (size_t)*nalloc;
+    if (NULL == (c_buf = (unsigned char *)HDmalloc(c_size)))
+        return ret_value;
 
-  /*
-   * Call H5Tencode function.
-   */
-  if(H5Tencode((hid_t)*obj_id, c_buf, &c_size) < 0)
-    return ret_value;
+    /*
+     * Call H5Tencode function.
+     */
+    if (H5Tencode((hid_t)*obj_id, c_buf, &c_size) < 0)
+        return ret_value;
 
-  /* copy the C buffer to the FORTRAN buffer.
-   * Can not use HD5packFstring because we don't want to
-   * eliminate the NUL terminator or pad remaining space
-   * with blanks.
-   */
+    /* copy the C buffer to the FORTRAN buffer.
+     * Can not use HD5packFstring because we don't want to
+     * eliminate the NUL terminator or pad remaining space
+     * with blanks.
+     */
 
-  HDmemcpy(_fcdtocp(buf),(char *)c_buf,c_size);
+    HDmemcpy(_fcdtocp(buf), (char *)c_buf, c_size);
 
-  ret_value = 0;
-  if(c_buf)
-      HDfree(c_buf);
-  return ret_value;
+    ret_value = 0;
+    if (c_buf)
+        HDfree(c_buf);
+    return ret_value;
 }
 
 /****if* H5Tf/h5tget_create_plist_c
@@ -2265,13 +2304,13 @@ nh5tencode_c (_fcd buf, hid_t_f *obj_id, size_t_f *nalloc )
  * HISTORY
  * N/A
  * SOURCE
-*/
+ */
 
 int_f
-nh5tget_create_plist_c ( hid_t_f *dtype_id,  hid_t_f *dtpl_id)
+nh5tget_create_plist_c(hid_t_f *dtype_id, hid_t_f *dtpl_id)
 /******/
 {
-    int_f ret_value=-1;          /* Return value */
+    int_f ret_value = -1; /* Return value */
 
     if ((*dtpl_id = (hid_t_f)H5Tget_create_plist((hid_t)*dtype_id)) < 0)
         return ret_value;
@@ -2299,20 +2338,21 @@ nh5tget_create_plist_c ( hid_t_f *dtype_id,  hid_t_f *dtpl_id)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5tcompiler_conv_c ( hid_t_f *src_id, hid_t_f *dst_id, int_f *c_flag)
+nh5tcompiler_conv_c(hid_t_f *src_id, hid_t_f *dst_id, int_f *c_flag)
 /******/
 {
-  int ret_value = -1;
-  htri_t status;
-
-  status = H5Tcompiler_conv( (hid_t)*src_id , (hid_t)*dst_id);
-  if ( status < 0  ) return ret_value;
-  *c_flag = (int_f)status;
-  ret_value = 0;
-  return ret_value;
+    int    ret_value = -1;
+    htri_t status;
+
+    status = H5Tcompiler_conv((hid_t)*src_id, (hid_t)*dst_id);
+    if (status < 0)
+        return ret_value;
+    *c_flag   = (int_f)status;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Tf/h5tget_native_type_c
  * NAME
@@ -2333,20 +2373,21 @@ nh5tcompiler_conv_c ( hid_t_f *src_id, hid_t_f *dst_id, int_f *c_flag)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
 nh5tget_native_type_c(hid_t_f *dtype_id, int_f *direction, hid_t_f *native_dtype_id)
 /******/
 {
-  int ret_value = -1;
-  hid_t status;
-
-  status = H5Tget_native_type( (hid_t)*dtype_id, (H5T_direction_t)*direction);
-  if ( status < 0  ) return ret_value;
-  *native_dtype_id = (hid_t_f)status;
-  ret_value = 0;
-  return ret_value;
+    int   ret_value = -1;
+    hid_t status;
+
+    status = H5Tget_native_type((hid_t)*dtype_id, (H5T_direction_t)*direction);
+    if (status < 0)
+        return ret_value;
+    *native_dtype_id = (hid_t_f)status;
+    ret_value        = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tconvert_c
@@ -2373,18 +2414,20 @@ nh5tget_native_type_c(hid_t_f *dtype_id, int_f *direction, hid_t_f *native_dtype
  *  December 8, 2008
  *
  * SOURCE
-*/
+ */
 int_f
-h5tconvert_c(hid_t_f *src_id, hid_t_f *dst_id, size_t_f *nelmts, void *buf, void *background, hid_t_f *plist_id)
+h5tconvert_c(hid_t_f *src_id, hid_t_f *dst_id, size_t_f *nelmts, void *buf, void *background,
+             hid_t_f *plist_id)
 /******/
 {
-  int ret_value = -1;
-  hid_t status;
+    int   ret_value = -1;
+    hid_t status;
 
-  status = H5Tconvert( (hid_t)*src_id, (hid_t)*dst_id, (size_t)*nelmts, buf, background, (hid_t)*plist_id );
-  if ( status < 0  ) return ret_value;
-  ret_value = 0;
-  return ret_value;
+    status = H5Tconvert((hid_t)*src_id, (hid_t)*dst_id, (size_t)*nelmts, buf, background, (hid_t)*plist_id);
+    if (status < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 
 /****if* H5Tf/h5tenum_insert_ptr_c
@@ -2406,25 +2449,25 @@ h5tconvert_c(hid_t_f *src_id, hid_t_f *dst_id, size_t_f *nelmts, void *buf, void
  *  February 6, 2015
  *
  * SOURCE
-*/
+ */
 int_f
-h5tenum_insert_ptr_c(hid_t_f *type_id, _fcd name, int_f* namelen, void *value)
+h5tenum_insert_ptr_c(hid_t_f *type_id, _fcd name, int_f *namelen, void *value)
 /******/
 {
-  int ret_value = -1;
-  hid_t status;
-  char *c_name;
-
-  /*
-   * Convert FORTRAN name to C name
-   */
-  c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
-  if (c_name == NULL) return ret_value;
-
-  status = H5Tenum_insert( (hid_t)*type_id, c_name, value);
-  if ( status < 0  ) return ret_value;
-  ret_value = 0;
-  return ret_value;
-}
+    int   ret_value = -1;
+    hid_t status;
+    char *c_name;
 
+    /*
+     * Convert FORTRAN name to C name
+     */
+    c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
+    if (c_name == NULL)
+        return ret_value;
 
+    status = H5Tenum_insert((hid_t)*type_id, c_name, value);
+    if (status < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
+}
diff --git a/fortran/src/H5Zf.c b/fortran/src/H5Zf.c
index ba3c05f..c432b7b 100644
--- a/fortran/src/H5Zf.c
+++ b/fortran/src/H5Zf.c
@@ -17,7 +17,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 
@@ -36,23 +36,24 @@
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-nh5zunregister_c (int_f *filter)
+nh5zunregister_c(int_f *filter)
 /******/
 {
-     int ret_value = -1;
-     herr_t status;
-     H5Z_filter_t c_filter;
+    int          ret_value = -1;
+    herr_t       status;
+    H5Z_filter_t c_filter;
 
-     /*
-      * Call H5Zunregister function.
-      */
-     c_filter = (H5Z_filter_t)*filter;
-     status = H5Zunregister(c_filter);
-     if (status < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    /*
+     * Call H5Zunregister function.
+     */
+    c_filter = (H5Z_filter_t)*filter;
+    status   = H5Zunregister(c_filter);
+    if (status < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Zf/h5zfiletr_avail_c
  * NAME
@@ -71,21 +72,22 @@ nh5zunregister_c (int_f *filter)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5zfilter_avail_c ( int_f *filter , int_f *flag )
+nh5zfilter_avail_c(int_f *filter, int_f *flag)
 /******/
 {
-  int ret_value = 0;
-  H5Z_filter_t c_filter;
-  htri_t status;
+    int          ret_value = 0;
+    H5Z_filter_t c_filter;
+    htri_t       status;
 
-  c_filter = (H5Z_filter_t)*filter;
-  status = H5Zfilter_avail(c_filter);
-  *flag = (int_f)status;
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
+    c_filter = (H5Z_filter_t)*filter;
+    status   = H5Zfilter_avail(c_filter);
+    *flag    = (int_f)status;
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Zf/h5zget_filter_info_c
@@ -106,19 +108,19 @@ nh5zfilter_avail_c ( int_f *filter , int_f *flag )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-nh5zget_filter_info_c ( int_f *filter , int_f *flag )
+nh5zget_filter_info_c(int_f *filter, int_f *flag)
 /******/
 {
-  int ret_value = 0;
-  H5Z_filter_t c_filter;
-  unsigned int c_flag;
+    int          ret_value = 0;
+    H5Z_filter_t c_filter;
+    unsigned int c_flag;
 
-  c_filter = (H5Z_filter_t)*filter;
-  ret_value = H5Zget_filter_info(c_filter, &c_flag);
-  *flag = (int_f)c_flag;
+    c_filter  = (H5Z_filter_t)*filter;
+    ret_value = H5Zget_filter_info(c_filter, &c_flag);
+    *flag     = (int_f)c_flag;
 
-  return ret_value;
+    return ret_value;
 }
diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c
index 174676e..895fb04 100644
--- a/fortran/src/H5_f.c
+++ b/fortran/src/H5_f.c
@@ -17,7 +17,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 
@@ -45,219 +45,291 @@
  *  Elena Pourmal
  *  Tuesday, August 3, 1999
  * SOURCE
-*/
+ */
 int_f
-nh5init_types_c( hid_t_f * types, hid_t_f * floatingtypes, hid_t_f * integertypes )
+nh5init_types_c(hid_t_f *types, hid_t_f *floatingtypes, hid_t_f *integertypes)
 /******/
 {
-    int ret_value = -1;
-    hid_t c_type_id;
+    int    ret_value = -1;
+    hid_t  c_type_id;
     size_t tmp_val;
 
-/* Fortran INTEGER is may not be the same as C in; do all checking to find
-   an appropriate size
-*/
+    /* Fortran INTEGER is may not be the same as C in; do all checking to find
+       an appropriate size
+    */
     if (sizeof(int_f) == sizeof(int)) {
-    if ((types[0] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0) return ret_value;
+        if ((types[0] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_f) == sizeof(long)) {
-    if ((types[0] = (hid_t_f)H5Tcopy(H5T_NATIVE_LONG)) < 0) return ret_value;
+        if ((types[0] = (hid_t_f)H5Tcopy(H5T_NATIVE_LONG)) < 0)
+            return ret_value;
     } /*end if */
-    else
-    if (sizeof(int_f) == sizeof(long long)) {
-    if ((types[0] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0) return ret_value;
+    else if (sizeof(int_f) == sizeof(long long)) {
+        if ((types[0] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0)
+            return ret_value;
     } /*end else */
 
     /* Find appropriate size to store Fortran REAL */
-    if(sizeof(real_f)==sizeof(float)) {
-        if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0) return ret_value;
+    if (sizeof(real_f) == sizeof(float)) {
+        if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0)
+            return ret_value;
     } /* end if */
-    else if(sizeof(real_f)==sizeof(double)){
-        if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
+    else if (sizeof(real_f) == sizeof(double)) {
+        if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0)
+            return ret_value;
     } /* end if */
-#if H5_SIZEOF_LONG_DOUBLE!=0
+#if H5_SIZEOF_LONG_DOUBLE != 0
     else if (sizeof(real_f) == sizeof(long double)) {
-        if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0) return ret_value;
+        if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0)
+            return ret_value;
     } /* end else */
 #endif
 
     /* Find appropriate size to store Fortran DOUBLE */
-    if(sizeof(double_f)==sizeof(double)) {
-       if ((types[2] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
-    }/*end if */
-#if H5_SIZEOF_LONG_DOUBLE!=0
-    else if(sizeof(double_f)==sizeof(long double)) {
-       if ((types[2] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0) return ret_value;
-    }/*end else */
+    if (sizeof(double_f) == sizeof(double)) {
+        if ((types[2] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0)
+            return ret_value;
+    } /*end if */
+#if H5_SIZEOF_LONG_DOUBLE != 0
+    else if (sizeof(double_f) == sizeof(long double)) {
+        if ((types[2] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0)
+            return ret_value;
+    } /*end else */
 #endif
 
-/*
-    if ((types[3] = H5Tcopy(H5T_NATIVE_UINT8)) < 0) return ret_value;
-*/
-    if ((c_type_id = H5Tcopy(H5T_FORTRAN_S1)) < 0) return ret_value;
+    /*
+        if ((types[3] = H5Tcopy(H5T_NATIVE_UINT8)) < 0) return ret_value;
+    */
+    if ((c_type_id = H5Tcopy(H5T_FORTRAN_S1)) < 0)
+        return ret_value;
     tmp_val = 1;
-    if(H5Tset_size(c_type_id, tmp_val) < 0) return ret_value;
-    if(H5Tset_strpad(c_type_id, H5T_STR_SPACEPAD) < 0) return ret_value;
+    if (H5Tset_size(c_type_id, tmp_val) < 0)
+        return ret_value;
+    if (H5Tset_strpad(c_type_id, H5T_STR_SPACEPAD) < 0)
+        return ret_value;
     types[3] = (hid_t_f)c_type_id;
 
-/*
-    if ((types[3] = H5Tcopy(H5T_C_S1)) < 0) return ret_value;
-    if(H5Tset_strpad(types[3],H5T_STR_NULLTERM) < 0) return ret_value;
-    if(H5Tset_size(types[3],1) < 0) return ret_value;
-*/
-
+    /*
+        if ((types[3] = H5Tcopy(H5T_C_S1)) < 0) return ret_value;
+        if(H5Tset_strpad(types[3],H5T_STR_NULLTERM) < 0) return ret_value;
+        if(H5Tset_size(types[3],1) < 0) return ret_value;
+    */
 
-/*    if ((types[3] = H5Tcopy(H5T_STD_I8BE)) < 0) return ret_value;
-*/
-    if ((types[4] = (hid_t_f)H5Tcopy(H5T_STD_REF_OBJ)) < 0) return ret_value;
-    if ((types[5] = (hid_t_f)H5Tcopy(H5T_STD_REF_DSETREG)) < 0) return ret_value;
+    /*    if ((types[3] = H5Tcopy(H5T_STD_I8BE)) < 0) return ret_value;
+     */
+    if ((types[4] = (hid_t_f)H5Tcopy(H5T_STD_REF_OBJ)) < 0)
+        return ret_value;
+    if ((types[5] = (hid_t_f)H5Tcopy(H5T_STD_REF_DSETREG)) < 0)
+        return ret_value;
     /*
      * FIND H5T_NATIVE_INTEGER_1
      */
     if (sizeof(int_1_f) == sizeof(char)) {
-      if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_CHAR)) < 0) return ret_value;
+        if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_CHAR)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_1_f) == sizeof(short)) {
-      if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_SHORT)) < 0) return ret_value;
+        if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_SHORT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_1_f) == sizeof(int)) {
-      if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0) return ret_value;
+        if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_1_f) == sizeof(long long)) {
-	if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0) return ret_value;
+        if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0)
+            return ret_value;
     } /*end else */
     /*
      * FIND H5T_NATIVE_INTEGER_2
      */
     if (sizeof(int_2_f) == sizeof(char)) {
-      if ((types[7] = (hid_t_f)H5Tcopy(H5T_NATIVE_CHAR)) < 0) return ret_value;
+        if ((types[7] = (hid_t_f)H5Tcopy(H5T_NATIVE_CHAR)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_2_f) == sizeof(short)) {
-      if ((types[7] = (hid_t_f)H5Tcopy(H5T_NATIVE_SHORT)) < 0) return ret_value;
+        if ((types[7] = (hid_t_f)H5Tcopy(H5T_NATIVE_SHORT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_2_f) == sizeof(int)) {
-      if ((types[7] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0) return ret_value;
+        if ((types[7] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_2_f) == sizeof(long long)) {
-	if ((types[7] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0) return ret_value;
+        if ((types[7] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0)
+            return ret_value;
     } /*end else */
     /*
      * FIND H5T_NATIVE_INTEGER_4
      */
     if (sizeof(int_4_f) == sizeof(char)) {
-      if ((types[8] = (hid_t_f)H5Tcopy(H5T_NATIVE_CHAR)) < 0) return ret_value;
+        if ((types[8] = (hid_t_f)H5Tcopy(H5T_NATIVE_CHAR)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_4_f) == sizeof(short)) {
-      if ((types[8] = (hid_t_f)H5Tcopy(H5T_NATIVE_SHORT)) < 0) return ret_value;
+        if ((types[8] = (hid_t_f)H5Tcopy(H5T_NATIVE_SHORT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_4_f) == sizeof(int)) {
-      if ((types[8] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0) return ret_value;
+        if ((types[8] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_4_f) == sizeof(long long)) {
-	if ((types[8] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0) return ret_value;
+        if ((types[8] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0)
+            return ret_value;
     } /*end else */
     /*
      * FIND H5T_NATIVE_INTEGER_8
      */
     if (sizeof(int_8_f) == sizeof(char)) {
-      if ((types[9] = (hid_t_f)H5Tcopy(H5T_NATIVE_CHAR)) < 0) return ret_value;
+        if ((types[9] = (hid_t_f)H5Tcopy(H5T_NATIVE_CHAR)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_8_f) == sizeof(short)) {
-      if ((types[9] = (hid_t_f)H5Tcopy(H5T_NATIVE_SHORT)) < 0) return ret_value;
+        if ((types[9] = (hid_t_f)H5Tcopy(H5T_NATIVE_SHORT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_8_f) == sizeof(int)) {
-      if ((types[9] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0) return ret_value;
+        if ((types[9] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_8_f) == sizeof(long long)) {
-	if ((types[9] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0) return ret_value;
+        if ((types[9] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0)
+            return ret_value;
     } /*end else */
     /*
      * FIND H5T_NATIVE_REAL_4
      */
     if (sizeof(real_4_f) == sizeof(float)) {
-      if ((types[10] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0) return ret_value;
+        if ((types[10] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(real_4_f) == sizeof(double)) {
-      if ((types[10] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
+        if ((types[10] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0)
+            return ret_value;
     } /*end if */
-#if H5_SIZEOF_LONG_DOUBLE!=0
+#if H5_SIZEOF_LONG_DOUBLE != 0
     else if (sizeof(real_4_f) == sizeof(long double)) {
-	if ((types[10] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0) return ret_value;
+        if ((types[10] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0)
+            return ret_value;
     } /*end else */
 #endif
     /*
      * FIND H5T_NATIVE_REAL_8
      */
     if (sizeof(real_8_f) == sizeof(float)) {
-      if ((types[11] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0) return ret_value;
+        if ((types[11] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(real_8_f) == sizeof(double)) {
-      if ((types[11] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
+        if ((types[11] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0)
+            return ret_value;
     } /*end if */
-#if H5_SIZEOF_LONG_DOUBLE!=0
+#if H5_SIZEOF_LONG_DOUBLE != 0
     else if (sizeof(real_8_f) == sizeof(long double)) {
-	if ((types[11] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0) return ret_value;
+        if ((types[11] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0)
+            return ret_value;
     } /*end else */
 #endif
     /*
      * FIND H5T_NATIVE_REAL_16
      */
     if (sizeof(real_16_f) == sizeof(float)) {
-      if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0) return ret_value;
+        if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(real_16_f) == sizeof(double)) {
-      if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
+        if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0)
+            return ret_value;
     } /*end if */
-#if H5_SIZEOF_LONG_DOUBLE!=0
+#if H5_SIZEOF_LONG_DOUBLE != 0
     else if (sizeof(real_16_f) == sizeof(long double)) {
-	if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0) return ret_value;
+        if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0)
+            return ret_value;
     } /*end else */
 #endif
     /*
      * FIND H5T_NATIVE_B_8
      */
-    if ((types[13] = (hid_t_f)H5Tcopy(H5T_NATIVE_B8))  < 0) return ret_value;
-    if ((types[14] = (hid_t_f)H5Tcopy(H5T_NATIVE_B16)) < 0) return ret_value;
-    if ((types[15] = (hid_t_f)H5Tcopy(H5T_NATIVE_B32)) < 0) return ret_value;
-    if ((types[16] = (hid_t_f)H5Tcopy(H5T_NATIVE_B64)) < 0) return ret_value;  
-
-    if ((floatingtypes[0] = (hid_t_f)H5Tcopy(H5T_IEEE_F32BE)) < 0) return ret_value;
-    if ((floatingtypes[1] = (hid_t_f)H5Tcopy(H5T_IEEE_F32LE)) < 0) return ret_value;
-    if ((floatingtypes[2] = (hid_t_f)H5Tcopy(H5T_IEEE_F64BE)) < 0) return ret_value;
-    if ((floatingtypes[3] = (hid_t_f)H5Tcopy(H5T_IEEE_F64LE)) < 0) return ret_value;
-
-    if ((integertypes[0] = (hid_t_f)H5Tcopy(H5T_STD_I8BE)) < 0) return ret_value;
-    if ((integertypes[1] = (hid_t_f)H5Tcopy(H5T_STD_I8LE)) < 0) return ret_value;
-    if ((integertypes[2] = (hid_t_f)H5Tcopy(H5T_STD_I16BE)) < 0) return ret_value;
-    if ((integertypes[3] = (hid_t_f)H5Tcopy(H5T_STD_I16LE)) < 0) return ret_value;
-    if ((integertypes[4] = (hid_t_f)H5Tcopy(H5T_STD_I32BE)) < 0) return ret_value;
-    if ((integertypes[5] = (hid_t_f)H5Tcopy(H5T_STD_I32LE)) < 0) return ret_value;
-    if ((integertypes[6] = (hid_t_f)H5Tcopy(H5T_STD_I64BE)) < 0) return ret_value;
-    if ((integertypes[7] = (hid_t_f)H5Tcopy(H5T_STD_I64LE)) < 0) return ret_value;
-    if ((integertypes[8] = (hid_t_f)H5Tcopy(H5T_STD_U8BE)) < 0) return ret_value;
-    if ((integertypes[9] = (hid_t_f)H5Tcopy(H5T_STD_U8LE)) < 0) return ret_value;
-    if ((integertypes[10] = (hid_t_f)H5Tcopy(H5T_STD_U16BE)) < 0) return ret_value;
-    if ((integertypes[11] = (hid_t_f)H5Tcopy(H5T_STD_U16LE)) < 0) return ret_value;
-    if ((integertypes[12] = (hid_t_f)H5Tcopy(H5T_STD_U32BE)) < 0) return ret_value;
-    if ((integertypes[13] = (hid_t_f)H5Tcopy(H5T_STD_U32LE)) < 0) return ret_value;
-    if ((integertypes[14] = (hid_t_f)H5Tcopy(H5T_STD_U64BE)) < 0) return ret_value;
-    if ((integertypes[15] = (hid_t_f)H5Tcopy(H5T_STD_U64LE)) < 0) return ret_value;	
-    if ((integertypes[17] = (hid_t_f)H5Tcopy(H5T_STD_B8BE)) < 0) return ret_value;
-    if ((integertypes[18] = (hid_t_f)H5Tcopy(H5T_STD_B8LE)) < 0) return ret_value;
-    if ((integertypes[19] = (hid_t_f)H5Tcopy(H5T_STD_B16BE)) < 0) return ret_value;
-    if ((integertypes[20] = (hid_t_f)H5Tcopy(H5T_STD_B16LE)) < 0) return ret_value;
-    if ((integertypes[21] = (hid_t_f)H5Tcopy(H5T_STD_B32BE)) < 0) return ret_value;
-    if ((integertypes[22] = (hid_t_f)H5Tcopy(H5T_STD_B32LE)) < 0) return ret_value;
-    if ((integertypes[23] = (hid_t_f)H5Tcopy(H5T_STD_B64BE)) < 0) return ret_value;
-    if ((integertypes[24] = (hid_t_f)H5Tcopy(H5T_STD_B64LE)) < 0) return ret_value;
-    if ((integertypes[25] = (hid_t_f)H5Tcopy(H5T_FORTRAN_S1)) < 0) return ret_value;
-    if ((integertypes[26] = (hid_t_f)H5Tcopy(H5T_C_S1)) < 0) return ret_value;
-
-/*
- *  Define Fortran H5T_STRING type to store non-fixed size strings
- */
-    if ((c_type_id = H5Tcopy(H5T_C_S1)) < 0) return ret_value;
-    if(H5Tset_size(c_type_id, H5T_VARIABLE) < 0) return ret_value;
+    if ((types[13] = (hid_t_f)H5Tcopy(H5T_NATIVE_B8)) < 0)
+        return ret_value;
+    if ((types[14] = (hid_t_f)H5Tcopy(H5T_NATIVE_B16)) < 0)
+        return ret_value;
+    if ((types[15] = (hid_t_f)H5Tcopy(H5T_NATIVE_B32)) < 0)
+        return ret_value;
+    if ((types[16] = (hid_t_f)H5Tcopy(H5T_NATIVE_B64)) < 0)
+        return ret_value;
+
+    if ((floatingtypes[0] = (hid_t_f)H5Tcopy(H5T_IEEE_F32BE)) < 0)
+        return ret_value;
+    if ((floatingtypes[1] = (hid_t_f)H5Tcopy(H5T_IEEE_F32LE)) < 0)
+        return ret_value;
+    if ((floatingtypes[2] = (hid_t_f)H5Tcopy(H5T_IEEE_F64BE)) < 0)
+        return ret_value;
+    if ((floatingtypes[3] = (hid_t_f)H5Tcopy(H5T_IEEE_F64LE)) < 0)
+        return ret_value;
+
+    if ((integertypes[0] = (hid_t_f)H5Tcopy(H5T_STD_I8BE)) < 0)
+        return ret_value;
+    if ((integertypes[1] = (hid_t_f)H5Tcopy(H5T_STD_I8LE)) < 0)
+        return ret_value;
+    if ((integertypes[2] = (hid_t_f)H5Tcopy(H5T_STD_I16BE)) < 0)
+        return ret_value;
+    if ((integertypes[3] = (hid_t_f)H5Tcopy(H5T_STD_I16LE)) < 0)
+        return ret_value;
+    if ((integertypes[4] = (hid_t_f)H5Tcopy(H5T_STD_I32BE)) < 0)
+        return ret_value;
+    if ((integertypes[5] = (hid_t_f)H5Tcopy(H5T_STD_I32LE)) < 0)
+        return ret_value;
+    if ((integertypes[6] = (hid_t_f)H5Tcopy(H5T_STD_I64BE)) < 0)
+        return ret_value;
+    if ((integertypes[7] = (hid_t_f)H5Tcopy(H5T_STD_I64LE)) < 0)
+        return ret_value;
+    if ((integertypes[8] = (hid_t_f)H5Tcopy(H5T_STD_U8BE)) < 0)
+        return ret_value;
+    if ((integertypes[9] = (hid_t_f)H5Tcopy(H5T_STD_U8LE)) < 0)
+        return ret_value;
+    if ((integertypes[10] = (hid_t_f)H5Tcopy(H5T_STD_U16BE)) < 0)
+        return ret_value;
+    if ((integertypes[11] = (hid_t_f)H5Tcopy(H5T_STD_U16LE)) < 0)
+        return ret_value;
+    if ((integertypes[12] = (hid_t_f)H5Tcopy(H5T_STD_U32BE)) < 0)
+        return ret_value;
+    if ((integertypes[13] = (hid_t_f)H5Tcopy(H5T_STD_U32LE)) < 0)
+        return ret_value;
+    if ((integertypes[14] = (hid_t_f)H5Tcopy(H5T_STD_U64BE)) < 0)
+        return ret_value;
+    if ((integertypes[15] = (hid_t_f)H5Tcopy(H5T_STD_U64LE)) < 0)
+        return ret_value;
+    if ((integertypes[17] = (hid_t_f)H5Tcopy(H5T_STD_B8BE)) < 0)
+        return ret_value;
+    if ((integertypes[18] = (hid_t_f)H5Tcopy(H5T_STD_B8LE)) < 0)
+        return ret_value;
+    if ((integertypes[19] = (hid_t_f)H5Tcopy(H5T_STD_B16BE)) < 0)
+        return ret_value;
+    if ((integertypes[20] = (hid_t_f)H5Tcopy(H5T_STD_B16LE)) < 0)
+        return ret_value;
+    if ((integertypes[21] = (hid_t_f)H5Tcopy(H5T_STD_B32BE)) < 0)
+        return ret_value;
+    if ((integertypes[22] = (hid_t_f)H5Tcopy(H5T_STD_B32LE)) < 0)
+        return ret_value;
+    if ((integertypes[23] = (hid_t_f)H5Tcopy(H5T_STD_B64BE)) < 0)
+        return ret_value;
+    if ((integertypes[24] = (hid_t_f)H5Tcopy(H5T_STD_B64LE)) < 0)
+        return ret_value;
+    if ((integertypes[25] = (hid_t_f)H5Tcopy(H5T_FORTRAN_S1)) < 0)
+        return ret_value;
+    if ((integertypes[26] = (hid_t_f)H5Tcopy(H5T_C_S1)) < 0)
+        return ret_value;
+
+    /*
+     *  Define Fortran H5T_STRING type to store non-fixed size strings
+     */
+    if ((c_type_id = H5Tcopy(H5T_C_S1)) < 0)
+        return ret_value;
+    if (H5Tset_size(c_type_id, H5T_VARIABLE) < 0)
+        return ret_value;
     integertypes[16] = c_type_id;
 
     ret_value = 0;
@@ -298,26 +370,28 @@ nh5init_types_c( hid_t_f * types, hid_t_f * floatingtypes, hid_t_f * integertype
  * SOURCE
  */
 int_f
-nh5close_types_c( hid_t_f * types, int_f *lentypes,
-                  hid_t_f * floatingtypes, int_f* floatinglen,
-                  hid_t_f * integertypes,  int_f * integerlen )
+nh5close_types_c(hid_t_f *types, int_f *lentypes, hid_t_f *floatingtypes, int_f *floatinglen,
+                 hid_t_f *integertypes, int_f *integerlen)
 /******/
 {
-    int ret_value = -1;
+    int   ret_value = -1;
     hid_t c_type_id;
-    int i;
+    int   i;
 
     for (i = 0; i < *lentypes; i++) {
         c_type_id = types[i];
-        if ( H5Tclose(c_type_id) < 0) return ret_value;
+        if (H5Tclose(c_type_id) < 0)
+            return ret_value;
     }
     for (i = 0; i < *floatinglen; i++) {
         c_type_id = floatingtypes[i];
-        if ( H5Tclose(c_type_id) < 0) return ret_value;
+        if (H5Tclose(c_type_id) < 0)
+            return ret_value;
     }
     for (i = 0; i < *integerlen; i++) {
         c_type_id = integertypes[i];
-        if ( H5Tclose(c_type_id) < 0) return ret_value;
+        if (H5Tclose(c_type_id) < 0)
+            return ret_value;
     }
     ret_value = 0;
     return ret_value;
@@ -366,31 +440,30 @@ nh5close_types_c( hid_t_f * types, int_f *lentypes,
  * SOURCE
  */
 int_f
-nh5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags, 
-		 int_f *h5e_flags, hid_t_f *h5e_hid_flags, int_f *h5f_flags,
-                 int_f *h5fd_flags, hid_t_f *h5fd_hid_flags,
-                 int_f *h5g_flags, int_f *h5i_flags, int_f *h5l_flags, int_f *h5o_flags,
-                 hid_t_f *h5p_flags, int_f *h5p_flags_int, int_f *h5r_flags, int_f *h5s_flags,
-		 hsize_t_f *h5s_hsize_flags, int_f *h5t_flags, int_f *h5z_flags, int_f *h5_generic_flags)
+nh5init_flags_c(int_f *h5d_flags, size_t_f *h5d_size_flags, int_f *h5e_flags, hid_t_f *h5e_hid_flags,
+                int_f *h5f_flags, int_f *h5fd_flags, hid_t_f *h5fd_hid_flags, int_f *h5g_flags,
+                int_f *h5i_flags, int_f *h5l_flags, int_f *h5o_flags, hid_t_f *h5p_flags,
+                int_f *h5p_flags_int, int_f *h5r_flags, int_f *h5s_flags, hsize_t_f *h5s_hsize_flags,
+                int_f *h5t_flags, int_f *h5z_flags, int_f *h5_generic_flags)
 /******/
 {
     int ret_value = -1;
-/*
- *  H5D flags
- */
+    /*
+     *  H5D flags
+     */
     h5d_size_flags[0] = (size_t_f)H5D_CHUNK_CACHE_NSLOTS_DEFAULT;
     h5d_size_flags[1] = (size_t_f)H5D_CHUNK_CACHE_NBYTES_DEFAULT;
 
-    h5d_flags[0] = (int_f)H5D_COMPACT;
-    h5d_flags[1] = (int_f)H5D_CONTIGUOUS;
-    h5d_flags[2] = (int_f)H5D_CHUNKED;
-    h5d_flags[3] = (int_f)H5D_ALLOC_TIME_ERROR;
-    h5d_flags[4] = (int_f)H5D_ALLOC_TIME_DEFAULT;
-    h5d_flags[5] = (int_f)H5D_ALLOC_TIME_EARLY;
-    h5d_flags[6] = (int_f)H5D_ALLOC_TIME_LATE;
-    h5d_flags[7] = (int_f)H5D_ALLOC_TIME_INCR;
-    h5d_flags[8] = (int_f)H5D_SPACE_STATUS_ERROR;
-    h5d_flags[9] = (int_f)H5D_SPACE_STATUS_NOT_ALLOCATED;
+    h5d_flags[0]  = (int_f)H5D_COMPACT;
+    h5d_flags[1]  = (int_f)H5D_CONTIGUOUS;
+    h5d_flags[2]  = (int_f)H5D_CHUNKED;
+    h5d_flags[3]  = (int_f)H5D_ALLOC_TIME_ERROR;
+    h5d_flags[4]  = (int_f)H5D_ALLOC_TIME_DEFAULT;
+    h5d_flags[5]  = (int_f)H5D_ALLOC_TIME_EARLY;
+    h5d_flags[6]  = (int_f)H5D_ALLOC_TIME_LATE;
+    h5d_flags[7]  = (int_f)H5D_ALLOC_TIME_INCR;
+    h5d_flags[8]  = (int_f)H5D_SPACE_STATUS_ERROR;
+    h5d_flags[9]  = (int_f)H5D_SPACE_STATUS_NOT_ALLOCATED;
     h5d_flags[10] = (int_f)H5D_SPACE_STATUS_PART_ALLOCATED;
     h5d_flags[11] = (int_f)H5D_SPACE_STATUS_ALLOCATED;
     h5d_flags[12] = (int_f)H5D_FILL_TIME_ERROR;
@@ -407,9 +480,9 @@ nh5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5d_flags[23] = (int_f)H5D_MPIO_CHUNK_MIXED;
     h5d_flags[24] = (int_f)H5D_MPIO_CONTIGUOUS_COLLECTIVE;
 
-/*
- *  H5E flags
- */
+    /*
+     *  H5E flags
+     */
     h5e_hid_flags[0] = (hid_t_f)H5E_DEFAULT;
 
     h5e_flags[0] = (int_f)H5E_MAJOR;
@@ -417,21 +490,21 @@ nh5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5e_flags[2] = (int_f)H5E_WALK_UPWARD;
     h5e_flags[3] = (int_f)H5E_WALK_DOWNWARD;
 
-/*
- *  H5F flags
- *
- *  H5F_ACC_DEBUG has no effect as of HDF5 1.8.16.
- */
-    h5f_flags[0] = (int_f)H5F_ACC_RDWR;
-    h5f_flags[1] = (int_f)H5F_ACC_RDONLY;
-    h5f_flags[2] = (int_f)H5F_ACC_TRUNC;
-    h5f_flags[3] = (int_f)H5F_ACC_EXCL;
-    h5f_flags[4] = (int_f)H5F_ACC_DEBUG;    /* nonfunctional */
-    h5f_flags[5] = (int_f)H5F_SCOPE_LOCAL;
-    h5f_flags[6] = (int_f)H5F_SCOPE_GLOBAL;
-    h5f_flags[7] = (int_f)H5F_CLOSE_DEFAULT;
-    h5f_flags[8] = (int_f)H5F_CLOSE_WEAK;
-    h5f_flags[9] = (int_f)H5F_CLOSE_SEMI;
+    /*
+     *  H5F flags
+     *
+     *  H5F_ACC_DEBUG has no effect as of HDF5 1.8.16.
+     */
+    h5f_flags[0]  = (int_f)H5F_ACC_RDWR;
+    h5f_flags[1]  = (int_f)H5F_ACC_RDONLY;
+    h5f_flags[2]  = (int_f)H5F_ACC_TRUNC;
+    h5f_flags[3]  = (int_f)H5F_ACC_EXCL;
+    h5f_flags[4]  = (int_f)H5F_ACC_DEBUG; /* nonfunctional */
+    h5f_flags[5]  = (int_f)H5F_SCOPE_LOCAL;
+    h5f_flags[6]  = (int_f)H5F_SCOPE_GLOBAL;
+    h5f_flags[7]  = (int_f)H5F_CLOSE_DEFAULT;
+    h5f_flags[8]  = (int_f)H5F_CLOSE_WEAK;
+    h5f_flags[9]  = (int_f)H5F_CLOSE_SEMI;
     h5f_flags[10] = (int_f)H5F_CLOSE_STRONG;
     h5f_flags[11] = (int_f)H5F_OBJ_FILE;
     h5f_flags[12] = (int_f)H5F_OBJ_DATASET;
@@ -442,24 +515,24 @@ nh5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5f_flags[17] = (int_f)H5F_LIBVER_LATEST;
     h5f_flags[18] = (int_f)H5F_UNLIMITED;
 
-/*
- *  H5FD flags
- */
-    h5fd_flags[0] = (int_f)H5FD_MPIO_INDEPENDENT;
-    h5fd_flags[1] = (int_f)H5FD_MPIO_COLLECTIVE;
-    h5fd_flags[2] = (int_f)H5FD_MEM_NOLIST;
-    h5fd_flags[3] = (int_f)H5FD_MEM_DEFAULT;
-    h5fd_flags[4] = (int_f)H5FD_MEM_SUPER;
-    h5fd_flags[5] = (int_f)H5FD_MEM_BTREE;
-    h5fd_flags[6] = (int_f)H5FD_MEM_DRAW;
-    h5fd_flags[7] = (int_f)H5FD_MEM_GHEAP;
-    h5fd_flags[8] = (int_f)H5FD_MEM_LHEAP;
-    h5fd_flags[9] = (int_f)H5FD_MEM_OHDR;
+    /*
+     *  H5FD flags
+     */
+    h5fd_flags[0]  = (int_f)H5FD_MPIO_INDEPENDENT;
+    h5fd_flags[1]  = (int_f)H5FD_MPIO_COLLECTIVE;
+    h5fd_flags[2]  = (int_f)H5FD_MEM_NOLIST;
+    h5fd_flags[3]  = (int_f)H5FD_MEM_DEFAULT;
+    h5fd_flags[4]  = (int_f)H5FD_MEM_SUPER;
+    h5fd_flags[5]  = (int_f)H5FD_MEM_BTREE;
+    h5fd_flags[6]  = (int_f)H5FD_MEM_DRAW;
+    h5fd_flags[7]  = (int_f)H5FD_MEM_GHEAP;
+    h5fd_flags[8]  = (int_f)H5FD_MEM_LHEAP;
+    h5fd_flags[9]  = (int_f)H5FD_MEM_OHDR;
     h5fd_flags[10] = (int_f)H5FD_MEM_NTYPES;
 
-/*
- *  H5FD flags of type hid_t
- */
+    /*
+     *  H5FD flags of type hid_t
+     */
     h5fd_hid_flags[0] = (hid_t_f)H5FD_CORE;
     h5fd_hid_flags[1] = (hid_t_f)H5FD_FAMILY;
     h5fd_hid_flags[2] = (hid_t_f)H5FD_LOG;
@@ -468,26 +541,26 @@ nh5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5fd_hid_flags[5] = (hid_t_f)H5FD_SEC2;
     h5fd_hid_flags[6] = (hid_t_f)H5FD_STDIO;
 
-/*
- *  H5G flags
- */
-    h5g_flags[0] = (int_f)H5O_TYPE_UNKNOWN; /* H5G_UNKNOWN is deprecated */
-    h5g_flags[1] = (int_f)H5O_TYPE_GROUP; /* H5G_GROUP is deprecated  */
-    h5g_flags[2] = (int_f)H5O_TYPE_DATASET; /* H5G_DATASET is deprecated  */
+    /*
+     *  H5G flags
+     */
+    h5g_flags[0] = (int_f)H5O_TYPE_UNKNOWN;        /* H5G_UNKNOWN is deprecated */
+    h5g_flags[1] = (int_f)H5O_TYPE_GROUP;          /* H5G_GROUP is deprecated  */
+    h5g_flags[2] = (int_f)H5O_TYPE_DATASET;        /* H5G_DATASET is deprecated  */
     h5g_flags[3] = (int_f)H5O_TYPE_NAMED_DATATYPE; /* H5G_TYPE is deprecated  */
     h5g_flags[4] = (int_f)H5L_SAME_LOC;
     h5g_flags[5] = (int_f)H5L_TYPE_ERROR;
     h5g_flags[6] = (int_f)H5L_TYPE_HARD;
     h5g_flags[7] = (int_f)H5L_TYPE_SOFT;
 
-    h5g_flags[8] = (int_f)H5G_STORAGE_TYPE_UNKNOWN;
-    h5g_flags[9] = (int_f)H5G_STORAGE_TYPE_SYMBOL_TABLE;
+    h5g_flags[8]  = (int_f)H5G_STORAGE_TYPE_UNKNOWN;
+    h5g_flags[9]  = (int_f)H5G_STORAGE_TYPE_SYMBOL_TABLE;
     h5g_flags[10] = (int_f)H5G_STORAGE_TYPE_COMPACT;
     h5g_flags[11] = (int_f)H5G_STORAGE_TYPE_DENSE;
 
-/*
- *  H5I flags
- */
+    /*
+     *  H5I flags
+     */
     h5i_flags[0] = (int_f)H5I_FILE;
     h5i_flags[1] = (int_f)H5I_GROUP;
     h5i_flags[2] = (int_f)H5I_DATATYPE;
@@ -495,213 +568,213 @@ nh5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5i_flags[4] = (int_f)H5I_DATASET;
     h5i_flags[5] = (int_f)H5I_ATTR;
     h5i_flags[6] = (int_f)H5I_BADID;
-/*
- *  H5L flags
- */
+    /*
+     *  H5L flags
+     */
     h5l_flags[0] = (int_f)H5L_TYPE_ERROR;
     h5l_flags[1] = (int_f)H5L_TYPE_HARD;
     h5l_flags[2] = (int_f)H5L_TYPE_SOFT;
     h5l_flags[3] = (int_f)H5L_TYPE_EXTERNAL;
-    h5l_flags[4] = (int_f)H5L_SAME_LOC; /* Macro to indicate operation occurs on same location */
+    h5l_flags[4] = (int_f)H5L_SAME_LOC;          /* Macro to indicate operation occurs on same location */
     h5l_flags[5] = (int_f)H5L_LINK_CLASS_T_VERS; /* Current version of the H5L_class_t struct */
 
-/*
- *  H5O flags
- */
+    /*
+     *  H5O flags
+     */
 
-/* Flags for object copy (H5Ocopy) */
+    /* Flags for object copy (H5Ocopy) */
     h5o_flags[0] = (int_f)H5O_COPY_SHALLOW_HIERARCHY_FLAG; /* Copy only immediate members */
-    h5o_flags[1] = (int_f)H5O_COPY_EXPAND_SOFT_LINK_FLAG; /* Expand soft links into new objects */
-    h5o_flags[2] = (int_f)H5O_COPY_EXPAND_EXT_LINK_FLAG; /* Expand external links into new objects */
-    h5o_flags[3] = (int_f)H5O_COPY_EXPAND_REFERENCE_FLAG; /* Copy objects that are pointed by references */
-    h5o_flags[4] = (int_f)H5O_COPY_WITHOUT_ATTR_FLAG; /* Copy object without copying attributes */
-    h5o_flags[5] = (int_f)H5O_COPY_PRESERVE_NULL_FLAG; /* Copy NULL messages (empty space) */
+    h5o_flags[1] = (int_f)H5O_COPY_EXPAND_SOFT_LINK_FLAG;  /* Expand soft links into new objects */
+    h5o_flags[2] = (int_f)H5O_COPY_EXPAND_EXT_LINK_FLAG;   /* Expand external links into new objects */
+    h5o_flags[3] = (int_f)H5O_COPY_EXPAND_REFERENCE_FLAG;  /* Copy objects that are pointed by references */
+    h5o_flags[4] = (int_f)H5O_COPY_WITHOUT_ATTR_FLAG;      /* Copy object without copying attributes */
+    h5o_flags[5] = (int_f)H5O_COPY_PRESERVE_NULL_FLAG;     /* Copy NULL messages (empty space) */
     h5o_flags[6] = (int_f)H5O_COPY_ALL; /* All object copying flags (for internal checking) */
 
-/* Flags for shared message indexes.
- * Pass these flags in using the mesg_type_flags parameter in
- * H5P_set_shared_mesg_index.
- * (Developers: These flags correspond to object header message type IDs,
- * but we need to assign each kind of message to a different bit so that
- * one index can hold multiple types.)
- */
-      h5o_flags[7] = (int_f)H5O_SHMESG_NONE_FLAG;  /* No shared messages */
-      h5o_flags[8] = (int_f)H5O_SHMESG_SDSPACE_FLAG; /* Simple Dataspace Message.  */
-      h5o_flags[9] = (int_f)H5O_SHMESG_DTYPE_FLAG; /* Datatype Message.  */
-      h5o_flags[10] = (int_f)H5O_SHMESG_FILL_FLAG; /* Fill Value Message. */
-      h5o_flags[11] = (int_f)H5O_SHMESG_PLINE_FLAG; /* Filter pipeline message.  */
-      h5o_flags[12] = (int_f)H5O_SHMESG_ATTR_FLAG; /* Attribute Message.  */
-      h5o_flags[13] = (int_f)H5O_SHMESG_ALL_FLAG;
-
-/* Object header status flag definitions */
-      h5o_flags[14] = (int_f)H5O_HDR_CHUNK0_SIZE; /* 2-bit field indicating # of bytes to store the size of chunk 0's data */
-      h5o_flags[15] = (int_f)H5O_HDR_ATTR_CRT_ORDER_TRACKED; /* Attribute creation order is tracked */
-      h5o_flags[16] = (int_f)H5O_HDR_ATTR_CRT_ORDER_INDEXED; /* Attribute creation order has index */
-      h5o_flags[17] = (int_f)H5O_HDR_ATTR_STORE_PHASE_CHANGE; /* Non-default attribute storage phase change values stored */
-      h5o_flags[18] = (int_f)H5O_HDR_STORE_TIMES; /* Store access, modification, change & birth times for object */
-      h5o_flags[19] = (int_f)H5O_HDR_ALL_FLAGS;
-
-/* Maximum shared message values.  Number of indexes is 8 to allow room to add
- * new types of messages.
- */
-      h5o_flags[20] = (int_f)H5O_SHMESG_MAX_NINDEXES;
-      h5o_flags[21] = (int_f)H5O_SHMESG_MAX_LIST_SIZE;
-
-/* Types of objects in file */
-      h5o_flags[22] = (int_f)H5O_TYPE_UNKNOWN;	      /* Unknown object type */
-      h5o_flags[23] = (int_f)H5O_TYPE_GROUP;          /* Object is a group */
-      h5o_flags[24] = (int_f)H5O_TYPE_DATASET;        /* Object is a dataset */
-      h5o_flags[25] = (int_f)H5O_TYPE_NAMED_DATATYPE; /* Object is a named data type */
-      h5o_flags[26] = (int_f)H5O_TYPE_NTYPES;         /* Number of different object types */
-/*
- *  H5P flags
- */
-      h5p_flags[0] = (hid_t_f)H5P_FILE_CREATE;
-      h5p_flags[1] = (hid_t_f)H5P_FILE_ACCESS;
-      h5p_flags[2] = (hid_t_f)H5P_DATASET_CREATE;
-      h5p_flags[3] = (hid_t_f)H5P_DATASET_XFER;
-      h5p_flags[4] = (hid_t_f)H5P_FILE_MOUNT;
-      h5p_flags[5] = (hid_t_f)H5P_DEFAULT;
-      h5p_flags[6] = (hid_t_f)H5P_ROOT;
-      h5p_flags[7] = (hid_t_f)H5P_OBJECT_CREATE;
-      h5p_flags[8] = (hid_t_f)H5P_DATASET_ACCESS;
-      h5p_flags[9] = (hid_t_f)H5P_GROUP_CREATE;
-      h5p_flags[10] = (hid_t_f)H5P_GROUP_ACCESS;
-      h5p_flags[11] = (hid_t_f)H5P_DATATYPE_CREATE;
-      h5p_flags[12] = (hid_t_f)H5P_DATATYPE_ACCESS;
-      h5p_flags[13] = (hid_t_f)H5P_STRING_CREATE;
-      h5p_flags[14] = (hid_t_f)H5P_ATTRIBUTE_CREATE;
-      h5p_flags[15] = (hid_t_f)H5P_OBJECT_COPY;
-      h5p_flags[16] = (hid_t_f)H5P_LINK_CREATE;
-      h5p_flags[17] = (hid_t_f)H5P_LINK_ACCESS;
-
-
-/*
- *  H5P integer flags
- */
-      h5p_flags_int[0] = (int_f)H5P_CRT_ORDER_INDEXED;
-      h5p_flags_int[1] = (int_f)H5P_CRT_ORDER_TRACKED;
+    /* Flags for shared message indexes.
+     * Pass these flags in using the mesg_type_flags parameter in
+     * H5P_set_shared_mesg_index.
+     * (Developers: These flags correspond to object header message type IDs,
+     * but we need to assign each kind of message to a different bit so that
+     * one index can hold multiple types.)
+     */
+    h5o_flags[7]  = (int_f)H5O_SHMESG_NONE_FLAG;    /* No shared messages */
+    h5o_flags[8]  = (int_f)H5O_SHMESG_SDSPACE_FLAG; /* Simple Dataspace Message.  */
+    h5o_flags[9]  = (int_f)H5O_SHMESG_DTYPE_FLAG;   /* Datatype Message.  */
+    h5o_flags[10] = (int_f)H5O_SHMESG_FILL_FLAG;    /* Fill Value Message. */
+    h5o_flags[11] = (int_f)H5O_SHMESG_PLINE_FLAG;   /* Filter pipeline message.  */
+    h5o_flags[12] = (int_f)H5O_SHMESG_ATTR_FLAG;    /* Attribute Message.  */
+    h5o_flags[13] = (int_f)H5O_SHMESG_ALL_FLAG;
+
+    /* Object header status flag definitions */
+    h5o_flags[14] = (int_f)
+        H5O_HDR_CHUNK0_SIZE; /* 2-bit field indicating # of bytes to store the size of chunk 0's data */
+    h5o_flags[15] = (int_f)H5O_HDR_ATTR_CRT_ORDER_TRACKED; /* Attribute creation order is tracked */
+    h5o_flags[16] = (int_f)H5O_HDR_ATTR_CRT_ORDER_INDEXED; /* Attribute creation order has index */
+    h5o_flags[17] =
+        (int_f)H5O_HDR_ATTR_STORE_PHASE_CHANGE; /* Non-default attribute storage phase change values stored */
+    h5o_flags[18] =
+        (int_f)H5O_HDR_STORE_TIMES; /* Store access, modification, change & birth times for object */
+    h5o_flags[19] = (int_f)H5O_HDR_ALL_FLAGS;
+
+    /* Maximum shared message values.  Number of indexes is 8 to allow room to add
+     * new types of messages.
+     */
+    h5o_flags[20] = (int_f)H5O_SHMESG_MAX_NINDEXES;
+    h5o_flags[21] = (int_f)H5O_SHMESG_MAX_LIST_SIZE;
+
+    /* Types of objects in file */
+    h5o_flags[22] = (int_f)H5O_TYPE_UNKNOWN;        /* Unknown object type */
+    h5o_flags[23] = (int_f)H5O_TYPE_GROUP;          /* Object is a group */
+    h5o_flags[24] = (int_f)H5O_TYPE_DATASET;        /* Object is a dataset */
+    h5o_flags[25] = (int_f)H5O_TYPE_NAMED_DATATYPE; /* Object is a named data type */
+    h5o_flags[26] = (int_f)H5O_TYPE_NTYPES;         /* Number of different object types */
+                                                    /*
+                                                     *  H5P flags
+                                                     */
+    h5p_flags[0]  = (hid_t_f)H5P_FILE_CREATE;
+    h5p_flags[1]  = (hid_t_f)H5P_FILE_ACCESS;
+    h5p_flags[2]  = (hid_t_f)H5P_DATASET_CREATE;
+    h5p_flags[3]  = (hid_t_f)H5P_DATASET_XFER;
+    h5p_flags[4]  = (hid_t_f)H5P_FILE_MOUNT;
+    h5p_flags[5]  = (hid_t_f)H5P_DEFAULT;
+    h5p_flags[6]  = (hid_t_f)H5P_ROOT;
+    h5p_flags[7]  = (hid_t_f)H5P_OBJECT_CREATE;
+    h5p_flags[8]  = (hid_t_f)H5P_DATASET_ACCESS;
+    h5p_flags[9]  = (hid_t_f)H5P_GROUP_CREATE;
+    h5p_flags[10] = (hid_t_f)H5P_GROUP_ACCESS;
+    h5p_flags[11] = (hid_t_f)H5P_DATATYPE_CREATE;
+    h5p_flags[12] = (hid_t_f)H5P_DATATYPE_ACCESS;
+    h5p_flags[13] = (hid_t_f)H5P_STRING_CREATE;
+    h5p_flags[14] = (hid_t_f)H5P_ATTRIBUTE_CREATE;
+    h5p_flags[15] = (hid_t_f)H5P_OBJECT_COPY;
+    h5p_flags[16] = (hid_t_f)H5P_LINK_CREATE;
+    h5p_flags[17] = (hid_t_f)H5P_LINK_ACCESS;
 
-/*
- *  H5R flags
- */
+    /*
+     *  H5P integer flags
+     */
+    h5p_flags_int[0] = (int_f)H5P_CRT_ORDER_INDEXED;
+    h5p_flags_int[1] = (int_f)H5P_CRT_ORDER_TRACKED;
 
-      h5r_flags[0] = (int_f)H5R_OBJECT;
-      h5r_flags[1] = (int_f)H5R_DATASET_REGION;
+    /*
+     *  H5R flags
+     */
 
-/*
- *  H5S flags
- */
-      h5s_flags[0] = (int_f)H5S_SCALAR;
-      h5s_flags[1] = (int_f)H5S_SIMPLE;
-      h5s_flags[2] = (int_f)H5S_NULL;
-      h5s_flags[3] = (int_f)H5S_SELECT_SET;
-      h5s_flags[4] = (int_f)H5S_SELECT_OR;
-      h5s_flags[5] = (int_f)H5S_ALL;
-
-      h5s_flags[6] = (int_f)H5S_SELECT_NOOP;
-      h5s_flags[7] = (int_f)H5S_SELECT_AND;
-      h5s_flags[8] = (int_f)H5S_SELECT_XOR;
-      h5s_flags[9] = (int_f)H5S_SELECT_NOTB;
-      h5s_flags[10] = (int_f)H5S_SELECT_NOTA;
-      h5s_flags[11] = (int_f)H5S_SELECT_APPEND;
-      h5s_flags[12] = (int_f)H5S_SELECT_PREPEND;
-      h5s_flags[13] = (int_f)H5S_SELECT_INVALID;
-
-      h5s_flags[14] = (int_f)H5S_SEL_ERROR;
-      h5s_flags[15] = (int_f)H5S_SEL_NONE;
-      h5s_flags[16] = (int_f)H5S_SEL_POINTS;
-      h5s_flags[17] = (int_f)H5S_SEL_HYPERSLABS;
-      h5s_flags[18] = (int_f)H5S_SEL_ALL;
-
-      h5s_hsize_flags[0] = (hsize_t_f)H5S_UNLIMITED;
-
-/*
- *  H5T flags
- */
-      h5t_flags[0] = (int_f)H5T_NO_CLASS;
-      h5t_flags[1] = (int_f)H5T_INTEGER;
-      h5t_flags[2] = (int_f)H5T_FLOAT;
-      h5t_flags[3] = (int_f)H5T_TIME;
-      h5t_flags[4] = (int_f)H5T_STRING;
-      h5t_flags[5] = (int_f)H5T_BITFIELD;
-      h5t_flags[6] = (int_f)H5T_OPAQUE;
-      h5t_flags[7] = (int_f)H5T_COMPOUND;
-      h5t_flags[8] = (int_f)H5T_REFERENCE;
-      h5t_flags[9] = (int_f)H5T_ENUM;
-      h5t_flags[10] = (int_f)H5T_ORDER_LE;
-      h5t_flags[11] = (int_f)H5T_ORDER_BE;
-      h5t_flags[12] = (int_f)H5T_ORDER_MIXED;
-      h5t_flags[13] = (int_f)H5T_ORDER_VAX;
-      h5t_flags[14] = (int_f)H5T_ORDER_NONE;
-      h5t_flags[15] = (int_f)H5T_PAD_ZERO;
-      h5t_flags[16] = (int_f)H5T_PAD_ONE;
-      h5t_flags[17] = (int_f)H5T_PAD_BACKGROUND;
-      h5t_flags[18] = (int_f)H5T_PAD_ERROR;
-      h5t_flags[19] = (int_f)H5T_SGN_NONE;
-      h5t_flags[20] = (int_f)H5T_SGN_2;
-      h5t_flags[21] = (int_f)H5T_SGN_ERROR;
-      h5t_flags[22] = (int_f)H5T_NORM_IMPLIED;
-      h5t_flags[23] = (int_f)H5T_NORM_MSBSET;
-      h5t_flags[24] = (int_f)H5T_NORM_NONE;
-      h5t_flags[25] = (int_f)H5T_CSET_ASCII;
-      h5t_flags[26] = (int_f)H5T_CSET_UTF8;
-      h5t_flags[27] = (int_f)H5T_STR_NULLTERM;
-      h5t_flags[28] = (int_f)H5T_STR_NULLPAD;
-      h5t_flags[29] = (int_f)H5T_STR_SPACEPAD;
-      h5t_flags[30] = (int_f)H5T_STR_ERROR;
-      h5t_flags[31] = (int_f)H5T_VLEN;
-      h5t_flags[32] = (int_f)H5T_ARRAY;
-      h5t_flags[33] = (int_f)H5T_DIR_ASCEND;
-      h5t_flags[34] = (int_f)H5T_DIR_DESCEND;
-
-/*
- *  H5Z flags
- */
-      h5z_flags[0] = (int_f)H5Z_FILTER_ERROR;
-      h5z_flags[1] = (int_f)H5Z_FILTER_NONE;
-      h5z_flags[2] = (int_f)H5Z_FILTER_DEFLATE;
-      h5z_flags[3] = (int_f)H5Z_FILTER_SHUFFLE;
-      h5z_flags[4] = (int_f)H5Z_FILTER_FLETCHER32;
-      h5z_flags[5] = (int_f)H5Z_ERROR_EDC;
-      h5z_flags[6] = (int_f)H5Z_DISABLE_EDC;
-      h5z_flags[7] = (int_f)H5Z_ENABLE_EDC;
-      h5z_flags[8] = (int_f)H5Z_NO_EDC;
-      h5z_flags[9] = (int_f)H5Z_FILTER_SZIP;
-      h5z_flags[10] = (int_f)H5Z_FLAG_OPTIONAL;
-      h5z_flags[11] = (int_f)H5Z_FILTER_CONFIG_ENCODE_ENABLED;
-      h5z_flags[12] = (int_f)H5Z_FILTER_CONFIG_DECODE_ENABLED;
-      h5z_flags[13] = (int_f)H5Z_FILTER_ALL;
-      h5z_flags[14] = (int_f)H5Z_FILTER_NBIT;
-      h5z_flags[15] = (int_f)H5Z_FILTER_SCALEOFFSET;
-      h5z_flags[16] = (int_f)H5Z_SO_FLOAT_DSCALE;
-      h5z_flags[17] = (int_f)H5Z_SO_FLOAT_ESCALE;
-      h5z_flags[18] = (int_f)H5Z_SO_INT;
-      h5z_flags[19] = (int_f)H5Z_SO_INT_MINBITS_DEFAULT;
-/*
- *  H5A flags
- */
+    h5r_flags[0] = (int_f)H5R_OBJECT;
+    h5r_flags[1] = (int_f)H5R_DATASET_REGION;
 
+    /*
+     *  H5S flags
+     */
+    h5s_flags[0] = (int_f)H5S_SCALAR;
+    h5s_flags[1] = (int_f)H5S_SIMPLE;
+    h5s_flags[2] = (int_f)H5S_NULL;
+    h5s_flags[3] = (int_f)H5S_SELECT_SET;
+    h5s_flags[4] = (int_f)H5S_SELECT_OR;
+    h5s_flags[5] = (int_f)H5S_ALL;
+
+    h5s_flags[6]  = (int_f)H5S_SELECT_NOOP;
+    h5s_flags[7]  = (int_f)H5S_SELECT_AND;
+    h5s_flags[8]  = (int_f)H5S_SELECT_XOR;
+    h5s_flags[9]  = (int_f)H5S_SELECT_NOTB;
+    h5s_flags[10] = (int_f)H5S_SELECT_NOTA;
+    h5s_flags[11] = (int_f)H5S_SELECT_APPEND;
+    h5s_flags[12] = (int_f)H5S_SELECT_PREPEND;
+    h5s_flags[13] = (int_f)H5S_SELECT_INVALID;
+
+    h5s_flags[14] = (int_f)H5S_SEL_ERROR;
+    h5s_flags[15] = (int_f)H5S_SEL_NONE;
+    h5s_flags[16] = (int_f)H5S_SEL_POINTS;
+    h5s_flags[17] = (int_f)H5S_SEL_HYPERSLABS;
+    h5s_flags[18] = (int_f)H5S_SEL_ALL;
+
+    h5s_hsize_flags[0] = (hsize_t_f)H5S_UNLIMITED;
 
-/*
- *  H5 Generic flags introduced in version 1.8 -MSB-
- */
+    /*
+     *  H5T flags
+     */
+    h5t_flags[0]  = (int_f)H5T_NO_CLASS;
+    h5t_flags[1]  = (int_f)H5T_INTEGER;
+    h5t_flags[2]  = (int_f)H5T_FLOAT;
+    h5t_flags[3]  = (int_f)H5T_TIME;
+    h5t_flags[4]  = (int_f)H5T_STRING;
+    h5t_flags[5]  = (int_f)H5T_BITFIELD;
+    h5t_flags[6]  = (int_f)H5T_OPAQUE;
+    h5t_flags[7]  = (int_f)H5T_COMPOUND;
+    h5t_flags[8]  = (int_f)H5T_REFERENCE;
+    h5t_flags[9]  = (int_f)H5T_ENUM;
+    h5t_flags[10] = (int_f)H5T_ORDER_LE;
+    h5t_flags[11] = (int_f)H5T_ORDER_BE;
+    h5t_flags[12] = (int_f)H5T_ORDER_MIXED;
+    h5t_flags[13] = (int_f)H5T_ORDER_VAX;
+    h5t_flags[14] = (int_f)H5T_ORDER_NONE;
+    h5t_flags[15] = (int_f)H5T_PAD_ZERO;
+    h5t_flags[16] = (int_f)H5T_PAD_ONE;
+    h5t_flags[17] = (int_f)H5T_PAD_BACKGROUND;
+    h5t_flags[18] = (int_f)H5T_PAD_ERROR;
+    h5t_flags[19] = (int_f)H5T_SGN_NONE;
+    h5t_flags[20] = (int_f)H5T_SGN_2;
+    h5t_flags[21] = (int_f)H5T_SGN_ERROR;
+    h5t_flags[22] = (int_f)H5T_NORM_IMPLIED;
+    h5t_flags[23] = (int_f)H5T_NORM_MSBSET;
+    h5t_flags[24] = (int_f)H5T_NORM_NONE;
+    h5t_flags[25] = (int_f)H5T_CSET_ASCII;
+    h5t_flags[26] = (int_f)H5T_CSET_UTF8;
+    h5t_flags[27] = (int_f)H5T_STR_NULLTERM;
+    h5t_flags[28] = (int_f)H5T_STR_NULLPAD;
+    h5t_flags[29] = (int_f)H5T_STR_SPACEPAD;
+    h5t_flags[30] = (int_f)H5T_STR_ERROR;
+    h5t_flags[31] = (int_f)H5T_VLEN;
+    h5t_flags[32] = (int_f)H5T_ARRAY;
+    h5t_flags[33] = (int_f)H5T_DIR_ASCEND;
+    h5t_flags[34] = (int_f)H5T_DIR_DESCEND;
+
+    /*
+     *  H5Z flags
+     */
+    h5z_flags[0]  = (int_f)H5Z_FILTER_ERROR;
+    h5z_flags[1]  = (int_f)H5Z_FILTER_NONE;
+    h5z_flags[2]  = (int_f)H5Z_FILTER_DEFLATE;
+    h5z_flags[3]  = (int_f)H5Z_FILTER_SHUFFLE;
+    h5z_flags[4]  = (int_f)H5Z_FILTER_FLETCHER32;
+    h5z_flags[5]  = (int_f)H5Z_ERROR_EDC;
+    h5z_flags[6]  = (int_f)H5Z_DISABLE_EDC;
+    h5z_flags[7]  = (int_f)H5Z_ENABLE_EDC;
+    h5z_flags[8]  = (int_f)H5Z_NO_EDC;
+    h5z_flags[9]  = (int_f)H5Z_FILTER_SZIP;
+    h5z_flags[10] = (int_f)H5Z_FLAG_OPTIONAL;
+    h5z_flags[11] = (int_f)H5Z_FILTER_CONFIG_ENCODE_ENABLED;
+    h5z_flags[12] = (int_f)H5Z_FILTER_CONFIG_DECODE_ENABLED;
+    h5z_flags[13] = (int_f)H5Z_FILTER_ALL;
+    h5z_flags[14] = (int_f)H5Z_FILTER_NBIT;
+    h5z_flags[15] = (int_f)H5Z_FILTER_SCALEOFFSET;
+    h5z_flags[16] = (int_f)H5Z_SO_FLOAT_DSCALE;
+    h5z_flags[17] = (int_f)H5Z_SO_FLOAT_ESCALE;
+    h5z_flags[18] = (int_f)H5Z_SO_INT;
+    h5z_flags[19] = (int_f)H5Z_SO_INT_MINBITS_DEFAULT;
+    /*
+     *  H5A flags
+     */
 
-      /* H5_index_t enum struct */
+    /*
+     *  H5 Generic flags introduced in version 1.8 -MSB-
+     */
 
-      h5_generic_flags[0] = (int_f)H5_INDEX_UNKNOWN;   /* Unknown index type			*/
-      h5_generic_flags[1] = (int_f)H5_INDEX_NAME;      /* Index on names 			*/
-      h5_generic_flags[2] = (int_f)H5_INDEX_CRT_ORDER; /* Index on creation order 		*/
-      h5_generic_flags[3] = (int_f)H5_INDEX_N;         /* Index on creation order 		*/
+    /* H5_index_t enum struct */
 
+    h5_generic_flags[0] = (int_f)H5_INDEX_UNKNOWN;   /* Unknown index type			*/
+    h5_generic_flags[1] = (int_f)H5_INDEX_NAME;      /* Index on names 			*/
+    h5_generic_flags[2] = (int_f)H5_INDEX_CRT_ORDER; /* Index on creation order 		*/
+    h5_generic_flags[3] = (int_f)H5_INDEX_N;         /* Index on creation order 		*/
 
-      /* H5_iter_order_t enum struct */
+    /* H5_iter_order_t enum struct */
 
-      h5_generic_flags[4] = (int_f)H5_ITER_UNKNOWN;       /* Unknown order */
-      h5_generic_flags[5] = (int_f)H5_ITER_INC;           /* Increasing order */
-      h5_generic_flags[6] = (int_f)H5_ITER_DEC;           /* Decreasing order */
-      h5_generic_flags[7] = (int_f)H5_ITER_NATIVE;        /* No particular order, whatever is fastest */
-      h5_generic_flags[8] = (int_f)H5_ITER_N;		   /* Number of iteration orders */
+    h5_generic_flags[4] = (int_f)H5_ITER_UNKNOWN; /* Unknown order */
+    h5_generic_flags[5] = (int_f)H5_ITER_INC;     /* Increasing order */
+    h5_generic_flags[6] = (int_f)H5_ITER_DEC;     /* Decreasing order */
+    h5_generic_flags[7] = (int_f)H5_ITER_NATIVE;  /* No particular order, whatever is fastest */
+    h5_generic_flags[8] = (int_f)H5_ITER_N;       /* Number of iteration orders */
 
     ret_value = 0;
     return ret_value;
@@ -711,12 +784,12 @@ int_f
 nh5init1_flags_c(int_f *h5lib_flags)
 /******/
 {
-    int ret_value = -1;
-    unsigned prm_1 = H5_SZIP_EC_OPTION_MASK;
-    unsigned prm_2 = H5_SZIP_NN_OPTION_MASK;
-    h5lib_flags[0] = (int_f)prm_1;
-    h5lib_flags[1] = (int_f)prm_2;
-    ret_value = 0;
+    int      ret_value = -1;
+    unsigned prm_1     = H5_SZIP_EC_OPTION_MASK;
+    unsigned prm_2     = H5_SZIP_NN_OPTION_MASK;
+    h5lib_flags[0]     = (int_f)prm_1;
+    h5lib_flags[1]     = (int_f)prm_2;
+    ret_value          = 0;
     return ret_value;
 }
 
@@ -739,7 +812,8 @@ nh5open_c(void)
 {
     int ret_value = -1;
 
-    if (H5open() < 0) return ret_value;
+    if (H5open() < 0)
+        return ret_value;
     ret_value = 0;
     return ret_value;
 }
@@ -760,7 +834,8 @@ nh5close_c(void)
 {
     int ret_value = -1;
 
-    if (H5close() < 0) return ret_value;
+    if (H5close() < 0)
+        return ret_value;
     ret_value = 0;
     return ret_value;
 }
@@ -792,14 +867,15 @@ nh5get_libversion_c(int_f *majnum, int_f *minnum, int_f *relnum)
 /******/
 {
 
-    int ret_value = -1;
+    int      ret_value = -1;
     unsigned c_majnum, c_minnum, c_relnum;
 
-    if (H5get_libversion(&c_majnum, &c_minnum, &c_relnum) < 0) return ret_value;
+    if (H5get_libversion(&c_majnum, &c_minnum, &c_relnum) < 0)
+        return ret_value;
 
-    *majnum = (int_f)c_majnum;
-    *minnum = (int_f)c_minnum;
-    *relnum = (int_f)c_relnum;
+    *majnum   = (int_f)c_majnum;
+    *minnum   = (int_f)c_minnum;
+    *relnum   = (int_f)c_relnum;
     ret_value = 0;
     return ret_value;
 }
@@ -829,12 +905,12 @@ int_f
 nh5check_version_c(int_f *majnum, int_f *minnum, int_f *relnum)
 /******/
 {
-    int ret_value = -1;
+    int      ret_value = -1;
     unsigned c_majnum, c_minnum, c_relnum;
 
-    c_majnum = (unsigned) *majnum;
-    c_minnum = (unsigned) *minnum;
-    c_relnum = (unsigned) *relnum;
+    c_majnum = (unsigned)*majnum;
+    c_minnum = (unsigned)*minnum;
+    c_relnum = (unsigned)*relnum;
 
     H5check_version(c_majnum, c_minnum, c_relnum);
 
@@ -860,7 +936,8 @@ nh5garbage_collect_c(void)
 {
     int ret_value = -1;
 
-    if (H5garbage_collect() < 0) return ret_value;
+    if (H5garbage_collect() < 0)
+        return ret_value;
     ret_value = 0;
     return ret_value;
 }
@@ -883,8 +960,8 @@ nh5dont_atexit_c(void)
 {
     int ret_value = -1;
 
-    if (H5dont_atexit() < 0) return ret_value;
+    if (H5dont_atexit() < 0)
+        return ret_value;
     ret_value = 0;
     return ret_value;
 }
-
diff --git a/fortran/src/H5f90.h b/fortran/src/H5f90.h
index 398c41a..e081a09 100644
--- a/fortran/src/H5f90.h
+++ b/fortran/src/H5f90.h
@@ -11,7 +11,6 @@
  * help@hdfgroup.org.                                                        *
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
 
-
 #ifndef _H5f90_H
 #define _H5f90_H
 
@@ -21,9 +20,9 @@
 #include "H5f90proto.h"
 
 /* Constants used in H5Rff.f90 and H5Rf.c files */
-#define REF_REG_BUF_LEN_F    3
+#define REF_REG_BUF_LEN_F 3
 
 /* Constants used in H5Gf.c files */
 #define OBJECT_NAMELEN_DEFAULT_F -1
-#define H5_MAX(a,b)            (((a)>(b)) ? (a) : (b))
+#define H5_MAX(a, b)             (((a) > (b)) ? (a) : (b))
 #endif /* _H5f90_H */
diff --git a/fortran/src/H5f90i.h b/fortran/src/H5f90i.h
index 7d066cd..85b80b2 100644
--- a/fortran/src/H5f90i.h
+++ b/fortran/src/H5f90i.h
@@ -11,7 +11,6 @@
  * help@hdfgroup.org.                                                        *
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
 
-
 #ifndef _H5f90i_H
 #define _H5f90i_H
 
@@ -26,7 +25,7 @@
  */
 #define _fcdtocp(desc) (desc)
 
-#if (defined (UNICOS) || defined (_UNICOS)) && !defined(__crayx1)
+#if (defined(UNICOS) || defined(_UNICOS)) && !defined(__crayx1)
 
 #include <fortran.h>
 
@@ -34,7 +33,7 @@
 
 #else
 
-typedef char              *_fcd;
+typedef char *_fcd;
 
 #endif
 
diff --git a/fortran/src/H5f90kit.c b/fortran/src/H5f90kit.c
index 74d5ffc..7441cec 100644
--- a/fortran/src/H5f90kit.c
+++ b/fortran/src/H5f90kit.c
@@ -20,7 +20,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include <ctype.h>
 #include <stddef.h>
@@ -45,17 +45,17 @@ char *
 HD5f2cstring(_fcd fdesc, size_t len)
 /******/
 {
-    char       *cstr;   /* C string to return */
-    char       *str;    /* Pointer to FORTRAN string */
-    int         i;      /* Local index variable */
+    char *cstr; /* C string to return */
+    char *str;  /* Pointer to FORTRAN string */
+    int   i;    /* Local index variable */
 
     /* Search for the end of the string */
     str = _fcdtocp(fdesc);
-    for(i = (int)len - 1; i >= 0 && HDisspace((int)str[i]) && str[i] == ' '; i--)
+    for (i = (int)len - 1; i >= 0 && HDisspace((int)str[i]) && str[i] == ' '; i--)
         /*EMPTY*/;
 
     /* Allocate C string */
-    if(NULL == (cstr = (char *)HDmalloc((size_t)(i + 2))))
+    if (NULL == (cstr = (char *)HDmalloc((size_t)(i + 2))))
         return NULL;
 
     /* Copy text from FORTRAN to C string */
@@ -65,7 +65,7 @@ HD5f2cstring(_fcd fdesc, size_t len)
     cstr[i + 1] = '\0';
 
     return cstr;
-}   /* HD5f2cstring */
+} /* HD5f2cstring */
 
 /****if* H5f90kit/HD5packFstring
  * NAME
@@ -91,15 +91,14 @@ void
 HD5packFstring(char *src, char *dest, size_t dst_len)
 /******/
 {
-    size_t src_len=HDstrlen(src);
+    size_t src_len = HDstrlen(src);
 
     /* Copy over the string information, up to the length of the src */
     /* (Don't copy the NUL terminator from the C string to the FORTRAN string */
-    HDmemcpy(dest,src,MIN(src_len,dst_len));
+    HDmemcpy(dest, src, MIN(src_len, dst_len));
 
     /* Pad out any remaining space in the FORTRAN string with ' 's */
-    if(src_len<dst_len)
-        HDmemset(&dest[src_len],' ',dst_len-src_len);
-
-}   /* HD5packFstring */
+    if (src_len < dst_len)
+        HDmemset(&dest[src_len], ' ', dst_len - src_len);
 
+} /* HD5packFstring */
diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h
index 7aef67c..82be464 100644
--- a/fortran/src/H5f90proto.h
+++ b/fortran/src/H5f90proto.h
@@ -11,842 +11,951 @@
  * help@hdfgroup.org.                                                        *
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
 
-
 #ifndef _H5f90proto_H
 #define _H5f90proto_H
 
 #include "H5public.h"
 
-H5_FCDLL char * HD5f2cstring (_fcd fdesc, size_t len);
-H5_FCDLL void HD5packFstring(char *src, char *dest, size_t len);
-
+H5_FCDLL char *HD5f2cstring(_fcd fdesc, size_t len);
+H5_FCDLL void  HD5packFstring(char *src, char *dest, size_t len);
 
 /*
- * Storage info struct used by H5O_info_t and H5F_info_t 
+ * Storage info struct used by H5O_info_t and H5F_info_t
  * interoperable with Fortran.
  */
 typedef struct H5_ih_info_t_f {
-    hsize_t     index_size;     /* btree and/or list */
-    hsize_t     heap_size;
+    hsize_t index_size; /* btree and/or list */
+    hsize_t heap_size;
 } H5_ih_info_t_f;
 
-/* Information struct for object header metadata (for H5Oget_info/H5Oget_info_by_name/H5Oget_info_by_idx) 
+/* Information struct for object header metadata (for H5Oget_info/H5Oget_info_by_name/H5Oget_info_by_idx)
  *  interoperable with Fortran.
  */
 typedef struct H5O_hdr_info_t_f {
-    int_f version;		/* Version number of header format in file */
-    int_f nmesgs;		/* Number of object header messages */
-    int_f nchunks;		/* Number of object header chunks */
-    int_f flags;                /* Object header status flags */
+    int_f version; /* Version number of header format in file */
+    int_f nmesgs;  /* Number of object header messages */
+    int_f nchunks; /* Number of object header chunks */
+    int_f flags;   /* Object header status flags */
     struct {
-        hsize_t total;		/* Total space for storing object header in file */
-        hsize_t meta;		/* Space within header for object header metadata information */
-        hsize_t mesg;		/* Space within header for actual message information */
-        hsize_t free;		/* Free space within object header */
+        hsize_t total; /* Total space for storing object header in file */
+        hsize_t meta;  /* Space within header for object header metadata information */
+        hsize_t mesg;  /* Space within header for actual message information */
+        hsize_t free;  /* Free space within object header */
     } space;
     struct {
-        uint64_t present;	/* Flags to indicate presence of message type in header */
-        uint64_t shared;	/* Flags to indicate message type is shared in header */
+        uint64_t present; /* Flags to indicate presence of message type in header */
+        uint64_t shared;  /* Flags to indicate message type is shared in header */
     } mesg;
 } H5O_hdr_info_t_f;
 
-/* Information struct for object (for H5Oget_info/H5Oget_info_by_name/H5Oget_info_by_idx) 
+/* Information struct for object (for H5Oget_info/H5Oget_info_by_name/H5Oget_info_by_idx)
  *  interoperable with Fortran.
  */
 typedef struct H5O_info_t_f {
-    unsigned long 	fileno;		/* File number that object is located in */
-    haddr_t_f 		addr;		/* Object address in file	*/
-    int 		type;		/* Basic object type (group, dataset, etc.) */
-    int_f 		rc;		/* Reference count of object    */
-    int_f	        atime[8];	/* Access time			*/
-    int_f		mtime[8];	/* Modification time		*/
-    int_f		ctime[8];	/* Change time			*/
-    int_f		btime[8];	/* Birth time			*/
-    hsize_t 		num_attrs;	/* # of attributes attached to object */
-    H5O_hdr_info_t_f    hdr;            /* Object header information */
+    unsigned long    fileno;    /* File number that object is located in */
+    haddr_t_f        addr;      /* Object address in file	*/
+    int              type;      /* Basic object type (group, dataset, etc.) */
+    int_f            rc;        /* Reference count of object    */
+    int_f            atime[8];  /* Access time			*/
+    int_f            mtime[8];  /* Modification time		*/
+    int_f            ctime[8];  /* Change time			*/
+    int_f            btime[8];  /* Birth time			*/
+    hsize_t          num_attrs; /* # of attributes attached to object */
+    H5O_hdr_info_t_f hdr;       /* Object header information */
     /* Extra metadata storage for obj & attributes */
     struct {
-        H5_ih_info_t_f   obj;             /* v1/v2 B-tree & local/fractal heap for groups, B-tree for chunked datasets */
-        H5_ih_info_t_f   attr;            /* v2 B-tree & heap for attributes */
+        H5_ih_info_t_f obj;  /* v1/v2 B-tree & local/fractal heap for groups, B-tree for chunked datasets */
+        H5_ih_info_t_f attr; /* v2 B-tree & heap for attributes */
     } meta_size;
 } H5O_info_t_f;
 
-
 /*
  *  Functions from H5Ff.c
  */
-#define nh5fcreate_c              H5_FC_FUNC_(h5fcreate_c, H5FCREATE_C)
-#define nh5fflush_c               H5_FC_FUNC_(h5fflush_c, H5FFLUSH_C)
-#define nh5fclose_c               H5_FC_FUNC_(h5fclose_c, H5FCLOSE_C)
-#define nh5fopen_c                H5_FC_FUNC_(h5fopen_c, H5FOPEN_C)
-#define nh5fis_hdf5_c             H5_FC_FUNC_(h5fis_hdf5_c, H5FIS_HDF5_C)
-#define nh5fmount_c               H5_FC_FUNC_(h5fmount_c, H5FMOUNT_C)
-#define nh5funmount_c             H5_FC_FUNC_(h5funmount_c, H5FUNMOUNT_C)
-#define nh5freopen_c              H5_FC_FUNC_(h5freopen_c, H5FREOPEN_C)
-#define nh5fget_create_plist_c    H5_FC_FUNC_(h5fget_create_plist_c, H5FGET_CREATE_PLIST_C)
-#define nh5fget_access_plist_c    H5_FC_FUNC_(h5fget_access_plist_c, H5FGET_ACCESS_PLIST_C)
-#define nh5fget_obj_count_c       H5_FC_FUNC_(h5fget_obj_count_c, H5FGET_OBJ_COUNT_C)
-#define nh5fget_obj_ids_c         H5_FC_FUNC_(h5fget_obj_ids_c, H5FGET_OBJ_IDS_C)
-#define nh5fget_freespace_c       H5_FC_FUNC_(h5fget_freespace_c, H5FGET_FREESPACE_C)
-#define nh5fget_name_c            H5_FC_FUNC_(h5fget_name_c, H5FGET_NAME_C)
-#define nh5fget_filesize_c        H5_FC_FUNC_(h5fget_filesize_c, H5FGET_FILESIZE_C)
+#define nh5fcreate_c           H5_FC_FUNC_(h5fcreate_c, H5FCREATE_C)
+#define nh5fflush_c            H5_FC_FUNC_(h5fflush_c, H5FFLUSH_C)
+#define nh5fclose_c            H5_FC_FUNC_(h5fclose_c, H5FCLOSE_C)
+#define nh5fopen_c             H5_FC_FUNC_(h5fopen_c, H5FOPEN_C)
+#define nh5fis_hdf5_c          H5_FC_FUNC_(h5fis_hdf5_c, H5FIS_HDF5_C)
+#define nh5fmount_c            H5_FC_FUNC_(h5fmount_c, H5FMOUNT_C)
+#define nh5funmount_c          H5_FC_FUNC_(h5funmount_c, H5FUNMOUNT_C)
+#define nh5freopen_c           H5_FC_FUNC_(h5freopen_c, H5FREOPEN_C)
+#define nh5fget_create_plist_c H5_FC_FUNC_(h5fget_create_plist_c, H5FGET_CREATE_PLIST_C)
+#define nh5fget_access_plist_c H5_FC_FUNC_(h5fget_access_plist_c, H5FGET_ACCESS_PLIST_C)
+#define nh5fget_obj_count_c    H5_FC_FUNC_(h5fget_obj_count_c, H5FGET_OBJ_COUNT_C)
+#define nh5fget_obj_ids_c      H5_FC_FUNC_(h5fget_obj_ids_c, H5FGET_OBJ_IDS_C)
+#define nh5fget_freespace_c    H5_FC_FUNC_(h5fget_freespace_c, H5FGET_FREESPACE_C)
+#define nh5fget_name_c         H5_FC_FUNC_(h5fget_name_c, H5FGET_NAME_C)
+#define nh5fget_filesize_c     H5_FC_FUNC_(h5fget_filesize_c, H5FGET_FILESIZE_C)
 
-H5_FCDLL int_f nh5fcreate_c (_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *crt_prp, hid_t_f *acc_prp, hid_t_f *file_id);
-H5_FCDLL int_f nh5fopen_c (_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hid_t_f *file_id);
-H5_FCDLL int_f nh5fis_hdf5_c (_fcd name, int_f *namelen, int_f *flag);
-H5_FCDLL int_f nh5fclose_c (hid_t_f *file_id);
-H5_FCDLL int_f nh5fmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, hid_t_f *acc_prp);
-H5_FCDLL int_f nh5funmount_c (hid_t_f *loc_id, _fcd dsetname, int_f *namelen);
-H5_FCDLL int_f nh5freopen_c (hid_t_f *file_id1, hid_t_f *file_id2);
-H5_FCDLL int_f nh5fget_create_plist_c (hid_t_f *file_id, hid_t_f *prop_id);
-H5_FCDLL int_f nh5fget_access_plist_c (hid_t_f *file_id, hid_t_f *access_id);
-H5_FCDLL int_f nh5fget_obj_count_c (hid_t_f *file_id, int_f *obj_type, size_t_f *obj_count);
-H5_FCDLL int_f nh5fget_obj_ids_c (hid_t_f *file_id, int_f *obj_type, size_t_f *max_objs, hid_t_f *obj_ids, size_t_f *num_objs);
-H5_FCDLL int_f nh5fget_freespace_c (hid_t_f *file_id, hssize_t_f *free_space);
+H5_FCDLL int_f nh5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *crt_prp,
+                            hid_t_f *acc_prp, hid_t_f *file_id);
+H5_FCDLL int_f nh5fopen_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hid_t_f *file_id);
+H5_FCDLL int_f nh5fis_hdf5_c(_fcd name, int_f *namelen, int_f *flag);
+H5_FCDLL int_f nh5fclose_c(hid_t_f *file_id);
+H5_FCDLL int_f nh5fmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id,
+                           hid_t_f *acc_prp);
+H5_FCDLL int_f nh5funmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen);
+H5_FCDLL int_f nh5freopen_c(hid_t_f *file_id1, hid_t_f *file_id2);
+H5_FCDLL int_f nh5fget_create_plist_c(hid_t_f *file_id, hid_t_f *prop_id);
+H5_FCDLL int_f nh5fget_access_plist_c(hid_t_f *file_id, hid_t_f *access_id);
+H5_FCDLL int_f nh5fget_obj_count_c(hid_t_f *file_id, int_f *obj_type, size_t_f *obj_count);
+H5_FCDLL int_f nh5fget_obj_ids_c(hid_t_f *file_id, int_f *obj_type, size_t_f *max_objs, hid_t_f *obj_ids,
+                                 size_t_f *num_objs);
+H5_FCDLL int_f nh5fget_freespace_c(hid_t_f *file_id, hssize_t_f *free_space);
 H5_FCDLL int_f h5fget_file_image_c(hid_t_f *file_id, void *buf_ptr, size_t_f *buf_len, size_t_f *buf_req);
-H5_FCDLL int_f nh5fflush_c (hid_t_f *obj_id, int_f *scope);
+H5_FCDLL int_f nh5fflush_c(hid_t_f *obj_id, int_f *scope);
 H5_FCDLL int_f nh5fget_name_c(hid_t_f *obj_id, size_t_f *size, _fcd buf, size_t_f *buflen);
 H5_FCDLL int_f nh5fget_filesize_c(hid_t_f *file_id, hsize_t_f *size);
 
 /*
  * Functions from H5Sf.c
  */
-#define nh5screate_simple_c      H5_FC_FUNC_(h5screate_simple_c, H5SCREATE_SIMPLE_C)
-#define nh5sclose_c              H5_FC_FUNC_(h5sclose_c, H5SCLOSE_C)
-#define nh5screate_c             H5_FC_FUNC_(h5screate_c, H5SCREATE_C)
-#define nh5scopy_c               H5_FC_FUNC_(h5scopy_c, H5SCOPY_C)
-#define nh5sget_select_hyper_nblocks_c H5_FC_FUNC_(h5sget_select_hyper_nblocks_c, H5SGET_SELECT_HYPER_NBLOCKS_C)
-#define nh5sget_select_hyper_blocklist_c H5_FC_FUNC_(h5sget_select_hyper_blocklist_c, H5SGET_SELECT_HYPER_BLOCKLIST_C)
+#define nh5screate_simple_c H5_FC_FUNC_(h5screate_simple_c, H5SCREATE_SIMPLE_C)
+#define nh5sclose_c         H5_FC_FUNC_(h5sclose_c, H5SCLOSE_C)
+#define nh5screate_c        H5_FC_FUNC_(h5screate_c, H5SCREATE_C)
+#define nh5scopy_c          H5_FC_FUNC_(h5scopy_c, H5SCOPY_C)
+#define nh5sget_select_hyper_nblocks_c                                                                       \
+    H5_FC_FUNC_(h5sget_select_hyper_nblocks_c, H5SGET_SELECT_HYPER_NBLOCKS_C)
+#define nh5sget_select_hyper_blocklist_c                                                                     \
+    H5_FC_FUNC_(h5sget_select_hyper_blocklist_c, H5SGET_SELECT_HYPER_BLOCKLIST_C)
 #define nh5sget_select_elem_npoints_c H5_FC_FUNC_(h5sget_select_elem_npoints_c, H5SGET_SELECT_ELEM_NPOINTS_C)
-#define nh5sget_select_elem_pointlist_c H5_FC_FUNC_(h5sget_select_elem_pointlist_c, H5SGET_SELECT_ELEM_POINTLIST_C)
-#define nh5sget_select_bounds_c  H5_FC_FUNC_(h5sget_select_bounds_c, H5SGET_SELECT_BOUNDS_C)
-#define nh5sselect_all_c         H5_FC_FUNC_(h5sselect_all_c, H5SSELECT_ALL_C)
-#define nh5sselect_none_c        H5_FC_FUNC_(h5sselect_none_c, H5SSELECT_NONE_C)
-#define nh5sselect_valid_c       H5_FC_FUNC_(h5sselect_valid_c, H5SSELECT_VALID_C)
-#define nh5sget_simple_extent_npoints_c H5_FC_FUNC_(h5sget_simple_extent_npoints_c, H5SGET_SIMPLE_EXTENT_NPOINTS_C)
-#define nh5sget_select_npoints_c H5_FC_FUNC_(h5sget_select_npoints_c, H5SGET_SELECT_NPOINTS_C)
+#define nh5sget_select_elem_pointlist_c                                                                      \
+    H5_FC_FUNC_(h5sget_select_elem_pointlist_c, H5SGET_SELECT_ELEM_POINTLIST_C)
+#define nh5sget_select_bounds_c H5_FC_FUNC_(h5sget_select_bounds_c, H5SGET_SELECT_BOUNDS_C)
+#define nh5sselect_all_c        H5_FC_FUNC_(h5sselect_all_c, H5SSELECT_ALL_C)
+#define nh5sselect_none_c       H5_FC_FUNC_(h5sselect_none_c, H5SSELECT_NONE_C)
+#define nh5sselect_valid_c      H5_FC_FUNC_(h5sselect_valid_c, H5SSELECT_VALID_C)
+#define nh5sget_simple_extent_npoints_c                                                                      \
+    H5_FC_FUNC_(h5sget_simple_extent_npoints_c, H5SGET_SIMPLE_EXTENT_NPOINTS_C)
+#define nh5sget_select_npoints_c      H5_FC_FUNC_(h5sget_select_npoints_c, H5SGET_SELECT_NPOINTS_C)
 #define nh5sget_simple_extent_ndims_c H5_FC_FUNC_(h5sget_simple_extent_ndims_c, H5SGET_SIMPLE_EXTENT_NDIMS_C)
 #define nh5sget_simple_extent_type_c  H5_FC_FUNC_(h5sget_simple_extent_type_c, H5SGET_SIMPLE_EXTENT_TYPE_C)
-#define nh5soffset_simple_c      H5_FC_FUNC_(h5soffset_simple_c, H5SOFFSET_SIMPLE_C)
-#define nh5sset_extent_simple_c  H5_FC_FUNC_(h5sset_extent_simple_c, H5SSET_EXTENT_SIMPLE_C)
-#define nh5sis_simple_c          H5_FC_FUNC_(h5sis_simple_c, H5SIS_SIMPLE_C)
-#define nh5sextent_class_c       H5_FC_FUNC_(h5sextent_class_c, H5SEXTENT_CLASS_C)
-#define nh5sget_simple_extent_dims_c H5_FC_FUNC_(h5sget_simple_extent_dims_c, H5SGET_SIMPLE_EXTENT_DIMS_C)
-#define nh5sextent_copy_c        H5_FC_FUNC_(h5sextent_copy_c, H5SEXTENT_COPY_C)
-#define nh5sset_extent_none_c    H5_FC_FUNC_(h5sset_extent_none_c, H5SSET_EXTENT_NONE_C)
-#define nh5sselect_hyperslab_c   H5_FC_FUNC_(h5sselect_hyperslab_c, H5SSELECT_HYPERSLAB_C)
-#define nh5scombine_hyperslab_c   H5_FC_FUNC_(h5scombine_hyperslab_c, H5SCOMBINE_HYPERSLAB_C)
-#define nh5scombine_select_c   H5_FC_FUNC_(h5scombine_select_c, H5SCOMBINE_SELECT_C)
-#define nh5sselect_select_c   H5_FC_FUNC_(h5sselect_select_c, H5SSELECT_SELECT_C)
-#define nh5sget_select_type_c   H5_FC_FUNC_(h5sget_select_type_c, H5SGET_SELECT_TYPE_C)
-#define nh5sselect_elements_c    H5_FC_FUNC_(h5sselect_elements_c, H5SSELECT_ELEMENTS_C)
-#define nh5sdecode_c    H5_FC_FUNC_(h5sdecode_c, H5SDECODE_C)
-#define nh5sencode_c    H5_FC_FUNC_(h5sencode_c, H5SENCODE_C)
-#define nh5sextent_equal_c    H5_FC_FUNC_(h5sextent_equal_c, H5SEXTENT_EQUAL_C)
+#define nh5soffset_simple_c           H5_FC_FUNC_(h5soffset_simple_c, H5SOFFSET_SIMPLE_C)
+#define nh5sset_extent_simple_c       H5_FC_FUNC_(h5sset_extent_simple_c, H5SSET_EXTENT_SIMPLE_C)
+#define nh5sis_simple_c               H5_FC_FUNC_(h5sis_simple_c, H5SIS_SIMPLE_C)
+#define nh5sextent_class_c            H5_FC_FUNC_(h5sextent_class_c, H5SEXTENT_CLASS_C)
+#define nh5sget_simple_extent_dims_c  H5_FC_FUNC_(h5sget_simple_extent_dims_c, H5SGET_SIMPLE_EXTENT_DIMS_C)
+#define nh5sextent_copy_c             H5_FC_FUNC_(h5sextent_copy_c, H5SEXTENT_COPY_C)
+#define nh5sset_extent_none_c         H5_FC_FUNC_(h5sset_extent_none_c, H5SSET_EXTENT_NONE_C)
+#define nh5sselect_hyperslab_c        H5_FC_FUNC_(h5sselect_hyperslab_c, H5SSELECT_HYPERSLAB_C)
+#define nh5scombine_hyperslab_c       H5_FC_FUNC_(h5scombine_hyperslab_c, H5SCOMBINE_HYPERSLAB_C)
+#define nh5scombine_select_c          H5_FC_FUNC_(h5scombine_select_c, H5SCOMBINE_SELECT_C)
+#define nh5sselect_select_c           H5_FC_FUNC_(h5sselect_select_c, H5SSELECT_SELECT_C)
+#define nh5sget_select_type_c         H5_FC_FUNC_(h5sget_select_type_c, H5SGET_SELECT_TYPE_C)
+#define nh5sselect_elements_c         H5_FC_FUNC_(h5sselect_elements_c, H5SSELECT_ELEMENTS_C)
+#define nh5sdecode_c                  H5_FC_FUNC_(h5sdecode_c, H5SDECODE_C)
+#define nh5sencode_c                  H5_FC_FUNC_(h5sencode_c, H5SENCODE_C)
+#define nh5sextent_equal_c            H5_FC_FUNC_(h5sextent_equal_c, H5SEXTENT_EQUAL_C)
 
-H5_FCDLL int_f nh5screate_simple_c ( int_f *rank, hsize_t_f *dims, hsize_t_f *maxdims, hid_t_f *space_id );
-H5_FCDLL int_f nh5sclose_c ( hid_t_f *space_id );
-H5_FCDLL int_f nh5screate_c ( int_f *classtype, hid_t_f *space_id );
-H5_FCDLL int_f nh5scopy_c ( hid_t_f *space_id , hid_t_f *new_space_id);
-H5_FCDLL int_f nh5sget_select_hyper_nblocks_c( hid_t_f *space_id , hssize_t_f * num_blocks);
-H5_FCDLL int_f nh5sget_select_hyper_blocklist_c( hid_t_f *space_id ,hsize_t_f * startblock, hsize_t_f * num_blocks, hsize_t_f * buf);
-H5_FCDLL int_f nh5sget_select_bounds_c( hid_t_f *space_id , hsize_t_f * start, hsize_t_f * end);
-H5_FCDLL int_f nh5sget_select_elem_npoints_c( hid_t_f *space_id , hssize_t_f * num_points);
-H5_FCDLL int_f nh5sget_select_elem_pointlist_c( hid_t_f *space_id ,hsize_t_f * startpoint, hsize_t_f * numpoints, hsize_t_f * buf);
-H5_FCDLL int_f nh5sselect_all_c ( hid_t_f *space_id );
-H5_FCDLL int_f nh5sselect_none_c ( hid_t_f *space_id );
-H5_FCDLL int_f nh5sselect_valid_c ( hid_t_f *space_id , int_f *flag );
-H5_FCDLL int_f nh5sget_simple_extent_npoints_c ( hid_t_f *space_id , hsize_t_f *npoints );
-H5_FCDLL int_f nh5sget_select_npoints_c ( hid_t_f *space_id , hssize_t_f *npoints );
-H5_FCDLL int_f nh5sget_simple_extent_ndims_c ( hid_t_f *space_id , int_f *ndims );
-H5_FCDLL int_f nh5sget_simple_extent_type_c ( hid_t_f *space_id , int_f *classtype);
-H5_FCDLL int_f nh5soffset_simple_c ( hid_t_f *space_id , hssize_t_f *offset);
-H5_FCDLL int_f nh5sset_extent_simple_c ( hid_t_f *space_id , int_f *rank, hsize_t_f * current_size, hsize_t_f *maximum_size);
-H5_FCDLL int_f nh5sis_simple_c ( hid_t_f *space_id , int_f *flag );
-H5_FCDLL int_f nh5sextent_class_c ( hid_t_f *space_id , int_f *classtype);
-H5_FCDLL int_f nh5sget_simple_extent_dims_c ( hid_t_f *space_id , hsize_t_f *dims, hsize_t_f *maxdims);
-H5_FCDLL int_f nh5sextent_copy_c ( hid_t_f *dest_space_id , hid_t_f *source_space_id);
-H5_FCDLL int_f nh5sset_extent_none_c ( hid_t_f *space_id );
-H5_FCDLL int_f nh5sselect_hyperslab_c ( hid_t_f *space_id , int_f *op, hsize_t_f *start, hsize_t_f *count, hsize_t_f *stride, hsize_t_f *block);
-H5_FCDLL int_f nh5sget_select_type_c ( hid_t_f *space_id , int_f *op);
-H5_FCDLL int_f nh5sselect_elements_c ( hid_t_f *space_id , int_f *op, size_t_f *nelements, hsize_t_f *coord);
-H5_FCDLL int_f nh5scombine_hyperslab_c ( hid_t_f *space_id , int_f *op, hsize_t_f *start, hsize_t_f *count, hsize_t_f *stride, hsize_t_f *block, hid_t_f *hyper_id);
-H5_FCDLL int_f nh5scombine_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *space2_id, hid_t_f *ds_id);
-H5_FCDLL int_f nh5sselect_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *space2_id);
-H5_FCDLL int_f nh5sdecode_c ( _fcd buf, hid_t_f *obj_id );
-H5_FCDLL int_f nh5sencode_c (_fcd buf, hid_t_f *obj_id, size_t_f *nalloc );
-H5_FCDLL int_f nh5sextent_equal_c ( hid_t_f * space1_id, hid_t_f *space2_id, hid_t_f *c_equal);
+H5_FCDLL int_f nh5screate_simple_c(int_f *rank, hsize_t_f *dims, hsize_t_f *maxdims, hid_t_f *space_id);
+H5_FCDLL int_f nh5sclose_c(hid_t_f *space_id);
+H5_FCDLL int_f nh5screate_c(int_f *classtype, hid_t_f *space_id);
+H5_FCDLL int_f nh5scopy_c(hid_t_f *space_id, hid_t_f *new_space_id);
+H5_FCDLL int_f nh5sget_select_hyper_nblocks_c(hid_t_f *space_id, hssize_t_f *num_blocks);
+H5_FCDLL int_f nh5sget_select_hyper_blocklist_c(hid_t_f *space_id, hsize_t_f *startblock,
+                                                hsize_t_f *num_blocks, hsize_t_f *buf);
+H5_FCDLL int_f nh5sget_select_bounds_c(hid_t_f *space_id, hsize_t_f *start, hsize_t_f *end);
+H5_FCDLL int_f nh5sget_select_elem_npoints_c(hid_t_f *space_id, hssize_t_f *num_points);
+H5_FCDLL int_f nh5sget_select_elem_pointlist_c(hid_t_f *space_id, hsize_t_f *startpoint, hsize_t_f *numpoints,
+                                               hsize_t_f *buf);
+H5_FCDLL int_f nh5sselect_all_c(hid_t_f *space_id);
+H5_FCDLL int_f nh5sselect_none_c(hid_t_f *space_id);
+H5_FCDLL int_f nh5sselect_valid_c(hid_t_f *space_id, int_f *flag);
+H5_FCDLL int_f nh5sget_simple_extent_npoints_c(hid_t_f *space_id, hsize_t_f *npoints);
+H5_FCDLL int_f nh5sget_select_npoints_c(hid_t_f *space_id, hssize_t_f *npoints);
+H5_FCDLL int_f nh5sget_simple_extent_ndims_c(hid_t_f *space_id, int_f *ndims);
+H5_FCDLL int_f nh5sget_simple_extent_type_c(hid_t_f *space_id, int_f *classtype);
+H5_FCDLL int_f nh5soffset_simple_c(hid_t_f *space_id, hssize_t_f *offset);
+H5_FCDLL int_f nh5sset_extent_simple_c(hid_t_f *space_id, int_f *rank, hsize_t_f *current_size,
+                                       hsize_t_f *maximum_size);
+H5_FCDLL int_f nh5sis_simple_c(hid_t_f *space_id, int_f *flag);
+H5_FCDLL int_f nh5sextent_class_c(hid_t_f *space_id, int_f *classtype);
+H5_FCDLL int_f nh5sget_simple_extent_dims_c(hid_t_f *space_id, hsize_t_f *dims, hsize_t_f *maxdims);
+H5_FCDLL int_f nh5sextent_copy_c(hid_t_f *dest_space_id, hid_t_f *source_space_id);
+H5_FCDLL int_f nh5sset_extent_none_c(hid_t_f *space_id);
+H5_FCDLL int_f nh5sselect_hyperslab_c(hid_t_f *space_id, int_f *op, hsize_t_f *start, hsize_t_f *count,
+                                      hsize_t_f *stride, hsize_t_f *block);
+H5_FCDLL int_f nh5sget_select_type_c(hid_t_f *space_id, int_f *op);
+H5_FCDLL int_f nh5sselect_elements_c(hid_t_f *space_id, int_f *op, size_t_f *nelements, hsize_t_f *coord);
+H5_FCDLL int_f nh5scombine_hyperslab_c(hid_t_f *space_id, int_f *op, hsize_t_f *start, hsize_t_f *count,
+                                       hsize_t_f *stride, hsize_t_f *block, hid_t_f *hyper_id);
+H5_FCDLL int_f nh5scombine_select_c(hid_t_f *space1_id, int_f *op, hid_t_f *space2_id, hid_t_f *ds_id);
+H5_FCDLL int_f nh5sselect_select_c(hid_t_f *space1_id, int_f *op, hid_t_f *space2_id);
+H5_FCDLL int_f nh5sdecode_c(_fcd buf, hid_t_f *obj_id);
+H5_FCDLL int_f nh5sencode_c(_fcd buf, hid_t_f *obj_id, size_t_f *nalloc);
+H5_FCDLL int_f nh5sextent_equal_c(hid_t_f *space1_id, hid_t_f *space2_id, hid_t_f *c_equal);
 
 /*
  * Functions from H5Df.c
  */
-#define nh5dcreate_c                H5_FC_FUNC_(h5dcreate_c, H5DCREATE_C)
-#define nh5dclose_c                 H5_FC_FUNC_(h5dclose_c, H5DCLOSE_C)
-#define nh5dopen_c                  H5_FC_FUNC_(h5dopen_c, H5DOPEN_C)
-#define nh5dwrite_c                 H5_FC_FUNC_(h5dwrite_c, H5DWRITE_C)
-#define nh5dwrite_integer_s_c       H5_FC_FUNC_(h5dwrite_integer_s_c, H5DWRITE_INTEGER_S_C)
-#define nh5dwrite_integer_1_c       H5_FC_FUNC_(h5dwrite_integer_1_c, H5DWRITE_INTEGER_1_C)
-#define nh5dwrite_integer_2_c       H5_FC_FUNC_(h5dwrite_integer_2_c, H5DWRITE_INTEGER_2_C)
-#define nh5dwrite_integer_3_c       H5_FC_FUNC_(h5dwrite_integer_3_c, H5DWRITE_INTEGER_3_C)
-#define nh5dwrite_integer_4_c       H5_FC_FUNC_(h5dwrite_integer_4_c, H5DWRITE_INTEGER_4_C)
-#define nh5dwrite_integer_5_c       H5_FC_FUNC_(h5dwrite_integer_5_c, H5DWRITE_INTEGER_5_C)
-#define nh5dwrite_integer_6_c       H5_FC_FUNC_(h5dwrite_integer_6_c, H5DWRITE_INTEGER_6_C)
-#define nh5dwrite_integer_7_c       H5_FC_FUNC_(h5dwrite_integer_7_c, H5DWRITE_INTEGER_7_C)
-#define nh5dwrite_real_s_c          H5_FC_FUNC_(h5dwrite_real_s_c, H5DWRITE_REAL_S_C)
-#define nh5dwrite_real_1_c          H5_FC_FUNC_(h5dwrite_real_1_c, H5DWRITE_REAL_1_C)
-#define nh5dwrite_real_2_c          H5_FC_FUNC_(h5dwrite_real_2_c, H5DWRITE_REAL_2_C)
-#define nh5dwrite_real_3_c          H5_FC_FUNC_(h5dwrite_real_3_c, H5DWRITE_REAL_3_C)
-#define nh5dwrite_real_4_c          H5_FC_FUNC_(h5dwrite_real_4_c, H5DWRITE_REAL_4_C)
-#define nh5dwrite_real_5_c          H5_FC_FUNC_(h5dwrite_real_5_c, H5DWRITE_REAL_5_C)
-#define nh5dwrite_real_6_c          H5_FC_FUNC_(h5dwrite_real_6_c, H5DWRITE_REAL_6_C)
-#define nh5dwrite_real_7_c          H5_FC_FUNC_(h5dwrite_real_7_c, H5DWRITE_REAL_7_C)
-#define nh5dwrite_double_s_c        H5_FC_FUNC_(h5dwrite_double_s_c, H5DWRITE_DOUBLE_S_C)
-#define nh5dwrite_double_1_c        H5_FC_FUNC_(h5dwrite_double_1_c, H5DWRITE_DOUBLE_1_C)
-#define nh5dwrite_double_2_c        H5_FC_FUNC_(h5dwrite_double_2_c, H5DWRITE_DOUBLE_2_C)
-#define nh5dwrite_double_3_c        H5_FC_FUNC_(h5dwrite_double_3_c, H5DWRITE_DOUBLE_3_C)
-#define nh5dwrite_double_4_c        H5_FC_FUNC_(h5dwrite_double_4_c, H5DWRITE_DOUBLE_4_C)
-#define nh5dwrite_double_5_c        H5_FC_FUNC_(h5dwrite_double_5_c, H5DWRITE_DOUBLE_5_C)
-#define nh5dwrite_double_6_c        H5_FC_FUNC_(h5dwrite_double_6_c, H5DWRITE_DOUBLE_6_C)
-#define nh5dwrite_double_7_c        H5_FC_FUNC_(h5dwrite_double_7_c, H5DWRITE_DOUBLE_7_C)
-#define nh5dwrite_ref_obj_c         H5_FC_FUNC_(h5dwrite_ref_obj_c, H5DWRITE_REF_OBJ_C)
-#define nh5dwrite_ref_reg_c         H5_FC_FUNC_(h5dwrite_ref_reg_c, H5DWRITE_REF_REG_C)
-#define nh5dwritec_c                H5_FC_FUNC_(h5dwritec_c, H5DWRITEC_C)
-#define nh5dwritec_s_c                H5_FC_FUNC_(h5dwritec_s_c, H5DWRITEC_S_C)
-#define nh5dwritec_1_c                H5_FC_FUNC_(h5dwritec_1_c, H5DWRITEC_1_C)
-#define nh5dwritec_2_c                H5_FC_FUNC_(h5dwritec_2_c, H5DWRITEC_2_C)
-#define nh5dwritec_3_c                H5_FC_FUNC_(h5dwritec_3_c, H5DWRITEC_3_C)
-#define nh5dwritec_4_c                H5_FC_FUNC_(h5dwritec_4_c, H5DWRITEC_4_C)
-#define nh5dwritec_5_c                H5_FC_FUNC_(h5dwritec_5_c, H5DWRITEC_5_C)
-#define nh5dwritec_6_c                H5_FC_FUNC_(h5dwritec_6_c, H5DWRITEC_6_C)
-#define nh5dwritec_7_c                H5_FC_FUNC_(h5dwritec_7_c, H5DWRITEC_7_C)
-#define nh5dread_c                  H5_FC_FUNC_(h5dread_c, H5DREAD_C)
-#define nh5dread_integer_s_c                 H5_FC_FUNC_(h5dread_integer_s_c, H5DREAD_INTEGER_S_C)
-#define nh5dread_integer_1_c                 H5_FC_FUNC_(h5dread_integer_1_c, H5DREAD_INTEGER_1_C)
-#define nh5dread_integer_2_c                 H5_FC_FUNC_(h5dread_integer_2_c, H5DREAD_INTEGER_2_C)
-#define nh5dread_integer_3_c                 H5_FC_FUNC_(h5dread_integer_3_c, H5DREAD_INTEGER_3_C)
-#define nh5dread_integer_4_c                 H5_FC_FUNC_(h5dread_integer_4_c, H5DREAD_INTEGER_4_C)
-#define nh5dread_integer_5_c                 H5_FC_FUNC_(h5dread_integer_5_c, H5DREAD_INTEGER_5_C)
-#define nh5dread_integer_6_c                 H5_FC_FUNC_(h5dread_integer_6_c, H5DREAD_INTEGER_6_C)
-#define nh5dread_integer_7_c                 H5_FC_FUNC_(h5dread_integer_7_c, H5DREAD_INTEGER_7_C)
-#define nh5dread_real_s_c                 H5_FC_FUNC_(h5dread_real_s_c, H5DREAD_REAL_S_C)
-#define nh5dread_real_1_c                 H5_FC_FUNC_(h5dread_real_1_c, H5DREAD_REAL_1_C)
-#define nh5dread_real_2_c                 H5_FC_FUNC_(h5dread_real_2_c, H5DREAD_REAL_2_C)
-#define nh5dread_real_3_c                 H5_FC_FUNC_(h5dread_real_3_c, H5DREAD_REAL_3_C)
-#define nh5dread_real_4_c                 H5_FC_FUNC_(h5dread_real_4_c, H5DREAD_REAL_4_C)
-#define nh5dread_real_5_c                 H5_FC_FUNC_(h5dread_real_5_c, H5DREAD_REAL_5_C)
-#define nh5dread_real_6_c                 H5_FC_FUNC_(h5dread_real_6_c, H5DREAD_REAL_6_C)
-#define nh5dread_real_7_c                 H5_FC_FUNC_(h5dread_real_7_c, H5DREAD_REAL_7_C)
-#define nh5dread_double_s_c                 H5_FC_FUNC_(h5dread_double_s_c, H5DREAD_DOUBLE_S_C)
-#define nh5dread_double_1_c                 H5_FC_FUNC_(h5dread_double_1_c, H5DREAD_DOUBLE_1_C)
-#define nh5dread_double_2_c                 H5_FC_FUNC_(h5dread_double_2_c, H5DREAD_DOUBLE_2_C)
-#define nh5dread_double_3_c                 H5_FC_FUNC_(h5dread_double_3_c, H5DREAD_DOUBLE_3_C)
-#define nh5dread_double_4_c                 H5_FC_FUNC_(h5dread_double_4_c, H5DREAD_DOUBLE_4_C)
-#define nh5dread_double_5_c                 H5_FC_FUNC_(h5dread_double_5_c, H5DREAD_DOUBLE_5_C)
-#define nh5dread_double_6_c                 H5_FC_FUNC_(h5dread_double_6_c, H5DREAD_DOUBLE_6_C)
-#define nh5dread_double_7_c                 H5_FC_FUNC_(h5dread_double_7_c, H5DREAD_DOUBLE_7_C)
-#define nh5dread_c_b                H5_FC_FUNC_(h5dread_c_b, H5DREAD_C_B)
-#define nh5dread_ref_reg_c          H5_FC_FUNC_(h5dread_ref_reg_c, H5DREAD_REF_REG_C)
-#define nh5dread_ref_obj_c          H5_FC_FUNC_(h5dread_ref_obj_c, H5DREAD_REF_OBJ_C)
-#define nh5dreadc_c                 H5_FC_FUNC_(h5dreadc_c, H5DREADC_C)
-#define nh5dreadc_s_c                 H5_FC_FUNC_(h5dreadc_s_c, H5DREADC_S_C)
-#define nh5dreadc_1_c                 H5_FC_FUNC_(h5dreadc_1_c, H5DREADC_1_C)
-#define nh5dreadc_2_c                 H5_FC_FUNC_(h5dreadc_2_c, H5DREADC_2_C)
-#define nh5dreadc_3_c                 H5_FC_FUNC_(h5dreadc_3_c, H5DREADC_3_C)
-#define nh5dreadc_4_c                 H5_FC_FUNC_(h5dreadc_4_c, H5DREADC_4_C)
-#define nh5dreadc_5_c                 H5_FC_FUNC_(h5dreadc_5_c, H5DREADC_5_C)
-#define nh5dreadc_6_c                 H5_FC_FUNC_(h5dreadc_6_c, H5DREADC_6_C)
-#define nh5dreadc_7_c                 H5_FC_FUNC_(h5dreadc_7_c, H5DREADC_7_C)
-#define nh5dreadc_c_b               H5_FC_FUNC_(h5dreadc_c_b, H5DREADC_C_B)
-#define nh5dget_space_c             H5_FC_FUNC_(h5dget_space_c, H5DGET_SPACE_C)
-#define nh5dget_type_c              H5_FC_FUNC_(h5dget_type_c, H5DGET_TYPE_C)
-#define nh5dget_create_plist_c      H5_FC_FUNC_(h5dget_create_plist_c, H5DGET_CREATE_PLIST_C)
-#define nh5dset_extent_c            H5_FC_FUNC_(h5dset_extent_c, H5DSET_EXTENT_C)
-#define nh5dget_storage_size_c      H5_FC_FUNC_(h5dget_storage_size_c, H5DGET_STORAGE_SIZE_C)
-#define nh5dvlen_get_max_len_c      H5_FC_FUNC_(h5dvlen_get_max_len_c, H5DVLEN_GET_MAX_LEN_C)
-#define nh5dwrite_vl_integer_c      H5_FC_FUNC_(h5dwrite_vl_integer_c, H5DWRITE_VL_INTEGER_C)
-#define nh5dread_vl_integer_c       H5_FC_FUNC_(h5dread_vl_integer_c, H5DREAD_VL_INTEGER_C)
-#define nh5dwrite_vl_real_c         H5_FC_FUNC_(h5dwrite_vl_real_c, H5DWRITE_VL_REAL_C)
-#define nh5dread_vl_real_c          H5_FC_FUNC_(h5dread_vl_real_c, H5DREAD_VL_REAL_C)
-#define nh5dwrite_vl_string_c       H5_FC_FUNC_(h5dwrite_vl_string_c, H5DWRITE_VL_STRING_C)
-#define nh5dread_vl_string_c        H5_FC_FUNC_(h5dread_vl_string_c, H5DREAD_VL_STRING_C)
-#define nh5dfillc_c                 H5_FC_FUNC_(h5dfillc_c, H5DFILLC_C)
-#define nh5dfill_integer_c                  H5_FC_FUNC_(h5dfill_integer_c, H5DFILL_INTEGER_C)
-#define nh5dfill_real_c                  H5_FC_FUNC_(h5dfill_real_c, H5DFILL_REAL_C)
-#define nh5dfill_double_c                  H5_FC_FUNC_(h5dfill_double_c, H5DFILL_DOUBLE_C)
-#define nh5dget_space_status_c    H5_FC_FUNC_(h5dget_space_status_c, H5DGET_SPACE_STATUS_C)
-#define nh5dcreate_anon_c         H5_FC_FUNC_(h5dcreate_anon_c, H5DCREATE_ANON_C)
-#define nh5dget_access_plist_c    H5_FC_FUNC_(h5dget_access_plist_c, H5DGET_ACCESS_PLIST_C)
-
+#define nh5dcreate_c           H5_FC_FUNC_(h5dcreate_c, H5DCREATE_C)
+#define nh5dclose_c            H5_FC_FUNC_(h5dclose_c, H5DCLOSE_C)
+#define nh5dopen_c             H5_FC_FUNC_(h5dopen_c, H5DOPEN_C)
+#define nh5dwrite_c            H5_FC_FUNC_(h5dwrite_c, H5DWRITE_C)
+#define nh5dwrite_integer_s_c  H5_FC_FUNC_(h5dwrite_integer_s_c, H5DWRITE_INTEGER_S_C)
+#define nh5dwrite_integer_1_c  H5_FC_FUNC_(h5dwrite_integer_1_c, H5DWRITE_INTEGER_1_C)
+#define nh5dwrite_integer_2_c  H5_FC_FUNC_(h5dwrite_integer_2_c, H5DWRITE_INTEGER_2_C)
+#define nh5dwrite_integer_3_c  H5_FC_FUNC_(h5dwrite_integer_3_c, H5DWRITE_INTEGER_3_C)
+#define nh5dwrite_integer_4_c  H5_FC_FUNC_(h5dwrite_integer_4_c, H5DWRITE_INTEGER_4_C)
+#define nh5dwrite_integer_5_c  H5_FC_FUNC_(h5dwrite_integer_5_c, H5DWRITE_INTEGER_5_C)
+#define nh5dwrite_integer_6_c  H5_FC_FUNC_(h5dwrite_integer_6_c, H5DWRITE_INTEGER_6_C)
+#define nh5dwrite_integer_7_c  H5_FC_FUNC_(h5dwrite_integer_7_c, H5DWRITE_INTEGER_7_C)
+#define nh5dwrite_real_s_c     H5_FC_FUNC_(h5dwrite_real_s_c, H5DWRITE_REAL_S_C)
+#define nh5dwrite_real_1_c     H5_FC_FUNC_(h5dwrite_real_1_c, H5DWRITE_REAL_1_C)
+#define nh5dwrite_real_2_c     H5_FC_FUNC_(h5dwrite_real_2_c, H5DWRITE_REAL_2_C)
+#define nh5dwrite_real_3_c     H5_FC_FUNC_(h5dwrite_real_3_c, H5DWRITE_REAL_3_C)
+#define nh5dwrite_real_4_c     H5_FC_FUNC_(h5dwrite_real_4_c, H5DWRITE_REAL_4_C)
+#define nh5dwrite_real_5_c     H5_FC_FUNC_(h5dwrite_real_5_c, H5DWRITE_REAL_5_C)
+#define nh5dwrite_real_6_c     H5_FC_FUNC_(h5dwrite_real_6_c, H5DWRITE_REAL_6_C)
+#define nh5dwrite_real_7_c     H5_FC_FUNC_(h5dwrite_real_7_c, H5DWRITE_REAL_7_C)
+#define nh5dwrite_double_s_c   H5_FC_FUNC_(h5dwrite_double_s_c, H5DWRITE_DOUBLE_S_C)
+#define nh5dwrite_double_1_c   H5_FC_FUNC_(h5dwrite_double_1_c, H5DWRITE_DOUBLE_1_C)
+#define nh5dwrite_double_2_c   H5_FC_FUNC_(h5dwrite_double_2_c, H5DWRITE_DOUBLE_2_C)
+#define nh5dwrite_double_3_c   H5_FC_FUNC_(h5dwrite_double_3_c, H5DWRITE_DOUBLE_3_C)
+#define nh5dwrite_double_4_c   H5_FC_FUNC_(h5dwrite_double_4_c, H5DWRITE_DOUBLE_4_C)
+#define nh5dwrite_double_5_c   H5_FC_FUNC_(h5dwrite_double_5_c, H5DWRITE_DOUBLE_5_C)
+#define nh5dwrite_double_6_c   H5_FC_FUNC_(h5dwrite_double_6_c, H5DWRITE_DOUBLE_6_C)
+#define nh5dwrite_double_7_c   H5_FC_FUNC_(h5dwrite_double_7_c, H5DWRITE_DOUBLE_7_C)
+#define nh5dwrite_ref_obj_c    H5_FC_FUNC_(h5dwrite_ref_obj_c, H5DWRITE_REF_OBJ_C)
+#define nh5dwrite_ref_reg_c    H5_FC_FUNC_(h5dwrite_ref_reg_c, H5DWRITE_REF_REG_C)
+#define nh5dwritec_c           H5_FC_FUNC_(h5dwritec_c, H5DWRITEC_C)
+#define nh5dwritec_s_c         H5_FC_FUNC_(h5dwritec_s_c, H5DWRITEC_S_C)
+#define nh5dwritec_1_c         H5_FC_FUNC_(h5dwritec_1_c, H5DWRITEC_1_C)
+#define nh5dwritec_2_c         H5_FC_FUNC_(h5dwritec_2_c, H5DWRITEC_2_C)
+#define nh5dwritec_3_c         H5_FC_FUNC_(h5dwritec_3_c, H5DWRITEC_3_C)
+#define nh5dwritec_4_c         H5_FC_FUNC_(h5dwritec_4_c, H5DWRITEC_4_C)
+#define nh5dwritec_5_c         H5_FC_FUNC_(h5dwritec_5_c, H5DWRITEC_5_C)
+#define nh5dwritec_6_c         H5_FC_FUNC_(h5dwritec_6_c, H5DWRITEC_6_C)
+#define nh5dwritec_7_c         H5_FC_FUNC_(h5dwritec_7_c, H5DWRITEC_7_C)
+#define nh5dread_c             H5_FC_FUNC_(h5dread_c, H5DREAD_C)
+#define nh5dread_integer_s_c   H5_FC_FUNC_(h5dread_integer_s_c, H5DREAD_INTEGER_S_C)
+#define nh5dread_integer_1_c   H5_FC_FUNC_(h5dread_integer_1_c, H5DREAD_INTEGER_1_C)
+#define nh5dread_integer_2_c   H5_FC_FUNC_(h5dread_integer_2_c, H5DREAD_INTEGER_2_C)
+#define nh5dread_integer_3_c   H5_FC_FUNC_(h5dread_integer_3_c, H5DREAD_INTEGER_3_C)
+#define nh5dread_integer_4_c   H5_FC_FUNC_(h5dread_integer_4_c, H5DREAD_INTEGER_4_C)
+#define nh5dread_integer_5_c   H5_FC_FUNC_(h5dread_integer_5_c, H5DREAD_INTEGER_5_C)
+#define nh5dread_integer_6_c   H5_FC_FUNC_(h5dread_integer_6_c, H5DREAD_INTEGER_6_C)
+#define nh5dread_integer_7_c   H5_FC_FUNC_(h5dread_integer_7_c, H5DREAD_INTEGER_7_C)
+#define nh5dread_real_s_c      H5_FC_FUNC_(h5dread_real_s_c, H5DREAD_REAL_S_C)
+#define nh5dread_real_1_c      H5_FC_FUNC_(h5dread_real_1_c, H5DREAD_REAL_1_C)
+#define nh5dread_real_2_c      H5_FC_FUNC_(h5dread_real_2_c, H5DREAD_REAL_2_C)
+#define nh5dread_real_3_c      H5_FC_FUNC_(h5dread_real_3_c, H5DREAD_REAL_3_C)
+#define nh5dread_real_4_c      H5_FC_FUNC_(h5dread_real_4_c, H5DREAD_REAL_4_C)
+#define nh5dread_real_5_c      H5_FC_FUNC_(h5dread_real_5_c, H5DREAD_REAL_5_C)
+#define nh5dread_real_6_c      H5_FC_FUNC_(h5dread_real_6_c, H5DREAD_REAL_6_C)
+#define nh5dread_real_7_c      H5_FC_FUNC_(h5dread_real_7_c, H5DREAD_REAL_7_C)
+#define nh5dread_double_s_c    H5_FC_FUNC_(h5dread_double_s_c, H5DREAD_DOUBLE_S_C)
+#define nh5dread_double_1_c    H5_FC_FUNC_(h5dread_double_1_c, H5DREAD_DOUBLE_1_C)
+#define nh5dread_double_2_c    H5_FC_FUNC_(h5dread_double_2_c, H5DREAD_DOUBLE_2_C)
+#define nh5dread_double_3_c    H5_FC_FUNC_(h5dread_double_3_c, H5DREAD_DOUBLE_3_C)
+#define nh5dread_double_4_c    H5_FC_FUNC_(h5dread_double_4_c, H5DREAD_DOUBLE_4_C)
+#define nh5dread_double_5_c    H5_FC_FUNC_(h5dread_double_5_c, H5DREAD_DOUBLE_5_C)
+#define nh5dread_double_6_c    H5_FC_FUNC_(h5dread_double_6_c, H5DREAD_DOUBLE_6_C)
+#define nh5dread_double_7_c    H5_FC_FUNC_(h5dread_double_7_c, H5DREAD_DOUBLE_7_C)
+#define nh5dread_c_b           H5_FC_FUNC_(h5dread_c_b, H5DREAD_C_B)
+#define nh5dread_ref_reg_c     H5_FC_FUNC_(h5dread_ref_reg_c, H5DREAD_REF_REG_C)
+#define nh5dread_ref_obj_c     H5_FC_FUNC_(h5dread_ref_obj_c, H5DREAD_REF_OBJ_C)
+#define nh5dreadc_c            H5_FC_FUNC_(h5dreadc_c, H5DREADC_C)
+#define nh5dreadc_s_c          H5_FC_FUNC_(h5dreadc_s_c, H5DREADC_S_C)
+#define nh5dreadc_1_c          H5_FC_FUNC_(h5dreadc_1_c, H5DREADC_1_C)
+#define nh5dreadc_2_c          H5_FC_FUNC_(h5dreadc_2_c, H5DREADC_2_C)
+#define nh5dreadc_3_c          H5_FC_FUNC_(h5dreadc_3_c, H5DREADC_3_C)
+#define nh5dreadc_4_c          H5_FC_FUNC_(h5dreadc_4_c, H5DREADC_4_C)
+#define nh5dreadc_5_c          H5_FC_FUNC_(h5dreadc_5_c, H5DREADC_5_C)
+#define nh5dreadc_6_c          H5_FC_FUNC_(h5dreadc_6_c, H5DREADC_6_C)
+#define nh5dreadc_7_c          H5_FC_FUNC_(h5dreadc_7_c, H5DREADC_7_C)
+#define nh5dreadc_c_b          H5_FC_FUNC_(h5dreadc_c_b, H5DREADC_C_B)
+#define nh5dget_space_c        H5_FC_FUNC_(h5dget_space_c, H5DGET_SPACE_C)
+#define nh5dget_type_c         H5_FC_FUNC_(h5dget_type_c, H5DGET_TYPE_C)
+#define nh5dget_create_plist_c H5_FC_FUNC_(h5dget_create_plist_c, H5DGET_CREATE_PLIST_C)
+#define nh5dset_extent_c       H5_FC_FUNC_(h5dset_extent_c, H5DSET_EXTENT_C)
+#define nh5dget_storage_size_c H5_FC_FUNC_(h5dget_storage_size_c, H5DGET_STORAGE_SIZE_C)
+#define nh5dvlen_get_max_len_c H5_FC_FUNC_(h5dvlen_get_max_len_c, H5DVLEN_GET_MAX_LEN_C)
+#define nh5dwrite_vl_integer_c H5_FC_FUNC_(h5dwrite_vl_integer_c, H5DWRITE_VL_INTEGER_C)
+#define nh5dread_vl_integer_c  H5_FC_FUNC_(h5dread_vl_integer_c, H5DREAD_VL_INTEGER_C)
+#define nh5dwrite_vl_real_c    H5_FC_FUNC_(h5dwrite_vl_real_c, H5DWRITE_VL_REAL_C)
+#define nh5dread_vl_real_c     H5_FC_FUNC_(h5dread_vl_real_c, H5DREAD_VL_REAL_C)
+#define nh5dwrite_vl_string_c  H5_FC_FUNC_(h5dwrite_vl_string_c, H5DWRITE_VL_STRING_C)
+#define nh5dread_vl_string_c   H5_FC_FUNC_(h5dread_vl_string_c, H5DREAD_VL_STRING_C)
+#define nh5dfillc_c            H5_FC_FUNC_(h5dfillc_c, H5DFILLC_C)
+#define nh5dfill_integer_c     H5_FC_FUNC_(h5dfill_integer_c, H5DFILL_INTEGER_C)
+#define nh5dfill_real_c        H5_FC_FUNC_(h5dfill_real_c, H5DFILL_REAL_C)
+#define nh5dfill_double_c      H5_FC_FUNC_(h5dfill_double_c, H5DFILL_DOUBLE_C)
+#define nh5dget_space_status_c H5_FC_FUNC_(h5dget_space_status_c, H5DGET_SPACE_STATUS_C)
+#define nh5dcreate_anon_c      H5_FC_FUNC_(h5dcreate_anon_c, H5DCREATE_ANON_C)
+#define nh5dget_access_plist_c H5_FC_FUNC_(h5dget_access_plist_c, H5DGET_ACCESS_PLIST_C)
 
-H5_FCDLL int_f nh5dcreate_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *space_id,
-			     hid_t_f *lcpl_id, hid_t_f *dcpl_id, hid_t_f *dapl_id, hid_t_f *dset_id);
-H5_FCDLL int_f nh5dopen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *dapl_id, hid_t_f *dset_id);
-H5_FCDLL int_f nh5dclose_c ( hid_t_f *dset_id );
-H5_FCDLL int_f nh5dwrite_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_integer_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_integer_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_integer_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_integer_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_integer_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_integer_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_integer_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_integer_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dcreate_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *space_id,
+                            hid_t_f *lcpl_id, hid_t_f *dcpl_id, hid_t_f *dapl_id, hid_t_f *dset_id);
+H5_FCDLL int_f nh5dopen_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *dapl_id, hid_t_f *dset_id);
+H5_FCDLL int_f nh5dclose_c(hid_t_f *dset_id);
+H5_FCDLL int_f nh5dwrite_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                           hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                     hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                     hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                     hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                     hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                     hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                     hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                     hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                     hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
 
-H5_FCDLL int_f nh5dwrite_real_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_real_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_real_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_real_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_real_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_real_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_real_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_real_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                  hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                  hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                  hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                  hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                  hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                  hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                  hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                  hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
 
-H5_FCDLL int_f nh5dwrite_double_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_double_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_double_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_double_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_double_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_double_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_double_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_double_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
 
-H5_FCDLL int_f nh5dwrite_vl_integer_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims, size_t_f *len);
-H5_FCDLL int_f nh5dwrite_vl_real_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, real_f *buf, hsize_t_f *dims, size_t_f *len);
-H5_FCDLL int_f nh5dwrite_vl_string_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims, size_t_f *len);
-H5_FCDLL int_f nh5dwrite_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, haddr_t_f *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwrite_ref_reg_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_vl_integer_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                      hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims,
+                                      size_t_f *len);
+H5_FCDLL int_f nh5dwrite_vl_real_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                   hid_t_f *file_space_id, hid_t_f *xfer_prp, real_f *buf, hsize_t_f *dims,
+                                   size_t_f *len);
+H5_FCDLL int_f nh5dwrite_vl_string_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                     hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims,
+                                     size_t_f *len);
+H5_FCDLL int_f nh5dwrite_ref_obj_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                   hid_t_f *file_space_id, hid_t_f *xfer_prp, haddr_t_f *buf,
+                                   hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_ref_reg_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                   hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims);
 
-H5_FCDLL int_f nh5dwritec_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                            hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
 
-H5_FCDLL int_f nh5dwritec_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwritec_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwritec_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwritec_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwritec_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwritec_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwritec_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dwritec_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                              hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                              hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                              hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                              hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                              hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                              hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                              hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                              hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
 
-H5_FCDLL int_f nh5dread_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                          hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
 
-H5_FCDLL int_f nh5dread_integer_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_integer_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_integer_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_integer_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_integer_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_integer_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_integer_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_integer_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
 
-H5_FCDLL int_f nh5dread_real_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_real_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_real_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_real_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_real_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_real_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_real_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_real_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                 hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                 hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                 hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                 hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                 hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                 hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                 hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                 hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
 
-H5_FCDLL int_f nh5dread_double_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_double_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_double_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_double_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_double_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_double_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_double_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_double_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                   hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                   hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                   hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                   hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                   hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                   hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                   hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                   hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
 
-H5_FCDLL int_f nh5dread_vl_integer_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims, size_t_f *len);
-H5_FCDLL int_f nh5dread_vl_real_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, real_f *buf, hsize_t_f *dims, size_t_f *len);
-H5_FCDLL int_f nh5dread_vl_string_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims, size_t_f *len);
-H5_FCDLL int_f nh5dread_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, haddr_t_f * buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dread_ref_reg_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f * buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_vl_integer_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                     hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims,
+                                     size_t_f *len);
+H5_FCDLL int_f nh5dread_vl_real_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                  hid_t_f *file_space_id, hid_t_f *xfer_prp, real_f *buf, hsize_t_f *dims,
+                                  size_t_f *len);
+H5_FCDLL int_f nh5dread_vl_string_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                    hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims,
+                                    size_t_f *len);
+H5_FCDLL int_f nh5dread_ref_obj_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                  hid_t_f *file_space_id, hid_t_f *xfer_prp, haddr_t_f *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_ref_reg_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                                  hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims);
 
-H5_FCDLL int_f nh5dreadc_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                           hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
 
-H5_FCDLL int_f nh5dreadc_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dreadc_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dreadc_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dreadc_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dreadc_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dreadc_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dreadc_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dreadc_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
-H5_FCDLL int_f nh5dget_access_plist_c (hid_t_f *dset_id, hid_t_f *plist_id);
+H5_FCDLL int_f nh5dreadc_s_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                             hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_1_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                             hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_2_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                             hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_3_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                             hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_4_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                             hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_5_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                             hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_6_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                             hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_7_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                             hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dget_access_plist_c(hid_t_f *dset_id, hid_t_f *plist_id);
 
-
-H5_FCDLL int_f nh5dget_space_c ( hid_t_f *dset_id , hid_t_f *space_id);
-H5_FCDLL int_f nh5dget_type_c ( hid_t_f *dset_id , hid_t_f *type_id);
-H5_FCDLL int_f nh5dget_create_plist_c ( hid_t_f *dset_id , hid_t_f *plist_id);
-H5_FCDLL int_f nh5dset_extent_c ( hid_t_f *dset_id , hsize_t_f *dims);
-H5_FCDLL int_f nh5dvlen_get_max_len_c(hid_t_f *dataset_id, hid_t_f *type_id, hid_t_f *space_id, size_t_f *len);
+H5_FCDLL int_f nh5dget_space_c(hid_t_f *dset_id, hid_t_f *space_id);
+H5_FCDLL int_f nh5dget_type_c(hid_t_f *dset_id, hid_t_f *type_id);
+H5_FCDLL int_f nh5dget_create_plist_c(hid_t_f *dset_id, hid_t_f *plist_id);
+H5_FCDLL int_f nh5dset_extent_c(hid_t_f *dset_id, hsize_t_f *dims);
+H5_FCDLL int_f nh5dvlen_get_max_len_c(hid_t_f *dataset_id, hid_t_f *type_id, hid_t_f *space_id,
+                                      size_t_f *len);
 H5_FCDLL int_f nh5dget_storage_size_c(hid_t_f *dataset_id, hsize_t_f *size);
-H5_FCDLL int_f nh5dfillc_c(_fcd fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, _fcd buf, hid_t_f *mem_type_id);
-H5_FCDLL int_f h5dfill_c(void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id);
-H5_FCDLL int_f nh5dfill_integer_c(void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id);
-H5_FCDLL int_f nh5dfill_real_c(void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id);
-H5_FCDLL int_f nh5dfill_double_c(void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id);
-H5_FCDLL int_f nh5dget_space_status_c ( hid_t_f *dset_id, int_f *flag);
-H5_FCDLL int_f nh5dcreate_anon_c (hid_t_f *loc_id, hid_t_f *type_id, hid_t_f *space_id,
-				  hid_t_f *dcpl_id, hid_t_f *dapl_id, hid_t_f *dset_id);
-H5_FCDLL int_f h5dwrite_f_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, 
-				   hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf);
-H5_FCDLL int_f h5dread_f_c ( hid_t_f *dset_id ,  hid_t_f *mem_type_id, hid_t_f *mem_space_id, 
-				   hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf);
-H5_FCDLL int_f h5dvlen_reclaim_c (hid_t_f *type_id ,  hid_t_f *space_id, hid_t_f *plist_id, void *buf);
+H5_FCDLL int_f nh5dfillc_c(_fcd fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, _fcd buf,
+                           hid_t_f *mem_type_id);
+H5_FCDLL int_f h5dfill_c(void *fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void *buf,
+                         hid_t_f *mem_type_id);
+H5_FCDLL int_f nh5dfill_integer_c(void *fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void *buf,
+                                  hid_t_f *mem_type_id);
+H5_FCDLL int_f nh5dfill_real_c(void *fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void *buf,
+                               hid_t_f *mem_type_id);
+H5_FCDLL int_f nh5dfill_double_c(void *fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void *buf,
+                                 hid_t_f *mem_type_id);
+H5_FCDLL int_f nh5dget_space_status_c(hid_t_f *dset_id, int_f *flag);
+H5_FCDLL int_f nh5dcreate_anon_c(hid_t_f *loc_id, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *dcpl_id,
+                                 hid_t_f *dapl_id, hid_t_f *dset_id);
+H5_FCDLL int_f h5dwrite_f_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                            hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf);
+H5_FCDLL int_f h5dread_f_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
+                           hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf);
+H5_FCDLL int_f h5dvlen_reclaim_c(hid_t_f *type_id, hid_t_f *space_id, hid_t_f *plist_id, void *buf);
 /*
  * Functions from H5Gf.c
  */
-#define nh5gcreate_c      H5_FC_FUNC_(h5gcreate_c, H5GCREATE_C)
-#define nh5gclose_c       H5_FC_FUNC_(h5gclose_c, H5GCLOSE_C)
-#define nh5gopen_c        H5_FC_FUNC_(h5gopen_c, H5GOPEN_C)
+#define nh5gcreate_c           H5_FC_FUNC_(h5gcreate_c, H5GCREATE_C)
+#define nh5gclose_c            H5_FC_FUNC_(h5gclose_c, H5GCLOSE_C)
+#define nh5gopen_c             H5_FC_FUNC_(h5gopen_c, H5GOPEN_C)
 #define nh5gget_obj_info_idx_c H5_FC_FUNC_(h5gget_obj_info_idx_c, H5GGET_OBJ_INFO_IDX_C)
-#define nh5gn_members_c   H5_FC_FUNC_(h5gn_members_c, H5GN_MEMBERS_C)
-#define nh5glink_c        H5_FC_FUNC_(h5glink_c, H5GLINK_C)
-#define nh5glink2_c        H5_FC_FUNC_(h5glink2_c, H5GLINK2_C)
-#define nh5gunlink_c      H5_FC_FUNC_(h5gunlink_c, H5GUNLINK_C)
-#define nh5gmove_c        H5_FC_FUNC_(h5gmove_c, H5GMOVE_C)
-#define nh5gmove2_c        H5_FC_FUNC_(h5gmove2_c, H5GMOVE2_C)
-#define nh5gget_linkval_c   H5_FC_FUNC_(h5gget_linkval_c, H5GGET_LINKVAL_C)
-#define nh5gset_comment_c   H5_FC_FUNC_(h5gset_comment_c, H5GSET_COMMENT_C)
-#define nh5gget_comment_c   H5_FC_FUNC_(h5gget_comment_c, H5GGET_COMMENT_C)
+#define nh5gn_members_c        H5_FC_FUNC_(h5gn_members_c, H5GN_MEMBERS_C)
+#define nh5glink_c             H5_FC_FUNC_(h5glink_c, H5GLINK_C)
+#define nh5glink2_c            H5_FC_FUNC_(h5glink2_c, H5GLINK2_C)
+#define nh5gunlink_c           H5_FC_FUNC_(h5gunlink_c, H5GUNLINK_C)
+#define nh5gmove_c             H5_FC_FUNC_(h5gmove_c, H5GMOVE_C)
+#define nh5gmove2_c            H5_FC_FUNC_(h5gmove2_c, H5GMOVE2_C)
+#define nh5gget_linkval_c      H5_FC_FUNC_(h5gget_linkval_c, H5GGET_LINKVAL_C)
+#define nh5gset_comment_c      H5_FC_FUNC_(h5gset_comment_c, H5GSET_COMMENT_C)
+#define nh5gget_comment_c      H5_FC_FUNC_(h5gget_comment_c, H5GGET_COMMENT_C)
 #define nh5gcreate_anon_c      H5_FC_FUNC_(h5gcreate_anon_c, H5GCREATE_ANON_C)
 #define nh5gget_create_plist_c H5_FC_FUNC_(h5gget_create_plist_c, H5GGET_CREATE_PLIST_C)
-#define nh5gget_info_c  H5_FC_FUNC_(h5gget_info_c, H5GGET_INFO_C)
+#define nh5gget_info_c         H5_FC_FUNC_(h5gget_info_c, H5GGET_INFO_C)
 #define nh5gget_info_by_idx_c  H5_FC_FUNC_(h5gget_info_by_idx_c, H5GGET_INFO_BY_IDX_C)
-#define nh5gget_info_by_name_c  H5_FC_FUNC_(h5gget_info_by_name_c, H5GGET_INFO_BY_NAME_C)
-
+#define nh5gget_info_by_name_c H5_FC_FUNC_(h5gget_info_by_name_c, H5GGET_INFO_BY_NAME_C)
 
-H5_FCDLL int_f nh5gcreate_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);
-H5_FCDLL int_f nh5gopen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *gapl_id, hid_t_f *grp_id);
-H5_FCDLL int_f nh5gclose_c ( hid_t_f *grp_id );
-H5_FCDLL int_f nh5gget_obj_info_idx_c (hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *idx, _fcd obj_name, int_f *obj_namelen, int_f *obj_type);
-H5_FCDLL int_f nh5gn_members_c (hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *nmembers);
-H5_FCDLL int_f nh5glink_c (hid_t_f *loc_id, int_f *link_type, _fcd current_name, int_f *current_namelen, _fcd new_name, int_f *new_namelen);
-H5_FCDLL int_f nh5glink2_c (hid_t_f *cur_loc_id, _fcd cur_name, int_f *cur_namelen, int_f *link_type, hid_t_f *new_loc_id, _fcd new_name, int_f *new_namelen);
-H5_FCDLL int_f nh5gunlink_c (hid_t_f *loc_id, _fcd name, int_f *namelen);
-H5_FCDLL int_f nh5gmove_c (hid_t_f *loc_id, _fcd src_name, int_f *src_namelen, _fcd dst_name, int_f *dst_namelen);
-H5_FCDLL int_f nh5gmove2_c (hid_t_f *src_loc_id, _fcd src_name, int_f *src_namelen, hid_t_f *dst_loc_id,_fcd dst_name, int_f *dst_namelen);
-H5_FCDLL int_f nh5gget_linkval_c (hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size, _fcd value );
-H5_FCDLL int_f nh5gset_comment_c (hid_t_f *loc_id, _fcd name, int_f *namelen, _fcd comment, int_f *commentlen);
-H5_FCDLL int_f nh5gget_comment_c (hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize, _fcd comment);
-H5_FCDLL int_f nh5gcreate_anon_c (hid_t_f *loc_id, hid_t_f *gcpl_id, hid_t_f *gapl_id, hid_t_f *grp_id);
-H5_FCDLL int_f nh5gget_create_plist_c(hid_t_f *grp_id, hid_t_f *gcpl_id );
-H5_FCDLL int_f nh5gget_info_c (hid_t_f *group_id, int_f *storage_type, int_f *nlinks, int_f *max_corder, int_f *mounted);
+H5_FCDLL int_f nh5gcreate_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);
+H5_FCDLL int_f nh5gopen_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *gapl_id, hid_t_f *grp_id);
+H5_FCDLL int_f nh5gclose_c(hid_t_f *grp_id);
+H5_FCDLL int_f nh5gget_obj_info_idx_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *idx, _fcd obj_name,
+                                      int_f *obj_namelen, int_f *obj_type);
+H5_FCDLL int_f nh5gn_members_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *nmembers);
+H5_FCDLL int_f nh5glink_c(hid_t_f *loc_id, int_f *link_type, _fcd current_name, int_f *current_namelen,
+                          _fcd new_name, int_f *new_namelen);
+H5_FCDLL int_f nh5glink2_c(hid_t_f *cur_loc_id, _fcd cur_name, int_f *cur_namelen, int_f *link_type,
+                           hid_t_f *new_loc_id, _fcd new_name, int_f *new_namelen);
+H5_FCDLL int_f nh5gunlink_c(hid_t_f *loc_id, _fcd name, int_f *namelen);
+H5_FCDLL int_f nh5gmove_c(hid_t_f *loc_id, _fcd src_name, int_f *src_namelen, _fcd dst_name,
+                          int_f *dst_namelen);
+H5_FCDLL int_f nh5gmove2_c(hid_t_f *src_loc_id, _fcd src_name, int_f *src_namelen, hid_t_f *dst_loc_id,
+                           _fcd dst_name, int_f *dst_namelen);
+H5_FCDLL int_f nh5gget_linkval_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size, _fcd value);
+H5_FCDLL int_f nh5gset_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, _fcd comment, int_f *commentlen);
+H5_FCDLL int_f nh5gget_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize, _fcd comment);
+H5_FCDLL int_f nh5gcreate_anon_c(hid_t_f *loc_id, hid_t_f *gcpl_id, hid_t_f *gapl_id, hid_t_f *grp_id);
+H5_FCDLL int_f nh5gget_create_plist_c(hid_t_f *grp_id, hid_t_f *gcpl_id);
+H5_FCDLL int_f nh5gget_info_c(hid_t_f *group_id, int_f *storage_type, int_f *nlinks, int_f *max_corder,
+                              int_f *mounted);
 H5_FCDLL int_f nh5gget_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);
-H5_FCDLL int_f nh5gget_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);
+                                     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);
+H5_FCDLL int_f nh5gget_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);
 
 /*
  * Functions from H5Af.c
  */
-#define nh5acreate_c      H5_FC_FUNC_(h5acreate_c, H5ACREATE_C)
-#define nh5aclose_c       H5_FC_FUNC_(h5aclose_c, H5ACLOSE_C)
-#define nh5aopen_name_c   H5_FC_FUNC_(h5aopen_name_c, H5AOPEN_NAME_C)
-#define nh5awrite_c       H5_FC_FUNC_(h5awrite_c, H5AWRITE_C)
-#define nh5awrite_integer_s_c       H5_FC_FUNC_(h5awrite_integer_s_c, H5AWRITE_INTEGER_S_C)
-#define nh5awrite_integer_1_c       H5_FC_FUNC_(h5awrite_integer_1_c, H5AWRITE_INTEGER_1_C)
-#define nh5awrite_integer_2_c       H5_FC_FUNC_(h5awrite_integer_2_c, H5AWRITE_INTEGER_2_C)
-#define nh5awrite_integer_3_c       H5_FC_FUNC_(h5awrite_integer_3_c, H5AWRITE_INTEGER_3_C)
-#define nh5awrite_integer_4_c       H5_FC_FUNC_(h5awrite_integer_4_c, H5AWRITE_INTEGER_4_C)
-#define nh5awrite_integer_5_c       H5_FC_FUNC_(h5awrite_integer_5_c, H5AWRITE_INTEGER_5_C)
-#define nh5awrite_integer_6_c       H5_FC_FUNC_(h5awrite_integer_6_c, H5AWRITE_INTEGER_6_C)
-#define nh5awrite_integer_7_c       H5_FC_FUNC_(h5awrite_integer_7_c, H5AWRITE_INTEGER_7_C)
-#define nh5awrite_real_s_c       H5_FC_FUNC_(h5awrite_real_s_c, H5AWRITE_REAL_S_C)
-#define nh5awrite_real_1_c       H5_FC_FUNC_(h5awrite_real_1_c, H5AWRITE_REAL_1_C)
-#define nh5awrite_real_2_c       H5_FC_FUNC_(h5awrite_real_2_c, H5AWRITE_REAL_2_C)
-#define nh5awrite_real_3_c       H5_FC_FUNC_(h5awrite_real_3_c, H5AWRITE_REAL_3_C)
-#define nh5awrite_real_4_c       H5_FC_FUNC_(h5awrite_real_4_c, H5AWRITE_REAL_4_C)
-#define nh5awrite_real_5_c       H5_FC_FUNC_(h5awrite_real_5_c, H5AWRITE_REAL_5_C)
-#define nh5awrite_real_6_c       H5_FC_FUNC_(h5awrite_real_6_c, H5AWRITE_REAL_6_C)
-#define nh5awrite_real_7_c       H5_FC_FUNC_(h5awrite_real_7_c, H5AWRITE_REAL_7_C)
-#define nh5awrite_double_s_c       H5_FC_FUNC_(h5awrite_double_s_c, H5AWRITE_DOUBLE_S_C)
-#define nh5awrite_double_1_c       H5_FC_FUNC_(h5awrite_double_1_c, H5AWRITE_DOUBLE_1_C)
-#define nh5awrite_double_2_c       H5_FC_FUNC_(h5awrite_double_2_c, H5AWRITE_DOUBLE_2_C)
-#define nh5awrite_double_3_c       H5_FC_FUNC_(h5awrite_double_3_c, H5AWRITE_DOUBLE_3_C)
-#define nh5awrite_double_4_c       H5_FC_FUNC_(h5awrite_double_4_c, H5AWRITE_DOUBLE_4_C)
-#define nh5awrite_double_5_c       H5_FC_FUNC_(h5awrite_double_5_c, H5AWRITE_DOUBLE_5_C)
-#define nh5awrite_double_6_c       H5_FC_FUNC_(h5awrite_double_6_c, H5AWRITE_DOUBLE_6_C)
-#define nh5awrite_double_7_c       H5_FC_FUNC_(h5awrite_double_7_c, H5AWRITE_DOUBLE_7_C)
-#define nh5awritec_c        H5_FC_FUNC_(h5awritec_c, H5AWRITEC_C)
-#define nh5awritec_s_c      H5_FC_FUNC_(h5awritec_s_c, H5AWRITEC_S_C)
-#define nh5awritec_1_c      H5_FC_FUNC_(h5awritec_1_c, H5AWRITEC_1_C)
-#define nh5awritec_2_c      H5_FC_FUNC_(h5awritec_2_c, H5AWRITEC_2_C)
-#define nh5awritec_3_c      H5_FC_FUNC_(h5awritec_3_c, H5AWRITEC_3_C)
-#define nh5awritec_4_c      H5_FC_FUNC_(h5awritec_4_c, H5AWRITEC_4_C)
-#define nh5awritec_5_c      H5_FC_FUNC_(h5awritec_5_c, H5AWRITEC_5_C)
-#define nh5awritec_6_c      H5_FC_FUNC_(h5awritec_6_c, H5AWRITEC_6_C)
-#define nh5awritec_7_c      H5_FC_FUNC_(h5awritec_7_c, H5AWRITEC_7_C)
-#define nh5aread_c                 H5_FC_FUNC_(h5aread_c, H5AREAD_C)
-#define nh5aread_integer_s_c        H5_FC_FUNC_(h5aread_integer_s_c, H5AREAD_INTEGER_S_C)
-#define nh5aread_integer_1_c        H5_FC_FUNC_(h5aread_integer_1_c, H5AREAD_INTEGER_1_C)
-#define nh5aread_integer_2_c        H5_FC_FUNC_(h5aread_integer_2_c, H5AREAD_INTEGER_2_C)
-#define nh5aread_integer_3_c        H5_FC_FUNC_(h5aread_integer_3_c, H5AREAD_INTEGER_3_C)
-#define nh5aread_integer_4_c        H5_FC_FUNC_(h5aread_integer_4_c, H5AREAD_INTEGER_4_C)
-#define nh5aread_integer_5_c        H5_FC_FUNC_(h5aread_integer_5_c, H5AREAD_INTEGER_5_C)
-#define nh5aread_integer_6_c        H5_FC_FUNC_(h5aread_integer_6_c, H5AREAD_INTEGER_6_C)
-#define nh5aread_integer_7_c        H5_FC_FUNC_(h5aread_integer_7_c, H5AREAD_INTEGER_7_C)
-#define nh5aread_real_s_c        H5_FC_FUNC_(h5aread_real_s_c, H5AREAD_REAL_S_C)
-#define nh5aread_real_1_c        H5_FC_FUNC_(h5aread_real_1_c, H5AREAD_REAL_1_C)
-#define nh5aread_real_2_c        H5_FC_FUNC_(h5aread_real_2_c, H5AREAD_REAL_2_C)
-#define nh5aread_real_3_c        H5_FC_FUNC_(h5aread_real_3_c, H5AREAD_REAL_3_C)
-#define nh5aread_real_4_c        H5_FC_FUNC_(h5aread_real_4_c, H5AREAD_REAL_4_C)
-#define nh5aread_real_5_c        H5_FC_FUNC_(h5aread_real_5_c, H5AREAD_REAL_5_C)
-#define nh5aread_real_6_c        H5_FC_FUNC_(h5aread_real_6_c, H5AREAD_REAL_6_C)
-#define nh5aread_real_7_c        H5_FC_FUNC_(h5aread_real_7_c, H5AREAD_REAL_7_C)
-#define nh5aread_double_s_c        H5_FC_FUNC_(h5aread_double_s_c, H5AREAD_DOUBLE_S_C)
-#define nh5aread_double_1_c        H5_FC_FUNC_(h5aread_double_1_c, H5AREAD_DOUBLE_1_C)
-#define nh5aread_double_2_c        H5_FC_FUNC_(h5aread_double_2_c, H5AREAD_DOUBLE_2_C)
-#define nh5aread_double_3_c        H5_FC_FUNC_(h5aread_double_3_c, H5AREAD_DOUBLE_3_C)
-#define nh5aread_double_4_c        H5_FC_FUNC_(h5aread_double_4_c, H5AREAD_DOUBLE_4_C)
-#define nh5aread_double_5_c        H5_FC_FUNC_(h5aread_double_5_c, H5AREAD_DOUBLE_5_C)
-#define nh5aread_double_6_c        H5_FC_FUNC_(h5aread_double_6_c, H5AREAD_DOUBLE_6_C)
-#define nh5aread_double_7_c        H5_FC_FUNC_(h5aread_double_7_c, H5AREAD_DOUBLE_7_C)
-#define nh5areadc_c       H5_FC_FUNC_(h5areadc_c, H5AREADC_C)
-#define nh5areadc_s_c       H5_FC_FUNC_(h5areadc_s_c, H5AREADC_S_C)
-#define nh5areadc_1_c       H5_FC_FUNC_(h5areadc_1_c, H5AREADC_1_C)
-#define nh5areadc_2_c       H5_FC_FUNC_(h5areadc_2_c, H5AREADC_2_C)
-#define nh5areadc_3_c       H5_FC_FUNC_(h5areadc_3_c, H5AREADC_3_C)
-#define nh5areadc_4_c       H5_FC_FUNC_(h5areadc_4_c, H5AREADC_4_C)
-#define nh5areadc_5_c       H5_FC_FUNC_(h5areadc_5_c, H5AREADC_5_C)
-#define nh5areadc_6_c       H5_FC_FUNC_(h5areadc_6_c, H5AREADC_6_C)
-#define nh5areadc_7_c       H5_FC_FUNC_(h5areadc_7_c, H5AREADC_7_C)
-#define nh5aget_name_c    H5_FC_FUNC_(h5aget_name_c, H5AGET_NAME_C)
-#define nh5aopen_idx_c    H5_FC_FUNC_(h5aopen_idx_c, H5AOPEN_IDX_C)
-#define nh5aget_space_c   H5_FC_FUNC_(h5aget_space_c, H5AGET_SPACE_C)
-#define nh5aget_type_c    H5_FC_FUNC_(h5aget_type_c, H5AGET_TYPE_C)
-#define nh5aget_num_attrs_c H5_FC_FUNC_(h5aget_num_attrs_c, H5AGET_NUM_ATTRS_C)
-#define nh5adelete_c      H5_FC_FUNC_(h5adelete_c, H5ADELETE_C)
+#define nh5acreate_c           H5_FC_FUNC_(h5acreate_c, H5ACREATE_C)
+#define nh5aclose_c            H5_FC_FUNC_(h5aclose_c, H5ACLOSE_C)
+#define nh5aopen_name_c        H5_FC_FUNC_(h5aopen_name_c, H5AOPEN_NAME_C)
+#define nh5awrite_c            H5_FC_FUNC_(h5awrite_c, H5AWRITE_C)
+#define nh5awrite_integer_s_c  H5_FC_FUNC_(h5awrite_integer_s_c, H5AWRITE_INTEGER_S_C)
+#define nh5awrite_integer_1_c  H5_FC_FUNC_(h5awrite_integer_1_c, H5AWRITE_INTEGER_1_C)
+#define nh5awrite_integer_2_c  H5_FC_FUNC_(h5awrite_integer_2_c, H5AWRITE_INTEGER_2_C)
+#define nh5awrite_integer_3_c  H5_FC_FUNC_(h5awrite_integer_3_c, H5AWRITE_INTEGER_3_C)
+#define nh5awrite_integer_4_c  H5_FC_FUNC_(h5awrite_integer_4_c, H5AWRITE_INTEGER_4_C)
+#define nh5awrite_integer_5_c  H5_FC_FUNC_(h5awrite_integer_5_c, H5AWRITE_INTEGER_5_C)
+#define nh5awrite_integer_6_c  H5_FC_FUNC_(h5awrite_integer_6_c, H5AWRITE_INTEGER_6_C)
+#define nh5awrite_integer_7_c  H5_FC_FUNC_(h5awrite_integer_7_c, H5AWRITE_INTEGER_7_C)
+#define nh5awrite_real_s_c     H5_FC_FUNC_(h5awrite_real_s_c, H5AWRITE_REAL_S_C)
+#define nh5awrite_real_1_c     H5_FC_FUNC_(h5awrite_real_1_c, H5AWRITE_REAL_1_C)
+#define nh5awrite_real_2_c     H5_FC_FUNC_(h5awrite_real_2_c, H5AWRITE_REAL_2_C)
+#define nh5awrite_real_3_c     H5_FC_FUNC_(h5awrite_real_3_c, H5AWRITE_REAL_3_C)
+#define nh5awrite_real_4_c     H5_FC_FUNC_(h5awrite_real_4_c, H5AWRITE_REAL_4_C)
+#define nh5awrite_real_5_c     H5_FC_FUNC_(h5awrite_real_5_c, H5AWRITE_REAL_5_C)
+#define nh5awrite_real_6_c     H5_FC_FUNC_(h5awrite_real_6_c, H5AWRITE_REAL_6_C)
+#define nh5awrite_real_7_c     H5_FC_FUNC_(h5awrite_real_7_c, H5AWRITE_REAL_7_C)
+#define nh5awrite_double_s_c   H5_FC_FUNC_(h5awrite_double_s_c, H5AWRITE_DOUBLE_S_C)
+#define nh5awrite_double_1_c   H5_FC_FUNC_(h5awrite_double_1_c, H5AWRITE_DOUBLE_1_C)
+#define nh5awrite_double_2_c   H5_FC_FUNC_(h5awrite_double_2_c, H5AWRITE_DOUBLE_2_C)
+#define nh5awrite_double_3_c   H5_FC_FUNC_(h5awrite_double_3_c, H5AWRITE_DOUBLE_3_C)
+#define nh5awrite_double_4_c   H5_FC_FUNC_(h5awrite_double_4_c, H5AWRITE_DOUBLE_4_C)
+#define nh5awrite_double_5_c   H5_FC_FUNC_(h5awrite_double_5_c, H5AWRITE_DOUBLE_5_C)
+#define nh5awrite_double_6_c   H5_FC_FUNC_(h5awrite_double_6_c, H5AWRITE_DOUBLE_6_C)
+#define nh5awrite_double_7_c   H5_FC_FUNC_(h5awrite_double_7_c, H5AWRITE_DOUBLE_7_C)
+#define nh5awritec_c           H5_FC_FUNC_(h5awritec_c, H5AWRITEC_C)
+#define nh5awritec_s_c         H5_FC_FUNC_(h5awritec_s_c, H5AWRITEC_S_C)
+#define nh5awritec_1_c         H5_FC_FUNC_(h5awritec_1_c, H5AWRITEC_1_C)
+#define nh5awritec_2_c         H5_FC_FUNC_(h5awritec_2_c, H5AWRITEC_2_C)
+#define nh5awritec_3_c         H5_FC_FUNC_(h5awritec_3_c, H5AWRITEC_3_C)
+#define nh5awritec_4_c         H5_FC_FUNC_(h5awritec_4_c, H5AWRITEC_4_C)
+#define nh5awritec_5_c         H5_FC_FUNC_(h5awritec_5_c, H5AWRITEC_5_C)
+#define nh5awritec_6_c         H5_FC_FUNC_(h5awritec_6_c, H5AWRITEC_6_C)
+#define nh5awritec_7_c         H5_FC_FUNC_(h5awritec_7_c, H5AWRITEC_7_C)
+#define nh5aread_c             H5_FC_FUNC_(h5aread_c, H5AREAD_C)
+#define nh5aread_integer_s_c   H5_FC_FUNC_(h5aread_integer_s_c, H5AREAD_INTEGER_S_C)
+#define nh5aread_integer_1_c   H5_FC_FUNC_(h5aread_integer_1_c, H5AREAD_INTEGER_1_C)
+#define nh5aread_integer_2_c   H5_FC_FUNC_(h5aread_integer_2_c, H5AREAD_INTEGER_2_C)
+#define nh5aread_integer_3_c   H5_FC_FUNC_(h5aread_integer_3_c, H5AREAD_INTEGER_3_C)
+#define nh5aread_integer_4_c   H5_FC_FUNC_(h5aread_integer_4_c, H5AREAD_INTEGER_4_C)
+#define nh5aread_integer_5_c   H5_FC_FUNC_(h5aread_integer_5_c, H5AREAD_INTEGER_5_C)
+#define nh5aread_integer_6_c   H5_FC_FUNC_(h5aread_integer_6_c, H5AREAD_INTEGER_6_C)
+#define nh5aread_integer_7_c   H5_FC_FUNC_(h5aread_integer_7_c, H5AREAD_INTEGER_7_C)
+#define nh5aread_real_s_c      H5_FC_FUNC_(h5aread_real_s_c, H5AREAD_REAL_S_C)
+#define nh5aread_real_1_c      H5_FC_FUNC_(h5aread_real_1_c, H5AREAD_REAL_1_C)
+#define nh5aread_real_2_c      H5_FC_FUNC_(h5aread_real_2_c, H5AREAD_REAL_2_C)
+#define nh5aread_real_3_c      H5_FC_FUNC_(h5aread_real_3_c, H5AREAD_REAL_3_C)
+#define nh5aread_real_4_c      H5_FC_FUNC_(h5aread_real_4_c, H5AREAD_REAL_4_C)
+#define nh5aread_real_5_c      H5_FC_FUNC_(h5aread_real_5_c, H5AREAD_REAL_5_C)
+#define nh5aread_real_6_c      H5_FC_FUNC_(h5aread_real_6_c, H5AREAD_REAL_6_C)
+#define nh5aread_real_7_c      H5_FC_FUNC_(h5aread_real_7_c, H5AREAD_REAL_7_C)
+#define nh5aread_double_s_c    H5_FC_FUNC_(h5aread_double_s_c, H5AREAD_DOUBLE_S_C)
+#define nh5aread_double_1_c    H5_FC_FUNC_(h5aread_double_1_c, H5AREAD_DOUBLE_1_C)
+#define nh5aread_double_2_c    H5_FC_FUNC_(h5aread_double_2_c, H5AREAD_DOUBLE_2_C)
+#define nh5aread_double_3_c    H5_FC_FUNC_(h5aread_double_3_c, H5AREAD_DOUBLE_3_C)
+#define nh5aread_double_4_c    H5_FC_FUNC_(h5aread_double_4_c, H5AREAD_DOUBLE_4_C)
+#define nh5aread_double_5_c    H5_FC_FUNC_(h5aread_double_5_c, H5AREAD_DOUBLE_5_C)
+#define nh5aread_double_6_c    H5_FC_FUNC_(h5aread_double_6_c, H5AREAD_DOUBLE_6_C)
+#define nh5aread_double_7_c    H5_FC_FUNC_(h5aread_double_7_c, H5AREAD_DOUBLE_7_C)
+#define nh5areadc_c            H5_FC_FUNC_(h5areadc_c, H5AREADC_C)
+#define nh5areadc_s_c          H5_FC_FUNC_(h5areadc_s_c, H5AREADC_S_C)
+#define nh5areadc_1_c          H5_FC_FUNC_(h5areadc_1_c, H5AREADC_1_C)
+#define nh5areadc_2_c          H5_FC_FUNC_(h5areadc_2_c, H5AREADC_2_C)
+#define nh5areadc_3_c          H5_FC_FUNC_(h5areadc_3_c, H5AREADC_3_C)
+#define nh5areadc_4_c          H5_FC_FUNC_(h5areadc_4_c, H5AREADC_4_C)
+#define nh5areadc_5_c          H5_FC_FUNC_(h5areadc_5_c, H5AREADC_5_C)
+#define nh5areadc_6_c          H5_FC_FUNC_(h5areadc_6_c, H5AREADC_6_C)
+#define nh5areadc_7_c          H5_FC_FUNC_(h5areadc_7_c, H5AREADC_7_C)
+#define nh5aget_name_c         H5_FC_FUNC_(h5aget_name_c, H5AGET_NAME_C)
+#define nh5aopen_idx_c         H5_FC_FUNC_(h5aopen_idx_c, H5AOPEN_IDX_C)
+#define nh5aget_space_c        H5_FC_FUNC_(h5aget_space_c, H5AGET_SPACE_C)
+#define nh5aget_type_c         H5_FC_FUNC_(h5aget_type_c, H5AGET_TYPE_C)
+#define nh5aget_num_attrs_c    H5_FC_FUNC_(h5aget_num_attrs_c, H5AGET_NUM_ATTRS_C)
+#define nh5adelete_c           H5_FC_FUNC_(h5adelete_c, H5ADELETE_C)
 #define nh5aget_storage_size_c H5_FC_FUNC_(h5aget_storage_size_c, H5AGET_STORAGE_SIZE_C)
-#define nh5arename_by_name_c H5_FC_FUNC_(h5arename_by_name_c, H5ARENAME_BY_NAME_C)
-#define nh5aopen_c H5_FC_FUNC_(h5aopen_c, H5AOPEN_C)
-#define nh5adelete_by_name_c H5_FC_FUNC_(h5adelete_by_name_c,H5ADELETE_BY_NAME_C)
-#define nh5adelete_by_idx_c H5_FC_FUNC_(h5adelete_by_idx_c,H5ADELETE_BY_IDX_C)
-#define nh5aget_name_by_idx_c H5_FC_FUNC_(h5aget_name_by_idx_c,H5AGET_NAME_BY_IDX_C)
-#define nh5aget_create_plist_c H5_FC_FUNC_(h5aget_create_plist_c,H5AGET_CREATE_PLIST_C)
-#define nh5aopen_by_idx_c H5_FC_FUNC_(h5aopen_by_idx_c,H5AOPEN_BY_IDX_C)
-#define nh5aget_info_c H5_FC_FUNC_(h5aget_info_c,H5AGET_INFO_C)
-#define nh5aget_info_by_idx_c H5_FC_FUNC_(h5aget_info_by_idx_c,H5AGET_INFO_BY_IDX_C)
-#define nh5aget_info_by_name_c H5_FC_FUNC_(h5aget_info_by_name_c,H5AGET_INFO_BY_NAME_C)
-#define nh5aget_info_by_name_c H5_FC_FUNC_(h5aget_info_by_name_c,H5AGET_INFO_BY_NAME_C)
-#define nh5acreate_by_name_c H5_FC_FUNC_(h5acreate_by_name_c,H5ACREATE_BY_NAME_C)
-#define nh5aexists_c H5_FC_FUNC_(h5aexists_c,H5AEXISTS_C)
-#define nh5aexists_by_name_c H5_FC_FUNC_(h5aexists_by_name_c,H5AEXISTS_BY_NAME_C)
-#define nh5aopen_by_name_c H5_FC_FUNC_(h5aopen_by_name_c,H5AOPEN_BY_NAME_C)
-#define nh5arename_c H5_FC_FUNC_(h5arename_c,H5ARENAME_C)
+#define nh5arename_by_name_c   H5_FC_FUNC_(h5arename_by_name_c, H5ARENAME_BY_NAME_C)
+#define nh5aopen_c             H5_FC_FUNC_(h5aopen_c, H5AOPEN_C)
+#define nh5adelete_by_name_c   H5_FC_FUNC_(h5adelete_by_name_c, H5ADELETE_BY_NAME_C)
+#define nh5adelete_by_idx_c    H5_FC_FUNC_(h5adelete_by_idx_c, H5ADELETE_BY_IDX_C)
+#define nh5aget_name_by_idx_c  H5_FC_FUNC_(h5aget_name_by_idx_c, H5AGET_NAME_BY_IDX_C)
+#define nh5aget_create_plist_c H5_FC_FUNC_(h5aget_create_plist_c, H5AGET_CREATE_PLIST_C)
+#define nh5aopen_by_idx_c      H5_FC_FUNC_(h5aopen_by_idx_c, H5AOPEN_BY_IDX_C)
+#define nh5aget_info_c         H5_FC_FUNC_(h5aget_info_c, H5AGET_INFO_C)
+#define nh5aget_info_by_idx_c  H5_FC_FUNC_(h5aget_info_by_idx_c, H5AGET_INFO_BY_IDX_C)
+#define nh5aget_info_by_name_c H5_FC_FUNC_(h5aget_info_by_name_c, H5AGET_INFO_BY_NAME_C)
+#define nh5aget_info_by_name_c H5_FC_FUNC_(h5aget_info_by_name_c, H5AGET_INFO_BY_NAME_C)
+#define nh5acreate_by_name_c   H5_FC_FUNC_(h5acreate_by_name_c, H5ACREATE_BY_NAME_C)
+#define nh5aexists_c           H5_FC_FUNC_(h5aexists_c, H5AEXISTS_C)
+#define nh5aexists_by_name_c   H5_FC_FUNC_(h5aexists_by_name_c, H5AEXISTS_BY_NAME_C)
+#define nh5aopen_by_name_c     H5_FC_FUNC_(h5aopen_by_name_c, H5AOPEN_BY_NAME_C)
+#define nh5arename_c           H5_FC_FUNC_(h5arename_c, H5ARENAME_C)
 
-H5_FCDLL int_f nh5acreate_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *aapl,  hid_t_f *attr_id);
-H5_FCDLL int_f nh5aopen_name_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_id);
-H5_FCDLL int_f nh5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5awritec_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5awritec_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5awritec_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5awritec_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5awritec_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5awritec_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5awritec_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5awritec_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5awrite_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f h5awrite_f_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf);
-H5_FCDLL int_f nh5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5areadc_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5areadc_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5areadc_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5areadc_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5areadc_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5areadc_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5areadc_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5areadc_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
-H5_FCDLL int_f nh5aread_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f nh5aread_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
-H5_FCDLL int_f h5aread_f_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf);
-H5_FCDLL int_f nh5aclose_c ( hid_t_f *attr_id );
-H5_FCDLL int_f nh5adelete_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen);
-H5_FCDLL int_f nh5aopen_idx_c (hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id);
-H5_FCDLL int_f nh5aget_space_c (hid_t_f *attr_id, hid_t_f *space_id);
-H5_FCDLL int_f nh5aget_type_c (hid_t_f *attr_id, hid_t_f *type_id);
-H5_FCDLL int_f nh5aget_num_attrs_c (hid_t_f *obj_id, int_f *attr_num);
+H5_FCDLL int_f nh5acreate_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *type_id,
+                            hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *aapl, hid_t_f *attr_id);
+H5_FCDLL int_f nh5aopen_name_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_id);
+H5_FCDLL int_f nh5awritec_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awrite_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f h5awrite_f_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf);
+H5_FCDLL int_f nh5areadc_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5aread_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_s_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_1_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_2_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_3_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_4_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_5_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_6_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_7_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f h5aread_f_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf);
+H5_FCDLL int_f nh5aclose_c(hid_t_f *attr_id);
+H5_FCDLL int_f nh5adelete_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen);
+H5_FCDLL int_f nh5aopen_idx_c(hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id);
+H5_FCDLL int_f nh5aget_space_c(hid_t_f *attr_id, hid_t_f *space_id);
+H5_FCDLL int_f nh5aget_type_c(hid_t_f *attr_id, hid_t_f *type_id);
+H5_FCDLL int_f nh5aget_num_attrs_c(hid_t_f *obj_id, int_f *attr_num);
 H5_FCDLL int_f nh5aget_name_c(hid_t_f *attr_id, size_t_f *size, _fcd buf);
-H5_FCDLL int_f nh5aget_storage_size_c ( hid_t_f *attr_id, hsize_t_f *size );
-H5_FCDLL int_f nh5arename_by_name_c ( hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-				      _fcd old_attr_name, size_t_f *old_attr_namelen,
-				      _fcd new_attr_name, size_t_f *new_attr_namelen,
-				      hid_t_f *lapl_id );
-H5_FCDLL int_f nh5aopen_c ( hid_t_f *obj_id, _fcd attr_name, size_t_f *attr_namelen,
-			    hid_t_f *aapl_id, hid_t_f *attr_id);
-H5_FCDLL int_f nh5adelete_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-				     _fcd attr_name, size_t_f *attr_namelen, hid_t_f *lapl_id);
-H5_FCDLL int_f nh5adelete_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-				    int_f *idx_type, int_f *order, hsize_t_f *n, hid_t_f *lapl_id);
-H5_FCDLL int_f nh5aget_name_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-				      int_f *idx_type, int_f *order, hsize_t_f *n, _fcd name,
-				      size_t_f *size, hid_t_f *lapl_id);
-H5_FCDLL int_f nh5aget_create_plist_c ( hid_t_f *attr_id, hid_t_f *creation_prop_id );
-H5_FCDLL int_f nh5aopen_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-		     int_f *idx_type, int_f *order, hsize_t_f *n, hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id);
-H5_FCDLL int_f nh5aget_info_c (hid_t_f *loc_id, int_f *corder_valid, int_f *corder,
-			       int_f *cset, hsize_t_f *data_size );
-H5_FCDLL int_f nh5aget_info_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-				      int_f *idx_type, int_f *order, hsize_t_f *n, hid_t_f *lapl_id,
-				      int_f *corder_valid, int_f *corder,
-				      int_f *cset, hsize_t_f *data_size );
-H5_FCDLL int_f nh5aget_info_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-				       _fcd attr_name, size_t_f *attr_namelen, hid_t_f *lapl_id,
-				       int_f *corder_valid, int_f *corder,
-				       int_f *cset, hsize_t_f *data_size );
-H5_FCDLL int_f nh5acreate_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
-				    _fcd attr_name, size_t_f *attr_namelen,  hid_t_f *type_id,
-				    hid_t_f *space_id, hid_t_f *acpl_id, hid_t_f *aapl_id,
-				    hid_t_f *lapl_id, hid_t_f *attr_id );
-H5_FCDLL int_f nh5aexists_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_exists);
-H5_FCDLL int_f nh5aexists_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name, size_t_f *attr_namelen,
-		      hid_t_f *lapl_id, int_f *attr_exists);
-H5_FCDLL int_f nh5aopen_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name, size_t_f *attr_namelen,
-				   hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id);
-H5_FCDLL int_f nh5arename_c( hid_t_f *loc_id,
-		      _fcd old_attr_name, size_t_f *old_attr_namelen,
-		      _fcd new_attr_name, size_t_f *new_attr_namelen);
+H5_FCDLL int_f nh5aget_storage_size_c(hid_t_f *attr_id, hsize_t_f *size);
+H5_FCDLL int_f nh5arename_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd old_attr_name,
+                                    size_t_f *old_attr_namelen, _fcd new_attr_name,
+                                    size_t_f *new_attr_namelen, hid_t_f *lapl_id);
+H5_FCDLL int_f nh5aopen_c(hid_t_f *obj_id, _fcd attr_name, size_t_f *attr_namelen, hid_t_f *aapl_id,
+                          hid_t_f *attr_id);
+H5_FCDLL int_f nh5adelete_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name,
+                                    size_t_f *attr_namelen, hid_t_f *lapl_id);
+H5_FCDLL int_f nh5adelete_by_idx_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, int_f *idx_type,
+                                   int_f *order, hsize_t_f *n, hid_t_f *lapl_id);
+H5_FCDLL int_f nh5aget_name_by_idx_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, int_f *idx_type,
+                                     int_f *order, hsize_t_f *n, _fcd name, size_t_f *size, hid_t_f *lapl_id);
+H5_FCDLL int_f nh5aget_create_plist_c(hid_t_f *attr_id, hid_t_f *creation_prop_id);
+H5_FCDLL int_f nh5aopen_by_idx_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, int_f *idx_type,
+                                 int_f *order, hsize_t_f *n, hid_t_f *aapl_id, hid_t_f *lapl_id,
+                                 hid_t_f *attr_id);
+H5_FCDLL int_f nh5aget_info_c(hid_t_f *loc_id, int_f *corder_valid, int_f *corder, int_f *cset,
+                              hsize_t_f *data_size);
+H5_FCDLL int_f nh5aget_info_by_idx_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, int_f *idx_type,
+                                     int_f *order, hsize_t_f *n, hid_t_f *lapl_id, int_f *corder_valid,
+                                     int_f *corder, int_f *cset, hsize_t_f *data_size);
+H5_FCDLL int_f nh5aget_info_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name,
+                                      size_t_f *attr_namelen, hid_t_f *lapl_id, int_f *corder_valid,
+                                      int_f *corder, int_f *cset, hsize_t_f *data_size);
+H5_FCDLL int_f nh5acreate_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name,
+                                    size_t_f *attr_namelen, hid_t_f *type_id, hid_t_f *space_id,
+                                    hid_t_f *acpl_id, hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id);
+H5_FCDLL int_f nh5aexists_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_exists);
+H5_FCDLL int_f nh5aexists_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name,
+                                    size_t_f *attr_namelen, hid_t_f *lapl_id, int_f *attr_exists);
+H5_FCDLL int_f nh5aopen_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name,
+                                  size_t_f *attr_namelen, hid_t_f *aapl_id, hid_t_f *lapl_id,
+                                  hid_t_f *attr_id);
+H5_FCDLL int_f nh5arename_c(hid_t_f *loc_id, _fcd old_attr_name, size_t_f *old_attr_namelen,
+                            _fcd new_attr_name, size_t_f *new_attr_namelen);
 
 /*
  * Functions form H5Tf.c file
  */
-#define nh5topen_c         H5_FC_FUNC_(h5topen_c, H5TOPEN_C)
-#define nh5tcommit_c       H5_FC_FUNC_(h5tcommit_c, H5TCOMMIT_C)
-#define nh5tcommitted_c    H5_FC_FUNC_(h5tcommitted_c, H5TCOMMITTED_C)
-#define nh5tclose_c        H5_FC_FUNC_(h5tclose_c, H5TCLOSE_C)
-#define nh5tcopy_c         H5_FC_FUNC_(h5tcopy_c, H5TCOPY_C)
-#define nh5tequal_c        H5_FC_FUNC_(h5tequal_c, H5TEQUAL_C)
-#define nh5tget_class_c    H5_FC_FUNC_(h5tget_class_c, H5TGET_CLASS_C)
-#define nh5tget_order_c    H5_FC_FUNC_(h5tget_order_c, H5TGET_ORDER_C)
-#define nh5tset_order_c    H5_FC_FUNC_(h5tset_order_c, H5TSET_ORDER_C)
-#define nh5tget_size_c     H5_FC_FUNC_(h5tget_size_c, H5TGET_SIZE_C)
-#define nh5tset_size_c     H5_FC_FUNC_(h5tset_size_c, H5TSET_SIZE_C)
+#define nh5topen_c              H5_FC_FUNC_(h5topen_c, H5TOPEN_C)
+#define nh5tcommit_c            H5_FC_FUNC_(h5tcommit_c, H5TCOMMIT_C)
+#define nh5tcommitted_c         H5_FC_FUNC_(h5tcommitted_c, H5TCOMMITTED_C)
+#define nh5tclose_c             H5_FC_FUNC_(h5tclose_c, H5TCLOSE_C)
+#define nh5tcopy_c              H5_FC_FUNC_(h5tcopy_c, H5TCOPY_C)
+#define nh5tequal_c             H5_FC_FUNC_(h5tequal_c, H5TEQUAL_C)
+#define nh5tget_class_c         H5_FC_FUNC_(h5tget_class_c, H5TGET_CLASS_C)
+#define nh5tget_order_c         H5_FC_FUNC_(h5tget_order_c, H5TGET_ORDER_C)
+#define nh5tset_order_c         H5_FC_FUNC_(h5tset_order_c, H5TSET_ORDER_C)
+#define nh5tget_size_c          H5_FC_FUNC_(h5tget_size_c, H5TGET_SIZE_C)
+#define nh5tset_size_c          H5_FC_FUNC_(h5tset_size_c, H5TSET_SIZE_C)
 #define nh5tget_precision_c     H5_FC_FUNC_(h5tget_precision_c, H5TGET_PRECISION_C)
 #define nh5tset_precision_c     H5_FC_FUNC_(h5tset_precision_c, H5TSET_PRECISION_C)
 #define nh5tget_offset_c        H5_FC_FUNC_(h5tget_offset_c, H5TGET_OFFSET_C)
 #define nh5tset_offset_c        H5_FC_FUNC_(h5tset_offset_c, H5TSET_OFFSET_C)
-#define nh5tget_pad_c        H5_FC_FUNC_(h5tget_pad_c, H5TGET_PAD_C)
-#define nh5tset_pad_c        H5_FC_FUNC_(h5tset_pad_c, H5TSET_PAD_C)
-#define nh5tget_sign_c       H5_FC_FUNC_(h5tget_sign_c, H5TGET_SIGN_C)
-#define nh5tset_sign_c       H5_FC_FUNC_(h5tset_sign_c, H5TSET_SIGN_C)
-#define nh5tget_fields_c       H5_FC_FUNC_(h5tget_fields_c, H5TGET_FIELDS_C)
-#define nh5tset_fields_c       H5_FC_FUNC_(h5tset_fields_c, H5TSET_FIELDS_C)
-#define nh5tget_ebias_c     H5_FC_FUNC_(h5tget_ebias_c, H5TGET_EBIAS_C)
-#define nh5tset_ebias_c     H5_FC_FUNC_(h5tset_ebias_c, H5TSET_EBIAS_C)
-#define nh5tget_norm_c     H5_FC_FUNC_(h5tget_norm_c, H5TGET_NORM_C)
-#define nh5tset_norm_c     H5_FC_FUNC_(h5tset_norm_c, H5TSET_NORM_C)
-#define nh5tget_inpad_c        H5_FC_FUNC_(h5tget_inpad_c, H5TGET_INPAD_C)
-#define nh5tset_inpad_c        H5_FC_FUNC_(h5tset_inpad_c, H5TSET_INPAD_C)
-#define nh5tget_cset_c        H5_FC_FUNC_(h5tget_cset_c, H5TGET_CSET_C)
-#define nh5tset_cset_c        H5_FC_FUNC_(h5tset_cset_c, H5TSET_CSET_C)
+#define nh5tget_pad_c           H5_FC_FUNC_(h5tget_pad_c, H5TGET_PAD_C)
+#define nh5tset_pad_c           H5_FC_FUNC_(h5tset_pad_c, H5TSET_PAD_C)
+#define nh5tget_sign_c          H5_FC_FUNC_(h5tget_sign_c, H5TGET_SIGN_C)
+#define nh5tset_sign_c          H5_FC_FUNC_(h5tset_sign_c, H5TSET_SIGN_C)
+#define nh5tget_fields_c        H5_FC_FUNC_(h5tget_fields_c, H5TGET_FIELDS_C)
+#define nh5tset_fields_c        H5_FC_FUNC_(h5tset_fields_c, H5TSET_FIELDS_C)
+#define nh5tget_ebias_c         H5_FC_FUNC_(h5tget_ebias_c, H5TGET_EBIAS_C)
+#define nh5tset_ebias_c         H5_FC_FUNC_(h5tset_ebias_c, H5TSET_EBIAS_C)
+#define nh5tget_norm_c          H5_FC_FUNC_(h5tget_norm_c, H5TGET_NORM_C)
+#define nh5tset_norm_c          H5_FC_FUNC_(h5tset_norm_c, H5TSET_NORM_C)
+#define nh5tget_inpad_c         H5_FC_FUNC_(h5tget_inpad_c, H5TGET_INPAD_C)
+#define nh5tset_inpad_c         H5_FC_FUNC_(h5tset_inpad_c, H5TSET_INPAD_C)
+#define nh5tget_cset_c          H5_FC_FUNC_(h5tget_cset_c, H5TGET_CSET_C)
+#define nh5tset_cset_c          H5_FC_FUNC_(h5tset_cset_c, H5TSET_CSET_C)
 #define nh5tget_strpad_c        H5_FC_FUNC_(h5tget_strpad_c, H5TGET_STRPAD_C)
 #define nh5tset_strpad_c        H5_FC_FUNC_(h5tset_strpad_c, H5TSET_STRPAD_C)
-#define nh5tget_nmembers_c        H5_FC_FUNC_(h5tget_nmembers_c, H5TGET_NMEMBERS_C)
-#define nh5tget_member_name_c        H5_FC_FUNC_(h5tget_member_name_c, H5TGET_MEMBER_NAME_C)
-#define nh5tget_member_offset_c        H5_FC_FUNC_(h5tget_member_offset_c, H5TGET_MEMBER_OFFSET_C)
-#define nh5tget_member_dims_c        H5_FC_FUNC_(h5tget_member_dims_c, H5TGET_MEMBER_DIMS_C)
-#define nh5tget_member_type_c        H5_FC_FUNC_(h5tget_member_type_c, H5TGET_MEMBER_TYPE_C)
-#define nh5tget_member_index_c        H5_FC_FUNC_(h5tget_member_index_c, H5TGET_MEMBER_INDEX_C)
-#define nh5tinsert_c        H5_FC_FUNC_(h5tinsert_c, H5TINSERT_C)
-#define nh5tcreate_c        H5_FC_FUNC_(h5tcreate_c, H5TCREATE_C)
-#define nh5tpack_c                   H5_FC_FUNC_(h5tpack_c, H5TPACK_C)
-#define nh5tinsert_array_c           H5_FC_FUNC_(h5tinsert_array_c, H5TINSERT_ARRAY_C)
-#define nh5tinsert_array_c2           H5_FC_FUNC_(h5tinsert_array_c2, H5TINSERT_ARRAY_C2)
-#define nh5tenum_create_c             H5_FC_FUNC_(h5tenum_create_c, H5TENUM_CREATE_C)
-#define nh5tenum_insert_c             H5_FC_FUNC_(h5tenum_insert_c, H5TENUM_INSERT_C)
-#define nh5tenum_nameof_c             H5_FC_FUNC_(h5tenum_nameof_c, H5TENUM_NAMEOF_C)
-#define nh5tenum_valueof_c             H5_FC_FUNC_(h5tenum_valueof_c, H5TENUM_VALUEOF_C)
-#define nh5tget_member_value_c         H5_FC_FUNC_(h5tget_member_value_c, H5TGET_MEMBER_VALUE_C)
-#define nh5tset_tag_c                  H5_FC_FUNC_(h5tset_tag_c, H5TSET_TAG_C)
-#define nh5tget_tag_c                  H5_FC_FUNC_(h5tget_tag_c, H5TGET_TAG_C)
-#define nh5tarray_create_c             H5_FC_FUNC_(h5tarray_create_c, H5TARRAY_CREATE_C)
-#define nh5tget_array_ndims_c          H5_FC_FUNC_(h5tget_array_ndims_c, H5TGET_ARRAY_NDIMS_C)
-#define nh5tget_array_dims_c          H5_FC_FUNC_(h5tget_array_dims_c, H5TGET_ARRAY_DIMS_C)
-#define nh5tget_super_c               H5_FC_FUNC_(h5tget_super_c, H5TGET_SUPER_C)
-#define nh5tvlen_create_c               H5_FC_FUNC_(h5tvlen_create_c, H5TVLEN_CREATE_C)
-#define nh5tis_variable_str_c         H5_FC_FUNC_(h5tis_variable_str_c, H5TIS_VARIABLE_STR_C)
-#define nh5tget_member_class_c         H5_FC_FUNC_(h5tget_member_class_c, H5TGET_MEMBER_CLASS_C)
+#define nh5tget_nmembers_c      H5_FC_FUNC_(h5tget_nmembers_c, H5TGET_NMEMBERS_C)
+#define nh5tget_member_name_c   H5_FC_FUNC_(h5tget_member_name_c, H5TGET_MEMBER_NAME_C)
+#define nh5tget_member_offset_c H5_FC_FUNC_(h5tget_member_offset_c, H5TGET_MEMBER_OFFSET_C)
+#define nh5tget_member_dims_c   H5_FC_FUNC_(h5tget_member_dims_c, H5TGET_MEMBER_DIMS_C)
+#define nh5tget_member_type_c   H5_FC_FUNC_(h5tget_member_type_c, H5TGET_MEMBER_TYPE_C)
+#define nh5tget_member_index_c  H5_FC_FUNC_(h5tget_member_index_c, H5TGET_MEMBER_INDEX_C)
+#define nh5tinsert_c            H5_FC_FUNC_(h5tinsert_c, H5TINSERT_C)
+#define nh5tcreate_c            H5_FC_FUNC_(h5tcreate_c, H5TCREATE_C)
+#define nh5tpack_c              H5_FC_FUNC_(h5tpack_c, H5TPACK_C)
+#define nh5tinsert_array_c      H5_FC_FUNC_(h5tinsert_array_c, H5TINSERT_ARRAY_C)
+#define nh5tinsert_array_c2     H5_FC_FUNC_(h5tinsert_array_c2, H5TINSERT_ARRAY_C2)
+#define nh5tenum_create_c       H5_FC_FUNC_(h5tenum_create_c, H5TENUM_CREATE_C)
+#define nh5tenum_insert_c       H5_FC_FUNC_(h5tenum_insert_c, H5TENUM_INSERT_C)
+#define nh5tenum_nameof_c       H5_FC_FUNC_(h5tenum_nameof_c, H5TENUM_NAMEOF_C)
+#define nh5tenum_valueof_c      H5_FC_FUNC_(h5tenum_valueof_c, H5TENUM_VALUEOF_C)
+#define nh5tget_member_value_c  H5_FC_FUNC_(h5tget_member_value_c, H5TGET_MEMBER_VALUE_C)
+#define nh5tset_tag_c           H5_FC_FUNC_(h5tset_tag_c, H5TSET_TAG_C)
+#define nh5tget_tag_c           H5_FC_FUNC_(h5tget_tag_c, H5TGET_TAG_C)
+#define nh5tarray_create_c      H5_FC_FUNC_(h5tarray_create_c, H5TARRAY_CREATE_C)
+#define nh5tget_array_ndims_c   H5_FC_FUNC_(h5tget_array_ndims_c, H5TGET_ARRAY_NDIMS_C)
+#define nh5tget_array_dims_c    H5_FC_FUNC_(h5tget_array_dims_c, H5TGET_ARRAY_DIMS_C)
+#define nh5tget_super_c         H5_FC_FUNC_(h5tget_super_c, H5TGET_SUPER_C)
+#define nh5tvlen_create_c       H5_FC_FUNC_(h5tvlen_create_c, H5TVLEN_CREATE_C)
+#define nh5tis_variable_str_c   H5_FC_FUNC_(h5tis_variable_str_c, H5TIS_VARIABLE_STR_C)
+#define nh5tget_member_class_c  H5_FC_FUNC_(h5tget_member_class_c, H5TGET_MEMBER_CLASS_C)
 #define nh5tcommit_anon_c       H5_FC_FUNC_(h5tcommit_anon_c, H5TCOMMIT_ANON_C)
-#define nh5tdecode_c    H5_FC_FUNC_(h5tdecode_c, H5TDECODE_C)
-#define nh5tencode_c    H5_FC_FUNC_(h5tencode_c, H5TENCODE_C)
-#define nh5tget_create_plist_c H5_FC_FUNC_(h5tget_create_plist_c, H5TGET_CREATE_PLIST_C)
-#define nh5tcompiler_conv_c H5_FC_FUNC_(h5tcompiler_conv_c, H5TCOMPILER_CONV_C)
-#define nh5tget_native_type_c H5_FC_FUNC_(h5tget_native_type_c, H5TGET_NATIVE_TYPE_C )
+#define nh5tdecode_c            H5_FC_FUNC_(h5tdecode_c, H5TDECODE_C)
+#define nh5tencode_c            H5_FC_FUNC_(h5tencode_c, H5TENCODE_C)
+#define nh5tget_create_plist_c  H5_FC_FUNC_(h5tget_create_plist_c, H5TGET_CREATE_PLIST_C)
+#define nh5tcompiler_conv_c     H5_FC_FUNC_(h5tcompiler_conv_c, H5TCOMPILER_CONV_C)
+#define nh5tget_native_type_c   H5_FC_FUNC_(h5tget_native_type_c, H5TGET_NATIVE_TYPE_C)
 
 H5_FCDLL int_f nh5tcreate_c(int_f *cls, size_t_f *size, hid_t_f *type_id);
-H5_FCDLL int_f nh5topen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *tapl_id );
-H5_FCDLL int_f nh5tcommit_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *lcpl_id, hid_t_f *tcpl_id, hid_t_f *tapl_id);
-H5_FCDLL int_f nh5tclose_c ( hid_t_f *type_id );
-H5_FCDLL int_f nh5tequal_c ( hid_t_f *type1_id , hid_t_f *type2_id, int_f *c_flag);
-H5_FCDLL int_f nh5tcopy_c ( hid_t_f *type_id , hid_t_f *new_type_id);
-H5_FCDLL int_f nh5tget_class_c ( hid_t_f *type_id , int_f *classtype);
-H5_FCDLL int_f nh5tget_order_c ( hid_t_f *type_id , int_f *order);
-H5_FCDLL int_f nh5tset_order_c ( hid_t_f *type_id , int_f *order);
-H5_FCDLL int_f nh5tget_size_c ( hid_t_f *type_id , size_t_f *size);
-H5_FCDLL int_f nh5tset_size_c ( hid_t_f *type_id , size_t_f *size);
-H5_FCDLL int_f nh5tcommitted_c (hid_t_f *dtype_id);
-H5_FCDLL int_f nh5tget_precision_c ( hid_t_f *type_id , size_t_f *precision);
-H5_FCDLL int_f nh5tset_precision_c ( hid_t_f *type_id , size_t_f *precision);
-H5_FCDLL int_f nh5tget_offset_c ( hid_t_f *type_id , size_t_f *offset);
-H5_FCDLL int_f nh5tset_offset_c ( hid_t_f *type_id , size_t_f *offset);
-H5_FCDLL int_f nh5tget_pad_c ( hid_t_f *type_id , int_f * lsbpad, int_f * msbpad);
-H5_FCDLL int_f nh5tset_pad_c ( hid_t_f *type_id, int_f * lsbpad, int_f * msbpad );
-H5_FCDLL int_f nh5tget_sign_c ( hid_t_f *type_id , int_f* sign);
-H5_FCDLL int_f nh5tset_sign_c ( hid_t_f *type_id , int_f *sign);
-H5_FCDLL int_f nh5tget_fields_c ( hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f* esize, size_t_f* mpos, size_t_f* msize);
-H5_FCDLL int_f nh5tset_fields_c ( hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f* esize, size_t_f* mpos, size_t_f* msize);
-H5_FCDLL int_f nh5tget_ebias_c ( hid_t_f *type_id , size_t_f *ebias);
-H5_FCDLL int_f nh5tset_ebias_c ( hid_t_f *type_id , size_t_f *ebias);
-H5_FCDLL int_f nh5tget_norm_c ( hid_t_f *type_id , int_f *norm);
-H5_FCDLL int_f nh5tset_norm_c ( hid_t_f *type_id , int_f *norm);
-H5_FCDLL int_f nh5tget_inpad_c ( hid_t_f *type_id, int_f * padtype);
-H5_FCDLL int_f nh5tset_inpad_c ( hid_t_f *type_id, int_f * padtype);
-H5_FCDLL int_f nh5tget_cset_c ( hid_t_f *type_id, int_f * cset);
-H5_FCDLL int_f nh5tset_cset_c ( hid_t_f *type_id, int_f * cset);
-H5_FCDLL int_f nh5tget_strpad_c ( hid_t_f *type_id, int_f * strpad);
-H5_FCDLL int_f nh5tset_strpad_c ( hid_t_f *type_id, int_f * strpad);
-H5_FCDLL int_f nh5tget_nmembers_c ( hid_t_f *type_id , int_f * num_members);
-H5_FCDLL int_f nh5tget_member_name_c ( hid_t_f *type_id ,int_f* idx, _fcd member_name, int_f *namelen);
-H5_FCDLL int_f nh5tget_member_dims_c ( hid_t_f *type_id ,int_f* field_idx, int_f * dims, size_t_f * field_dims, int_f * perm );
-H5_FCDLL int_f nh5tget_member_offset_c ( hid_t_f *type_id ,int_f* member_no, size_t_f* offset);
-H5_FCDLL int_f nh5tget_member_type_c ( hid_t_f *type_id ,int_f* field_idx, hid_t_f * datatype);
-H5_FCDLL int_f nh5tget_member_index_c ( hid_t_f *type_id ,_fcd name, int_f* namelen, int_f *idx);
-H5_FCDLL int_f nh5tinsert_c(hid_t_f *type_id, _fcd name, int_f* namelen, size_t_f *offset, hid_t_f * field_id);
-H5_FCDLL int_f nh5tpack_c(hid_t_f * type_id);
-H5_FCDLL int_f nh5tinsert_array_c(hid_t_f * parent_id, _fcd name, int_f* namelen, size_t_f* offset, int_f* ndims, size_t_f* dims, hid_t_f* member_id, int_f* perm );
-H5_FCDLL int_f nh5tinsert_array_c2(hid_t_f * parent_id, _fcd name, int_f* namelen, size_t_f* offset, int_f* ndims, size_t_f* dims, hid_t_f* member_id);
-H5_FCDLL int_f nh5tenum_create_c ( hid_t_f *parent_id , hid_t_f *new_type_id);
-H5_FCDLL int_f nh5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value);
-H5_FCDLL int_f h5tenum_insert_ptr_c(hid_t_f *type_id, _fcd name, int_f* namelen, void *value);
-H5_FCDLL int_f nh5tenum_nameof_c(hid_t_f *type_id, int_f* value, _fcd name, size_t_f* namelen);
-H5_FCDLL int_f nh5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value);
-H5_FCDLL int_f nh5tget_member_value_c(hid_t_f *type_id, int_f* member_no, int_f* value);
-H5_FCDLL int_f nh5tset_tag_c(hid_t_f* type_id, _fcd tag, int_f* namelen);
-H5_FCDLL int_f nh5tget_tag_c(hid_t_f* type_id, _fcd tag, size_t_f* tag_size, int_f* namelen);
-H5_FCDLL int_f nh5tarray_create_c(hid_t_f * base_id, int_f *rank, hsize_t_f* dims, hid_t_f* type_id);
-H5_FCDLL int_f nh5tget_array_dims_c ( hid_t_f *type_id , hsize_t_f * dims);
-H5_FCDLL int_f nh5tget_array_ndims_c ( hid_t_f *type_id , int_f * ndims);
-H5_FCDLL int_f nh5tget_super_c ( hid_t_f *type_id , hid_t_f *base_type_id);
-H5_FCDLL int_f nh5tvlen_create_c ( hid_t_f *type_id , hid_t_f *vltype_id);
-H5_FCDLL int_f nh5tis_variable_str_c ( hid_t_f *type_id , int_f *flag );
-H5_FCDLL int_f nh5tget_member_class_c ( hid_t_f *type_id ,  int_f *member_no, int_f *cls );
+H5_FCDLL int_f nh5topen_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *tapl_id);
+H5_FCDLL int_f nh5tcommit_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *lcpl_id,
+                            hid_t_f *tcpl_id, hid_t_f *tapl_id);
+H5_FCDLL int_f nh5tclose_c(hid_t_f *type_id);
+H5_FCDLL int_f nh5tequal_c(hid_t_f *type1_id, hid_t_f *type2_id, int_f *c_flag);
+H5_FCDLL int_f nh5tcopy_c(hid_t_f *type_id, hid_t_f *new_type_id);
+H5_FCDLL int_f nh5tget_class_c(hid_t_f *type_id, int_f *classtype);
+H5_FCDLL int_f nh5tget_order_c(hid_t_f *type_id, int_f *order);
+H5_FCDLL int_f nh5tset_order_c(hid_t_f *type_id, int_f *order);
+H5_FCDLL int_f nh5tget_size_c(hid_t_f *type_id, size_t_f *size);
+H5_FCDLL int_f nh5tset_size_c(hid_t_f *type_id, size_t_f *size);
+H5_FCDLL int_f nh5tcommitted_c(hid_t_f *dtype_id);
+H5_FCDLL int_f nh5tget_precision_c(hid_t_f *type_id, size_t_f *precision);
+H5_FCDLL int_f nh5tset_precision_c(hid_t_f *type_id, size_t_f *precision);
+H5_FCDLL int_f nh5tget_offset_c(hid_t_f *type_id, size_t_f *offset);
+H5_FCDLL int_f nh5tset_offset_c(hid_t_f *type_id, size_t_f *offset);
+H5_FCDLL int_f nh5tget_pad_c(hid_t_f *type_id, int_f *lsbpad, int_f *msbpad);
+H5_FCDLL int_f nh5tset_pad_c(hid_t_f *type_id, int_f *lsbpad, int_f *msbpad);
+H5_FCDLL int_f nh5tget_sign_c(hid_t_f *type_id, int_f *sign);
+H5_FCDLL int_f nh5tset_sign_c(hid_t_f *type_id, int_f *sign);
+H5_FCDLL int_f nh5tget_fields_c(hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f *esize,
+                                size_t_f *mpos, size_t_f *msize);
+H5_FCDLL int_f nh5tset_fields_c(hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f *esize,
+                                size_t_f *mpos, size_t_f *msize);
+H5_FCDLL int_f nh5tget_ebias_c(hid_t_f *type_id, size_t_f *ebias);
+H5_FCDLL int_f nh5tset_ebias_c(hid_t_f *type_id, size_t_f *ebias);
+H5_FCDLL int_f nh5tget_norm_c(hid_t_f *type_id, int_f *norm);
+H5_FCDLL int_f nh5tset_norm_c(hid_t_f *type_id, int_f *norm);
+H5_FCDLL int_f nh5tget_inpad_c(hid_t_f *type_id, int_f *padtype);
+H5_FCDLL int_f nh5tset_inpad_c(hid_t_f *type_id, int_f *padtype);
+H5_FCDLL int_f nh5tget_cset_c(hid_t_f *type_id, int_f *cset);
+H5_FCDLL int_f nh5tset_cset_c(hid_t_f *type_id, int_f *cset);
+H5_FCDLL int_f nh5tget_strpad_c(hid_t_f *type_id, int_f *strpad);
+H5_FCDLL int_f nh5tset_strpad_c(hid_t_f *type_id, int_f *strpad);
+H5_FCDLL int_f nh5tget_nmembers_c(hid_t_f *type_id, int_f *num_members);
+H5_FCDLL int_f nh5tget_member_name_c(hid_t_f *type_id, int_f *idx, _fcd member_name, int_f *namelen);
+H5_FCDLL int_f nh5tget_member_dims_c(hid_t_f *type_id, int_f *field_idx, int_f *dims, size_t_f *field_dims,
+                                     int_f *perm);
+H5_FCDLL int_f nh5tget_member_offset_c(hid_t_f *type_id, int_f *member_no, size_t_f *offset);
+H5_FCDLL int_f nh5tget_member_type_c(hid_t_f *type_id, int_f *field_idx, hid_t_f *datatype);
+H5_FCDLL int_f nh5tget_member_index_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *idx);
+H5_FCDLL int_f nh5tinsert_c(hid_t_f *type_id, _fcd name, int_f *namelen, size_t_f *offset, hid_t_f *field_id);
+H5_FCDLL int_f nh5tpack_c(hid_t_f *type_id);
+H5_FCDLL int_f nh5tinsert_array_c(hid_t_f *parent_id, _fcd name, int_f *namelen, size_t_f *offset,
+                                  int_f *ndims, size_t_f *dims, hid_t_f *member_id, int_f *perm);
+H5_FCDLL int_f nh5tinsert_array_c2(hid_t_f *parent_id, _fcd name, int_f *namelen, size_t_f *offset,
+                                   int_f *ndims, size_t_f *dims, hid_t_f *member_id);
+H5_FCDLL int_f nh5tenum_create_c(hid_t_f *parent_id, hid_t_f *new_type_id);
+H5_FCDLL int_f nh5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *value);
+H5_FCDLL int_f h5tenum_insert_ptr_c(hid_t_f *type_id, _fcd name, int_f *namelen, void *value);
+H5_FCDLL int_f nh5tenum_nameof_c(hid_t_f *type_id, int_f *value, _fcd name, size_t_f *namelen);
+H5_FCDLL int_f nh5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *value);
+H5_FCDLL int_f nh5tget_member_value_c(hid_t_f *type_id, int_f *member_no, int_f *value);
+H5_FCDLL int_f nh5tset_tag_c(hid_t_f *type_id, _fcd tag, int_f *namelen);
+H5_FCDLL int_f nh5tget_tag_c(hid_t_f *type_id, _fcd tag, size_t_f *tag_size, int_f *namelen);
+H5_FCDLL int_f nh5tarray_create_c(hid_t_f *base_id, int_f *rank, hsize_t_f *dims, hid_t_f *type_id);
+H5_FCDLL int_f nh5tget_array_dims_c(hid_t_f *type_id, hsize_t_f *dims);
+H5_FCDLL int_f nh5tget_array_ndims_c(hid_t_f *type_id, int_f *ndims);
+H5_FCDLL int_f nh5tget_super_c(hid_t_f *type_id, hid_t_f *base_type_id);
+H5_FCDLL int_f nh5tvlen_create_c(hid_t_f *type_id, hid_t_f *vltype_id);
+H5_FCDLL int_f nh5tis_variable_str_c(hid_t_f *type_id, int_f *flag);
+H5_FCDLL int_f nh5tget_member_class_c(hid_t_f *type_id, int_f *member_no, int_f *cls);
 H5_FCDLL int_f nh5tcommit_anon_c(hid_t_f *loc_id, hid_t_f *dtype_id, hid_t_f *tcpl_id, hid_t_f *tapl_id);
-H5_FCDLL int_f nh5tdecode_c ( _fcd buf, hid_t_f *obj_id );
-H5_FCDLL int_f nh5tencode_c (_fcd buf, hid_t_f *obj_id, size_t_f *nalloc );
-H5_FCDLL int_f nh5tget_create_plist_c ( hid_t_f *dtype_id,  hid_t_f *dtpl_id);
-H5_FCDLL int_f nh5tcompiler_conv_c ( hid_t_f *src_id, hid_t_f *dst_id, int_f *c_flag);
+H5_FCDLL int_f nh5tdecode_c(_fcd buf, hid_t_f *obj_id);
+H5_FCDLL int_f nh5tencode_c(_fcd buf, hid_t_f *obj_id, size_t_f *nalloc);
+H5_FCDLL int_f nh5tget_create_plist_c(hid_t_f *dtype_id, hid_t_f *dtpl_id);
+H5_FCDLL int_f nh5tcompiler_conv_c(hid_t_f *src_id, hid_t_f *dst_id, int_f *c_flag);
 H5_FCDLL int_f nh5tget_native_type_c(hid_t_f *dtype_id, int_f *direction, hid_t_f *native_dtype_id);
-H5_FCDLL int_f h5tconvert_c(hid_t_f *src_id, hid_t_f *dst_id, size_t_f *nelmts, void *buf, void *background, hid_t_f *plist_id);
-
+H5_FCDLL int_f h5tconvert_c(hid_t_f *src_id, hid_t_f *dst_id, size_t_f *nelmts, void *buf, void *background,
+                            hid_t_f *plist_id);
 
 /*
  * Functions from H5Of.c
  */
 
-#define nh5olink_c       H5_FC_FUNC_(h5olink_c, H5OLINK_C)
-#define nh5oopen_c       H5_FC_FUNC_(h5oopen_c, H5OOPEN_C)
-#define nh5oclose_c      H5_FC_FUNC_(h5oclose_c, H5OCLOSE_C)
-#define nh5oopen_by_addr_c H5_FC_FUNC_(h5oopen_by_addr_c, H5OOPEN_BY_ADDR_C)
-#define nh5ocopy_c         H5_FC_FUNC_(h5ocopy_c, H5OCOPY_C)
-#define nh5odecr_refcount_c H5_FC_FUNC_(h5odecr_refcount_c, H5ODECR_REFCOUNT_C)
-#define nh5oincr_refcount_c H5_FC_FUNC_(h5oincr_refcount_c, H5OINCR_REFCOUNT_C)
-#define nh5oexists_by_name_c H5_FC_FUNC_(h5oexists_by_name_c, H5OEXISTS_BY_NAME_C)
-#define nh5oset_comment_c H5_FC_FUNC_(h5oset_comment_c, H5OSET_COMMENT_C)
+#define nh5olink_c                H5_FC_FUNC_(h5olink_c, H5OLINK_C)
+#define nh5oopen_c                H5_FC_FUNC_(h5oopen_c, H5OOPEN_C)
+#define nh5oclose_c               H5_FC_FUNC_(h5oclose_c, H5OCLOSE_C)
+#define nh5oopen_by_addr_c        H5_FC_FUNC_(h5oopen_by_addr_c, H5OOPEN_BY_ADDR_C)
+#define nh5ocopy_c                H5_FC_FUNC_(h5ocopy_c, H5OCOPY_C)
+#define nh5odecr_refcount_c       H5_FC_FUNC_(h5odecr_refcount_c, H5ODECR_REFCOUNT_C)
+#define nh5oincr_refcount_c       H5_FC_FUNC_(h5oincr_refcount_c, H5OINCR_REFCOUNT_C)
+#define nh5oexists_by_name_c      H5_FC_FUNC_(h5oexists_by_name_c, H5OEXISTS_BY_NAME_C)
+#define nh5oset_comment_c         H5_FC_FUNC_(h5oset_comment_c, H5OSET_COMMENT_C)
 #define nh5oset_comment_by_name_c H5_FC_FUNC_(h5oset_comment_by_name_c, H5OSET_COMMENT_BY_NAME_C)
-#define nh5oopen_by_idx_c H5_FC_FUNC_(h5oopen_by_idx_c, H5OOPEN_BY_IDX_C)
-#define nh5oget_comment_c H5_FC_FUNC_(h5oget_comment_c, H5OGET_COMMENT_C)
+#define nh5oopen_by_idx_c         H5_FC_FUNC_(h5oopen_by_idx_c, H5OOPEN_BY_IDX_C)
+#define nh5oget_comment_c         H5_FC_FUNC_(h5oget_comment_c, H5OGET_COMMENT_C)
 #define nh5oget_comment_by_name_c H5_FC_FUNC_(h5oget_comment_by_name_c, H5OGET_COMMENT_BY_NAME_C)
 
-H5_FCDLL int_f nh5oopen_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id, hid_t_f *obj_id);
-H5_FCDLL int_f nh5oclose_c (hid_t_f *object_id );
-H5_FCDLL int_f nh5oopen_by_addr_c (hid_t_f *loc_id, haddr_t_f *addr, hid_t_f *obj_id);
-H5_FCDLL int_f nh5olink_c (hid_t_f *object_id, hid_t_f *new_loc_id, _fcd name, size_t_f *namelen,
-			   hid_t_f *lcpl_id, hid_t_f *lapl_id);
-H5_FCDLL int_f h5ovisit_c (hid_t_f *group_id, int_f *index_type, int_f *order, H5O_iterate_t op, void *op_data);
-H5_FCDLL int_f h5ovisit_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 );
-H5_FCDLL int_f h5oget_info_c (hid_t_f *object_id, H5O_info_t_f *object_info);
-H5_FCDLL int_f h5oget_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);
-H5_FCDLL int_f h5oget_info_by_name_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id,
-				       H5O_info_t_f *object_info);
-H5_FCDLL int_f nh5ocopy_c (hid_t_f *src_loc_id, _fcd src_name, size_t_f *src_name_len,
-			   hid_t_f *dst_loc_id, _fcd dst_name, size_t_f *dst_name_len, 
-			   hid_t_f *ocpypl_id, hid_t_f *lcpl_id );
-H5_FCDLL int_f nh5odecr_refcount_c (hid_t_f *object_id);
-H5_FCDLL int_f nh5oincr_refcount_c (hid_t_f *object_id);
-H5_FCDLL int_f nh5oexists_by_name_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id);
-H5_FCDLL int_f nh5oset_comment_c (hid_t_f *object_id, _fcd comment, size_t_f *commentlen);
-H5_FCDLL 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);
-H5_FCDLL 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);
-H5_FCDLL int_f nh5oget_comment_c (hid_t_f *object_id, _fcd comment, size_t_f *commentsize, hssize_t_f *bufsize);
-H5_FCDLL 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);
+H5_FCDLL int_f nh5oopen_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id, hid_t_f *obj_id);
+H5_FCDLL int_f nh5oclose_c(hid_t_f *object_id);
+H5_FCDLL int_f nh5oopen_by_addr_c(hid_t_f *loc_id, haddr_t_f *addr, hid_t_f *obj_id);
+H5_FCDLL int_f nh5olink_c(hid_t_f *object_id, hid_t_f *new_loc_id, _fcd name, size_t_f *namelen,
+                          hid_t_f *lcpl_id, hid_t_f *lapl_id);
+H5_FCDLL int_f h5ovisit_c(hid_t_f *group_id, int_f *index_type, int_f *order, H5O_iterate_t op,
+                          void *op_data);
+H5_FCDLL int_f h5ovisit_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);
+H5_FCDLL int_f h5oget_info_c(hid_t_f *object_id, H5O_info_t_f *object_info);
+H5_FCDLL int_f h5oget_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);
+H5_FCDLL int_f h5oget_info_by_name_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id,
+                                     H5O_info_t_f *object_info);
+H5_FCDLL int_f nh5ocopy_c(hid_t_f *src_loc_id, _fcd src_name, size_t_f *src_name_len, hid_t_f *dst_loc_id,
+                          _fcd dst_name, size_t_f *dst_name_len, hid_t_f *ocpypl_id, hid_t_f *lcpl_id);
+H5_FCDLL int_f nh5odecr_refcount_c(hid_t_f *object_id);
+H5_FCDLL int_f nh5oincr_refcount_c(hid_t_f *object_id);
+H5_FCDLL int_f nh5oexists_by_name_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id);
+H5_FCDLL int_f nh5oset_comment_c(hid_t_f *object_id, _fcd comment, size_t_f *commentlen);
+H5_FCDLL 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);
+H5_FCDLL 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);
+H5_FCDLL int_f nh5oget_comment_c(hid_t_f *object_id, _fcd comment, size_t_f *commentsize,
+                                 hssize_t_f *bufsize);
+H5_FCDLL 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);
 /*
  * Functions from H5Pf.c
  */
-#define nh5pcreate_c       H5_FC_FUNC_(h5pcreate_c, H5PCREATE_C)
-#define nh5pclose_c        H5_FC_FUNC_(h5pclose_c, H5PCLOSE_C)
-#define nh5pcopy_c         H5_FC_FUNC_(h5pcopy_c, H5PCOPY_C)
-#define nh5pcreate_class_f90_c H5_FC_FUNC_(h5pcreate_class_f90_c, H5PCREATE_CLASS_F90_C)
-#define nh5pequal_c         H5_FC_FUNC_(h5pequal_c, H5PEQUAL_C)
-#define nh5pget_class_c    H5_FC_FUNC_(h5pget_class_c, H5PGET_CLASS_C)
-#define nh5pset_deflate_c  H5_FC_FUNC_(h5pset_deflate_c, H5PSET_DEFLATE_C)
-#define nh5pset_preserve_c  H5_FC_FUNC_(h5pset_preserve_c, H5PSET_PRESERVE_C)
-#define nh5pget_preserve_c  H5_FC_FUNC_(h5pget_preserve_c, H5PGET_PRESERVE_C)
-#define nh5pset_chunk_c    H5_FC_FUNC_(h5pset_chunk_c, H5PSET_CHUNK_C)
-#define nh5pget_chunk_c    H5_FC_FUNC_(h5pget_chunk_c, H5PGET_CHUNK_C)
+#define nh5pcreate_c                 H5_FC_FUNC_(h5pcreate_c, H5PCREATE_C)
+#define nh5pclose_c                  H5_FC_FUNC_(h5pclose_c, H5PCLOSE_C)
+#define nh5pcopy_c                   H5_FC_FUNC_(h5pcopy_c, H5PCOPY_C)
+#define nh5pcreate_class_f90_c       H5_FC_FUNC_(h5pcreate_class_f90_c, H5PCREATE_CLASS_F90_C)
+#define nh5pequal_c                  H5_FC_FUNC_(h5pequal_c, H5PEQUAL_C)
+#define nh5pget_class_c              H5_FC_FUNC_(h5pget_class_c, H5PGET_CLASS_C)
+#define nh5pset_deflate_c            H5_FC_FUNC_(h5pset_deflate_c, H5PSET_DEFLATE_C)
+#define nh5pset_preserve_c           H5_FC_FUNC_(h5pset_preserve_c, H5PSET_PRESERVE_C)
+#define nh5pget_preserve_c           H5_FC_FUNC_(h5pget_preserve_c, H5PGET_PRESERVE_C)
+#define nh5pset_chunk_c              H5_FC_FUNC_(h5pset_chunk_c, H5PSET_CHUNK_C)
+#define nh5pget_chunk_c              H5_FC_FUNC_(h5pget_chunk_c, H5PGET_CHUNK_C)
 #define nh5pset_fill_valuec_c        H5_FC_FUNC_(h5pset_fill_valuec_c, H5PSET_FILL_VALUEC_C)
 #define nh5pset_fill_value_integer_c H5_FC_FUNC_(h5pset_fill_value_integer_c, H5PSET_FILL_VALUE_INTEGER_C)
 #define nh5pset_fill_value_real_c    H5_FC_FUNC_(h5pset_fill_value_real_c, H5PSET_FILL_VALUE_REAL_C)
@@ -855,202 +964,218 @@ H5_FCDLL int_f nh5oget_comment_by_name_c (hid_t_f *loc_id, _fcd name, size_t_f *
 #define nh5pget_fill_value_integer_c H5_FC_FUNC_(h5pget_fill_value_integer_c, H5PGET_FILL_VALUE_INTEGER_C)
 #define nh5pget_fill_value_real_c    H5_FC_FUNC_(h5pget_fill_value_real_c, H5PGET_FILL_VALUE_REAL_C)
 #define nh5pget_fill_value_double_c  H5_FC_FUNC_(h5pget_fill_value_double_c, H5PGET_FILL_VALUE_DOUBLE_C)
-#define nh5pget_version_c    H5_FC_FUNC_(h5pget_version_c, H5PGET_VERSION_C)
-#define nh5pget_userblock_c    H5_FC_FUNC_(h5pget_userblock_c, H5PGET_USERBLOCK_C)
-#define nh5pset_userblock_c    H5_FC_FUNC_(h5pset_userblock_c, H5PSET_USERBLOCK_C)
-#define nh5pset_sizes_c        H5_FC_FUNC_(h5pset_sizes_c, H5PSET_SIZES_C)
-#define nh5pget_sizes_c         H5_FC_FUNC_(h5pget_sizes_c, H5PGET_SIZES_C)
-#define nh5pget_sym_k_c         H5_FC_FUNC_(h5pget_sym_k_c, H5PGET_SYM_K_C)
-#define nh5pset_sym_k_c         H5_FC_FUNC_(h5pset_sym_k_c, H5PSET_SYM_K_C)
-#define nh5pget_istore_k_c         H5_FC_FUNC_(h5pget_istore_k_c, H5PGET_ISTORE_K_C)
-#define nh5pset_istore_k_c         H5_FC_FUNC_(h5pset_istore_k_c, H5PSET_ISTORE_K_C)
-#define nh5pget_driver_c         H5_FC_FUNC_(h5pget_driver_c, H5PGET_DRIVER_C)
+#define nh5pget_version_c            H5_FC_FUNC_(h5pget_version_c, H5PGET_VERSION_C)
+#define nh5pget_userblock_c          H5_FC_FUNC_(h5pget_userblock_c, H5PGET_USERBLOCK_C)
+#define nh5pset_userblock_c          H5_FC_FUNC_(h5pset_userblock_c, H5PSET_USERBLOCK_C)
+#define nh5pset_sizes_c              H5_FC_FUNC_(h5pset_sizes_c, H5PSET_SIZES_C)
+#define nh5pget_sizes_c              H5_FC_FUNC_(h5pget_sizes_c, H5PGET_SIZES_C)
+#define nh5pget_sym_k_c              H5_FC_FUNC_(h5pget_sym_k_c, H5PGET_SYM_K_C)
+#define nh5pset_sym_k_c              H5_FC_FUNC_(h5pset_sym_k_c, H5PSET_SYM_K_C)
+#define nh5pget_istore_k_c           H5_FC_FUNC_(h5pget_istore_k_c, H5PGET_ISTORE_K_C)
+#define nh5pset_istore_k_c           H5_FC_FUNC_(h5pset_istore_k_c, H5PSET_ISTORE_K_C)
+#define nh5pget_driver_c             H5_FC_FUNC_(h5pget_driver_c, H5PGET_DRIVER_C)
 #define nh5pset_fapl_stdio_c         H5_FC_FUNC_(h5pset_fapl_stdio_c, H5PSET_FAPL_STDIO_C)
 #define nh5pget_fapl_stdio_c         H5_FC_FUNC_(h5pget_fapl_stdio_c, H5PGET_FAPL_STDIO_C)
-#define nh5pset_fapl_sec2_c         H5_FC_FUNC_(h5pset_fapl_sec2_c, H5PSET_FAPL_SEC2_C)
-#define nh5pget_fapl_sec2_c         H5_FC_FUNC_(h5pget_fapl_sec2_c, H5PGET_FAPL_SEC2_C)
-#define nh5pset_alignment_c         H5_FC_FUNC_(h5pset_alignment_c, H5PSET_ALIGNMENT_C)
-#define nh5pget_alignment_c         H5_FC_FUNC_(h5pget_alignment_c, H5PGET_ALIGNMENT_C)
-#define nh5pset_fapl_core_c         H5_FC_FUNC_(h5pset_fapl_core_c, H5PSET_FAPL_CORE_C)
-#define nh5pget_fapl_core_c         H5_FC_FUNC_(h5pget_fapl_core_c, H5PGET_FAPL_CORE_C)
-#define nh5pset_fapl_family_c         H5_FC_FUNC_(h5pset_fapl_family_c, H5PSET_FAPL_FAMILY_C)
-#define nh5pget_fapl_family_c         H5_FC_FUNC_(h5pget_fapl_family_c, H5PGET_FAPL_FAMILY_C)
-#define nh5pset_cache_c         H5_FC_FUNC_(h5pset_cache_c, H5PSET_CACHE_C)
-#define nh5pget_cache_c         H5_FC_FUNC_(h5pget_cache_c, H5PGET_CACHE_C)
+#define nh5pset_fapl_sec2_c          H5_FC_FUNC_(h5pset_fapl_sec2_c, H5PSET_FAPL_SEC2_C)
+#define nh5pget_fapl_sec2_c          H5_FC_FUNC_(h5pget_fapl_sec2_c, H5PGET_FAPL_SEC2_C)
+#define nh5pset_alignment_c          H5_FC_FUNC_(h5pset_alignment_c, H5PSET_ALIGNMENT_C)
+#define nh5pget_alignment_c          H5_FC_FUNC_(h5pget_alignment_c, H5PGET_ALIGNMENT_C)
+#define nh5pset_fapl_core_c          H5_FC_FUNC_(h5pset_fapl_core_c, H5PSET_FAPL_CORE_C)
+#define nh5pget_fapl_core_c          H5_FC_FUNC_(h5pget_fapl_core_c, H5PGET_FAPL_CORE_C)
+#define nh5pset_fapl_family_c        H5_FC_FUNC_(h5pset_fapl_family_c, H5PSET_FAPL_FAMILY_C)
+#define nh5pget_fapl_family_c        H5_FC_FUNC_(h5pget_fapl_family_c, H5PGET_FAPL_FAMILY_C)
+#define nh5pset_cache_c              H5_FC_FUNC_(h5pset_cache_c, H5PSET_CACHE_C)
+#define nh5pget_cache_c              H5_FC_FUNC_(h5pget_cache_c, H5PGET_CACHE_C)
 #define nh5pset_fapl_split_c         H5_FC_FUNC_(h5pset_fapl_split_c, H5PSET_FAPL_SPLIT_C)
 #define nh5pget_fapl_split_c         H5_FC_FUNC_(h5pget_fapl_split_c, H5PGET_FAPL_SPLIT_C)
-#define nh5pset_gc_references_c         H5_FC_FUNC_(h5pset_gc_references_c, H5PSET_GC_REFERENCES_C)
-#define nh5pget_gc_references_c         H5_FC_FUNC_(h5pget_gc_references_c, H5PGET_GC_REFERENCES_C)
-#define nh5pset_layout_c         H5_FC_FUNC_(h5pset_layout_c, H5PSET_LAYOUT_C)
-#define nh5pget_layout_c         H5_FC_FUNC_(h5pget_layout_c, H5PGET_LAYOUT_C)
-#define nh5pset_filter_c         H5_FC_FUNC_(h5pset_filter_c, H5PSET_FILTER_C)
-#define nh5premove_filter_c         H5_FC_FUNC_(h5premove_filter_c, H5PREMOVE_FILTER_C)
-#define nh5pmodify_filter_c         H5_FC_FUNC_(h5pmodify_filter_c, H5PMODIFY_FILTER_C)
-#define nh5pget_nfilters_c         H5_FC_FUNC_(h5pget_nfilters_c, H5PGET_NFILTERS_C)
-#define nh5pget_filter_c         H5_FC_FUNC_(h5pget_filter_c, H5PGET_FILTER_C)
-#define nh5pget_filter_by_id_c         H5_FC_FUNC_(h5pget_filter_by_id_c, H5PGET_FILTER_BY_ID_C)
-#define nh5pset_external_c         H5_FC_FUNC_(h5pset_external_c, H5PSET_EXTERNAL_C)
-#define nh5pget_external_count_c         H5_FC_FUNC_(h5pget_external_count_c, H5PGET_EXTERNAL_COUNT_C)
-#define nh5pget_external_c         H5_FC_FUNC_(h5pget_external_c, H5PGET_EXTERNAL_C)
-#define nh5pget_btree_ratios_c         H5_FC_FUNC_(h5pget_btree_ratios_c, H5PGET_BTREE_RATIOS_C)
-#define nh5pset_btree_ratios_c         H5_FC_FUNC_(h5pset_btree_ratios_c, H5PSET_BTREE_RATIOS_C)
-#define nh5pset_fapl_mpio_c         H5_FC_FUNC_(h5pset_fapl_mpio_c, H5PSET_FAPL_MPIO_C)
-#define nh5pget_fapl_mpio_c         H5_FC_FUNC_(h5pget_fapl_mpio_c, H5PGET_FAPL_MPIO_C)
-#define nh5pset_dxpl_mpio_c        H5_FC_FUNC_(h5pset_dxpl_mpio_c, H5PSET_DXPL_MPIO_C)
-#define nh5pget_dxpl_mpio_c        H5_FC_FUNC_(h5pget_dxpl_mpio_c, H5PGET_DXPL_MPIO_C)
-#define nh5pget_fclose_degree_c    H5_FC_FUNC_(h5pget_fclose_degree_c, H5PGET_FCLOSE_DEGREE_C)
-#define nh5pset_fclose_degree_c    H5_FC_FUNC_(h5pset_fclose_degree_c, H5PSET_FCLOSE_DEGREE_C)
-#define nh5pset_buffer_c    H5_FC_FUNC_(h5pset_buffer_c, H5PSET_BUFFER_C)
-#define nh5pget_buffer_c    H5_FC_FUNC_(h5pget_buffer_c, H5PGET_BUFFER_C)
-#define nh5pfill_value_defined_c    H5_FC_FUNC_(h5pfill_value_defined_c, H5PFILL_VALUE_DEFINED_C)
-#define nh5pset_alloc_time_c    H5_FC_FUNC_(h5pset_alloc_time_c, H5PSET_ALLOC_TIME_C)
-#define nh5pget_alloc_time_c    H5_FC_FUNC_(h5pget_alloc_time_c, H5PGET_ALLOC_TIME_C)
-#define nh5pset_fill_time_c    H5_FC_FUNC_(h5pset_fill_time_c, H5PSET_FILL_TIME_C)
-#define nh5pget_fill_time_c    H5_FC_FUNC_(h5pget_fill_time_c, H5PGET_FILL_TIME_C)
+#define nh5pset_gc_references_c      H5_FC_FUNC_(h5pset_gc_references_c, H5PSET_GC_REFERENCES_C)
+#define nh5pget_gc_references_c      H5_FC_FUNC_(h5pget_gc_references_c, H5PGET_GC_REFERENCES_C)
+#define nh5pset_layout_c             H5_FC_FUNC_(h5pset_layout_c, H5PSET_LAYOUT_C)
+#define nh5pget_layout_c             H5_FC_FUNC_(h5pget_layout_c, H5PGET_LAYOUT_C)
+#define nh5pset_filter_c             H5_FC_FUNC_(h5pset_filter_c, H5PSET_FILTER_C)
+#define nh5premove_filter_c          H5_FC_FUNC_(h5premove_filter_c, H5PREMOVE_FILTER_C)
+#define nh5pmodify_filter_c          H5_FC_FUNC_(h5pmodify_filter_c, H5PMODIFY_FILTER_C)
+#define nh5pget_nfilters_c           H5_FC_FUNC_(h5pget_nfilters_c, H5PGET_NFILTERS_C)
+#define nh5pget_filter_c             H5_FC_FUNC_(h5pget_filter_c, H5PGET_FILTER_C)
+#define nh5pget_filter_by_id_c       H5_FC_FUNC_(h5pget_filter_by_id_c, H5PGET_FILTER_BY_ID_C)
+#define nh5pset_external_c           H5_FC_FUNC_(h5pset_external_c, H5PSET_EXTERNAL_C)
+#define nh5pget_external_count_c     H5_FC_FUNC_(h5pget_external_count_c, H5PGET_EXTERNAL_COUNT_C)
+#define nh5pget_external_c           H5_FC_FUNC_(h5pget_external_c, H5PGET_EXTERNAL_C)
+#define nh5pget_btree_ratios_c       H5_FC_FUNC_(h5pget_btree_ratios_c, H5PGET_BTREE_RATIOS_C)
+#define nh5pset_btree_ratios_c       H5_FC_FUNC_(h5pset_btree_ratios_c, H5PSET_BTREE_RATIOS_C)
+#define nh5pset_fapl_mpio_c          H5_FC_FUNC_(h5pset_fapl_mpio_c, H5PSET_FAPL_MPIO_C)
+#define nh5pget_fapl_mpio_c          H5_FC_FUNC_(h5pget_fapl_mpio_c, H5PGET_FAPL_MPIO_C)
+#define nh5pset_dxpl_mpio_c          H5_FC_FUNC_(h5pset_dxpl_mpio_c, H5PSET_DXPL_MPIO_C)
+#define nh5pget_dxpl_mpio_c          H5_FC_FUNC_(h5pget_dxpl_mpio_c, H5PGET_DXPL_MPIO_C)
+#define nh5pget_fclose_degree_c      H5_FC_FUNC_(h5pget_fclose_degree_c, H5PGET_FCLOSE_DEGREE_C)
+#define nh5pset_fclose_degree_c      H5_FC_FUNC_(h5pset_fclose_degree_c, H5PSET_FCLOSE_DEGREE_C)
+#define nh5pset_buffer_c             H5_FC_FUNC_(h5pset_buffer_c, H5PSET_BUFFER_C)
+#define nh5pget_buffer_c             H5_FC_FUNC_(h5pget_buffer_c, H5PGET_BUFFER_C)
+#define nh5pfill_value_defined_c     H5_FC_FUNC_(h5pfill_value_defined_c, H5PFILL_VALUE_DEFINED_C)
+#define nh5pset_alloc_time_c         H5_FC_FUNC_(h5pset_alloc_time_c, H5PSET_ALLOC_TIME_C)
+#define nh5pget_alloc_time_c         H5_FC_FUNC_(h5pget_alloc_time_c, H5PGET_ALLOC_TIME_C)
+#define nh5pset_fill_time_c          H5_FC_FUNC_(h5pset_fill_time_c, H5PSET_FILL_TIME_C)
+#define nh5pget_fill_time_c          H5_FC_FUNC_(h5pget_fill_time_c, H5PGET_FILL_TIME_C)
 #define nh5pset_meta_block_size_c    H5_FC_FUNC_(h5pset_meta_block_size_c, H5PSET_META_BLOCK_SIZE_C)
 #define nh5pget_meta_block_size_c    H5_FC_FUNC_(h5pget_meta_block_size_c, H5PGET_META_BLOCK_SIZE_C)
-#define nh5pset_sieve_buf_size_c    H5_FC_FUNC_(h5pset_sieve_buf_size_c, H5PSET_SIEVE_BUF_SIZE_C)
-#define nh5pget_sieve_buf_size_c    H5_FC_FUNC_(h5pget_sieve_buf_size_c, H5PGET_SIEVE_BUF_SIZE_C)
-#define nh5pset_hyper_vector_size_c    H5_FC_FUNC_(h5pset_hyper_vector_size_c, H5PSET_HYPER_VECTOR_SIZE_C)
-#define nh5pget_hyper_vector_size_c    H5_FC_FUNC_(h5pget_hyper_vector_size_c, H5PGET_HYPER_VECTOR_SIZE_C)
-#define nh5pset_small_data_block_size_c    H5_FC_FUNC_(h5pset_small_data_block_size_c, H5PSET_SMALL_DATA_BLOCK_SIZE_C)
-#define nh5pget_small_data_block_size_c    H5_FC_FUNC_(h5pget_small_data_block_size_c, H5PGET_SMALL_DATA_BLOCK_SIZE_C)
-#define nh5pregister_integer_c                 H5_FC_FUNC_(h5pregister_integer_c, H5PREGISTER_INTEGER_C)
-#define nh5pregister_real_c                    H5_FC_FUNC_(h5pregister_real_c, H5PREGISTER_REAL_C)
-#define nh5pregister_double_c                  H5_FC_FUNC_(h5pregister_double_c, H5PREGISTER_DOUBLE_C)
-#define nh5pregisterc_c                H5_FC_FUNC_(h5pregisterc_c, H5PREGISTERC_C)
-#define nh5pinsert_integer_c                   H5_FC_FUNC_(h5pinsert_integer_c, H5PINSERT_INTEGER_C)
-#define nh5pinsert_real_c                   H5_FC_FUNC_(h5pinsert_real_c, H5PINSERT_REAL_C)
-#define nh5pinsert_double_c                   H5_FC_FUNC_(h5pinsert_double_c, H5PINSERT_DOUBLE_C)
-#define nh5pinsertc_c                  H5_FC_FUNC_(h5pinsertc_c, H5PINSERTC_C)
-#define nh5pset_integer_c                      H5_FC_FUNC_(h5pset_integer_c, H5PSET_INTEGER_C)
-#define nh5pset_real_c                         H5_FC_FUNC_(h5pset_real_c, H5PSET_REAL_C)
-#define nh5pset_double_c                       H5_FC_FUNC_(h5pset_double_c, H5PSET_DOUBLE_C)
-#define nh5psetc_c                     H5_FC_FUNC_(h5psetc_c, H5PSETC_C)
-#define nh5pget_integer_c                      H5_FC_FUNC_(h5pget_integer_c, H5PGET_INTEGER_C)
-#define nh5pget_real_c                         H5_FC_FUNC_(h5pget_real_c, H5PGET_REAL_C)
-#define nh5pget_double_c                       H5_FC_FUNC_(h5pget_double_c, H5PGET_DOUBLE_C)
-#define nh5pgetc_c                     H5_FC_FUNC_(h5pgetc_c, H5PGETC_C)
-#define nh5pexist_c                    H5_FC_FUNC_(h5pexist_c, H5PEXIST_C)
-#define nh5pget_size_c                 H5_FC_FUNC_(h5pget_size_c, H5PGET_SIZE_C)
-#define nh5pget_nprops_c               H5_FC_FUNC_(h5pget_nprops_c, H5PGET_NPROPS_C)
-#define nh5pget_class_parent_c         H5_FC_FUNC_(h5pget_class_parent_c, H5PGET_CLASS_PARENT_C)
-#define nh5pisa_class_c                H5_FC_FUNC_(h5pisa_class_c, H5PISA_CLASS_C)
-#define nh5pcopy_prop_c                H5_FC_FUNC_(h5pcopy_prop_c, H5PCOPY_PROP_C)
-#define nh5premove_c                   H5_FC_FUNC_(h5premove_c, H5PREMOVE_C)
-#define nh5punregister_c               H5_FC_FUNC_(h5punregister_c, H5PUNREGISTER_C)
-#define nh5pclose_class_c              H5_FC_FUNC_(h5pclose_class_c, H5PCLOSE_CLASS_C)
-#define nh5pget_class_name_c           H5_FC_FUNC_(h5pget_class_name_c, H5PGET_CLASS_NAME_C)
-#define nh5pset_shuffle_c               H5_FC_FUNC_(h5pset_shuffle_c, H5PSET_SHUFFLE_C)
-#define nh5pset_fletcher32_c           H5_FC_FUNC_(h5pset_fletcher32_c, H5PSET_FLETCHER32_C)
-#define nh5pset_edc_check_c            H5_FC_FUNC_(h5pset_edc_check_c, H5PSET_EDC_CHECK_C)
-#define nh5pget_edc_check_c            H5_FC_FUNC_(h5pget_edc_check_c, H5PGET_EDC_CHECK_C)
+#define nh5pset_sieve_buf_size_c     H5_FC_FUNC_(h5pset_sieve_buf_size_c, H5PSET_SIEVE_BUF_SIZE_C)
+#define nh5pget_sieve_buf_size_c     H5_FC_FUNC_(h5pget_sieve_buf_size_c, H5PGET_SIEVE_BUF_SIZE_C)
+#define nh5pset_hyper_vector_size_c  H5_FC_FUNC_(h5pset_hyper_vector_size_c, H5PSET_HYPER_VECTOR_SIZE_C)
+#define nh5pget_hyper_vector_size_c  H5_FC_FUNC_(h5pget_hyper_vector_size_c, H5PGET_HYPER_VECTOR_SIZE_C)
+#define nh5pset_small_data_block_size_c                                                                      \
+    H5_FC_FUNC_(h5pset_small_data_block_size_c, H5PSET_SMALL_DATA_BLOCK_SIZE_C)
+#define nh5pget_small_data_block_size_c                                                                      \
+    H5_FC_FUNC_(h5pget_small_data_block_size_c, H5PGET_SMALL_DATA_BLOCK_SIZE_C)
+#define nh5pregister_integer_c        H5_FC_FUNC_(h5pregister_integer_c, H5PREGISTER_INTEGER_C)
+#define nh5pregister_real_c           H5_FC_FUNC_(h5pregister_real_c, H5PREGISTER_REAL_C)
+#define nh5pregister_double_c         H5_FC_FUNC_(h5pregister_double_c, H5PREGISTER_DOUBLE_C)
+#define nh5pregisterc_c               H5_FC_FUNC_(h5pregisterc_c, H5PREGISTERC_C)
+#define nh5pinsert_integer_c          H5_FC_FUNC_(h5pinsert_integer_c, H5PINSERT_INTEGER_C)
+#define nh5pinsert_real_c             H5_FC_FUNC_(h5pinsert_real_c, H5PINSERT_REAL_C)
+#define nh5pinsert_double_c           H5_FC_FUNC_(h5pinsert_double_c, H5PINSERT_DOUBLE_C)
+#define nh5pinsertc_c                 H5_FC_FUNC_(h5pinsertc_c, H5PINSERTC_C)
+#define nh5pset_integer_c             H5_FC_FUNC_(h5pset_integer_c, H5PSET_INTEGER_C)
+#define nh5pset_real_c                H5_FC_FUNC_(h5pset_real_c, H5PSET_REAL_C)
+#define nh5pset_double_c              H5_FC_FUNC_(h5pset_double_c, H5PSET_DOUBLE_C)
+#define nh5psetc_c                    H5_FC_FUNC_(h5psetc_c, H5PSETC_C)
+#define nh5pget_integer_c             H5_FC_FUNC_(h5pget_integer_c, H5PGET_INTEGER_C)
+#define nh5pget_real_c                H5_FC_FUNC_(h5pget_real_c, H5PGET_REAL_C)
+#define nh5pget_double_c              H5_FC_FUNC_(h5pget_double_c, H5PGET_DOUBLE_C)
+#define nh5pgetc_c                    H5_FC_FUNC_(h5pgetc_c, H5PGETC_C)
+#define nh5pexist_c                   H5_FC_FUNC_(h5pexist_c, H5PEXIST_C)
+#define nh5pget_size_c                H5_FC_FUNC_(h5pget_size_c, H5PGET_SIZE_C)
+#define nh5pget_nprops_c              H5_FC_FUNC_(h5pget_nprops_c, H5PGET_NPROPS_C)
+#define nh5pget_class_parent_c        H5_FC_FUNC_(h5pget_class_parent_c, H5PGET_CLASS_PARENT_C)
+#define nh5pisa_class_c               H5_FC_FUNC_(h5pisa_class_c, H5PISA_CLASS_C)
+#define nh5pcopy_prop_c               H5_FC_FUNC_(h5pcopy_prop_c, H5PCOPY_PROP_C)
+#define nh5premove_c                  H5_FC_FUNC_(h5premove_c, H5PREMOVE_C)
+#define nh5punregister_c              H5_FC_FUNC_(h5punregister_c, H5PUNREGISTER_C)
+#define nh5pclose_class_c             H5_FC_FUNC_(h5pclose_class_c, H5PCLOSE_CLASS_C)
+#define nh5pget_class_name_c          H5_FC_FUNC_(h5pget_class_name_c, H5PGET_CLASS_NAME_C)
+#define nh5pset_shuffle_c             H5_FC_FUNC_(h5pset_shuffle_c, H5PSET_SHUFFLE_C)
+#define nh5pset_fletcher32_c          H5_FC_FUNC_(h5pset_fletcher32_c, H5PSET_FLETCHER32_C)
+#define nh5pset_edc_check_c           H5_FC_FUNC_(h5pset_edc_check_c, H5PSET_EDC_CHECK_C)
+#define nh5pget_edc_check_c           H5_FC_FUNC_(h5pget_edc_check_c, H5PGET_EDC_CHECK_C)
 #define nh5pset_family_offset_c       H5_FC_FUNC_(h5pset_family_offset_c, H5PSET_FAMILY_OFFSET_C)
 #define nh5pget_fapl_multi_c          H5_FC_FUNC_(h5pget_fapl_multi_c, H5PGET_FAPL_MULTI_C)
 #define nh5pset_fapl_multi_c          H5_FC_FUNC_(h5pset_fapl_multi_c, H5PSET_FAPL_MULTI_C)
-#define nh5pset_fapl_multi_sc          H5_FC_FUNC_(h5pset_fapl_multi_sc, H5PSET_FAPL_MULTI_SC)
-#define nh5pset_szip_c                 H5_FC_FUNC_(h5pset_szip_c, H5PSET_SZIP_C)
-#define nh5pall_filters_avail_c        H5_FC_FUNC_(h5pall_filters_avail_c, H5PALL_FILTERS_AVAIL_C)
-#define nh5pget_attr_phase_change_c    H5_FC_FUNC_(h5pget_attr_phase_change_c, H5PGET_ATTR_PHASE_CHANGE_C)
-#define nh5pset_attr_creation_order_c  H5_FC_FUNC_(h5pset_attr_creation_order_c, H5PSET_ATTR_CREATION_ORDER_C)
-#define nh5pset_shared_mesg_nindexes_c  H5_FC_FUNC_(h5pset_shared_mesg_nindexes_c, H5PSET_SHARED_MESG_NINDEXES_C)
-#define nh5pset_shared_mesg_index_c  H5_FC_FUNC_(h5pset_shared_mesg_index_c,H5PSET_SHARED_MESG_INDEX_C)
-#define nh5pget_attr_creation_order_c  H5_FC_FUNC_(h5pget_attr_creation_order_c,H5PGET_ATTR_CREATION_ORDER_C)
-#define nh5pset_libver_bounds_c H5_FC_FUNC_(h5pset_libver_bounds_c,H5PSET_LIBVER_BOUNDS_C)
+#define nh5pset_fapl_multi_sc         H5_FC_FUNC_(h5pset_fapl_multi_sc, H5PSET_FAPL_MULTI_SC)
+#define nh5pset_szip_c                H5_FC_FUNC_(h5pset_szip_c, H5PSET_SZIP_C)
+#define nh5pall_filters_avail_c       H5_FC_FUNC_(h5pall_filters_avail_c, H5PALL_FILTERS_AVAIL_C)
+#define nh5pget_attr_phase_change_c   H5_FC_FUNC_(h5pget_attr_phase_change_c, H5PGET_ATTR_PHASE_CHANGE_C)
+#define nh5pset_attr_creation_order_c H5_FC_FUNC_(h5pset_attr_creation_order_c, H5PSET_ATTR_CREATION_ORDER_C)
+#define nh5pset_shared_mesg_nindexes_c                                                                       \
+    H5_FC_FUNC_(h5pset_shared_mesg_nindexes_c, H5PSET_SHARED_MESG_NINDEXES_C)
+#define nh5pset_shared_mesg_index_c   H5_FC_FUNC_(h5pset_shared_mesg_index_c, H5PSET_SHARED_MESG_INDEX_C)
+#define nh5pget_attr_creation_order_c H5_FC_FUNC_(h5pget_attr_creation_order_c, H5PGET_ATTR_CREATION_ORDER_C)
+#define nh5pset_libver_bounds_c       H5_FC_FUNC_(h5pset_libver_bounds_c, H5PSET_LIBVER_BOUNDS_C)
 #define nh5pset_link_creation_order_c H5_FC_FUNC_(h5pset_link_creation_order_c, H5PSET_LINK_CREATION_ORDER_C)
-#define nh5pget_link_phase_change_c H5_FC_FUNC_(h5pget_link_phase_change_c, H5PGET_LINK_PHASE_CHANGE_C)
-#define nh5pget_obj_track_times_c H5_FC_FUNC_(h5pget_obj_track_times_c, H5PGET_OBJ_TRACK_TIMES_C)
-#define nh5pset_obj_track_times_c H5_FC_FUNC_(h5pset_obj_track_times_c, H5PSET_OBJ_TRACK_TIMES_C)
-#define nh5pset_create_inter_group_c H5_FC_FUNC_(h5pset_create_inter_group_c,H5PSET_CREATE_INTER_GROUP_C)
-#define nh5pget_create_inter_group_c H5_FC_FUNC_(h5pget_create_inter_group_c,H5PGET_CREATE_INTER_GROUP_C)
-#define nh5pget_link_creation_order_c H5_FC_FUNC_(h5pget_link_creation_order_c,H5PGET_LINK_CREATION_ORDER_C)
-#define nh5pset_char_encoding_c H5_FC_FUNC_(h5pset_char_encoding_c, H5PSET_CHAR_ENCODING_C)
-#define nh5pget_char_encoding_c H5_FC_FUNC_(h5pget_char_encoding_c, H5PGET_CHAR_ENCODING_C)
-#define nh5pset_copy_object_c H5_FC_FUNC_(h5pset_copy_object_c, H5PSET_COPY_OBJECT_C)
-#define nh5pget_copy_object_c H5_FC_FUNC_(h5pget_copy_object_c, H5PGET_COPY_OBJECT_C)
-#define nh5pget_data_transform_c H5_FC_FUNC_(h5pget_data_transform_c, H5PGET_DATA_TRANSFORM_C)
-#define nh5pset_data_transform_c H5_FC_FUNC_(h5pset_data_transform_c, H5PSET_DATA_TRANSFORM_C)
-#define nh5pget_local_heap_size_hint_c H5_FC_FUNC_(h5pget_local_heap_size_hint_c, H5PGET_LOCAL_HEAP_SIZE_HINT_C)
-#define nh5pget_est_link_info_c H5_FC_FUNC_(h5pget_est_link_info_c,H5PGET_EST_LINK_INFO_C)
-#define nh5pset_est_link_info_c H5_FC_FUNC_(h5pset_est_link_info_c,H5PSET_EST_LINK_INFO_C)
-#define nh5pset_local_heap_size_hint_c H5_FC_FUNC_(h5pset_local_heap_size_hint_c, H5PSET_LOCAL_HEAP_SIZE_HINT_C)
-#define nh5pset_link_phase_change_c H5_FC_FUNC_(h5pset_link_phase_change_c, H5PSET_LINK_PHASE_CHANGE_C)
-#define nh5pset_fapl_direct_c H5_FC_FUNC_(h5pset_fapl_direct_c, H5PSET_FAPL_DIRECT_C)
-#define nh5pget_fapl_direct_c H5_FC_FUNC_(h5pget_fapl_direct_c, H5PGET_FAPL_DIRECT_C)
-#define nh5pset_attr_phase_change_c H5_FC_FUNC_(h5pset_attr_phase_change_c, H5PSET_ATTR_PHASE_CHANGE_C)
-#define nh5pset_nbit_c H5_FC_FUNC_(h5pset_nbit_c, H5PSET_NBIT_C)
-#define nh5pset_scaleoffset_c H5_FC_FUNC_(h5pset_scaleoffset_c, H5PSET_SCALEOFFSET_C)
-#define nh5pset_nlinks_c H5_FC_FUNC_(h5pset_nlinks_c, H5PSET_NLINKS_C)
-#define nh5pget_nlinks_c H5_FC_FUNC_(h5pget_nlinks_c, H5PGET_NLINKS_C)
-#define nh5pset_chunk_cache_c H5_FC_FUNC_(h5pset_chunk_cache_c, H5PSET_CHUNK_CACHE_C)
-#define nh5pget_chunk_cache_c H5_FC_FUNC_(h5pget_chunk_cache_c, H5PGET_CHUNK_CACHE_C)
+#define nh5pget_link_phase_change_c   H5_FC_FUNC_(h5pget_link_phase_change_c, H5PGET_LINK_PHASE_CHANGE_C)
+#define nh5pget_obj_track_times_c     H5_FC_FUNC_(h5pget_obj_track_times_c, H5PGET_OBJ_TRACK_TIMES_C)
+#define nh5pset_obj_track_times_c     H5_FC_FUNC_(h5pset_obj_track_times_c, H5PSET_OBJ_TRACK_TIMES_C)
+#define nh5pset_create_inter_group_c  H5_FC_FUNC_(h5pset_create_inter_group_c, H5PSET_CREATE_INTER_GROUP_C)
+#define nh5pget_create_inter_group_c  H5_FC_FUNC_(h5pget_create_inter_group_c, H5PGET_CREATE_INTER_GROUP_C)
+#define nh5pget_link_creation_order_c H5_FC_FUNC_(h5pget_link_creation_order_c, H5PGET_LINK_CREATION_ORDER_C)
+#define nh5pset_char_encoding_c       H5_FC_FUNC_(h5pset_char_encoding_c, H5PSET_CHAR_ENCODING_C)
+#define nh5pget_char_encoding_c       H5_FC_FUNC_(h5pget_char_encoding_c, H5PGET_CHAR_ENCODING_C)
+#define nh5pset_copy_object_c         H5_FC_FUNC_(h5pset_copy_object_c, H5PSET_COPY_OBJECT_C)
+#define nh5pget_copy_object_c         H5_FC_FUNC_(h5pget_copy_object_c, H5PGET_COPY_OBJECT_C)
+#define nh5pget_data_transform_c      H5_FC_FUNC_(h5pget_data_transform_c, H5PGET_DATA_TRANSFORM_C)
+#define nh5pset_data_transform_c      H5_FC_FUNC_(h5pset_data_transform_c, H5PSET_DATA_TRANSFORM_C)
+#define nh5pget_local_heap_size_hint_c                                                                       \
+    H5_FC_FUNC_(h5pget_local_heap_size_hint_c, H5PGET_LOCAL_HEAP_SIZE_HINT_C)
+#define nh5pget_est_link_info_c H5_FC_FUNC_(h5pget_est_link_info_c, H5PGET_EST_LINK_INFO_C)
+#define nh5pset_est_link_info_c H5_FC_FUNC_(h5pset_est_link_info_c, H5PSET_EST_LINK_INFO_C)
+#define nh5pset_local_heap_size_hint_c                                                                       \
+    H5_FC_FUNC_(h5pset_local_heap_size_hint_c, H5PSET_LOCAL_HEAP_SIZE_HINT_C)
+#define nh5pset_link_phase_change_c   H5_FC_FUNC_(h5pset_link_phase_change_c, H5PSET_LINK_PHASE_CHANGE_C)
+#define nh5pset_fapl_direct_c         H5_FC_FUNC_(h5pset_fapl_direct_c, H5PSET_FAPL_DIRECT_C)
+#define nh5pget_fapl_direct_c         H5_FC_FUNC_(h5pget_fapl_direct_c, H5PGET_FAPL_DIRECT_C)
+#define nh5pset_attr_phase_change_c   H5_FC_FUNC_(h5pset_attr_phase_change_c, H5PSET_ATTR_PHASE_CHANGE_C)
+#define nh5pset_nbit_c                H5_FC_FUNC_(h5pset_nbit_c, H5PSET_NBIT_C)
+#define nh5pset_scaleoffset_c         H5_FC_FUNC_(h5pset_scaleoffset_c, H5PSET_SCALEOFFSET_C)
+#define nh5pset_nlinks_c              H5_FC_FUNC_(h5pset_nlinks_c, H5PSET_NLINKS_C)
+#define nh5pget_nlinks_c              H5_FC_FUNC_(h5pget_nlinks_c, H5PGET_NLINKS_C)
+#define nh5pset_chunk_cache_c         H5_FC_FUNC_(h5pset_chunk_cache_c, H5PSET_CHUNK_CACHE_C)
+#define nh5pget_chunk_cache_c         H5_FC_FUNC_(h5pget_chunk_cache_c, H5PGET_CHUNK_CACHE_C)
 #define nh5pget_mpio_actual_io_mode_c H5_FC_FUNC_(h5pget_mpio_actual_io_mode_c, H5PGET_MPIO_ACTUAL_IO_MODE_C)
 
-H5_FCDLL int_f nh5pcreate_c ( hid_t_f *cls, hid_t_f *prp_id );
-H5_FCDLL int_f nh5pclose_c ( hid_t_f *prp_id );
-H5_FCDLL int_f nh5pcopy_c ( hid_t_f *prp_id , hid_t_f *new_prp_id);
-H5_FCDLL int_f nh5pequal_c ( hid_t_f *plist1_id , hid_t_f *plist2_id, int_f *c_flag);
-H5_FCDLL int_f nh5pget_class_c ( hid_t_f *prp_id , hid_t_f *classtype);
-H5_FCDLL int_f nh5pset_deflate_c ( hid_t_f *prp_id , int_f *level);
-H5_FCDLL int_f nh5pset_chunk_c ( hid_t_f *prp_id, int_f *rank, hsize_t_f *dims );
-H5_FCDLL int_f nh5pget_chunk_c ( hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims );
-H5_FCDLL int_f h5pset_file_image_c (hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len);
-H5_FCDLL int_f nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue);
-H5_FCDLL int_f h5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
-H5_FCDLL int_f nh5pset_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
-H5_FCDLL int_f nh5pset_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
-H5_FCDLL int_f nh5pset_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
-H5_FCDLL int_f h5pget_file_image_c (hid_t_f *fapl_id, void **buf_ptr, size_t_f *buf_len);
-H5_FCDLL int_f nh5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue);
-H5_FCDLL int_f h5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
-H5_FCDLL int_f nh5pget_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
-H5_FCDLL int_f nh5pget_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
-H5_FCDLL int_f nh5pget_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
-H5_FCDLL int_f nh5pset_preserve_c ( hid_t_f *prp_id , int_f *flag);
-H5_FCDLL int_f nh5pget_preserve_c ( hid_t_f *prp_id , int_f *flag);
-H5_FCDLL int_f nh5pget_version_c (hid_t_f *prp_id, int_f * boot,int_f * freelist, int_f * stab, int_f *shhdr);
-H5_FCDLL int_f nh5pset_userblock_c (hid_t_f *prp_id, hsize_t_f * size);
-H5_FCDLL int_f nh5pget_userblock_c (hid_t_f *prp_id, hsize_t_f * size);
-H5_FCDLL int_f nh5pget_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size);
-H5_FCDLL int_f nh5pset_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size);
-H5_FCDLL int_f nh5pset_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk);
-H5_FCDLL int_f nh5pget_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk);
-H5_FCDLL int_f nh5pset_istore_k_c (hid_t_f *prp_id, int_f* ik);
-H5_FCDLL int_f nh5pget_istore_k_c (hid_t_f *prp_id, int_f* ik);
-H5_FCDLL int_f nh5pget_driver_c (hid_t_f *prp_id, hid_t_f*driver);
-H5_FCDLL int_f nh5pset_fapl_stdio_c (hid_t_f *prp_id);
-H5_FCDLL int_f nh5pget_fapl_stdio_c (hid_t_f *prp_id, int_f* io);
-H5_FCDLL int_f nh5pset_fapl_sec2_c (hid_t_f *prp_id);
-H5_FCDLL int_f nh5pget_fapl_sec2_c (hid_t_f *prp_id, int_f* sec2);
-H5_FCDLL int_f nh5pset_alignment_c(hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment);
-H5_FCDLL int_f nh5pget_alignment_c(hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment);
-H5_FCDLL int_f nh5pget_fapl_core_c (hid_t_f *prp_id, size_t_f* increment, int_f *flag);
-H5_FCDLL int_f nh5pset_fapl_core_c (hid_t_f *prp_id, size_t_f* increment, int_f *flag);
-H5_FCDLL int_f nh5pset_fapl_family_c (hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist );
-H5_FCDLL int_f nh5pget_fapl_family_c (hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist );
-H5_FCDLL int_f nh5pset_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts, size_t_f* rdcc_nbytes, real_f* rdcc_w0);
-H5_FCDLL int_f nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts, size_t_f* rdcc_nbytes, real_f* rdcc_w0);
-H5_FCDLL int_f nh5pget_fapl_split_c(hid_t_f *prp_id, size_t_f* meta_ext_size , _fcd meta_ext, hid_t_f* meta_plist, size_t_f* raw_ext_size, _fcd raw_ext, hid_t_f * raw_plist);
-H5_FCDLL int_f nh5pset_fapl_split_c(hid_t_f *prp_id, int_f* meta_len, _fcd meta_ext, hid_t_f* meta_plist, int_f* raw_len, _fcd raw_ext, hid_t_f * raw_plist);
-H5_FCDLL int_f nh5pset_gc_references_c(hid_t_f *prp_id, int_f* gc_references);
-H5_FCDLL int_f nh5pget_gc_references_c(hid_t_f *prp_id, int_f* gc_references);
-H5_FCDLL int_f nh5pset_layout_c (hid_t_f *prp_id, int_f* layout);
-H5_FCDLL int_f nh5pget_layout_c (hid_t_f *prp_id, int_f* layout);
-H5_FCDLL int_f nh5pset_filter_c (hid_t_f *prp_id, int_f* filter, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values );
-H5_FCDLL int_f nh5premove_filter_c (hid_t_f *prp_id, int_f* filter);
-H5_FCDLL int_f nh5pmodify_filter_c (hid_t_f *prp_id, int_f* filter, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values );
-H5_FCDLL int_f nh5pget_nfilters_c (hid_t_f *prp_id, int_f* nfilters);
-H5_FCDLL int_f nh5pget_filter_c(hid_t_f *prp_id, int_f* filter_number, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values, size_t_f *namelen, _fcd name, int_f* filter_id);
-H5_FCDLL int_f nh5pget_filter_by_id_c(hid_t_f *prp_id, int_f* filter_id, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values, size_t_f *namelen, _fcd name);
-H5_FCDLL int_f nh5pset_external_c (hid_t_f *prp_id, _fcd name, int_f* namelen, off_t_f* offset, hsize_t_f*bytes);
-H5_FCDLL int_f nh5pget_external_count_c (hid_t_f *prp_id, int_f* count);
-H5_FCDLL int_f nh5pget_external_c(hid_t_f *prp_id, int_f *idx, size_t_f* name_size, _fcd name, off_t_f* offset, hsize_t_f*bytes);
-H5_FCDLL int_f nh5pget_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* right);
-H5_FCDLL int_f nh5pset_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* right);
-H5_FCDLL int_f nh5pget_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info);
-H5_FCDLL int_f nh5pset_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info);
-H5_FCDLL int_f nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode);
-H5_FCDLL int_f nh5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode);
+H5_FCDLL int_f nh5pcreate_c(hid_t_f *cls, hid_t_f *prp_id);
+H5_FCDLL int_f nh5pclose_c(hid_t_f *prp_id);
+H5_FCDLL int_f nh5pcopy_c(hid_t_f *prp_id, hid_t_f *new_prp_id);
+H5_FCDLL int_f nh5pequal_c(hid_t_f *plist1_id, hid_t_f *plist2_id, int_f *c_flag);
+H5_FCDLL int_f nh5pget_class_c(hid_t_f *prp_id, hid_t_f *classtype);
+H5_FCDLL int_f nh5pset_deflate_c(hid_t_f *prp_id, int_f *level);
+H5_FCDLL int_f nh5pset_chunk_c(hid_t_f *prp_id, int_f *rank, hsize_t_f *dims);
+H5_FCDLL int_f nh5pget_chunk_c(hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims);
+H5_FCDLL int_f h5pset_file_image_c(hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len);
+H5_FCDLL int_f nh5pset_fill_valuec_c(hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue);
+H5_FCDLL int_f h5pset_fill_value_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f nh5pset_fill_value_integer_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f nh5pset_fill_value_real_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f nh5pset_fill_value_double_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f h5pget_file_image_c(hid_t_f *fapl_id, void **buf_ptr, size_t_f *buf_len);
+H5_FCDLL int_f nh5pget_fill_valuec_c(hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue);
+H5_FCDLL int_f h5pget_fill_value_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f nh5pget_fill_value_integer_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f nh5pget_fill_value_real_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f nh5pget_fill_value_double_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f nh5pset_preserve_c(hid_t_f *prp_id, int_f *flag);
+H5_FCDLL int_f nh5pget_preserve_c(hid_t_f *prp_id, int_f *flag);
+H5_FCDLL int_f nh5pget_version_c(hid_t_f *prp_id, int_f *boot, int_f *freelist, int_f *stab, int_f *shhdr);
+H5_FCDLL int_f nh5pset_userblock_c(hid_t_f *prp_id, hsize_t_f *size);
+H5_FCDLL int_f nh5pget_userblock_c(hid_t_f *prp_id, hsize_t_f *size);
+H5_FCDLL int_f nh5pget_sizes_c(hid_t_f *prp_id, size_t_f *sizeof_addr, size_t_f *sizeof_size);
+H5_FCDLL int_f nh5pset_sizes_c(hid_t_f *prp_id, size_t_f *sizeof_addr, size_t_f *sizeof_size);
+H5_FCDLL int_f nh5pset_sym_k_c(hid_t_f *prp_id, int_f *ik, int_f *lk);
+H5_FCDLL int_f nh5pget_sym_k_c(hid_t_f *prp_id, int_f *ik, int_f *lk);
+H5_FCDLL int_f nh5pset_istore_k_c(hid_t_f *prp_id, int_f *ik);
+H5_FCDLL int_f nh5pget_istore_k_c(hid_t_f *prp_id, int_f *ik);
+H5_FCDLL int_f nh5pget_driver_c(hid_t_f *prp_id, hid_t_f *driver);
+H5_FCDLL int_f nh5pset_fapl_stdio_c(hid_t_f *prp_id);
+H5_FCDLL int_f nh5pget_fapl_stdio_c(hid_t_f *prp_id, int_f *io);
+H5_FCDLL int_f nh5pset_fapl_sec2_c(hid_t_f *prp_id);
+H5_FCDLL int_f nh5pget_fapl_sec2_c(hid_t_f *prp_id, int_f *sec2);
+H5_FCDLL int_f nh5pset_alignment_c(hid_t_f *prp_id, hsize_t_f *threshold, hsize_t_f *alignment);
+H5_FCDLL int_f nh5pget_alignment_c(hid_t_f *prp_id, hsize_t_f *threshold, hsize_t_f *alignment);
+H5_FCDLL int_f nh5pget_fapl_core_c(hid_t_f *prp_id, size_t_f *increment, int_f *flag);
+H5_FCDLL int_f nh5pset_fapl_core_c(hid_t_f *prp_id, size_t_f *increment, int_f *flag);
+H5_FCDLL int_f nh5pset_fapl_family_c(hid_t_f *prp_id, hsize_t_f *memb_size, hid_t_f *memb_plist);
+H5_FCDLL int_f nh5pget_fapl_family_c(hid_t_f *prp_id, hsize_t_f *memb_size, hid_t_f *memb_plist);
+H5_FCDLL int_f nh5pset_cache_c(hid_t_f *prp_id, int_f *mdc_nelmts, size_t_f *rdcc_nelmts,
+                               size_t_f *rdcc_nbytes, real_f *rdcc_w0);
+H5_FCDLL int_f nh5pget_cache_c(hid_t_f *prp_id, int_f *mdc_nelmts, size_t_f *rdcc_nelmts,
+                               size_t_f *rdcc_nbytes, real_f *rdcc_w0);
+H5_FCDLL int_f nh5pget_fapl_split_c(hid_t_f *prp_id, size_t_f *meta_ext_size, _fcd meta_ext,
+                                    hid_t_f *meta_plist, size_t_f *raw_ext_size, _fcd raw_ext,
+                                    hid_t_f *raw_plist);
+H5_FCDLL int_f nh5pset_fapl_split_c(hid_t_f *prp_id, int_f *meta_len, _fcd meta_ext, hid_t_f *meta_plist,
+                                    int_f *raw_len, _fcd raw_ext, hid_t_f *raw_plist);
+H5_FCDLL int_f nh5pset_gc_references_c(hid_t_f *prp_id, int_f *gc_references);
+H5_FCDLL int_f nh5pget_gc_references_c(hid_t_f *prp_id, int_f *gc_references);
+H5_FCDLL int_f nh5pset_layout_c(hid_t_f *prp_id, int_f *layout);
+H5_FCDLL int_f nh5pget_layout_c(hid_t_f *prp_id, int_f *layout);
+H5_FCDLL int_f nh5pset_filter_c(hid_t_f *prp_id, int_f *filter, int_f *flags, size_t_f *cd_nelmts,
+                                int_f *cd_values);
+H5_FCDLL int_f nh5premove_filter_c(hid_t_f *prp_id, int_f *filter);
+H5_FCDLL int_f nh5pmodify_filter_c(hid_t_f *prp_id, int_f *filter, int_f *flags, size_t_f *cd_nelmts,
+                                   int_f *cd_values);
+H5_FCDLL int_f nh5pget_nfilters_c(hid_t_f *prp_id, int_f *nfilters);
+H5_FCDLL int_f nh5pget_filter_c(hid_t_f *prp_id, int_f *filter_number, int_f *flags, size_t_f *cd_nelmts,
+                                int_f *cd_values, size_t_f *namelen, _fcd name, int_f *filter_id);
+H5_FCDLL int_f nh5pget_filter_by_id_c(hid_t_f *prp_id, int_f *filter_id, int_f *flags, size_t_f *cd_nelmts,
+                                      int_f *cd_values, size_t_f *namelen, _fcd name);
+H5_FCDLL int_f nh5pset_external_c(hid_t_f *prp_id, _fcd name, int_f *namelen, off_t_f *offset,
+                                  hsize_t_f *bytes);
+H5_FCDLL int_f nh5pget_external_count_c(hid_t_f *prp_id, int_f *count);
+H5_FCDLL int_f nh5pget_external_c(hid_t_f *prp_id, int_f *idx, size_t_f *name_size, _fcd name,
+                                  off_t_f *offset, hsize_t_f *bytes);
+H5_FCDLL int_f nh5pget_btree_ratios_c(hid_t_f *prp_id, real_f *left, real_f *middle, real_f *right);
+H5_FCDLL int_f nh5pset_btree_ratios_c(hid_t_f *prp_id, real_f *left, real_f *middle, real_f *right);
+H5_FCDLL int_f nh5pget_fapl_mpio_c(hid_t_f *prp_id, int_f *comm, int_f *info);
+H5_FCDLL int_f nh5pset_fapl_mpio_c(hid_t_f *prp_id, int_f *comm, int_f *info);
+H5_FCDLL int_f nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f *data_xfer_mode);
+H5_FCDLL int_f nh5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f *data_xfer_mode);
 H5_FCDLL int_f nh5pset_fclose_degree_c(hid_t_f *fapl, int_f *degree);
 H5_FCDLL int_f nh5pget_fclose_degree_c(hid_t_f *fapl, int_f *degree);
 H5_FCDLL int_f nh5pget_buffer_c(hid_t_f *plist, hsize_t_f *size);
@@ -1068,20 +1193,21 @@ H5_FCDLL int_f nh5pget_small_data_block_size_c(hid_t_f *plist, hsize_t_f *size);
 H5_FCDLL int_f nh5pset_hyper_vector_size_c(hid_t_f *plist, size_t_f *size);
 H5_FCDLL int_f nh5pget_hyper_vector_size_c(hid_t_f *plist, size_t_f *size);
 H5_FCDLL int_f h5pcreate_class_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls,
-				  H5P_cls_create_func_t create, void *create_data,
-				  H5P_cls_copy_func_t copy, void *copy_data,
-				  H5P_cls_close_func_t close, void *close_data);
+                                 H5P_cls_create_func_t create, void *create_data, H5P_cls_copy_func_t copy,
+                                 void *copy_data, H5P_cls_close_func_t close, void *close_data);
 H5_FCDLL int_f nh5pcreate_class_f90_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls);
-H5_FCDLL int_f h5pregister_c(hid_t_f *cls, _fcd name, int_f * name_len, size_t_f *size, void *value);
-H5_FCDLL int_f nh5pregister_integer_c(hid_t_f *cls, _fcd name, int_f * name_len, size_t_f *size, void *value);
-H5_FCDLL int_f nh5pregister_real_c(hid_t_f *cls, _fcd name, int_f * name_len, size_t_f *size, void *value);
-H5_FCDLL int_f nh5pregister_double_c(hid_t_f *cls, _fcd name, int_f * name_len, size_t_f *size, void *value);
-H5_FCDLL int_f nh5pregisterc_c(hid_t_f *cls, _fcd name, int_f * name_len, size_t_f *size, _fcd value, int_f *value_len);
-H5_FCDLL int_f h5pinsert_c(hid_t_f  *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
-H5_FCDLL int_f nh5pinsert_integer_c(hid_t_f  *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
-H5_FCDLL int_f nh5pinsert_real_c(hid_t_f  *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
-H5_FCDLL int_f nh5pinsert_double_c(hid_t_f  *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
-H5_FCDLL int_f nh5pinsertc_c(hid_t_f  *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f *value_len);
+H5_FCDLL int_f h5pregister_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pregister_integer_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pregister_real_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pregister_double_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pregisterc_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, _fcd value,
+                               int_f *value_len);
+H5_FCDLL int_f h5pinsert_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pinsert_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pinsert_real_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pinsert_double_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd value,
+                             int_f *value_len);
 H5_FCDLL int_f h5pset_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
 H5_FCDLL int_f nh5pset_integer_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
 H5_FCDLL int_f nh5pset_real_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
@@ -1100,27 +1226,31 @@ H5_FCDLL int_f nh5pisa_class_c(hid_t_f *plist, hid_t_f *pclass);
 H5_FCDLL int_f nh5pcopy_prop_c(hid_t_f *dst_id, hid_t_f *src_id, _fcd name, int_f *name_len);
 H5_FCDLL int_f nh5premove_c(hid_t_f *plid, _fcd name, int_f *name_len);
 H5_FCDLL int_f nh5punregister_c(hid_t_f *cls, _fcd name, int_f *name_len);
-H5_FCDLL int_f nh5pclose_class_c(hid_t_f * cls);
+H5_FCDLL int_f nh5pclose_class_c(hid_t_f *cls);
 H5_FCDLL int_f nh5pget_class_name_c(hid_t_f *prp_id, _fcd name, int_f *name_len);
-H5_FCDLL int_f nh5pset_shuffle_c ( hid_t_f *prp_id);
-H5_FCDLL int_f nh5pset_fletcher32_c ( hid_t_f *prp_id );
-H5_FCDLL int_f nh5pset_edc_check_c ( hid_t_f *prp_id, int_f *flag );
-H5_FCDLL int_f nh5pget_edc_check_c ( hid_t_f *prp_id, int_f *flag );
-H5_FCDLL int_f nh5pset_family_offset_c ( hid_t_f *prp_id , hsize_t_f *offset);
-H5_FCDLL int_f nh5pget_fapl_multi_c ( hid_t_f *prp_id , int_f *mem_map, hid_t_f *memb_fapl, _fcd memb_name, int_f *len, int_f *lenmax, real_f *memb_addr, int_f *flag, int_f *maxlen_out);
-H5_FCDLL int_f nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *mem_map, hid_t_f *memb_fapl, _fcd memb_name, int_f *len, int_f *lenmax, real_f *memb_addr, int_f *flag);
-H5_FCDLL int_f nh5pset_fapl_multi_sc ( hid_t_f *prp_id , int_f *flag);
-H5_FCDLL int_f nh5pset_szip_c ( hid_t_f *prp_id , int_f *options_mask, int_f *pixels_per_block);
-H5_FCDLL int_f nh5pall_filters_avail_c ( hid_t_f *prp_id , int_f *status);
-H5_FCDLL int_f nh5pfill_value_defined_c ( hid_t_f *prp_id , int_f *flag);
-H5_FCDLL int_f nh5pget_attr_phase_change_c (hid_t_f *ocpl_id, int_f *max_compact, int_f *min_dense );
-H5_FCDLL int_f nh5pset_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags );
-H5_FCDLL int_f nh5pset_shared_mesg_nindexes_c(hid_t_f *plist_id, int_f *nindexes );
-H5_FCDLL int_f nh5pset_shared_mesg_index_c(hid_t_f *fcpl_id, int_f *index_num, int_f *mesg_type_flags, int_f *min_mesg_size);
+H5_FCDLL int_f nh5pset_shuffle_c(hid_t_f *prp_id);
+H5_FCDLL int_f nh5pset_fletcher32_c(hid_t_f *prp_id);
+H5_FCDLL int_f nh5pset_edc_check_c(hid_t_f *prp_id, int_f *flag);
+H5_FCDLL int_f nh5pget_edc_check_c(hid_t_f *prp_id, int_f *flag);
+H5_FCDLL int_f nh5pset_family_offset_c(hid_t_f *prp_id, hsize_t_f *offset);
+H5_FCDLL int_f nh5pget_fapl_multi_c(hid_t_f *prp_id, int_f *mem_map, hid_t_f *memb_fapl, _fcd memb_name,
+                                    int_f *len, int_f *lenmax, real_f *memb_addr, int_f *flag,
+                                    int_f *maxlen_out);
+H5_FCDLL int_f nh5pset_fapl_multi_c(hid_t_f *prp_id, int_f *mem_map, hid_t_f *memb_fapl, _fcd memb_name,
+                                    int_f *len, int_f *lenmax, real_f *memb_addr, int_f *flag);
+H5_FCDLL int_f nh5pset_fapl_multi_sc(hid_t_f *prp_id, int_f *flag);
+H5_FCDLL int_f nh5pset_szip_c(hid_t_f *prp_id, int_f *options_mask, int_f *pixels_per_block);
+H5_FCDLL int_f nh5pall_filters_avail_c(hid_t_f *prp_id, int_f *status);
+H5_FCDLL int_f nh5pfill_value_defined_c(hid_t_f *prp_id, int_f *flag);
+H5_FCDLL int_f nh5pget_attr_phase_change_c(hid_t_f *ocpl_id, int_f *max_compact, int_f *min_dense);
+H5_FCDLL int_f nh5pset_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags);
+H5_FCDLL int_f nh5pset_shared_mesg_nindexes_c(hid_t_f *plist_id, int_f *nindexes);
+H5_FCDLL int_f nh5pset_shared_mesg_index_c(hid_t_f *fcpl_id, int_f *index_num, int_f *mesg_type_flags,
+                                           int_f *min_mesg_size);
 H5_FCDLL int_f nh5pget_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags);
 H5_FCDLL int_f nh5pset_libver_bounds_c(hid_t_f *fapl_id, int_f *low, int_f *high);
 H5_FCDLL int_f nh5pset_link_creation_order_c(hid_t_f *gcpl_id, int_f *crt_order_flags);
-H5_FCDLL int_f nh5pget_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_dense );
+H5_FCDLL int_f nh5pget_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_dense);
 H5_FCDLL int_f nh5pget_obj_track_times_c(hid_t_f *plist_id, int_f *flag);
 H5_FCDLL int_f nh5pset_obj_track_times_c(hid_t_f *plist_id, int_f *flag);
 H5_FCDLL int_f nh5pset_create_inter_group_c(hid_t_f *lcpl_id, int_f *crt_intermed_group);
@@ -1130,49 +1260,57 @@ H5_FCDLL int_f nh5pset_char_encoding_c(hid_t_f *plist_id, int_f *encoding);
 H5_FCDLL int_f nh5pget_char_encoding_c(hid_t_f *plist_id, int_f *encoding);
 H5_FCDLL int_f nh5pset_copy_object_c(hid_t_f *ocp_plist_id, int_f *copy_options);
 H5_FCDLL int_f nh5pget_copy_object_c(hid_t_f *ocp_plist_id, int_f *copy_options);
-H5_FCDLL int_f nh5pget_data_transform_c(hid_t_f *plist_id, _fcd expression, int_f *expression_len, size_t_f *size);
+H5_FCDLL int_f nh5pget_data_transform_c(hid_t_f *plist_id, _fcd expression, int_f *expression_len,
+                                        size_t_f *size);
 H5_FCDLL int_f nh5pset_data_transform_c(hid_t_f *plist_id, _fcd expression, int_f *expression_len);
 H5_FCDLL int_f nh5pget_local_heap_size_hint_c(hid_t_f *gcpl_id, size_t_f *size_hint);
 H5_FCDLL int_f nh5pget_est_link_info_c(hid_t_f *gcpl_id, int_f *est_num_entries, int_f *est_name_len);
 H5_FCDLL int_f nh5pset_local_heap_size_hint_c(hid_t_f *gcpl_id, size_t_f *size_hint);
 H5_FCDLL int_f nh5pset_est_link_info_c(hid_t_f *gcpl_id, int_f *est_num_entries, int_f *est_name_len);
-H5_FCDLL int_f nh5pset_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_dense );
-H5_FCDLL int_f nh5pset_fapl_direct_c(hid_t_f *fapl_id, size_t_f *alignment, size_t_f *block_size, size_t_f *cbuf_size );
-H5_FCDLL int_f nh5pget_fapl_direct_c(hid_t_f *fapl_id, size_t_f *alignment, size_t_f *block_size, size_t_f *cbuf_size );
-H5_FCDLL int_f nh5pset_attr_phase_change_c (hid_t_f *ocpl_id, int_f *max_compact, int_f *min_dense );
-H5_FCDLL int_f nh5pset_nbit_c(hid_t_f *plist_id );
-H5_FCDLL int_f nh5pset_scaleoffset_c(hid_t_f *plist_id, int_f *scale_type, int_f *scale_factor );
+H5_FCDLL int_f nh5pset_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_dense);
+H5_FCDLL int_f nh5pset_fapl_direct_c(hid_t_f *fapl_id, size_t_f *alignment, size_t_f *block_size,
+                                     size_t_f *cbuf_size);
+H5_FCDLL int_f nh5pget_fapl_direct_c(hid_t_f *fapl_id, size_t_f *alignment, size_t_f *block_size,
+                                     size_t_f *cbuf_size);
+H5_FCDLL int_f nh5pset_attr_phase_change_c(hid_t_f *ocpl_id, int_f *max_compact, int_f *min_dense);
+H5_FCDLL int_f nh5pset_nbit_c(hid_t_f *plist_id);
+H5_FCDLL int_f nh5pset_scaleoffset_c(hid_t_f *plist_id, int_f *scale_type, int_f *scale_factor);
 H5_FCDLL int_f nh5pset_nlinks_c(hid_t_f *lapl_id, size_t_f *nlinks);
 H5_FCDLL int_f nh5pget_nlinks_c(hid_t_f *lapl_id, size_t_f *nlinks);
-H5_FCDLL int_f nh5pset_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nbytes, real_f *rdcc_w0);
-H5_FCDLL int_f nh5pget_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nbytes, real_f *rdcc_w0);
+H5_FCDLL int_f nh5pset_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nbytes,
+                                     real_f *rdcc_w0);
+H5_FCDLL int_f nh5pget_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nbytes,
+                                     real_f *rdcc_w0);
 H5_FCDLL int_f nh5pget_mpio_actual_io_mode_c(hid_t_f *dxpl_id, int_f *actual_io_mode);
 /*
  * Functions frome H5Rf.c
  */
-#define nh5rcreate_object_c     H5_FC_FUNC_(h5rcreate_object_c, H5RCREATE_OBJECT_C)
-#define nh5rcreate_region_c     H5_FC_FUNC_(h5rcreate_region_c, H5RCREATE_REGION_C)
-#define nh5rdereference_region_c H5_FC_FUNC_(h5rdereference_region_c, H5RDEREFERENCE_REGION_C)
-#define nh5rdereference_object_c H5_FC_FUNC_(h5rdereference_object_c, H5RDEREFERENCE_OBJECT_C)
-#define nh5rget_region_region_c H5_FC_FUNC_(h5rget_region_region_c, H5RGET_REGION_REGION_C)
+#define nh5rcreate_object_c       H5_FC_FUNC_(h5rcreate_object_c, H5RCREATE_OBJECT_C)
+#define nh5rcreate_region_c       H5_FC_FUNC_(h5rcreate_region_c, H5RCREATE_REGION_C)
+#define nh5rdereference_region_c  H5_FC_FUNC_(h5rdereference_region_c, H5RDEREFERENCE_REGION_C)
+#define nh5rdereference_object_c  H5_FC_FUNC_(h5rdereference_object_c, H5RDEREFERENCE_OBJECT_C)
+#define nh5rget_region_region_c   H5_FC_FUNC_(h5rget_region_region_c, H5RGET_REGION_REGION_C)
 #define nh5rget_object_type_obj_c H5_FC_FUNC_(h5rget_object_type_obj_c, H5RGET_OBJECT_TYPE_OBJ_C)
-#define nh5rget_name_object_c H5_FC_FUNC_(h5rget_name_object_c, H5RGET_NAME_OBJECT_C)
-#define nh5rget_name_region_c H5_FC_FUNC_(h5rget_name_region_c, H5RGET_NAME_REGION_C)
+#define nh5rget_name_object_c     H5_FC_FUNC_(h5rget_name_object_c, H5RGET_NAME_OBJECT_C)
+#define nh5rget_name_region_c     H5_FC_FUNC_(h5rget_name_region_c, H5RGET_NAME_REGION_C)
 
-
-H5_FCDLL int_f nh5rcreate_object_c (haddr_t_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen);
-H5_FCDLL int_f nh5rcreate_region_c (int_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *space_id);
-H5_FCDLL int_f h5rcreate_ptr_c (void *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *ref_type, hid_t_f *space_id);
-H5_FCDLL int_f nh5rdereference_region_c (hid_t_f *dset_id, int_f *ref, hid_t_f *obj_id);
-H5_FCDLL int_f nh5rdereference_object_c (hid_t_f *dset_id, haddr_t_f *ref, hid_t_f *obj_id);
-H5_FCDLL int_f h5rdereference_ptr_c (hid_t_f *obj_id, int_f *ref_type, void *ref, hid_t_f *ref_obj_id);
-H5_FCDLL int_f nh5rget_region_region_c (hid_t_f *dset_id, int_f *ref, hid_t_f *space_id);
+H5_FCDLL int_f nh5rcreate_object_c(haddr_t_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen);
+H5_FCDLL int_f nh5rcreate_region_c(int_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *space_id);
+H5_FCDLL int_f h5rcreate_ptr_c(void *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *ref_type,
+                               hid_t_f *space_id);
+H5_FCDLL int_f nh5rdereference_region_c(hid_t_f *dset_id, int_f *ref, hid_t_f *obj_id);
+H5_FCDLL int_f nh5rdereference_object_c(hid_t_f *dset_id, haddr_t_f *ref, hid_t_f *obj_id);
+H5_FCDLL int_f h5rdereference_ptr_c(hid_t_f *obj_id, int_f *ref_type, void *ref, hid_t_f *ref_obj_id);
+H5_FCDLL int_f nh5rget_region_region_c(hid_t_f *dset_id, int_f *ref, hid_t_f *space_id);
 H5_FCDLL int_f h5rget_region_ptr_c(hid_t_f *dset_id, void *ref, hid_t_f *space_id);
-H5_FCDLL int_f nh5rget_object_type_obj_c (hid_t_f *dset_id, haddr_t_f *ref, int_f *obj_type);
-H5_FCDLL int_f nh5rget_name_object_c (hid_t_f *loc_id, haddr_t_f *ref, _fcd name, size_t_f *name_len, size_t_f *size_default);
-H5_FCDLL int_f nh5rget_name_region_c (hid_t_f *loc_id, int_f *ref, _fcd name, size_t_f *name_len, size_t_f *size_default);
-H5_FCDLL int_f h5rget_name_ptr_c (hid_t_f *loc_id, int_f *ref_type, void *ref, _fcd name, size_t_f *name_len, size_t_f *size_default);
-H5_FCDLL int_f h5rget_obj_type_c (hid_t_f *loc_id, int_f *ref_type, void *ref, int_f *obj_type);
+H5_FCDLL int_f nh5rget_object_type_obj_c(hid_t_f *dset_id, haddr_t_f *ref, int_f *obj_type);
+H5_FCDLL int_f nh5rget_name_object_c(hid_t_f *loc_id, haddr_t_f *ref, _fcd name, size_t_f *name_len,
+                                     size_t_f *size_default);
+H5_FCDLL int_f nh5rget_name_region_c(hid_t_f *loc_id, int_f *ref, _fcd name, size_t_f *name_len,
+                                     size_t_f *size_default);
+H5_FCDLL int_f h5rget_name_ptr_c(hid_t_f *loc_id, int_f *ref_type, void *ref, _fcd name, size_t_f *name_len,
+                                 size_t_f *size_default);
+H5_FCDLL int_f h5rget_obj_type_c(hid_t_f *loc_id, int_f *ref_type, void *ref, int_f *obj_type);
 /*
  * Functions from H5If.c
  */
@@ -1201,17 +1339,16 @@ H5_FCDLL int_f nh5iis_valid_c(hid_t_f *obj_id, int_f *c_valid);
 #define nh5eget_major_c H5_FC_FUNC_(h5eget_major_c, H5EGET_MAJOR_C)
 #define nh5eget_minor_c H5_FC_FUNC_(h5eget_minor_c, H5EGET_MINOR_C)
 #define nh5eset_auto_c  H5_FC_FUNC_(h5eset_auto_c, H5ESET_AUTO_C)
-#define nprocess_buffer  H5_FC_FUNC_(process_buffer, PROCESS_BUFFER)
-
+#define nprocess_buffer H5_FC_FUNC_(process_buffer, PROCESS_BUFFER)
 
 H5_FCDLL int_f nh5eclear_c(hid_t_f *estack_id);
-H5_FCDLL int_f nh5eprint_c1(_fcd name, int_f* namelen);
+H5_FCDLL int_f nh5eprint_c1(_fcd name, int_f *namelen);
 H5_FCDLL int_f nh5eprint_c2(void);
-H5_FCDLL int_f nh5eget_major_c(int_f* error_no, _fcd name, size_t_f* namelen);
-H5_FCDLL int_f nh5eget_minor_c(int_f* error_no, _fcd name, size_t_f* namelen);
-H5_FCDLL int_f nh5eset_auto_c(int_f* printflag);
-H5_FCDLL int_f h5eset_auto2_c(int_f* printflag, hid_t_f *estack_id, H5E_auto2_t func, void *client_data);
-H5_FCDLL int_f nprocess_buffer(hid_t_f *estack_id,void **buffer);
+H5_FCDLL int_f nh5eget_major_c(int_f *error_no, _fcd name, size_t_f *namelen);
+H5_FCDLL int_f nh5eget_minor_c(int_f *error_no, _fcd name, size_t_f *namelen);
+H5_FCDLL int_f nh5eset_auto_c(int_f *printflag);
+H5_FCDLL int_f h5eset_auto2_c(int_f *printflag, hid_t_f *estack_id, H5E_auto2_t func, void *client_data);
+H5_FCDLL int_f nprocess_buffer(hid_t_f *estack_id, void **buffer);
 
 /*
  * Functions from H5f.c
@@ -1227,16 +1364,17 @@ H5_FCDLL int_f nprocess_buffer(hid_t_f *estack_id,void **buffer);
 #define nh5garbage_collect_c H5_FC_FUNC_(h5garbage_collect_c, H5GARBAGE_COLLECT_C)
 #define nh5dont_atexit_c     H5_FC_FUNC_(h5dont_atexit_c, H5DONT_ATEXIT_C)
 
-
 H5_FCDLL int_f nh5open_c(void);
 H5_FCDLL int_f nh5close_c(void);
 H5_FCDLL int_f nh5init_types_c(hid_t_f *types, hid_t_f *floatingtypes, hid_t_f *integertypes);
-H5_FCDLL int_f nh5close_types_c(hid_t_f *types, int_f *lentypes, hid_t_f *floatingtypes, int_f *floatinglen, hid_t_f *integertypes, int_f *integerlen);
-H5_FCDLL int_f nh5init_flags_c(int_f *h5d_flags, size_t_f *h5d_size_flags, int_f *h5e_flags, hid_t_f *h5e_hid_flags, int_f *h5f_flags,
-			       int_f *h5fd_flags, hid_t_f *h5fd_hid_flags,
-			       int_f *h5g_flags, int_f *h5i_flags, int_f *h5l_flags, int_f *h5o_flags,
-			       hid_t_f *h5p_flags, int_f *h5p_flags_int, int_f *h5r_flags, int_f *h5s_flags,
-			       hsize_t_f *h5s_hsize_flags, int_f *h5t_flags, int_f *h5z_flags, int_f *h5_generic_flags);
+H5_FCDLL int_f nh5close_types_c(hid_t_f *types, int_f *lentypes, hid_t_f *floatingtypes, int_f *floatinglen,
+                                hid_t_f *integertypes, int_f *integerlen);
+H5_FCDLL int_f nh5init_flags_c(int_f *h5d_flags, size_t_f *h5d_size_flags, int_f *h5e_flags,
+                               hid_t_f *h5e_hid_flags, int_f *h5f_flags, int_f *h5fd_flags,
+                               hid_t_f *h5fd_hid_flags, int_f *h5g_flags, int_f *h5i_flags, int_f *h5l_flags,
+                               int_f *h5o_flags, hid_t_f *h5p_flags, int_f *h5p_flags_int, int_f *h5r_flags,
+                               int_f *h5s_flags, hsize_t_f *h5s_hsize_flags, int_f *h5t_flags,
+                               int_f *h5z_flags, int_f *h5_generic_flags);
 H5_FCDLL int_f nh5init1_flags_c(int_f *h5lib_flags);
 H5_FCDLL int_f nh5get_libversion_c(int_f *majnum, int_f *minnum, int_f *relnum);
 H5_FCDLL int_f nh5check_version_c(int_f *majnum, int_f *minnum, int_f *relnum);
@@ -1246,69 +1384,66 @@ H5_FCDLL int_f nh5dont_atexit_c(void);
 /*
  * Functions from H5Zf.c
  */
-#define nh5zunregister_c    H5_FC_FUNC_(h5zunregister_c, H5ZUNREGISTER_C)
-#define nh5zfilter_avail_c  H5_FC_FUNC_(h5zfilter_avail_c, H5ZFILTER_AVAIL_C)
+#define nh5zunregister_c      H5_FC_FUNC_(h5zunregister_c, H5ZUNREGISTER_C)
+#define nh5zfilter_avail_c    H5_FC_FUNC_(h5zfilter_avail_c, H5ZFILTER_AVAIL_C)
 #define nh5zget_filter_info_c H5_FC_FUNC_(h5zget_filter_info_c, H5ZGET_FILTER_INFO_C)
 
-
-H5_FCDLL int_f nh5zunregister_c (int_f *filter);
-H5_FCDLL int_f nh5zfilter_avail_c (int_f *filter, int_f *flag);
-H5_FCDLL int_f nh5zget_filter_info_c (int_f *filter, int_f *flag);
-
+H5_FCDLL int_f nh5zunregister_c(int_f *filter);
+H5_FCDLL int_f nh5zfilter_avail_c(int_f *filter, int_f *flag);
+H5_FCDLL int_f nh5zget_filter_info_c(int_f *filter, int_f *flag);
 
 /*
  * Functions from H5Lf.c
  */
-#define nh5lcopy_c H5_FC_FUNC_(h5lcopy_c, H5LCOPY_C)
+#define nh5lcopy_c            H5_FC_FUNC_(h5lcopy_c, H5LCOPY_C)
 #define nh5lcreate_external_c H5_FC_FUNC_(h5lcreate_external_c, H5LCREATE_EXTERNAL_C)
-#define nh5lcreate_hard_c H5_FC_FUNC_(h5lcreate_hard_c, H5LCREATE_HARD_C)
-#define nh5lcreate_soft_c H5_FC_FUNC_(h5lcreate_soft_c, H5LCREATE_SOFT_C)
-#define nh5ldelete_c H5_FC_FUNC_(h5ldelete_c, H5LDELETE_C)
-#define nh5ldelete_by_idx_c H5_FC_FUNC_(h5ldelete_by_idx_c, H5LDELETE_BY_IDX_C)
-#define nh5lexists_c H5_FC_FUNC_(h5lexists_c, H5LEXISTS_C)
-#define nh5lget_info_c H5_FC_FUNC_(h5lget_info_c, H5LGET_INFO_C)
+#define nh5lcreate_hard_c     H5_FC_FUNC_(h5lcreate_hard_c, H5LCREATE_HARD_C)
+#define nh5lcreate_soft_c     H5_FC_FUNC_(h5lcreate_soft_c, H5LCREATE_SOFT_C)
+#define nh5ldelete_c          H5_FC_FUNC_(h5ldelete_c, H5LDELETE_C)
+#define nh5ldelete_by_idx_c   H5_FC_FUNC_(h5ldelete_by_idx_c, H5LDELETE_BY_IDX_C)
+#define nh5lexists_c          H5_FC_FUNC_(h5lexists_c, H5LEXISTS_C)
+#define nh5lget_info_c        H5_FC_FUNC_(h5lget_info_c, H5LGET_INFO_C)
 #define nh5lget_info_by_idx_c H5_FC_FUNC_(h5lget_info_by_idx_c, H5LGET_INFO_BY_IDX_C)
-#define nh5lis_registered_c H5_FC_FUNC_(h5lis_registered_c, H5LIS_REGISTERED_C)
-#define nh5lmove_c H5_FC_FUNC_(h5lmove_c, H5LMOVE_C)
+#define nh5lis_registered_c   H5_FC_FUNC_(h5lis_registered_c, H5LIS_REGISTERED_C)
+#define nh5lmove_c            H5_FC_FUNC_(h5lmove_c, H5LMOVE_C)
 #define nh5lget_name_by_idx_c H5_FC_FUNC_(h5lget_name_by_idx_c, H5LGET_NAME_BY_IDX_C)
-#define nh5lget_val_c H5_FC_FUNC_(h5lget_val_c, H5LGET_VAL_C)
+#define nh5lget_val_c         H5_FC_FUNC_(h5lget_val_c, H5LGET_VAL_C)
 
 H5_FCDLL int_f nh5lcopy_c(hid_t_f *src_loc_id, _fcd src_name, size_t_f *src_namelen, hid_t_f *dest_loc_id,
-			  _fcd dest_name, size_t_f *dest_namelen,
-			  hid_t_f *lcpl_id, hid_t_f *lapl_id);
-H5_FCDLL int_f nh5lcreate_external_c(_fcd file_name, size_t_f *file_namelen, _fcd obj_name, size_t_f *obj_namelen,
-				     hid_t_f *link_loc_id, _fcd link_name, size_t_f *link_namelen,
-				     hid_t_f *lcpl_id, hid_t_f *lapl_id);
+                          _fcd dest_name, size_t_f *dest_namelen, hid_t_f *lcpl_id, hid_t_f *lapl_id);
+H5_FCDLL int_f nh5lcreate_external_c(_fcd file_name, size_t_f *file_namelen, _fcd obj_name,
+                                     size_t_f *obj_namelen, hid_t_f *link_loc_id, _fcd link_name,
+                                     size_t_f *link_namelen, hid_t_f *lcpl_id, hid_t_f *lapl_id);
 H5_FCDLL int_f nh5lcreate_hard_c(hid_t_f *obj_loc_id, _fcd obj_name, size_t_f *obj_namelen,
-				 hid_t_f *link_loc_id,
-				 _fcd link_name, size_t_f *link_namelen,
-				 hid_t_f *lcpl_id, hid_t_f *lapl_id );
-H5_FCDLL int_f nh5lcreate_soft_c(_fcd target_path, size_t_f *target_path_len,
-				 hid_t_f *link_loc_id,
-				 _fcd link_name, size_t_f *link_name_len,
-				 hid_t_f *lcpl_id, hid_t_f *lapl_id );
-H5_FCDLL int_f nh5ldelete_c( hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id );
-H5_FCDLL int_f nh5ldelete_by_idx_c (hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
-				    int_f *index_field, int_f *order, hsize_t_f *n, hid_t_f *lapl_id);
-H5_FCDLL int_f nh5lexists_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id, int_f *link_exists);
-H5_FCDLL int_f nh5lget_info_c (hid_t_f *link_loc_id, _fcd link_name, size_t_f *link_namelen,
-			       int_f *cset, int_f *corder, int_f *corder_valid, int_f *link_type,
-			       haddr_t_f *address, size_t_f *val_size,
-			       hid_t_f *lapl_id);
+                                 hid_t_f *link_loc_id, _fcd link_name, size_t_f *link_namelen,
+                                 hid_t_f *lcpl_id, hid_t_f *lapl_id);
+H5_FCDLL int_f nh5lcreate_soft_c(_fcd target_path, size_t_f *target_path_len, hid_t_f *link_loc_id,
+                                 _fcd link_name, size_t_f *link_name_len, hid_t_f *lcpl_id, hid_t_f *lapl_id);
+H5_FCDLL int_f nh5ldelete_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id);
+H5_FCDLL int_f nh5ldelete_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
+                                   int_f *index_field, int_f *order, hsize_t_f *n, hid_t_f *lapl_id);
+H5_FCDLL int_f nh5lexists_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id,
+                            int_f *link_exists);
+H5_FCDLL int_f nh5lget_info_c(hid_t_f *link_loc_id, _fcd link_name, size_t_f *link_namelen, int_f *cset,
+                              int_f *corder, int_f *corder_valid, int_f *link_type, haddr_t_f *address,
+                              size_t_f *val_size, hid_t_f *lapl_id);
 H5_FCDLL int_f nh5lget_info_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
-		      int_f *index_field, int_f *order, hsize_t_f *n,
-		      int_f *link_type, int_f *corder_valid, int_f *corder, int_f *cset, haddr_t_f *address, size_t_f *val_size, hid_t_f *lapl_id);
+                                     int_f *index_field, int_f *order, hsize_t_f *n, int_f *link_type,
+                                     int_f *corder_valid, int_f *corder, int_f *cset, haddr_t_f *address,
+                                     size_t_f *val_size, hid_t_f *lapl_id);
 H5_FCDLL int_f nh5lis_registered_c(int_f *link_cls_id);
 H5_FCDLL int_f nh5lmove_c(hid_t_f *src_loc_id, _fcd src_name, size_t_f *src_namelen, hid_t_f *dest_loc_id,
-			  _fcd dest_name, size_t_f *dest_namelen, hid_t_f *lcpl_id, hid_t_f *lapl_id);
+                          _fcd dest_name, size_t_f *dest_namelen, hid_t_f *lcpl_id, hid_t_f *lapl_id);
 H5_FCDLL int_f nh5lget_name_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
-				     int_f *index_field, int_f *order, hsize_t_f *n,
-				     size_t_f *size, _fcd name, hid_t_f *lapl_id);
+                                     int_f *index_field, int_f *order, hsize_t_f *n, size_t_f *size,
+                                     _fcd name, hid_t_f *lapl_id);
 H5_FCDLL int_f nh5lget_val_c(hid_t_f *link_loc_id, _fcd link_name, size_t_f *link_namelen, size_t_f *size,
-			     void *linkval_buff, hid_t_f *lapl_id) ;
-
-H5_FCDLL int_f h5literate_c(hid_t_f *group_id, int_f *index_type, int_f *order, hsize_t_f *idx, H5L_iterate_t op, void *op_data );
-H5_FCDLL int_f h5literate_by_name_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, int_f *index_type, int_f *order, hsize_t_f *idx, H5L_iterate_t op, void *op_data, hid_t_f *lapl_id);
+                             void *linkval_buff, hid_t_f *lapl_id);
 
+H5_FCDLL int_f h5literate_c(hid_t_f *group_id, int_f *index_type, int_f *order, hsize_t_f *idx,
+                            H5L_iterate_t op, void *op_data);
+H5_FCDLL int_f h5literate_by_name_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, int_f *index_type,
+                                    int_f *order, hsize_t_f *idx, H5L_iterate_t op, void *op_data,
+                                    hid_t_f *lapl_id);
 
 #endif /* _H5f90proto_H */
diff --git a/fortran/src/H5match_types.c b/fortran/src/H5match_types.c
index d36e52c..ce8a8a0 100644
--- a/fortran/src/H5match_types.c
+++ b/fortran/src/H5match_types.c
@@ -26,7 +26,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include <stdio.h>
 #include <assert.h>
@@ -39,22 +39,22 @@
 #include "H5fort_type_defines.h"
 
 /* File pointers for files */
-FILE * c_header;
-FILE * fort_header;
+FILE *c_header;
+FILE *fort_header;
 
 #define CFILE "H5f90i_gen.h"
 #define FFILE "H5fortran_types.f90"
 
 /* Prototypes for the write routines */
-void writeTypedef(const char* c_typedef, const char* c_type, unsigned int size);
-void writeTypedefDefault(const char* c_typedef, unsigned int size);
-void writeToFiles(const char* c_typedef, const char* fortran_type, const char* c_type, int size, unsigned int kind);
+void writeTypedef(const char *c_typedef, const char *c_type, unsigned int size);
+void writeTypedefDefault(const char *c_typedef, unsigned int size);
+void writeToFiles(const char *c_typedef, const char *fortran_type, const char *c_type, int size,
+                  unsigned int kind);
 
 static void
 initCfile(void)
 {
-  fprintf(c_header,
- "/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\n\
+    fprintf(c_header, "/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\n\
  * Copyright by The HDF Group.                                               *\n\
  * Copyright by the Board of Trustees of the University of Illinois.         *\n\
  * All rights reserved.                                                      *\n\
@@ -78,8 +78,7 @@ initCfile(void)
 static void
 initFfile(void)
 {
-  fprintf(fort_header,
-    "! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n\
+    fprintf(fort_header, "! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n\
 !   Copyright by The HDF Group.                                               *\n\
 !   Copyright by the Board of Trustees of the University of Illinois.         *\n\
 !   All rights reserved.                                                      *\n\
@@ -97,276 +96,281 @@ initFfile(void)
          !\n\
          !  HDF5 integers\n\
          !\n");
-
 }
 
 static void
 endCfile(void)
 {
-  fprintf(c_header, "\n#endif /* _H5f90i_gen_H */\n");
+    fprintf(c_header, "\n#endif /* _H5f90i_gen_H */\n");
 }
 static void
 endFfile(void)
 {
-  fprintf(fort_header, "\n        INTEGER(SIZE_T), PARAMETER :: OBJECT_NAMELEN_DEFAULT_F = -1\n\n");
-  fprintf(fort_header, "        END MODULE H5FORTRAN_TYPES\n");
+    fprintf(fort_header, "\n        INTEGER(SIZE_T), PARAMETER :: OBJECT_NAMELEN_DEFAULT_F = -1\n\n");
+    fprintf(fort_header, "        END MODULE H5FORTRAN_TYPES\n");
 }
 
 /* Define a c_int_x type in the C header */
-void writeTypedef(const char* c_typedef, const char* c_type, unsigned int size)
+void
+writeTypedef(const char *c_typedef, const char *c_type, unsigned int size)
 {
-  fprintf(c_header, "#define c_%s_%u %s\n", c_typedef, size, c_type);
+    fprintf(c_header, "#define c_%s_%u %s\n", c_typedef, size, c_type);
 }
 
 /* Call this function if there is no matching C type for sizes > 1 */
-void writeTypedefDefault(const char* c_typedef, unsigned int size)
+void
+writeTypedefDefault(const char *c_typedef, unsigned int size)
 {
-  assert(size %2 == 0);
-  fprintf(c_header, "typedef struct {c_%s_%u a; c_%s_%u b;} c_%s_%u\n", c_typedef, size / 2, c_typedef, size / 2, c_typedef, size);
+    assert(size % 2 == 0);
+    fprintf(c_header, "typedef struct {c_%s_%u a; c_%s_%u b;} c_%s_%u\n", c_typedef, size / 2, c_typedef,
+            size / 2, c_typedef, size);
 }
 
 /* Create matching Fortran and C types by writing to both files */
-void writeToFiles(const char* c_typedef, const char* fortran_type, const char* c_type, int size, unsigned int kind)
+void
+writeToFiles(const char *c_typedef, const char *fortran_type, const char *c_type, int size, unsigned int kind)
 {
-  fprintf(fort_header, "        INTEGER, PARAMETER :: %s = %u\n", fortran_type, kind);
-  fprintf(c_header, "typedef c_%s_%d %s;\n", c_typedef, size, c_type);
+    fprintf(fort_header, "        INTEGER, PARAMETER :: %s = %u\n", fortran_type, kind);
+    fprintf(c_header, "typedef c_%s_%d %s;\n", c_typedef, size, c_type);
 }
 
-int main(void)
+int
+main(void)
 {
-  int FoundIntSize[4];
-  unsigned FoundIntSizeKind[4];
-  int FoundRealSize[3];
-  unsigned FoundRealSizeKind[3];
-  int i,j,flag;
-  char chrA[20],chrB[20];
-  int H5_C_HAS_REAL_NATIVE_16;
+    int      FoundIntSize[4];
+    unsigned FoundIntSizeKind[4];
+    int      FoundRealSize[3];
+    unsigned FoundRealSizeKind[3];
+    int      i, j, flag;
+    char     chrA[20], chrB[20];
+    int      H5_C_HAS_REAL_NATIVE_16;
 
-  /* Open target files */
-  c_header = fopen(CFILE, "w");
-  fort_header = fopen(FFILE, "w");
+    /* Open target files */
+    c_header    = fopen(CFILE, "w");
+    fort_header = fopen(FFILE, "w");
 
-  /* Default is C has 16 byte float */
-  H5_C_HAS_REAL_NATIVE_16 = 1;
+    /* Default is C has 16 byte float */
+    H5_C_HAS_REAL_NATIVE_16 = 1;
 
-  /* Write copyright, boilerplate to both files */
-  initCfile();
-  initFfile();
+    /* Write copyright, boilerplate to both files */
+    initCfile();
+    initFfile();
 
-  /* First, define c_int_x */
+    /* First, define c_int_x */
 
 #if defined H5_FORTRAN_HAS_INTEGER_1_KIND
-  if(sizeof(long long) == 1)
-    writeTypedef("int", "long long", 1);
-  else if(sizeof(long) == 1)
-    writeTypedef("int", "long", 1);
-  else if(sizeof(int) == 1)
-    writeTypedef("int", "int", 1);
-  else if(sizeof(short) == 1)
-    writeTypedef("int", "short", 1);
-  else
-    writeTypedef("int", "char", 1);
-  /* Actually, char is not necessarily one byte.
-   * But if char isn't, then nothing is, so this
-   * is as close as we can get. */
-  if(sizeof(size_t) == 1)
-    writeTypedef("size_t", "size_t", 1);
-  if(sizeof(hsize_t) == 1)
-    writeTypedef("hsize_t", "hsize_t", 1);
+    if (sizeof(long long) == 1)
+        writeTypedef("int", "long long", 1);
+    else if (sizeof(long) == 1)
+        writeTypedef("int", "long", 1);
+    else if (sizeof(int) == 1)
+        writeTypedef("int", "int", 1);
+    else if (sizeof(short) == 1)
+        writeTypedef("int", "short", 1);
+    else
+        writeTypedef("int", "char", 1);
+    /* Actually, char is not necessarily one byte.
+     * But if char isn't, then nothing is, so this
+     * is as close as we can get. */
+    if (sizeof(size_t) == 1)
+        writeTypedef("size_t", "size_t", 1);
+    if (sizeof(hsize_t) == 1)
+        writeTypedef("hsize_t", "hsize_t", 1);
 #endif /*H5_FORTRAN_HAS_INTEGER_1_KIND*/
 
 #if defined H5_FORTRAN_HAS_INTEGER_2_KIND
-  if(sizeof(long long) == 2)
-    writeTypedef("int", "long long", 2);
-  else if(sizeof(long) == 2)
-    writeTypedef("int", "long", 2);
-  else if(sizeof(int) == 2)
-    writeTypedef("int", "int", 2);
-  else if(sizeof(short) == 2)
-    writeTypedef("int", "short", 2);
-  else
-    writeTypedefDefault("int",2);
-
-  if(sizeof(size_t) == 2)
-    writeTypedef("size_t", "size_t", 2);
-  if(sizeof(hsize_t) == 2)
-    writeTypedef("hsize_t", "hsize_t", 2);
+    if (sizeof(long long) == 2)
+        writeTypedef("int", "long long", 2);
+    else if (sizeof(long) == 2)
+        writeTypedef("int", "long", 2);
+    else if (sizeof(int) == 2)
+        writeTypedef("int", "int", 2);
+    else if (sizeof(short) == 2)
+        writeTypedef("int", "short", 2);
+    else
+        writeTypedefDefault("int", 2);
+
+    if (sizeof(size_t) == 2)
+        writeTypedef("size_t", "size_t", 2);
+    if (sizeof(hsize_t) == 2)
+        writeTypedef("hsize_t", "hsize_t", 2);
 #endif /*H5_FORTRAN_HAS_INTEGER_2_KIND*/
 
 #if defined H5_FORTRAN_HAS_INTEGER_4_KIND
-  if(sizeof(long long) == 4)
-    writeTypedef("int", "long long", 4);
-  else if(sizeof(long) == 4)
-    writeTypedef("int", "long", 4);
-  else if(sizeof(int) == 4)
-    writeTypedef("int", "int", 4);
-  else if(sizeof(short) == 4)
-    writeTypedef("int", "short", 4);
-  else
-    writeTypedefDefault("int",4);
-
-  if(sizeof(size_t) == 4)
-    writeTypedef("size_t", "size_t", 4);
-  if(sizeof(hsize_t) == 4)
-    writeTypedef("hsize_t", "hsize_t", 4);
-    
+    if (sizeof(long long) == 4)
+        writeTypedef("int", "long long", 4);
+    else if (sizeof(long) == 4)
+        writeTypedef("int", "long", 4);
+    else if (sizeof(int) == 4)
+        writeTypedef("int", "int", 4);
+    else if (sizeof(short) == 4)
+        writeTypedef("int", "short", 4);
+    else
+        writeTypedefDefault("int", 4);
+
+    if (sizeof(size_t) == 4)
+        writeTypedef("size_t", "size_t", 4);
+    if (sizeof(hsize_t) == 4)
+        writeTypedef("hsize_t", "hsize_t", 4);
+
 #endif /*H5_FORTRAN_HAS_INTEGER_4_KIND*/
 
 #if defined H5_FORTRAN_HAS_INTEGER_8_KIND
-  if(sizeof(long long) == 8)
-    writeTypedef("int", "long long", 8);
-  else if(sizeof(long) == 8)
-    writeTypedef("int", "long", 8);
-  else if(sizeof(int) == 8)
-    writeTypedef("int", "int", 8);
-  else if(sizeof(short) == 8)
-    writeTypedef("int", "short", 8);
-  else
-    writeTypedefDefault("int",8);
-
-  if(sizeof(size_t) == 8)
-    writeTypedef("size_t", "size_t",  8);
-  if(sizeof(hsize_t) == 8)
-    writeTypedef("hsize_t", "hsize_t", 8);
+    if (sizeof(long long) == 8)
+        writeTypedef("int", "long long", 8);
+    else if (sizeof(long) == 8)
+        writeTypedef("int", "long", 8);
+    else if (sizeof(int) == 8)
+        writeTypedef("int", "int", 8);
+    else if (sizeof(short) == 8)
+        writeTypedef("int", "short", 8);
+    else
+        writeTypedefDefault("int", 8);
+
+    if (sizeof(size_t) == 8)
+        writeTypedef("size_t", "size_t", 8);
+    if (sizeof(hsize_t) == 8)
+        writeTypedef("hsize_t", "hsize_t", 8);
 
 #endif /*H5_FORTRAN_HAS_INTEGER_8_KIND*/
 
-  /* Define c_float_x */
+        /* Define c_float_x */
 
 #if defined H5_FORTRAN_HAS_REAL_NATIVE_4_KIND || defined H5_FORTRAN_HAS_REAL_4_KIND
-  if(sizeof(long double) == 4)
-    writeTypedef("float", "long double", 4);
-  else if(sizeof(double) == 4)
-   writeTypedef("float", "double", 4);
-  else if(sizeof(float) == 4)
-   writeTypedef("float", "float", 4);
-  else
-   { printf("Fortran REAL is 4 bytes, no corresponding C floating type\n");
-     printf("Quitting....\n");
-     return -1;
-   }
+    if (sizeof(long double) == 4)
+        writeTypedef("float", "long double", 4);
+    else if (sizeof(double) == 4)
+        writeTypedef("float", "double", 4);
+    else if (sizeof(float) == 4)
+        writeTypedef("float", "float", 4);
+    else {
+        printf("Fortran REAL is 4 bytes, no corresponding C floating type\n");
+        printf("Quitting....\n");
+        return -1;
+    }
 #endif /*H5_FORTRAN_HAS_REAL_NATIVE_4_KIND*/
 
 #if defined H5_FORTRAN_HAS_REAL_NATIVE_8_KIND || defined H5_FORTRAN_HAS_REAL_8_KIND
-  if(sizeof(long double) == 8)
-    writeTypedef("float", "long double", 8);
-  else if(sizeof(double) == 8)
-   writeTypedef("float", "double", 8);
-  else if(sizeof(float) == 8)
-   writeTypedef("float", "float", 8);
-  else
-   { printf("Fortran REAL is 16 bytes, no corresponding C floating type\n");
-     printf("Quitting....\n");
-     return -1;
-   }
+    if (sizeof(long double) == 8)
+        writeTypedef("float", "long double", 8);
+    else if (sizeof(double) == 8)
+        writeTypedef("float", "double", 8);
+    else if (sizeof(float) == 8)
+        writeTypedef("float", "float", 8);
+    else {
+        printf("Fortran REAL is 16 bytes, no corresponding C floating type\n");
+        printf("Quitting....\n");
+        return -1;
+    }
 #endif /*H5_FORTRAN_HAS_REAL_NATIVE_8_KIND*/
 
 #if defined H5_FORTRAN_HAS_REAL_NATIVE_16_KIND || defined H5_FORTRAN_HAS_REAL_16_KIND
-  if(sizeof(long double) == 16)
-    writeTypedef("float", "long double", 16);
-  else if(sizeof(double) == 16)
-   writeTypedef("float", "double", 16);
-  else if(sizeof(float) == 16)
-   writeTypedef("float", "float", 16);
-  else /*C has no 16 byte float so disable it in Fortran*/
-   { printf("warning: Fortran REAL is 16 bytes, no corresponding C floating type\n");
-     printf("         Disabling Fortran 16 byte REALs\n");
-     H5_C_HAS_REAL_NATIVE_16 = 0;
-   }
+    if (sizeof(long double) == 16)
+        writeTypedef("float", "long double", 16);
+    else if (sizeof(double) == 16)
+        writeTypedef("float", "double", 16);
+    else if (sizeof(float) == 16)
+        writeTypedef("float", "float", 16);
+    else /*C has no 16 byte float so disable it in Fortran*/
+    {
+        printf("warning: Fortran REAL is 16 bytes, no corresponding C floating type\n");
+        printf("         Disabling Fortran 16 byte REALs\n");
+        H5_C_HAS_REAL_NATIVE_16 = 0;
+    }
 #endif /*H5_FORTRAN_HAS_REAL_NATIVE_16_KIND*/
 
-  /* Now begin defining fortran types. */
-  fprintf(c_header, "\n");
-  /* haddr_t */
+    /* Now begin defining fortran types. */
+    fprintf(c_header, "\n");
+    /* haddr_t */
 #if defined H5_FORTRAN_HAS_INTEGER_8_KIND && H5_SIZEOF_HADDR_T >= 8
-  writeToFiles("int","HADDR_T", "haddr_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
+    writeToFiles("int", "HADDR_T", "haddr_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_4_KIND && H5_SIZEOF_HADDR_T >= 4
-  writeToFiles("int","HADDR_T", "haddr_t_f", 4, H5_FORTRAN_HAS_INTEGER_4_KIND);
+    writeToFiles("int", "HADDR_T", "haddr_t_f", 4, H5_FORTRAN_HAS_INTEGER_4_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_2_KIND && H5_SIZEOF_HADDR_T >= 2
-  writeToFiles("int","HADDR_T", "haddr_t_f", 2, H5_FORTRAN_HAS_INTEGER_2_KIND);
+    writeToFiles("int", "HADDR_T", "haddr_t_f", 2, H5_FORTRAN_HAS_INTEGER_2_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_1_KIND && H5_SIZEOF_HADDR_T >= 1
-  writeToFiles("int","HADDR_T", "haddr_t_f", 1, H5_FORTRAN_HAS_INTEGER_1_KIND);
+    writeToFiles("int", "HADDR_T", "haddr_t_f", 1, H5_FORTRAN_HAS_INTEGER_1_KIND);
 #else
     /* Error: couldn't find a size for haddr_t */
     return -1;
 #endif
 
-  /* hsize_t */
+    /* hsize_t */
 #if defined H5_FORTRAN_HAS_INTEGER_8_KIND && H5_SIZEOF_HSIZE_T >= 8
-    writeToFiles("hsize_t","HSIZE_T", "hsize_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
+    writeToFiles("hsize_t", "HSIZE_T", "hsize_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_4_KIND && H5_SIZEOF_HSIZE_T >= 4
-    writeToFiles("hsize_t","HSIZE_T", "hsize_t_f", 4, H5_FORTRAN_HAS_INTEGER_4_KIND);
+    writeToFiles("hsize_t", "HSIZE_T", "hsize_t_f", 4, H5_FORTRAN_HAS_INTEGER_4_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_2_KIND && H5_SIZEOF_HSIZE_T >= 2
-    writeToFiles("hsize_t","HSIZE_T", "hsize_t_f", 2, H5_FORTRAN_HAS_INTEGER_2_KIND);
+    writeToFiles("hsize_t", "HSIZE_T", "hsize_t_f", 2, H5_FORTRAN_HAS_INTEGER_2_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_1_KIND && H5_SIZEOF_HSIZE_T >= 1
-    writeToFiles("hsize_t","HSIZE_T", "hsize_t_f", 1, H5_FORTRAN_HAS_INTEGER_1_KIND);
+    writeToFiles("hsize_t", "HSIZE_T", "hsize_t_f", 1, H5_FORTRAN_HAS_INTEGER_1_KIND);
 #else
     /* Error: couldn't find a size for hsize_t */
     return -1;
 #endif
 
-  /* hssize_t */
+    /* hssize_t */
 #if defined H5_FORTRAN_HAS_INTEGER_8_KIND && H5_SIZEOF_HSSIZE_T >= 8
-    writeToFiles("int","HSSIZE_T", "hssize_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
+    writeToFiles("int", "HSSIZE_T", "hssize_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_4_KIND && H5_SIZEOF_HSSIZE_T >= 4
-    writeToFiles("int","HSSIZE_T", "hssize_t_f", 4, H5_FORTRAN_HAS_INTEGER_4_KIND);
+    writeToFiles("int", "HSSIZE_T", "hssize_t_f", 4, H5_FORTRAN_HAS_INTEGER_4_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_2_KIND && H5_SIZEOF_HSSIZE_T >= 2
-    writeToFiles("int","HSSIZE_T", "hssize_t_f", 2, H5_FORTRAN_HAS_INTEGER_2_KIND);
+    writeToFiles("int", "HSSIZE_T", "hssize_t_f", 2, H5_FORTRAN_HAS_INTEGER_2_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_1_KIND && H5_SIZEOF_HSSIZE_T >= 1
-    writeToFiles("int","HSSIZE_T", "hssize_t_f", 1, H5_FORTRAN_HAS_INTEGER_1_KIND);
+    writeToFiles("int", "HSSIZE_T", "hssize_t_f", 1, H5_FORTRAN_HAS_INTEGER_1_KIND);
 #else
     /* Error: couldn't find a size for hssize_t */
     return -1;
 #endif
 
-  /* off_t */
+    /* off_t */
 #if defined H5_FORTRAN_HAS_INTEGER_8_KIND && H5_SIZEOF_OFF_T >= 8
-    writeToFiles("int","OFF_T", "off_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
+    writeToFiles("int", "OFF_T", "off_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_4_KIND && H5_SIZEOF_OFF_T >= 4
-    writeToFiles("int","OFF_T", "off_t_f", 4, H5_FORTRAN_HAS_INTEGER_4_KIND);
+    writeToFiles("int", "OFF_T", "off_t_f", 4, H5_FORTRAN_HAS_INTEGER_4_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_2_KIND && H5_SIZEOF_OFF_T >= 2
-    writeToFiles("int","OFF_T", "off_t_f", 2, H5_FORTRAN_HAS_INTEGER_2_KIND);
+    writeToFiles("int", "OFF_T", "off_t_f", 2, H5_FORTRAN_HAS_INTEGER_2_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_1_KIND && H5_SIZEOF_OFF_T >= 1
-    writeToFiles("int","OFF_T", "off_t_f", 1, H5_FORTRAN_HAS_INTEGER_1_KIND);
+    writeToFiles("int", "OFF_T", "off_t_f", 1, H5_FORTRAN_HAS_INTEGER_1_KIND);
 #else
     /* Error: couldn't find a size for off_t */
     return -1;
 #endif
 
-  /* size_t */
+    /* size_t */
 #if defined H5_FORTRAN_HAS_INTEGER_8_KIND && H5_SIZEOF_SIZE_T >= 8
-    writeToFiles("size_t","SIZE_T", "size_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
+    writeToFiles("size_t", "SIZE_T", "size_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_4_KIND && H5_SIZEOF_SIZE_T >= 4
-    writeToFiles("size_t","SIZE_T", "size_t_f", 4, H5_FORTRAN_HAS_INTEGER_4_KIND);
+    writeToFiles("size_t", "SIZE_T", "size_t_f", 4, H5_FORTRAN_HAS_INTEGER_4_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_2_KIND && H5_SIZEOF_SIZE_T >= 2
-    writeToFiles("size_t","SIZE_T", "size_t_f", 2, H5_FORTRAN_HAS_INTEGER_2_KIND);
+    writeToFiles("size_t", "SIZE_T", "size_t_f", 2, H5_FORTRAN_HAS_INTEGER_2_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_1_KIND && H5_SIZEOF_SIZE_T >= 1
-    writeToFiles("size_t","SIZE_T", "size_t_f", 1, H5_FORTRAN_HAS_INTEGER_1_KIND);
+    writeToFiles("size_t", "SIZE_T", "size_t_f", 1, H5_FORTRAN_HAS_INTEGER_1_KIND);
 #else
     /* Error: couldn't find a size for size_t */
     return -1;
 #endif
 
-  /* int */
+    /* int */
 #if defined H5_FORTRAN_HAS_NATIVE_8_KIND
-    writeToFiles("int","Fortran_INTEGER", "int_f", 8, H5_FORTRAN_HAS_NATIVE_8_KIND);
+    writeToFiles("int", "Fortran_INTEGER", "int_f", 8, H5_FORTRAN_HAS_NATIVE_8_KIND);
 #elif defined H5_FORTRAN_HAS_NATIVE_4_KIND
-    writeToFiles("int","Fortran_INTEGER", "int_f", 4, H5_FORTRAN_HAS_NATIVE_4_KIND);
+    writeToFiles("int", "Fortran_INTEGER", "int_f", 4, H5_FORTRAN_HAS_NATIVE_4_KIND);
 #elif defined H5_FORTRAN_HAS_NATIVE_2_KIND
-    writeToFiles("int","Fortran_INTEGER", "int_f", 2, H5_FORTRAN_HAS_NATIVE_2_KIND);
+    writeToFiles("int", "Fortran_INTEGER", "int_f", 2, H5_FORTRAN_HAS_NATIVE_2_KIND);
 #elif defined H5_FORTRAN_HAS_NATIVE_1_KIND
-    writeToFiles("int","Fortran_INTEGER", "int_f", 1, H5_FORTRAN_HAS_NATIVE_1_KIND);
+    writeToFiles("int", "Fortran_INTEGER", "int_f", 1, H5_FORTRAN_HAS_NATIVE_1_KIND);
 #else
     /* Error: couldn't find a size for int */
     return -1;
 #endif
 
-  /* int_1, int_2, int_4, int_8 */
+    /* int_1, int_2, int_4, int_8 */
 
-/* Defined different KINDs of integers:                       */
-/* if the integer kind is not available then we assign        */
-/* it a value of the next larger one, but if the next         */
-/* higher one is not available we assigned it the next lowest */
+    /* Defined different KINDs of integers:                       */
+    /* if the integer kind is not available then we assign        */
+    /* it a value of the next larger one, but if the next         */
+    /* higher one is not available we assigned it the next lowest */
 
     FoundIntSize[0] = -1;
     FoundIntSize[1] = -2;
@@ -374,159 +378,159 @@ int main(void)
     FoundIntSize[3] = -8;
 
 #if defined H5_FORTRAN_HAS_INTEGER_1_KIND
-    FoundIntSize[0] = 1;
+    FoundIntSize[0]     = 1;
     FoundIntSizeKind[0] = H5_FORTRAN_HAS_INTEGER_1_KIND;
 #endif
 #if defined H5_FORTRAN_HAS_INTEGER_2_KIND
-    FoundIntSize[1] = 2;
+    FoundIntSize[1]     = 2;
     FoundIntSizeKind[1] = H5_FORTRAN_HAS_INTEGER_2_KIND;
 #endif
 #if defined H5_FORTRAN_HAS_INTEGER_4_KIND
-    FoundIntSize[2] = 4;
+    FoundIntSize[2]     = 4;
     FoundIntSizeKind[2] = H5_FORTRAN_HAS_INTEGER_4_KIND;
 #endif
 #if defined H5_FORTRAN_HAS_INTEGER_8_KIND
-    FoundIntSize[3] = 8;
-    FoundIntSizeKind[3] = H5_FORTRAN_HAS_INTEGER_8_KIND ;
+    FoundIntSize[3]     = 8;
+    FoundIntSizeKind[3] = H5_FORTRAN_HAS_INTEGER_8_KIND;
 #endif
 
-    for(i=0;i<4;i++) {
-      if( FoundIntSize[i] > 0) /* Found the integer type */
-	{
-	  sprintf(chrA, "Fortran_INTEGER_%d", FoundIntSize[i]);
-	  sprintf(chrB, "int_%d_f", FoundIntSize[i]);
-	  writeToFiles("int",chrA, chrB, FoundIntSize[i], FoundIntSizeKind[i]);
-	}
-      else  /* Did not find the integer type */
-	{
-	  flag = 0; /* flag indicating if found the next highest */
-	  for(j=i+1;j<4;j++)  /* search for next highest */
-	    {
-	      if( FoundIntSize[j] > 0) /* Found the next highest */
-		{
-		  sprintf(chrA, "Fortran_INTEGER_%d", (-1)*FoundIntSize[i]);
-		  sprintf(chrB, "int_%d_f", (-1)*FoundIntSize[i]);
-		  writeToFiles("int",chrA, chrB, FoundIntSize[j], FoundIntSizeKind[j]);
-		  flag = 1;
-		  break;
-		}
-	    }
-	  if(flag == 0) /* No higher one found, so find next lowest */
-	    {
-	      for(j=2;j>-1;j--)  /* Search for next lowest */
-		{
-		  if( FoundIntSize[j] > 0) /* Found the next lowest */
-		    {
-		      sprintf(chrA, "Fortran_INTEGER_%d", (-1)*FoundIntSize[i]);
-		      sprintf(chrB, "int_%d_f", (-1)*FoundIntSize[i]);
-		      writeToFiles("int",chrA, chrB, FoundIntSize[j], FoundIntSizeKind[j]);
-		      flag = 1;
-		      break;
-		    }
-		}
-	    }
-	  if(flag == 0) /* No higher or lower one found, indicating an error */
-	     return -1;
-	}
+    for (i = 0; i < 4; i++) {
+        if (FoundIntSize[i] > 0) /* Found the integer type */
+        {
+            sprintf(chrA, "Fortran_INTEGER_%d", FoundIntSize[i]);
+            sprintf(chrB, "int_%d_f", FoundIntSize[i]);
+            writeToFiles("int", chrA, chrB, FoundIntSize[i], FoundIntSizeKind[i]);
+        }
+        else /* Did not find the integer type */
+        {
+            flag = 0;                   /* flag indicating if found the next highest */
+            for (j = i + 1; j < 4; j++) /* search for next highest */
+            {
+                if (FoundIntSize[j] > 0) /* Found the next highest */
+                {
+                    sprintf(chrA, "Fortran_INTEGER_%d", (-1) * FoundIntSize[i]);
+                    sprintf(chrB, "int_%d_f", (-1) * FoundIntSize[i]);
+                    writeToFiles("int", chrA, chrB, FoundIntSize[j], FoundIntSizeKind[j]);
+                    flag = 1;
+                    break;
+                }
+            }
+            if (flag == 0) /* No higher one found, so find next lowest */
+            {
+                for (j = 2; j > -1; j--) /* Search for next lowest */
+                {
+                    if (FoundIntSize[j] > 0) /* Found the next lowest */
+                    {
+                        sprintf(chrA, "Fortran_INTEGER_%d", (-1) * FoundIntSize[i]);
+                        sprintf(chrB, "int_%d_f", (-1) * FoundIntSize[i]);
+                        writeToFiles("int", chrA, chrB, FoundIntSize[j], FoundIntSizeKind[j]);
+                        flag = 1;
+                        break;
+                    }
+                }
+            }
+            if (flag == 0) /* No higher or lower one found, indicating an error */
+                return -1;
+        }
     }
 
-  /* real_4, real_8, real_16 */
+    /* real_4, real_8, real_16 */
 
-/* Defined different KINDs of reals:                          */
-/* if the REAL kind is not available then we assign           */
-/* it a value of the next larger one, but if the next         */
-/* higher one is not available we assigned it the next lowest */
+    /* Defined different KINDs of reals:                          */
+    /* if the REAL kind is not available then we assign           */
+    /* it a value of the next larger one, but if the next         */
+    /* higher one is not available we assigned it the next lowest */
 
     FoundRealSize[0] = -4;
     FoundRealSize[1] = -8;
     FoundRealSize[2] = -16;
 
 #if defined H5_FORTRAN_HAS_REAL_4_KIND
-    FoundRealSize[0] = 4;
+    FoundRealSize[0]     = 4;
     FoundRealSizeKind[0] = H5_FORTRAN_HAS_REAL_4_KIND;
 #endif
 #if defined H5_FORTRAN_HAS_REAL_8_KIND
-    FoundRealSize[1] = 8;
+    FoundRealSize[1]     = 8;
     FoundRealSizeKind[1] = H5_FORTRAN_HAS_REAL_8_KIND;
 #endif
 
 #if defined H5_FORTRAN_HAS_REAL_16_KIND
-    if(H5_C_HAS_REAL_NATIVE_16 != 0) {
-      FoundRealSize[2] = 16;
-      FoundRealSizeKind[2] = H5_FORTRAN_HAS_REAL_16_KIND;
+    if (H5_C_HAS_REAL_NATIVE_16 != 0) {
+        FoundRealSize[2]     = 16;
+        FoundRealSizeKind[2] = H5_FORTRAN_HAS_REAL_16_KIND;
     }
 #endif
 
-    for(i=0;i<3;i++) {
-      if( FoundRealSize[i] > 0) /* Found the real type */
-	{
-	  sprintf(chrA, "Fortran_REAL_%d", FoundRealSize[i]);
-	  sprintf(chrB, "real_%d_f", FoundRealSize[i]);
-	  writeToFiles("float",chrA, chrB, FoundRealSize[i], FoundRealSizeKind[i]);
-	}
-      else  /* Did not find the real type */
-	{
-	  flag = 0; /* flag indicating if found the next highest */
-	  for(j=i+1;j<3;j++)  /* search for next highest */
-	    {
-	      if( FoundRealSize[j] > 0) /* Found the next highest */
-		{
-		  sprintf(chrA, "Fortran_REAL_%d", (-1)*FoundRealSize[i]);
-		  sprintf(chrB, "real_%d_f", (-1)*FoundRealSize[i]);
-		  if(FoundRealSize[j]>4) {
-		    writeToFiles("float",chrA, chrB,  FoundRealSize[j], FoundRealSizeKind[j]);
-		    flag = 1;
-		  }
-		/*   else { */
-/* 		    writeToFiles("float", chrA, chrB, FoundRealSize[j]); */
-/* 		  } */
-		  flag = 1;
-		  break;
-		}
-	    }
-	  if(flag == 0) /* No higher one found, so find next lowest */
-	    {
-	      for(j=1;j>-1;j--)  /* Search for next lowest */
-		{
-		  if( FoundRealSize[j] > 0) /* Found the next lowest */
-		    {
-		      sprintf(chrA, "Fortran_REAL_%d", (-1)*FoundRealSize[i]);
-		      sprintf(chrB, "real_%d_f", (-1)*FoundRealSize[i]);
-		      if(FoundRealSize[j]>4)
-			writeToFiles("float",chrA, chrB,  FoundRealSize[j], FoundRealSizeKind[j]);
-		     /*  else { */
-/* 			writeToFiles("float", chrA, chrB, FoundRealSize[j]); */
-/* 		      } */
-		      flag = 1;
-		      break;
-		    }
-		}
-	    }
-	  if(flag == 0) /* No higher or lower one found, indicating an error */
-	     return -1;
-	}
+    for (i = 0; i < 3; i++) {
+        if (FoundRealSize[i] > 0) /* Found the real type */
+        {
+            sprintf(chrA, "Fortran_REAL_%d", FoundRealSize[i]);
+            sprintf(chrB, "real_%d_f", FoundRealSize[i]);
+            writeToFiles("float", chrA, chrB, FoundRealSize[i], FoundRealSizeKind[i]);
+        }
+        else /* Did not find the real type */
+        {
+            flag = 0;                   /* flag indicating if found the next highest */
+            for (j = i + 1; j < 3; j++) /* search for next highest */
+            {
+                if (FoundRealSize[j] > 0) /* Found the next highest */
+                {
+                    sprintf(chrA, "Fortran_REAL_%d", (-1) * FoundRealSize[i]);
+                    sprintf(chrB, "real_%d_f", (-1) * FoundRealSize[i]);
+                    if (FoundRealSize[j] > 4) {
+                        writeToFiles("float", chrA, chrB, FoundRealSize[j], FoundRealSizeKind[j]);
+                        flag = 1;
+                    }
+                    /*   else { */
+                    /* 		    writeToFiles("float", chrA, chrB, FoundRealSize[j]); */
+                    /* 		  } */
+                    flag = 1;
+                    break;
+                }
+            }
+            if (flag == 0) /* No higher one found, so find next lowest */
+            {
+                for (j = 1; j > -1; j--) /* Search for next lowest */
+                {
+                    if (FoundRealSize[j] > 0) /* Found the next lowest */
+                    {
+                        sprintf(chrA, "Fortran_REAL_%d", (-1) * FoundRealSize[i]);
+                        sprintf(chrB, "real_%d_f", (-1) * FoundRealSize[i]);
+                        if (FoundRealSize[j] > 4)
+                            writeToFiles("float", chrA, chrB, FoundRealSize[j], FoundRealSizeKind[j]);
+                        /*  else { */
+                        /* 			writeToFiles("float", chrA, chrB, FoundRealSize[j]); */
+                        /* 		      } */
+                        flag = 1;
+                        break;
+                    }
+                }
+            }
+            if (flag == 0) /* No higher or lower one found, indicating an error */
+                return -1;
+        }
     }
 
-  /* hid_t */
+    /* hid_t */
 #if defined H5_FORTRAN_HAS_INTEGER_8_KIND && H5_SIZEOF_HID_T >= 8
-    writeToFiles("int","HID_T", "hid_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
+    writeToFiles("int", "HID_T", "hid_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_4_KIND && H5_SIZEOF_HID_T >= 4
-    writeToFiles("int","HID_T", "hid_t_f", 4, H5_FORTRAN_HAS_INTEGER_4_KIND);
+    writeToFiles("int", "HID_T", "hid_t_f", 4, H5_FORTRAN_HAS_INTEGER_4_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_2_KIND && H5_SIZEOF_HID_T >= 2
-    writeToFiles("int","HID_T", "hid_t_f", 2, H5_FORTRAN_HAS_INTEGER_2_KIND);
+    writeToFiles("int", "HID_T", "hid_t_f", 2, H5_FORTRAN_HAS_INTEGER_2_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_1_KIND && H5_SIZEOF_HID_T >= 1
-    writeToFiles("int","HID_T", "hid_t_f", 1, H5_FORTRAN_HAS_INTEGER_1_KIND);
+    writeToFiles("int", "HID_T", "hid_t_f", 1, H5_FORTRAN_HAS_INTEGER_1_KIND);
 #elif defined H5_FORTRAN_HAS_INTEGER_8_KIND && H5_SIZEOF_HID_T >= 4
-    writeToFiles("int","HID_T", "hid_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
+    writeToFiles("int", "HID_T", "hid_t_f", 8, H5_FORTRAN_HAS_INTEGER_8_KIND);
 #else
     /* Error: couldn't find a size for hid_t */
     return -1;
 #endif
 
-  /* real_f */
+    /* real_f */
 #if defined H5_FORTRAN_HAS_REAL_NATIVE_16_KIND
-    if(H5_C_HAS_REAL_NATIVE_16 != 0) {
-      writeToFiles("float","Fortran_REAL", "real_f", 16, H5_FORTRAN_HAS_REAL_NATIVE_16_KIND);
+    if (H5_C_HAS_REAL_NATIVE_16 != 0) {
+        writeToFiles("float", "Fortran_REAL", "real_f", 16, H5_FORTRAN_HAS_REAL_NATIVE_16_KIND);
     }
 #elif defined H5_FORTRAN_HAS_REAL_NATIVE_8_KIND
     writeToFiles("float", "Fortran_REAL", "real_f", 8, H5_FORTRAN_HAS_REAL_NATIVE_8_KIND);
@@ -537,20 +541,21 @@ int main(void)
     return -1;
 #endif
 
-  /* double_f */
+    /* double_f */
 #if defined H5_FORTRAN_HAS_DOUBLE_NATIVE_16_KIND
-    if(H5_C_HAS_REAL_NATIVE_16 != 0) { /* Check if C has 16 byte floats */
-      writeToFiles("float", "Fortran_DOUBLE", "double_f", 16, H5_FORTRAN_HAS_DOUBLE_NATIVE_16_KIND);
-    } else {
+    if (H5_C_HAS_REAL_NATIVE_16 != 0) { /* Check if C has 16 byte floats */
+        writeToFiles("float", "Fortran_DOUBLE", "double_f", 16, H5_FORTRAN_HAS_DOUBLE_NATIVE_16_KIND);
+    }
+    else {
 #if defined H5_FORTRAN_HAS_REAL_NATIVE_8_KIND /* Fall back to 8 byte floats */
-    writeToFiles("float", "Fortran_DOUBLE", "double_f", 8, H5_FORTRAN_HAS_REAL_NATIVE_8_KIND);
+        writeToFiles("float", "Fortran_DOUBLE", "double_f", 8, H5_FORTRAN_HAS_REAL_NATIVE_8_KIND);
     }
-#elif defined H5_FORTRAN_HAS_REAL_NATIVE_4_KIND  /* Fall back to 4 byte floats */
-    writeToFiles("float", "Fortran_DOUBLE", "double_f", 4, H5_FORTRAN_HAS_REAL_NATIVE_4_KIND);
+#elif defined H5_FORTRAN_HAS_REAL_NATIVE_4_KIND /* Fall back to 4 byte floats */
+        writeToFiles("float", "Fortran_DOUBLE", "double_f", 4, H5_FORTRAN_HAS_REAL_NATIVE_4_KIND);
     }
 #else
-    /* Error: couldn't find a size for double_f when fortran has 16 byte reals */
-    return -1;
+        /* Error: couldn't find a size for double_f when fortran has 16 byte reals */
+        return -1;
     }
 #endif
 
@@ -561,19 +566,18 @@ int main(void)
     return -1;
 #endif
 
-  /* Need the buffer size for the fortran derive type 'hdset_reg_ref_t_f03'
-   * in order to be interoperable with C's structure, the C buffer size
-   * H5R_DSET_REG_REF_BUF_SIZE is (sizeof(haddr_t)+4)
-   */
-    
-    fprintf(fort_header, "        INTEGER, PARAMETER :: H5R_DSET_REG_REF_BUF_SIZE_F = %u\n", H5_SIZEOF_HADDR_T + 4 );
+    /* Need the buffer size for the fortran derive type 'hdset_reg_ref_t_f03'
+     * in order to be interoperable with C's structure, the C buffer size
+     * H5R_DSET_REG_REF_BUF_SIZE is (sizeof(haddr_t)+4)
+     */
 
+    fprintf(fort_header, "        INTEGER, PARAMETER :: H5R_DSET_REG_REF_BUF_SIZE_F = %u\n",
+            H5_SIZEOF_HADDR_T + 4);
 
-  /* Close files */
-  endCfile();
-  endFfile();
-  fclose(c_header);
-  fclose(fort_header);
-  return 0;
+    /* Close files */
+    endCfile();
+    endFfile();
+    fclose(c_header);
+    fclose(fort_header);
+    return 0;
 }
-
diff --git a/fortran/test/t.c b/fortran/test/t.c
index 107e8d5..26cb2c0 100644
--- a/fortran/test/t.c
+++ b/fortran/test/t.c
@@ -21,7 +21,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "t.h"
 #include "H5Eprivate.h"
@@ -40,34 +40,34 @@
  * Modifications:
  *---------------------------------------------------------------------------*/
 int_f
-nh5_fixname_c(_fcd base_name, size_t_f *base_namelen, hid_t_f* fapl, _fcd full_name, size_t_f *full_namelen)
+nh5_fixname_c(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl, _fcd full_name, size_t_f *full_namelen)
 {
-     char *c_base_name = NULL;
-     char *c_full_name = NULL;
-     int_f ret_value = 0;
+    char *c_base_name = NULL;
+    char *c_full_name = NULL;
+    int_f ret_value   = 0;
 
-     /*
-      * Convert FORTRAN name to C name
-      */
-     if(NULL == (c_base_name = (char *)HD5f2cstring(base_name, (size_t)*base_namelen)))
-         HGOTO_DONE(FAIL)
-     if(NULL == (c_full_name = (char *)HDmalloc((size_t)*full_namelen + 1)))
-         HGOTO_DONE(FAIL)
+    /*
+     * Convert FORTRAN name to C name
+     */
+    if (NULL == (c_base_name = (char *)HD5f2cstring(base_name, (size_t)*base_namelen)))
+        HGOTO_DONE(FAIL)
+    if (NULL == (c_full_name = (char *)HDmalloc((size_t)*full_namelen + 1)))
+        HGOTO_DONE(FAIL)
 
-     /*
-      * Call h5_fixname function.
-      */
-     if(NULL == h5_fixname(c_base_name, (hid_t)*fapl, c_full_name, (size_t)*full_namelen + 1))
-         HGOTO_DONE(FAIL)
-     HD5packFstring(c_full_name, _fcdtocp(full_name), (size_t)*full_namelen);
+    /*
+     * Call h5_fixname function.
+     */
+    if (NULL == h5_fixname(c_base_name, (hid_t)*fapl, c_full_name, (size_t)*full_namelen + 1))
+        HGOTO_DONE(FAIL)
+    HD5packFstring(c_full_name, _fcdtocp(full_name), (size_t)*full_namelen);
 
 done:
-     if(c_base_name)
+    if (c_base_name)
         HDfree(c_base_name);
-     if(c_full_name)
+    if (c_full_name)
         HDfree(c_full_name);
 
-     return ret_value;
+    return ret_value;
 }
 
 /*----------------------------------------------------------------------------
@@ -82,40 +82,41 @@ done:
  * Modifications:
  *---------------------------------------------------------------------------*/
 int_f
-nh5_cleanup_c(_fcd base_name, size_t_f *base_namelen, hid_t_f* fapl)
+nh5_cleanup_c(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl)
 {
-     char filename[1024];
-     int ret_value = -1;
-     char *c_base_name[1];
-     hid_t c_fapl;
+    char  filename[1024];
+    int   ret_value = -1;
+    char *c_base_name[1];
+    hid_t c_fapl;
 
-     /*
-      * Define ifile access property list
-      */
-     c_fapl = (hid_t)*fapl;
-     /*c_fapl = H5Pcreate(H5P_FILE_ACCESS);*/
-     /*
-      * Convert FORTRAN name to C name
-      */
-     c_base_name[0] = (char *)HD5f2cstring(base_name, (size_t)*base_namelen);
-     if (c_base_name[0] == NULL) goto DONE;
+    /*
+     * Define ifile access property list
+     */
+    c_fapl = (hid_t)*fapl;
+    /*c_fapl = H5Pcreate(H5P_FILE_ACCESS);*/
+    /*
+     * Convert FORTRAN name to C name
+     */
+    c_base_name[0] = (char *)HD5f2cstring(base_name, (size_t)*base_namelen);
+    if (c_base_name[0] == NULL)
+        goto DONE;
 
-     /*
-      * Call h5_cleanup function.
-      */
-     /*if (h5_cleanup(c_base_name, c_fapl) != 0) {
-     ret_value = 0;
-     goto DONE;
-     }
+    /*
+     * Call h5_cleanup function.
+     */
+    /*if (h5_cleanup(c_base_name, c_fapl) != 0) {
+    ret_value = 0;
+    goto DONE;
+    }
 */
-     h5_fixname(c_base_name[0], c_fapl, filename, sizeof(filename));
-     HDremove(filename);
-     ret_value =0;
+    h5_fixname(c_base_name[0], c_fapl, filename, sizeof(filename));
+    HDremove(filename);
+    ret_value = 0;
 
 DONE:
-     if (NULL != c_base_name[0]) HDfree(c_base_name[0]);
-     return ret_value;
-
+    if (NULL != c_base_name[0])
+        HDfree(c_base_name[0]);
+    return ret_value;
 }
 
 /*----------------------------------------------------------------------------
@@ -134,7 +135,7 @@ void
 nh5_exit_c(int_f *status)
 {
     HDexit((int)*status);
-}   /* h5_exit_c */
+} /* h5_exit_c */
 
 /*----------------------------------------------------------------------------
  * Name:        h5_env_nocleanup_c
@@ -150,8 +151,7 @@ nh5_exit_c(int_f *status)
 void
 nh5_env_nocleanup_c(int_f *status)
 {
-  *status = (int_f)0;
-  if (HDgetenv("HDF5_NOCLEANUP"))
-    *status = (int_f)1;
-}   /* h5_env_nocleanup_c */
-
+    *status = (int_f)0;
+    if (HDgetenv("HDF5_NOCLEANUP"))
+        *status = (int_f)1;
+} /* h5_env_nocleanup_c */
diff --git a/fortran/test/t.h b/fortran/test/t.h
index 81d2b5d..aa28ef1 100644
--- a/fortran/test/t.h
+++ b/fortran/test/t.h
@@ -21,20 +21,16 @@ char *h5_fixname(const char *base_name, hid_t fapl, char *fullname, size_t size)
 /*
  *  Functions from t.c
  */
-#   define nh5_fixname_c              H5_FC_FUNC_(h5_fixname_c, H5_FIXNAME_C)
-#   define nh5_cleanup_c              H5_FC_FUNC_(h5_cleanup_c, H5_CLEANUP_C)
-#   define nh5_exit_c                 H5_FC_FUNC_(h5_exit_c, H5_EXIT_C)
-#   define nh5_env_nocleanup_c        H5_FC_FUNC_(h5_env_nocleanup_c, H5_ENV_NOCLEANUP_C)
+#define nh5_fixname_c       H5_FC_FUNC_(h5_fixname_c, H5_FIXNAME_C)
+#define nh5_cleanup_c       H5_FC_FUNC_(h5_cleanup_c, H5_CLEANUP_C)
+#define nh5_exit_c          H5_FC_FUNC_(h5_exit_c, H5_EXIT_C)
+#define nh5_env_nocleanup_c H5_FC_FUNC_(h5_env_nocleanup_c, H5_ENV_NOCLEANUP_C)
 
-H5_FCTESTDLL int_f nh5_fixname_c
-(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl, _fcd full_name, size_t_f *full_namelen);
+H5_FCTESTDLL int_f nh5_fixname_c(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl, _fcd full_name,
+                                 size_t_f *full_namelen);
 
-H5_FCTESTDLL int_f nh5_cleanup_c
-(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl);
+H5_FCTESTDLL int_f nh5_cleanup_c(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl);
 
-H5_FCTESTDLL H5_ATTR_NORETURN void nh5_exit_c
-(int_f *status);
-
-H5_FCTESTDLL void nh5_env_nocleanup_c
-(int_f *status);
+H5_FCTESTDLL H5_ATTR_NORETURN void nh5_exit_c(int_f *status);
 
+H5_FCTESTDLL void nh5_env_nocleanup_c(int_f *status);