1 files changed, 35 insertions, 33 deletions

diff --git a/fortran/src/H5Zf.c b/fortran/src/H5Zf.c
index 7afafd5..ca9e7eb 100644
--- a/fortran/src/H5Zf.c
+++ b/fortran/src/H5Zf.c
@@ -17,7 +17,7 @@
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *
  ******
-*/
+ */
 
 #include "H5f90.h"
 
@@ -36,23 +36,24 @@
  * HISTORY
  *
  * SOURCE
-*/
+ */
 int_f
-h5zunregister_c (int_f *filter)
+h5zunregister_c(int_f *filter)
 /******/
 {
-     int ret_value = -1;
-     herr_t status;
-     H5Z_filter_t c_filter;
+    int          ret_value = -1;
+    herr_t       status;
+    H5Z_filter_t c_filter;
 
-     /*
-      * Call H5Zunregister function.
-      */
-     c_filter = (H5Z_filter_t)*filter;
-     status = H5Zunregister(c_filter);
-     if (status < 0) return ret_value;
-     ret_value = 0;
-     return ret_value;
+    /*
+     * Call H5Zunregister function.
+     */
+    c_filter = (H5Z_filter_t)*filter;
+    status   = H5Zunregister(c_filter);
+    if (status < 0)
+        return ret_value;
+    ret_value = 0;
+    return ret_value;
 }
 /****if* H5Zf/h5zfiletr_avail_c
  * NAME
@@ -71,21 +72,22 @@ h5zunregister_c (int_f *filter)
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-h5zfilter_avail_c ( int_f *filter , int_f *flag )
+h5zfilter_avail_c(int_f *filter, int_f *flag)
 /******/
 {
-  int ret_value = 0;
-  H5Z_filter_t c_filter;
-  htri_t status;
+    int          ret_value = 0;
+    H5Z_filter_t c_filter;
+    htri_t       status;
 
-  c_filter = (H5Z_filter_t)*filter;
-  status = H5Zfilter_avail(c_filter);
-  *flag = (int_f)status;
-  if ( status < 0  ) ret_value = -1;
-  return ret_value;
+    c_filter = (H5Z_filter_t)*filter;
+    status   = H5Zfilter_avail(c_filter);
+    *flag    = (int_f)status;
+    if (status < 0)
+        ret_value = -1;
+    return ret_value;
 }
 
 /****if* H5Zf/h5zget_filter_info_c
@@ -106,19 +108,19 @@ h5zfilter_avail_c ( int_f *filter , int_f *flag )
  * HISTORY
  *
  * SOURCE
-*/
+ */
 
 int_f
-h5zget_filter_info_c ( int_f *filter , int_f *flag )
+h5zget_filter_info_c(int_f *filter, int_f *flag)
 /******/
 {
-  int ret_value = 0;
-  H5Z_filter_t c_filter;
-  unsigned int c_flag;
+    int          ret_value = 0;
+    H5Z_filter_t c_filter;
+    unsigned int c_flag;
 
-  c_filter = (H5Z_filter_t)*filter;
-  ret_value = H5Zget_filter_info(c_filter, &c_flag);
-  *flag = (int_f)c_flag;
+    c_filter  = (H5Z_filter_t)*filter;
+    ret_value = H5Zget_filter_info(c_filter, &c_flag);
+    *flag     = (int_f)c_flag;
 
-  return ret_value;
+    return ret_value;
 }