Source formatted

1 files changed, 1253 insertions, 1146 deletions

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;
 }