Clang-format of source files

1 files changed, 402 insertions, 327 deletions

diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c
index 8044b78..9c71c57 100644
--- a/fortran/src/H5_f.c
+++ b/fortran/src/H5_f.c
@@ -17,14 +17,13 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 #include "H5fort_type_defines.h"
 
 int IntKinds_SizeOf[] = H5_FORTRAN_INTEGER_KINDS_SIZEOF;
 
-
 /****if* H5_f/h5init_types_c
  * NAME
  *  h5init_types_c
@@ -49,14 +48,14 @@ int IntKinds_SizeOf[] = H5_FORTRAN_INTEGER_KINDS_SIZEOF;
  *  Elena Pourmal
  *  Tuesday, August 3, 1999
  * SOURCE
-*/
+ */
 int_f
-h5init_types_c( hid_t_f * types, hid_t_f * floatingtypes, hid_t_f * integertypes )
+h5init_types_c(hid_t_f *types, hid_t_f *floatingtypes, hid_t_f *integertypes)
 /******/
 {
-    int ret_value = -1;
+    int   ret_value = -1;
     hid_t c_type_id;
-    int i;
+    int   i;
 
     /* Fortran INTEGER may not be the same as C; do all checking to find
        an appropriate size
@@ -67,186 +66,258 @@ h5init_types_c( hid_t_f * types, hid_t_f * floatingtypes, hid_t_f * integertypes
      */
 
     /* Initialized INTEGER KIND types to default to native integer */
-    for(i=0;i<5;i++) {
-      if ((types[i] = (hid_t_f)H5Tcopy (H5T_NATIVE_INT)) < 0) return ret_value;
+    for (i = 0; i < 5; i++) {
+        if ((types[i] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0)
+            return ret_value;
     }
 
-    for(i=0;i<H5_FORTRAN_NUM_INTEGER_KINDS;i++) {
-      if ( IntKinds_SizeOf[i] == sizeof(char)) {
-	if ((types[i] = (hid_t_f)H5Tcopy(H5T_NATIVE_CHAR)) < 0) return ret_value;
-      } /*end if */
-      else if ( IntKinds_SizeOf[i] == sizeof(short)) {
-	if ((types[i] = (hid_t_f)H5Tcopy(H5T_NATIVE_SHORT)) < 0) return ret_value;
-      } /*end if */
-      else if ( IntKinds_SizeOf[i] == sizeof(int)) {
-	if ((types[i] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0) return ret_value;
-      } /*end if */
-      else if ( IntKinds_SizeOf[i] == sizeof(long long)) {
-	if ((types[i] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0) return ret_value;
-      } /*end if */
-      else {
-	if ((types[i] = (hid_t_f)H5Tcopy (H5T_NATIVE_INT)) < 0) return ret_value;
-	if ( H5Tset_precision (types[i], 128) < 0) return ret_value;
-      } /*end else */
-
+    for (i = 0; i < H5_FORTRAN_NUM_INTEGER_KINDS; i++) {
+        if (IntKinds_SizeOf[i] == sizeof(char)) {
+            if ((types[i] = (hid_t_f)H5Tcopy(H5T_NATIVE_CHAR)) < 0)
+                return ret_value;
+        } /*end if */
+        else if (IntKinds_SizeOf[i] == sizeof(short)) {
+            if ((types[i] = (hid_t_f)H5Tcopy(H5T_NATIVE_SHORT)) < 0)
+                return ret_value;
+        } /*end if */
+        else if (IntKinds_SizeOf[i] == sizeof(int)) {
+            if ((types[i] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0)
+                return ret_value;
+        } /*end if */
+        else if (IntKinds_SizeOf[i] == sizeof(long long)) {
+            if ((types[i] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0)
+                return ret_value;
+        } /*end if */
+        else {
+            if ((types[i] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0)
+                return ret_value;
+            if (H5Tset_precision(types[i], 128) < 0)
+                return ret_value;
+        } /*end else */
     }
 
     if (sizeof(int_f) == sizeof(int)) {
-      if ((types[5] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0) return ret_value;
+        if ((types[5] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(int_f) == sizeof(long)) {
-      if ((types[5] = (hid_t_f)H5Tcopy(H5T_NATIVE_LONG)) < 0) return ret_value;
+        if ((types[5] = (hid_t_f)H5Tcopy(H5T_NATIVE_LONG)) < 0)
+            return ret_value;
     } /*end if */
-    else
-      if (sizeof(int_f) == sizeof(long long)) {
-	if ((types[5] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0) return ret_value;
+    else if (sizeof(int_f) == sizeof(long long)) {
+        if ((types[5] = (hid_t_f)H5Tcopy(H5T_NATIVE_LLONG)) < 0)
+            return ret_value;
     } /*end else */
 
     /* Find appropriate size to store Fortran REAL */
-    if(sizeof(real_f)==sizeof(float)) {
-      if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0) return ret_value;
+    if (sizeof(real_f) == sizeof(float)) {
+        if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0)
+            return ret_value;
     } /* end if */
-    else if(sizeof(real_f)==sizeof(double)){
-      if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
+    else if (sizeof(real_f) == sizeof(double)) {
+        if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0)
+            return ret_value;
     } /* end if */
-#if H5_SIZEOF_LONG_DOUBLE!=0
+#if H5_SIZEOF_LONG_DOUBLE != 0
     else if (sizeof(real_f) == sizeof(long double)) {
-      if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0) return ret_value;
+        if ((types[6] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0)
+            return ret_value;
     } /* end else */
 #endif
 
     /* Find appropriate size to store Fortran DOUBLE */
-    if(sizeof(double_f)==sizeof(double)) {
-       if ((types[7] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
-    }/*end if */
-#if H5_SIZEOF_LONG_DOUBLE!=0
-    else if(sizeof(double_f)==sizeof(long double)) {
-       if ((types[7] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0) return ret_value;
-    }/*end else */
+    if (sizeof(double_f) == sizeof(double)) {
+        if ((types[7] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0)
+            return ret_value;
+    } /*end if */
+#if H5_SIZEOF_LONG_DOUBLE != 0
+    else if (sizeof(double_f) == sizeof(long double)) {
+        if ((types[7] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0)
+            return ret_value;
+    } /*end else */
 #endif
 #ifdef H5_HAVE_FLOAT128
-    else if(sizeof(double_f)==sizeof(__float128)) {
-      if ((types[7] = H5Tcopy (H5T_NATIVE_FLOAT)) < 0) return ret_value;
-      if ( H5Tset_precision (types[7], 128) < 0) return ret_value;
-    }/*end else */
+    else if (sizeof(double_f) == sizeof(__float128)) {
+        if ((types[7] = H5Tcopy(H5T_NATIVE_FLOAT)) < 0)
+            return ret_value;
+        if (H5Tset_precision(types[7], 128) < 0)
+            return ret_value;
+    } /*end else */
 #endif
 
-    if ((c_type_id = H5Tcopy(H5T_FORTRAN_S1)) < 0) return ret_value;
-    if(H5Tset_size(c_type_id, 1) < 0) return ret_value;
-    if(H5Tset_strpad(c_type_id, H5T_STR_SPACEPAD) < 0) return ret_value;
+    if ((c_type_id = H5Tcopy(H5T_FORTRAN_S1)) < 0)
+        return ret_value;
+    if (H5Tset_size(c_type_id, 1) < 0)
+        return ret_value;
+    if (H5Tset_strpad(c_type_id, H5T_STR_SPACEPAD) < 0)
+        return ret_value;
     types[8] = (hid_t_f)c_type_id;
 
-    if ((types[9] = (hid_t_f)H5Tcopy(H5T_STD_REF_OBJ)) < 0) return ret_value;
-    if ((types[10] = (hid_t_f)H5Tcopy(H5T_STD_REF_DSETREG)) < 0) return ret_value;
+    if ((types[9] = (hid_t_f)H5Tcopy(H5T_STD_REF_OBJ)) < 0)
+        return ret_value;
+    if ((types[10] = (hid_t_f)H5Tcopy(H5T_STD_REF_DSETREG)) < 0)
+        return ret_value;
 
     /*
      * FIND H5T_NATIVE_REAL_C_FLOAT
      */
     if (sizeof(real_C_FLOAT_f) == sizeof(float)) {
-      if ((types[11] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0) return ret_value;
+        if ((types[11] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(real_C_FLOAT_f) == sizeof(double)) {
-      if ((types[11] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
+        if ((types[11] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0)
+            return ret_value;
     } /*end if */
-#if H5_SIZEOF_LONG_DOUBLE!=0
+#if H5_SIZEOF_LONG_DOUBLE != 0
     else if (sizeof(real_C_FLOAT_f) == sizeof(long double)) {
-	if ((types[11] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0) return ret_value;
+        if ((types[11] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0)
+            return ret_value;
     } /*end else */
 #endif
     /*
      * FIND H5T_NATIVE_REAL_C_DOUBLE
      */
     if (sizeof(real_C_DOUBLE_f) == sizeof(float)) {
-      if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0) return ret_value;
+        if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(real_C_DOUBLE_f) == sizeof(double)) {
-      if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
+        if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0)
+            return ret_value;
     } /*end if */
-#if H5_SIZEOF_LONG_DOUBLE!=0
+#if H5_SIZEOF_LONG_DOUBLE != 0
     else if (sizeof(real_C_DOUBLE_f) == sizeof(long double)) {
-	if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0) return ret_value;
+        if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0)
+            return ret_value;
     } /*end else */
 #endif
     /*
      * FIND H5T_NATIVE_REAL_C_LONG_DOUBLE
      */
-#if H5_FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0
+#if H5_FORTRAN_C_LONG_DOUBLE_IS_UNIQUE != 0
     if (sizeof(real_C_LONG_DOUBLE_f) == sizeof(float)) {
-      if ((types[13] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0) return ret_value;
+        if ((types[13] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0)
+            return ret_value;
     } /*end if */
     else if (sizeof(real_C_LONG_DOUBLE_f) == sizeof(double)) {
-      if ((types[13] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
+        if ((types[13] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0)
+            return ret_value;
     } /*end if */
-# if H5_FORTRAN_HAVE_C_LONG_DOUBLE!=0
+#if H5_FORTRAN_HAVE_C_LONG_DOUBLE != 0
     else if (sizeof(real_C_LONG_DOUBLE_f) == sizeof(long double)) {
-      if ( H5_PAC_C_MAX_REAL_PRECISION >= H5_PAC_FC_MAX_REAL_PRECISION) {
-	if ((types[13] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0) return ret_value;
-      }
-      else {
-	if ((types[13] = H5Tcopy (H5T_NATIVE_FLOAT)) < 0) return ret_value;
-	if ( H5Tset_precision (types[13], 128) < 0) return ret_value;
-      }
+        if (H5_PAC_C_MAX_REAL_PRECISION >= H5_PAC_FC_MAX_REAL_PRECISION) {
+            if ((types[13] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0)
+                return ret_value;
+        }
+        else {
+            if ((types[13] = H5Tcopy(H5T_NATIVE_FLOAT)) < 0)
+                return ret_value;
+            if (H5Tset_precision(types[13], 128) < 0)
+                return ret_value;
+        }
     }
-# else
-    if ((types[13] = H5Tcopy (H5T_NATIVE_FLOAT)) < 0) return ret_value;
-    if ( H5Tset_precision (types[13], 64) < 0) return ret_value;
-# endif
 #else
-    if ((types[13] = H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
+    if ((types[13] = H5Tcopy(H5T_NATIVE_FLOAT)) < 0)
+        return ret_value;
+    if (H5Tset_precision(types[13], 64) < 0)
+        return ret_value;
+#endif
+#else
+    if ((types[13] = H5Tcopy(H5T_NATIVE_DOUBLE)) < 0)
+        return ret_value;
 #endif
     /*
      * FIND H5T_NATIVE_B_8
      */
-    if ((types[14] = (hid_t_f)H5Tcopy(H5T_NATIVE_B8))  < 0) return ret_value;
-    if ((types[15] = (hid_t_f)H5Tcopy(H5T_NATIVE_B16)) < 0) return ret_value;
-    if ((types[16] = (hid_t_f)H5Tcopy(H5T_NATIVE_B32)) < 0) return ret_value;
-    if ((types[17] = (hid_t_f)H5Tcopy(H5T_NATIVE_B64)) < 0) return ret_value;
+    if ((types[14] = (hid_t_f)H5Tcopy(H5T_NATIVE_B8)) < 0)
+        return ret_value;
+    if ((types[15] = (hid_t_f)H5Tcopy(H5T_NATIVE_B16)) < 0)
+        return ret_value;
+    if ((types[16] = (hid_t_f)H5Tcopy(H5T_NATIVE_B32)) < 0)
+        return ret_value;
+    if ((types[17] = (hid_t_f)H5Tcopy(H5T_NATIVE_B64)) < 0)
+        return ret_value;
 
     /*
      * FIND H5T_NATIVE_FLOAT_128
      */
-    if ((types[18] = H5Tcopy (H5T_NATIVE_FLOAT)) < 0) return ret_value;
-    if ( H5Tset_precision (types[18], 128) < 0) return ret_value;
+    if ((types[18] = H5Tcopy(H5T_NATIVE_FLOAT)) < 0)
+        return ret_value;
+    if (H5Tset_precision(types[18], 128) < 0)
+        return ret_value;
 
     /*--------------------------------------------------------------------------------------*/
 
-    if ((floatingtypes[0] = (hid_t_f)H5Tcopy(H5T_IEEE_F32BE)) < 0) return ret_value;
-    if ((floatingtypes[1] = (hid_t_f)H5Tcopy(H5T_IEEE_F32LE)) < 0) return ret_value;
-    if ((floatingtypes[2] = (hid_t_f)H5Tcopy(H5T_IEEE_F64BE)) < 0) return ret_value;
-    if ((floatingtypes[3] = (hid_t_f)H5Tcopy(H5T_IEEE_F64LE)) < 0) return ret_value;
-
-    if ((integertypes[0] = (hid_t_f)H5Tcopy(H5T_STD_I8BE)) < 0) return ret_value;
-    if ((integertypes[1] = (hid_t_f)H5Tcopy(H5T_STD_I8LE)) < 0) return ret_value;
-    if ((integertypes[2] = (hid_t_f)H5Tcopy(H5T_STD_I16BE)) < 0) return ret_value;
-    if ((integertypes[3] = (hid_t_f)H5Tcopy(H5T_STD_I16LE)) < 0) return ret_value;
-    if ((integertypes[4] = (hid_t_f)H5Tcopy(H5T_STD_I32BE)) < 0) return ret_value;
-    if ((integertypes[5] = (hid_t_f)H5Tcopy(H5T_STD_I32LE)) < 0) return ret_value;
-    if ((integertypes[6] = (hid_t_f)H5Tcopy(H5T_STD_I64BE)) < 0) return ret_value;
-    if ((integertypes[7] = (hid_t_f)H5Tcopy(H5T_STD_I64LE)) < 0) return ret_value;
-    if ((integertypes[8] = (hid_t_f)H5Tcopy(H5T_STD_U8BE)) < 0) return ret_value;
-    if ((integertypes[9] = (hid_t_f)H5Tcopy(H5T_STD_U8LE)) < 0) return ret_value;
-    if ((integertypes[10] = (hid_t_f)H5Tcopy(H5T_STD_U16BE)) < 0) return ret_value;
-    if ((integertypes[11] = (hid_t_f)H5Tcopy(H5T_STD_U16LE)) < 0) return ret_value;
-    if ((integertypes[12] = (hid_t_f)H5Tcopy(H5T_STD_U32BE)) < 0) return ret_value;
-    if ((integertypes[13] = (hid_t_f)H5Tcopy(H5T_STD_U32LE)) < 0) return ret_value;
-    if ((integertypes[14] = (hid_t_f)H5Tcopy(H5T_STD_U64BE)) < 0) return ret_value;
-    if ((integertypes[15] = (hid_t_f)H5Tcopy(H5T_STD_U64LE)) < 0) return ret_value;
-    if ((integertypes[17] = (hid_t_f)H5Tcopy(H5T_STD_B8BE)) < 0) return ret_value;
-    if ((integertypes[18] = (hid_t_f)H5Tcopy(H5T_STD_B8LE)) < 0) return ret_value;
-    if ((integertypes[19] = (hid_t_f)H5Tcopy(H5T_STD_B16BE)) < 0) return ret_value;
-    if ((integertypes[20] = (hid_t_f)H5Tcopy(H5T_STD_B16LE)) < 0) return ret_value;
-    if ((integertypes[21] = (hid_t_f)H5Tcopy(H5T_STD_B32BE)) < 0) return ret_value;
-    if ((integertypes[22] = (hid_t_f)H5Tcopy(H5T_STD_B32LE)) < 0) return ret_value;
-    if ((integertypes[23] = (hid_t_f)H5Tcopy(H5T_STD_B64BE)) < 0) return ret_value;
-    if ((integertypes[24] = (hid_t_f)H5Tcopy(H5T_STD_B64LE)) < 0) return ret_value;
-    if ((integertypes[25] = (hid_t_f)H5Tcopy(H5T_FORTRAN_S1)) < 0) return ret_value;
-    if ((integertypes[26] = (hid_t_f)H5Tcopy(H5T_C_S1)) < 0) return ret_value;
-
-/*
- *  Define Fortran H5T_STRING type to store non-fixed size strings
- */
-    if ((c_type_id = H5Tcopy(H5T_C_S1)) < 0) return ret_value;
-    if(H5Tset_size(c_type_id, H5T_VARIABLE) < 0) return ret_value;
+    if ((floatingtypes[0] = (hid_t_f)H5Tcopy(H5T_IEEE_F32BE)) < 0)
+        return ret_value;
+    if ((floatingtypes[1] = (hid_t_f)H5Tcopy(H5T_IEEE_F32LE)) < 0)
+        return ret_value;
+    if ((floatingtypes[2] = (hid_t_f)H5Tcopy(H5T_IEEE_F64BE)) < 0)
+        return ret_value;
+    if ((floatingtypes[3] = (hid_t_f)H5Tcopy(H5T_IEEE_F64LE)) < 0)
+        return ret_value;
+
+    if ((integertypes[0] = (hid_t_f)H5Tcopy(H5T_STD_I8BE)) < 0)
+        return ret_value;
+    if ((integertypes[1] = (hid_t_f)H5Tcopy(H5T_STD_I8LE)) < 0)
+        return ret_value;
+    if ((integertypes[2] = (hid_t_f)H5Tcopy(H5T_STD_I16BE)) < 0)
+        return ret_value;
+    if ((integertypes[3] = (hid_t_f)H5Tcopy(H5T_STD_I16LE)) < 0)
+        return ret_value;
+    if ((integertypes[4] = (hid_t_f)H5Tcopy(H5T_STD_I32BE)) < 0)
+        return ret_value;
+    if ((integertypes[5] = (hid_t_f)H5Tcopy(H5T_STD_I32LE)) < 0)
+        return ret_value;
+    if ((integertypes[6] = (hid_t_f)H5Tcopy(H5T_STD_I64BE)) < 0)
+        return ret_value;
+    if ((integertypes[7] = (hid_t_f)H5Tcopy(H5T_STD_I64LE)) < 0)
+        return ret_value;
+    if ((integertypes[8] = (hid_t_f)H5Tcopy(H5T_STD_U8BE)) < 0)
+        return ret_value;
+    if ((integertypes[9] = (hid_t_f)H5Tcopy(H5T_STD_U8LE)) < 0)
+        return ret_value;
+    if ((integertypes[10] = (hid_t_f)H5Tcopy(H5T_STD_U16BE)) < 0)
+        return ret_value;
+    if ((integertypes[11] = (hid_t_f)H5Tcopy(H5T_STD_U16LE)) < 0)
+        return ret_value;
+    if ((integertypes[12] = (hid_t_f)H5Tcopy(H5T_STD_U32BE)) < 0)
+        return ret_value;
+    if ((integertypes[13] = (hid_t_f)H5Tcopy(H5T_STD_U32LE)) < 0)
+        return ret_value;
+    if ((integertypes[14] = (hid_t_f)H5Tcopy(H5T_STD_U64BE)) < 0)
+        return ret_value;
+    if ((integertypes[15] = (hid_t_f)H5Tcopy(H5T_STD_U64LE)) < 0)
+        return ret_value;
+    if ((integertypes[17] = (hid_t_f)H5Tcopy(H5T_STD_B8BE)) < 0)
+        return ret_value;
+    if ((integertypes[18] = (hid_t_f)H5Tcopy(H5T_STD_B8LE)) < 0)
+        return ret_value;
+    if ((integertypes[19] = (hid_t_f)H5Tcopy(H5T_STD_B16BE)) < 0)
+        return ret_value;
+    if ((integertypes[20] = (hid_t_f)H5Tcopy(H5T_STD_B16LE)) < 0)
+        return ret_value;
+    if ((integertypes[21] = (hid_t_f)H5Tcopy(H5T_STD_B32BE)) < 0)
+        return ret_value;
+    if ((integertypes[22] = (hid_t_f)H5Tcopy(H5T_STD_B32LE)) < 0)
+        return ret_value;
+    if ((integertypes[23] = (hid_t_f)H5Tcopy(H5T_STD_B64BE)) < 0)
+        return ret_value;
+    if ((integertypes[24] = (hid_t_f)H5Tcopy(H5T_STD_B64LE)) < 0)
+        return ret_value;
+    if ((integertypes[25] = (hid_t_f)H5Tcopy(H5T_FORTRAN_S1)) < 0)
+        return ret_value;
+    if ((integertypes[26] = (hid_t_f)H5Tcopy(H5T_C_S1)) < 0)
+        return ret_value;
+
+    /*
+     *  Define Fortran H5T_STRING type to store non-fixed size strings
+     */
+    if ((c_type_id = H5Tcopy(H5T_C_S1)) < 0)
+        return ret_value;
+    if (H5Tset_size(c_type_id, H5T_VARIABLE) < 0)
+        return ret_value;
     integertypes[16] = c_type_id;
 
     ret_value = 0;
@@ -287,26 +358,28 @@ h5init_types_c( hid_t_f * types, hid_t_f * floatingtypes, hid_t_f * integertypes
  * SOURCE
  */
 int_f
-h5close_types_c( hid_t_f * types, int_f *lentypes,
-                  hid_t_f * floatingtypes, int_f* floatinglen,
-                  hid_t_f * integertypes,  int_f * integerlen )
+h5close_types_c(hid_t_f *types, int_f *lentypes, hid_t_f *floatingtypes, int_f *floatinglen,
+                hid_t_f *integertypes, int_f *integerlen)
 /******/
 {
-    int ret_value = -1;
+    int   ret_value = -1;
     hid_t c_type_id;
-    int i;
+    int   i;
 
     for (i = 0; i < *lentypes; i++) {
-      c_type_id = types[i];
-      if ( H5Tclose(c_type_id) < 0) return ret_value;
+        c_type_id = types[i];
+        if (H5Tclose(c_type_id) < 0)
+            return ret_value;
     }
     for (i = 0; i < *floatinglen; i++) {
-      c_type_id = floatingtypes[i];
-      if ( H5Tclose(c_type_id) < 0) return ret_value;
+        c_type_id = floatingtypes[i];
+        if (H5Tclose(c_type_id) < 0)
+            return ret_value;
     }
     for (i = 0; i < *integerlen; i++) {
-      c_type_id = integertypes[i];
-      if ( H5Tclose(c_type_id) < 0) return ret_value;
+        c_type_id = integertypes[i];
+        if (H5Tclose(c_type_id) < 0)
+            return ret_value;
     }
     ret_value = 0;
     return ret_value;
@@ -359,32 +432,29 @@ h5close_types_c( hid_t_f * types, int_f *lentypes,
  * SOURCE
  */
 int_f
-h5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
-		int_f *h5e_flags, hid_t_f *h5e_hid_flags, int_f *h5f_flags,
-                int_f *h5fd_flags, hid_t_f *h5fd_hid_flags,
-                int_f *h5g_flags, int_f *h5i_flags, int_f *h5l_flags, int_f *h5o_flags,
-                hid_t_f *h5p_flags, int_f *h5p_flags_int, int_f *h5r_flags,
-                int_f *h5s_flags, hid_t_f *h5s_hid_flags, hsize_t_f *h5s_hsize_flags,
-		int_f *h5t_flags, int_f *h5z_flags, int_f *h5_generic_flags,
-                haddr_t_f *h5_haddr_generic_flags)
+h5init_flags_c(int_f *h5d_flags, size_t_f *h5d_size_flags, int_f *h5e_flags, hid_t_f *h5e_hid_flags,
+               int_f *h5f_flags, int_f *h5fd_flags, hid_t_f *h5fd_hid_flags, int_f *h5g_flags,
+               int_f *h5i_flags, int_f *h5l_flags, int_f *h5o_flags, hid_t_f *h5p_flags, int_f *h5p_flags_int,
+               int_f *h5r_flags, int_f *h5s_flags, hid_t_f *h5s_hid_flags, hsize_t_f *h5s_hsize_flags,
+               int_f *h5t_flags, int_f *h5z_flags, int_f *h5_generic_flags, haddr_t_f *h5_haddr_generic_flags)
 /******/
 {
-/*
- *  H5D flags
- */
+    /*
+     *  H5D flags
+     */
     h5d_size_flags[0] = (size_t_f)H5D_CHUNK_CACHE_NSLOTS_DEFAULT;
     h5d_size_flags[1] = (size_t_f)H5D_CHUNK_CACHE_NBYTES_DEFAULT;
 
-    h5d_flags[0] = (int_f)H5D_COMPACT;
-    h5d_flags[1] = (int_f)H5D_CONTIGUOUS;
-    h5d_flags[2] = (int_f)H5D_CHUNKED;
-    h5d_flags[3] = (int_f)H5D_ALLOC_TIME_ERROR;
-    h5d_flags[4] = (int_f)H5D_ALLOC_TIME_DEFAULT;
-    h5d_flags[5] = (int_f)H5D_ALLOC_TIME_EARLY;
-    h5d_flags[6] = (int_f)H5D_ALLOC_TIME_LATE;
-    h5d_flags[7] = (int_f)H5D_ALLOC_TIME_INCR;
-    h5d_flags[8] = (int_f)H5D_SPACE_STATUS_ERROR;
-    h5d_flags[9] = (int_f)H5D_SPACE_STATUS_NOT_ALLOCATED;
+    h5d_flags[0]  = (int_f)H5D_COMPACT;
+    h5d_flags[1]  = (int_f)H5D_CONTIGUOUS;
+    h5d_flags[2]  = (int_f)H5D_CHUNKED;
+    h5d_flags[3]  = (int_f)H5D_ALLOC_TIME_ERROR;
+    h5d_flags[4]  = (int_f)H5D_ALLOC_TIME_DEFAULT;
+    h5d_flags[5]  = (int_f)H5D_ALLOC_TIME_EARLY;
+    h5d_flags[6]  = (int_f)H5D_ALLOC_TIME_LATE;
+    h5d_flags[7]  = (int_f)H5D_ALLOC_TIME_INCR;
+    h5d_flags[8]  = (int_f)H5D_SPACE_STATUS_ERROR;
+    h5d_flags[9]  = (int_f)H5D_SPACE_STATUS_NOT_ALLOCATED;
     h5d_flags[10] = (int_f)H5D_SPACE_STATUS_PART_ALLOCATED;
     h5d_flags[11] = (int_f)H5D_SPACE_STATUS_ALLOCATED;
     h5d_flags[12] = (int_f)H5D_FILL_TIME_ERROR;
@@ -405,9 +475,9 @@ h5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5d_flags[27] = (int_f)H5D_VDS_LAST_AVAILABLE;
     h5d_flags[28] = (int_f)H5D_VIRTUAL;
 
-/*
- *  H5E flags
- */
+    /*
+     *  H5E flags
+     */
     h5e_hid_flags[0] = (hid_t_f)H5E_DEFAULT;
 
     h5e_flags[0] = (int_f)H5E_MAJOR;
@@ -415,12 +485,12 @@ h5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5e_flags[2] = (int_f)H5E_WALK_UPWARD;
     h5e_flags[3] = (int_f)H5E_WALK_DOWNWARD;
 
-/*
- *  H5F flags
- *
- *  Note that H5F_ACC_DEBUG is deprecated (nonfunctional) but retained
- *  for backward compatibility since it's in the public API.
- */
+    /*
+     *  H5F flags
+     *
+     *  Note that H5F_ACC_DEBUG is deprecated (nonfunctional) but retained
+     *  for backward compatibility since it's in the public API.
+     */
     h5f_flags[0] = (int_f)H5F_ACC_RDWR;
     h5f_flags[1] = (int_f)H5F_ACC_RDONLY;
     h5f_flags[2] = (int_f)H5F_ACC_TRUNC;
@@ -428,11 +498,11 @@ h5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
 #ifndef H5_NO_DEPRECATED_SYMBOLS
     h5f_flags[4] = (int_f)H5F_ACC_DEBUG;
 #endif /* H5_NO_DEPRECATED_SYMBOLS */
-    h5f_flags[5] = (int_f)H5F_SCOPE_LOCAL;
-    h5f_flags[6] = (int_f)H5F_SCOPE_GLOBAL;
-    h5f_flags[7] = (int_f)H5F_CLOSE_DEFAULT;
-    h5f_flags[8] = (int_f)H5F_CLOSE_WEAK;
-    h5f_flags[9] = (int_f)H5F_CLOSE_SEMI;
+    h5f_flags[5]  = (int_f)H5F_SCOPE_LOCAL;
+    h5f_flags[6]  = (int_f)H5F_SCOPE_GLOBAL;
+    h5f_flags[7]  = (int_f)H5F_CLOSE_DEFAULT;
+    h5f_flags[8]  = (int_f)H5F_CLOSE_WEAK;
+    h5f_flags[9]  = (int_f)H5F_CLOSE_SEMI;
     h5f_flags[10] = (int_f)H5F_CLOSE_STRONG;
     h5f_flags[11] = (int_f)H5F_OBJ_FILE;
     h5f_flags[12] = (int_f)H5F_OBJ_DATASET;
@@ -449,24 +519,24 @@ h5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5f_flags[23] = (int_f)H5F_LIBVER_V112;
     h5f_flags[24] = (int_f)H5F_LIBVER_V114;
 
-/*
- *  H5FD flags
- */
-    h5fd_flags[0] = (int_f)H5FD_MPIO_INDEPENDENT;
-    h5fd_flags[1] = (int_f)H5FD_MPIO_COLLECTIVE;
-    h5fd_flags[2] = (int_f)H5FD_MEM_NOLIST;
-    h5fd_flags[3] = (int_f)H5FD_MEM_DEFAULT;
-    h5fd_flags[4] = (int_f)H5FD_MEM_SUPER;
-    h5fd_flags[5] = (int_f)H5FD_MEM_BTREE;
-    h5fd_flags[6] = (int_f)H5FD_MEM_DRAW;
-    h5fd_flags[7] = (int_f)H5FD_MEM_GHEAP;
-    h5fd_flags[8] = (int_f)H5FD_MEM_LHEAP;
-    h5fd_flags[9] = (int_f)H5FD_MEM_OHDR;
+    /*
+     *  H5FD flags
+     */
+    h5fd_flags[0]  = (int_f)H5FD_MPIO_INDEPENDENT;
+    h5fd_flags[1]  = (int_f)H5FD_MPIO_COLLECTIVE;
+    h5fd_flags[2]  = (int_f)H5FD_MEM_NOLIST;
+    h5fd_flags[3]  = (int_f)H5FD_MEM_DEFAULT;
+    h5fd_flags[4]  = (int_f)H5FD_MEM_SUPER;
+    h5fd_flags[5]  = (int_f)H5FD_MEM_BTREE;
+    h5fd_flags[6]  = (int_f)H5FD_MEM_DRAW;
+    h5fd_flags[7]  = (int_f)H5FD_MEM_GHEAP;
+    h5fd_flags[8]  = (int_f)H5FD_MEM_LHEAP;
+    h5fd_flags[9]  = (int_f)H5FD_MEM_OHDR;
     h5fd_flags[10] = (int_f)H5FD_MEM_NTYPES;
 
-/*
- *  H5FD flags of type hid_t
- */
+    /*
+     *  H5FD flags of type hid_t
+     */
     h5fd_hid_flags[0] = (hid_t_f)H5FD_CORE;
     h5fd_hid_flags[1] = (hid_t_f)H5FD_FAMILY;
     h5fd_hid_flags[2] = (hid_t_f)H5FD_LOG;
@@ -475,36 +545,36 @@ h5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5fd_hid_flags[5] = (hid_t_f)H5FD_SEC2;
     h5fd_hid_flags[6] = (hid_t_f)H5FD_STDIO;
 
-/*
- *  H5G flags
- */
-    h5g_flags[0] = (int_f)H5O_TYPE_UNKNOWN; /* H5G_UNKNOWN is deprecated */
-    h5g_flags[1] = (int_f)H5O_TYPE_GROUP; /* H5G_GROUP is deprecated  */
-    h5g_flags[2] = (int_f)H5O_TYPE_DATASET; /* H5G_DATASET is deprecated  */
+    /*
+     *  H5G flags
+     */
+    h5g_flags[0] = (int_f)H5O_TYPE_UNKNOWN;        /* H5G_UNKNOWN is deprecated */
+    h5g_flags[1] = (int_f)H5O_TYPE_GROUP;          /* H5G_GROUP is deprecated  */
+    h5g_flags[2] = (int_f)H5O_TYPE_DATASET;        /* H5G_DATASET is deprecated  */
     h5g_flags[3] = (int_f)H5O_TYPE_NAMED_DATATYPE; /* H5G_TYPE is deprecated  */
     h5g_flags[4] = (int_f)H5L_SAME_LOC;
     h5g_flags[5] = (int_f)H5L_TYPE_ERROR;
     h5g_flags[6] = (int_f)H5L_TYPE_HARD;
     h5g_flags[7] = (int_f)H5L_TYPE_SOFT;
 
-    h5g_flags[8] = (int_f)H5G_STORAGE_TYPE_UNKNOWN;
-    h5g_flags[9] = (int_f)H5G_STORAGE_TYPE_SYMBOL_TABLE;
+    h5g_flags[8]  = (int_f)H5G_STORAGE_TYPE_UNKNOWN;
+    h5g_flags[9]  = (int_f)H5G_STORAGE_TYPE_SYMBOL_TABLE;
     h5g_flags[10] = (int_f)H5G_STORAGE_TYPE_COMPACT;
     h5g_flags[11] = (int_f)H5G_STORAGE_TYPE_DENSE;
 
-/*
- *  H5I flags
- */
-    h5i_flags[0] = (int_f)H5I_FILE;
-    h5i_flags[1] = (int_f)H5I_GROUP;
-    h5i_flags[2] = (int_f)H5I_DATATYPE;
-    h5i_flags[3] = (int_f)H5I_DATASPACE;
-    h5i_flags[4] = (int_f)H5I_DATASET;
-    h5i_flags[5] = (int_f)H5I_ATTR;
-    h5i_flags[6] = (int_f)H5I_BADID;
-    h5i_flags[7] = (int_f)H5I_UNINIT;
-    h5i_flags[8] = (int_f)H5I_VFL;
-    h5i_flags[9] = (int_f)H5I_VOL;
+    /*
+     *  H5I flags
+     */
+    h5i_flags[0]  = (int_f)H5I_FILE;
+    h5i_flags[1]  = (int_f)H5I_GROUP;
+    h5i_flags[2]  = (int_f)H5I_DATATYPE;
+    h5i_flags[3]  = (int_f)H5I_DATASPACE;
+    h5i_flags[4]  = (int_f)H5I_DATASET;
+    h5i_flags[5]  = (int_f)H5I_ATTR;
+    h5i_flags[6]  = (int_f)H5I_BADID;
+    h5i_flags[7]  = (int_f)H5I_UNINIT;
+    h5i_flags[8]  = (int_f)H5I_VFL;
+    h5i_flags[9]  = (int_f)H5I_VOL;
     h5i_flags[10] = (int_f)H5I_GENPROP_CLS;
     h5i_flags[11] = (int_f)H5I_GENPROP_LST;
     h5i_flags[12] = (int_f)H5I_ERROR_CLASS;
@@ -512,94 +582,97 @@ h5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5i_flags[14] = (int_f)H5I_ERROR_STACK;
     h5i_flags[15] = (int_f)H5I_NTYPES;
     h5i_flags[16] = (int_f)H5I_INVALID_HID;
-/*
- *  H5L flags
- */
+    /*
+     *  H5L flags
+     */
     h5l_flags[0] = (int_f)H5L_TYPE_ERROR;
     h5l_flags[1] = (int_f)H5L_TYPE_HARD;
     h5l_flags[2] = (int_f)H5L_TYPE_SOFT;
     h5l_flags[3] = (int_f)H5L_TYPE_EXTERNAL;
-    h5l_flags[4] = (int_f)H5L_SAME_LOC; /* Macro to indicate operation occurs on same location */
+    h5l_flags[4] = (int_f)H5L_SAME_LOC;          /* Macro to indicate operation occurs on same location */
     h5l_flags[5] = (int_f)H5L_LINK_CLASS_T_VERS; /* Current version of the H5L_class_t struct */
 
-/*
- *  H5O flags
- */
+    /*
+     *  H5O flags
+     */
 
-/* Flags for object copy (H5Ocopy) */
+    /* Flags for object copy (H5Ocopy) */
     h5o_flags[0] = (int_f)H5O_COPY_SHALLOW_HIERARCHY_FLAG; /* Copy only immediate members */
-    h5o_flags[1] = (int_f)H5O_COPY_EXPAND_SOFT_LINK_FLAG; /* Expand soft links into new objects */
-    h5o_flags[2] = (int_f)H5O_COPY_EXPAND_EXT_LINK_FLAG; /* Expand external links into new objects */
-    h5o_flags[3] = (int_f)H5O_COPY_EXPAND_REFERENCE_FLAG; /* Copy objects that are pointed by references */
-    h5o_flags[4] = (int_f)H5O_COPY_WITHOUT_ATTR_FLAG; /* Copy object without copying attributes */
-    h5o_flags[5] = (int_f)H5O_COPY_PRESERVE_NULL_FLAG; /* Copy NULL messages (empty space) */
+    h5o_flags[1] = (int_f)H5O_COPY_EXPAND_SOFT_LINK_FLAG;  /* Expand soft links into new objects */
+    h5o_flags[2] = (int_f)H5O_COPY_EXPAND_EXT_LINK_FLAG;   /* Expand external links into new objects */
+    h5o_flags[3] = (int_f)H5O_COPY_EXPAND_REFERENCE_FLAG;  /* Copy objects that are pointed by references */
+    h5o_flags[4] = (int_f)H5O_COPY_WITHOUT_ATTR_FLAG;      /* Copy object without copying attributes */
+    h5o_flags[5] = (int_f)H5O_COPY_PRESERVE_NULL_FLAG;     /* Copy NULL messages (empty space) */
     h5o_flags[6] = (int_f)H5O_COPY_ALL; /* All object copying flags (for internal checking) */
 
-/* Flags for shared message indexes.
- *  Pass these flags in using the mesg_type_flags parameter in
- * H5P_set_shared_mesg_index.
- * (Developers: These flags correspond to object header message type IDs,
- *  but we need to assign each kind of message to a different bit so that
- *  one index can hold multiple types.)
- */
-    h5o_flags[7] = (int_f)H5O_SHMESG_NONE_FLAG;  /* No shared messages */
-    h5o_flags[8] = (int_f)H5O_SHMESG_SDSPACE_FLAG; /* Simple Dataspace Message.  */
-    h5o_flags[9] = (int_f)H5O_SHMESG_DTYPE_FLAG; /* Datatype Message.  */
-    h5o_flags[10] = (int_f)H5O_SHMESG_FILL_FLAG; /* Fill Value Message. */
-    h5o_flags[11] = (int_f)H5O_SHMESG_PLINE_FLAG; /* Filter pipeline message.  */
-    h5o_flags[12] = (int_f)H5O_SHMESG_ATTR_FLAG; /* Attribute Message.  */
+    /* Flags for shared message indexes.
+     *  Pass these flags in using the mesg_type_flags parameter in
+     * H5P_set_shared_mesg_index.
+     * (Developers: These flags correspond to object header message type IDs,
+     *  but we need to assign each kind of message to a different bit so that
+     *  one index can hold multiple types.)
+     */
+    h5o_flags[7]  = (int_f)H5O_SHMESG_NONE_FLAG;    /* No shared messages */
+    h5o_flags[8]  = (int_f)H5O_SHMESG_SDSPACE_FLAG; /* Simple Dataspace Message.  */
+    h5o_flags[9]  = (int_f)H5O_SHMESG_DTYPE_FLAG;   /* Datatype Message.  */
+    h5o_flags[10] = (int_f)H5O_SHMESG_FILL_FLAG;    /* Fill Value Message. */
+    h5o_flags[11] = (int_f)H5O_SHMESG_PLINE_FLAG;   /* Filter pipeline message.  */
+    h5o_flags[12] = (int_f)H5O_SHMESG_ATTR_FLAG;    /* Attribute Message.  */
     h5o_flags[13] = (int_f)H5O_SHMESG_ALL_FLAG;
 
-/* Object header status flag definitions */
-    h5o_flags[14] = (int_f)H5O_HDR_CHUNK0_SIZE; /* 2-bit field indicating # of bytes to store the size of chunk 0's data */
+    /* Object header status flag definitions */
+    h5o_flags[14] = (int_f)
+        H5O_HDR_CHUNK0_SIZE; /* 2-bit field indicating # of bytes to store the size of chunk 0's data */
     h5o_flags[15] = (int_f)H5O_HDR_ATTR_CRT_ORDER_TRACKED; /* Attribute creation order is tracked */
     h5o_flags[16] = (int_f)H5O_HDR_ATTR_CRT_ORDER_INDEXED; /* Attribute creation order has index */
-    h5o_flags[17] = (int_f)H5O_HDR_ATTR_STORE_PHASE_CHANGE; /* Non-default attribute storage phase change values stored */
-    h5o_flags[18] = (int_f)H5O_HDR_STORE_TIMES; /* Store access, modification, change & birth times for object */
+    h5o_flags[17] =
+        (int_f)H5O_HDR_ATTR_STORE_PHASE_CHANGE; /* Non-default attribute storage phase change values stored */
+    h5o_flags[18] =
+        (int_f)H5O_HDR_STORE_TIMES; /* Store access, modification, change & birth times for object */
     h5o_flags[19] = (int_f)H5O_HDR_ALL_FLAGS;
 
-/* Maximum shared message values.  Number of indexes is 8 to allow room to add
- *  new types of messages.
- */
+    /* Maximum shared message values.  Number of indexes is 8 to allow room to add
+     *  new types of messages.
+     */
     h5o_flags[20] = (int_f)H5O_SHMESG_MAX_NINDEXES;
     h5o_flags[21] = (int_f)H5O_SHMESG_MAX_LIST_SIZE;
 
-/* Types of objects in file */
-    h5o_flags[22] = (int_f)H5O_TYPE_UNKNOWN;	      /* Unknown object type */
+    /* Types of objects in file */
+    h5o_flags[22] = (int_f)H5O_TYPE_UNKNOWN;        /* Unknown object type */
     h5o_flags[23] = (int_f)H5O_TYPE_GROUP;          /* Object is a group */
     h5o_flags[24] = (int_f)H5O_TYPE_DATASET;        /* Object is a dataset */
     h5o_flags[25] = (int_f)H5O_TYPE_NAMED_DATATYPE; /* Object is a named data type */
     h5o_flags[26] = (int_f)H5O_TYPE_NTYPES;         /* Number of different object types */
 
-/* Flags for H5Oget_info.
- * These flags determine which fields will be filled in in the H5O_info_t
- * struct.
- */
-    h5o_flags[27] = (int_f)H5O_INFO_ALL;      /* (H5O_INFO_BASIC|H5O_INFO_TIME|H5O_INFO_NUM_ATTRS) */
-    h5o_flags[28] = (int_f)H5O_INFO_BASIC;    /* Fill in the fileno, addr, type, and rc fields */
-    h5o_flags[29] = (int_f)H5O_INFO_TIME;     /* Fill in the atime, mtime, ctime, and btime fields */
+    /* Flags for H5Oget_info.
+     * These flags determine which fields will be filled in in the H5O_info_t
+     * struct.
+     */
+    h5o_flags[27] = (int_f)H5O_INFO_ALL;       /* (H5O_INFO_BASIC|H5O_INFO_TIME|H5O_INFO_NUM_ATTRS) */
+    h5o_flags[28] = (int_f)H5O_INFO_BASIC;     /* Fill in the fileno, addr, type, and rc fields */
+    h5o_flags[29] = (int_f)H5O_INFO_TIME;      /* Fill in the atime, mtime, ctime, and btime fields */
     h5o_flags[30] = (int_f)H5O_INFO_NUM_ATTRS; /* Fill in the num_attrs field */
 
-/* Flags for H5Oget_native_info.
- * These flags determine which fields will be filled in in the H5O_native_info_t
- * struct.
- */
+    /* Flags for H5Oget_native_info.
+     * These flags determine which fields will be filled in in the H5O_native_info_t
+     * struct.
+     */
     h5o_flags[31] = (int_f)H5O_NATIVE_INFO_ALL;       /* (H5O_NATIVE_INFO_HDR|H5O_NATIVE_INFO_META_SIZE) */
     h5o_flags[32] = (int_f)H5O_NATIVE_INFO_HDR;       /* Fill in the hdr field */
     h5o_flags[33] = (int_f)H5O_NATIVE_INFO_META_SIZE; /* Fill in the meta_size field */
-/*
- *  H5P flags
- */
-    h5p_flags[0] = (hid_t_f)H5P_FILE_CREATE;
-    h5p_flags[1] = (hid_t_f)H5P_FILE_ACCESS;
-    h5p_flags[2] = (hid_t_f)H5P_DATASET_CREATE;
-    h5p_flags[3] = (hid_t_f)H5P_DATASET_XFER;
-    h5p_flags[4] = (hid_t_f)H5P_FILE_MOUNT;
-    h5p_flags[5] = (hid_t_f)H5P_DEFAULT;
-    h5p_flags[6] = (hid_t_f)H5P_ROOT;
-    h5p_flags[7] = (hid_t_f)H5P_OBJECT_CREATE;
-    h5p_flags[8] = (hid_t_f)H5P_DATASET_ACCESS;
-    h5p_flags[9] = (hid_t_f)H5P_GROUP_CREATE;
+                                                      /*
+                                                       *  H5P flags
+                                                       */
+    h5p_flags[0]  = (hid_t_f)H5P_FILE_CREATE;
+    h5p_flags[1]  = (hid_t_f)H5P_FILE_ACCESS;
+    h5p_flags[2]  = (hid_t_f)H5P_DATASET_CREATE;
+    h5p_flags[3]  = (hid_t_f)H5P_DATASET_XFER;
+    h5p_flags[4]  = (hid_t_f)H5P_FILE_MOUNT;
+    h5p_flags[5]  = (hid_t_f)H5P_DEFAULT;
+    h5p_flags[6]  = (hid_t_f)H5P_ROOT;
+    h5p_flags[7]  = (hid_t_f)H5P_OBJECT_CREATE;
+    h5p_flags[8]  = (hid_t_f)H5P_DATASET_ACCESS;
+    h5p_flags[9]  = (hid_t_f)H5P_GROUP_CREATE;
     h5p_flags[10] = (hid_t_f)H5P_GROUP_ACCESS;
     h5p_flags[11] = (hid_t_f)H5P_DATATYPE_CREATE;
     h5p_flags[12] = (hid_t_f)H5P_DATATYPE_ACCESS;
@@ -609,22 +682,21 @@ h5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5p_flags[16] = (hid_t_f)H5P_LINK_CREATE;
     h5p_flags[17] = (hid_t_f)H5P_LINK_ACCESS;
 
-
-/*
- *  H5P integer flags
- */
+    /*
+     *  H5P integer flags
+     */
     h5p_flags_int[0] = (int_f)H5P_CRT_ORDER_INDEXED;
     h5p_flags_int[1] = (int_f)H5P_CRT_ORDER_TRACKED;
 
-/*
- *  H5R flags
- */
+    /*
+     *  H5R flags
+     */
     h5r_flags[0] = (int_f)H5R_OBJECT;
     h5r_flags[1] = (int_f)H5R_DATASET_REGION;
 
-/*
- *  H5S flags
- */
+    /*
+     *  H5S flags
+     */
     h5s_hid_flags[0] = (hid_t_f)H5S_ALL;
 
     h5s_hsize_flags[0] = (hsize_t_f)H5S_UNLIMITED;
@@ -651,19 +723,19 @@ h5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5s_flags[16] = (int_f)H5S_SEL_HYPERSLABS;
     h5s_flags[17] = (int_f)H5S_SEL_ALL;
 
-/*
- *  H5T flags
- */
-    h5t_flags[0] = (int_f)H5T_NO_CLASS;
-    h5t_flags[1] = (int_f)H5T_INTEGER;
-    h5t_flags[2] = (int_f)H5T_FLOAT;
-    h5t_flags[3] = (int_f)H5T_TIME;
-    h5t_flags[4] = (int_f)H5T_STRING;
-    h5t_flags[5] = (int_f)H5T_BITFIELD;
-    h5t_flags[6] = (int_f)H5T_OPAQUE;
-    h5t_flags[7] = (int_f)H5T_COMPOUND;
-    h5t_flags[8] = (int_f)H5T_REFERENCE;
-    h5t_flags[9] = (int_f)H5T_ENUM;
+    /*
+     *  H5T flags
+     */
+    h5t_flags[0]  = (int_f)H5T_NO_CLASS;
+    h5t_flags[1]  = (int_f)H5T_INTEGER;
+    h5t_flags[2]  = (int_f)H5T_FLOAT;
+    h5t_flags[3]  = (int_f)H5T_TIME;
+    h5t_flags[4]  = (int_f)H5T_STRING;
+    h5t_flags[5]  = (int_f)H5T_BITFIELD;
+    h5t_flags[6]  = (int_f)H5T_OPAQUE;
+    h5t_flags[7]  = (int_f)H5T_COMPOUND;
+    h5t_flags[8]  = (int_f)H5T_REFERENCE;
+    h5t_flags[9]  = (int_f)H5T_ENUM;
     h5t_flags[10] = (int_f)H5T_ORDER_LE;
     h5t_flags[11] = (int_f)H5T_ORDER_BE;
     h5t_flags[12] = (int_f)H5T_ORDER_MIXED;
@@ -690,19 +762,19 @@ h5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5t_flags[33] = (int_f)H5T_DIR_ASCEND;
     h5t_flags[34] = (int_f)H5T_DIR_DESCEND;
 
-/*
- *  H5Z flags
- */
-    h5z_flags[0] = (int_f)H5Z_FILTER_ERROR;
-    h5z_flags[1] = (int_f)H5Z_FILTER_NONE;
-    h5z_flags[2] = (int_f)H5Z_FILTER_DEFLATE;
-    h5z_flags[3] = (int_f)H5Z_FILTER_SHUFFLE;
-    h5z_flags[4] = (int_f)H5Z_FILTER_FLETCHER32;
-    h5z_flags[5] = (int_f)H5Z_ERROR_EDC;
-    h5z_flags[6] = (int_f)H5Z_DISABLE_EDC;
-    h5z_flags[7] = (int_f)H5Z_ENABLE_EDC;
-    h5z_flags[8] = (int_f)H5Z_NO_EDC;
-    h5z_flags[9] = (int_f)H5Z_FILTER_SZIP;
+    /*
+     *  H5Z flags
+     */
+    h5z_flags[0]  = (int_f)H5Z_FILTER_ERROR;
+    h5z_flags[1]  = (int_f)H5Z_FILTER_NONE;
+    h5z_flags[2]  = (int_f)H5Z_FILTER_DEFLATE;
+    h5z_flags[3]  = (int_f)H5Z_FILTER_SHUFFLE;
+    h5z_flags[4]  = (int_f)H5Z_FILTER_FLETCHER32;
+    h5z_flags[5]  = (int_f)H5Z_ERROR_EDC;
+    h5z_flags[6]  = (int_f)H5Z_DISABLE_EDC;
+    h5z_flags[7]  = (int_f)H5Z_ENABLE_EDC;
+    h5z_flags[8]  = (int_f)H5Z_NO_EDC;
+    h5z_flags[9]  = (int_f)H5Z_FILTER_SZIP;
     h5z_flags[10] = (int_f)H5Z_FLAG_OPTIONAL;
     h5z_flags[11] = (int_f)H5Z_FILTER_CONFIG_ENCODE_ENABLED;
     h5z_flags[12] = (int_f)H5Z_FILTER_CONFIG_DECODE_ENABLED;
@@ -714,9 +786,9 @@ h5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5z_flags[18] = (int_f)H5Z_SO_INT;
     h5z_flags[19] = (int_f)H5Z_SO_INT_MINBITS_DEFAULT;
 
-/*
- *  H5 Generic flags introduced in version 1.8
- */
+    /*
+     *  H5 Generic flags introduced in version 1.8
+     */
 
     /* H5_index_t enum struct */
 
@@ -725,14 +797,13 @@ h5init_flags_c( int_f *h5d_flags, size_t_f *h5d_size_flags,
     h5_generic_flags[2] = (int_f)H5_INDEX_CRT_ORDER; /* Index on creation order 		*/
     h5_generic_flags[3] = (int_f)H5_INDEX_N;         /* Index on creation order 		*/
 
-
     /* H5_iter_order_t enum struct */
 
-    h5_generic_flags[4] = (int_f)H5_ITER_UNKNOWN;       /* Unknown order */
-    h5_generic_flags[5] = (int_f)H5_ITER_INC;           /* Increasing order */
-    h5_generic_flags[6] = (int_f)H5_ITER_DEC;           /* Decreasing order */
-    h5_generic_flags[7] = (int_f)H5_ITER_NATIVE;        /* No particular order, whatever is fastest */
-    h5_generic_flags[8] = (int_f)H5_ITER_N;		  /* Number of iteration orders */
+    h5_generic_flags[4] = (int_f)H5_ITER_UNKNOWN; /* Unknown order */
+    h5_generic_flags[5] = (int_f)H5_ITER_INC;     /* Increasing order */
+    h5_generic_flags[6] = (int_f)H5_ITER_DEC;     /* Decreasing order */
+    h5_generic_flags[7] = (int_f)H5_ITER_NATIVE;  /* No particular order, whatever is fastest */
+    h5_generic_flags[8] = (int_f)H5_ITER_N;       /* Number of iteration orders */
 
     h5_haddr_generic_flags[0] = (haddr_t_f)HADDR_UNDEF; /* undefined address */
 
@@ -743,12 +814,12 @@ int_f
 h5init1_flags_c(int_f *h5lib_flags)
 /******/
 {
-    int ret_value = -1;
-    unsigned prm_1 = H5_SZIP_EC_OPTION_MASK;
-    unsigned prm_2 = H5_SZIP_NN_OPTION_MASK;
-    h5lib_flags[0] = (int_f)prm_1;
-    h5lib_flags[1] = (int_f)prm_2;
-    ret_value = 0;
+    int      ret_value = -1;
+    unsigned prm_1     = H5_SZIP_EC_OPTION_MASK;
+    unsigned prm_2     = H5_SZIP_NN_OPTION_MASK;
+    h5lib_flags[0]     = (int_f)prm_1;
+    h5lib_flags[1]     = (int_f)prm_2;
+    ret_value          = 0;
     return ret_value;
 }
 
@@ -771,7 +842,8 @@ h5open_c(void)
 {
     int ret_value = -1;
 
-    if (H5open() < 0) return ret_value;
+    if (H5open() < 0)
+        return ret_value;
     ret_value = 0;
     return ret_value;
 }
@@ -792,7 +864,8 @@ h5close_c(void)
 {
     int ret_value = -1;
 
-    if (H5close() < 0) return ret_value;
+    if (H5close() < 0)
+        return ret_value;
     ret_value = 0;
     return ret_value;
 }
@@ -824,14 +897,15 @@ h5get_libversion_c(int_f *majnum, int_f *minnum, int_f *relnum)
 /******/
 {
 
-    int ret_value = -1;
+    int      ret_value = -1;
     unsigned c_majnum, c_minnum, c_relnum;
 
-    if (H5get_libversion(&c_majnum, &c_minnum, &c_relnum) < 0) return ret_value;
+    if (H5get_libversion(&c_majnum, &c_minnum, &c_relnum) < 0)
+        return ret_value;
 
-    *majnum = (int_f)c_majnum;
-    *minnum = (int_f)c_minnum;
-    *relnum = (int_f)c_relnum;
+    *majnum   = (int_f)c_majnum;
+    *minnum   = (int_f)c_minnum;
+    *relnum   = (int_f)c_relnum;
     ret_value = 0;
     return ret_value;
 }
@@ -861,12 +935,12 @@ int_f
 h5check_version_c(int_f *majnum, int_f *minnum, int_f *relnum)
 /******/
 {
-    int ret_value = -1;
+    int      ret_value = -1;
     unsigned c_majnum, c_minnum, c_relnum;
 
-    c_majnum = (unsigned) *majnum;
-    c_minnum = (unsigned) *minnum;
-    c_relnum = (unsigned) *relnum;
+    c_majnum = (unsigned)*majnum;
+    c_minnum = (unsigned)*minnum;
+    c_relnum = (unsigned)*relnum;
 
     H5check_version(c_majnum, c_minnum, c_relnum);
 
@@ -892,7 +966,8 @@ h5garbage_collect_c(void)
 {
     int ret_value = -1;
 
-    if (H5garbage_collect() < 0) return ret_value;
+    if (H5garbage_collect() < 0)
+        return ret_value;
     ret_value = 0;
     return ret_value;
 }
@@ -915,8 +990,8 @@ h5dont_atexit_c(void)
 {
     int ret_value = -1;
 
-    if (H5dont_atexit() < 0) return ret_value;
+    if (H5dont_atexit() < 0)
+        return ret_value;
     ret_value = 0;
     return ret_value;
 }
-