summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Zf.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5Zf.c')
-rw-r--r--fortran/src/H5Zf.c68
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;
}