summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Zf.c
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2012-03-21 15:10:17 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2012-03-21 15:10:17 (GMT)
commiteb89d7b53ab95623ab454186a602e1cafc7391f0 (patch)
treeceafe458b3011e38853e765352d3c7e59bbecce1 /fortran/src/H5Zf.c
parent3e468e6ff65d540a439e99ea568a6bff7add7cea (diff)
downloadhdf5-eb89d7b53ab95623ab454186a602e1cafc7391f0.zip
hdf5-eb89d7b53ab95623ab454186a602e1cafc7391f0.tar.gz
hdf5-eb89d7b53ab95623ab454186a602e1cafc7391f0.tar.bz2
[svn-r22105] Description:
Bring r20557:22085 from trunk to this branch, also fixing some other issues/failures in the branch simultaneously. The h5repack tests are still failing, but Neil will be checking into those, so the branch can be fully functional again. Tested on: Mac OSX/64 10.7.3 (amazon) w/debug
Diffstat (limited to 'fortran/src/H5Zf.c')
-rw-r--r--fortran/src/H5Zf.c92
1 files changed, 62 insertions, 30 deletions
diff --git a/fortran/src/H5Zf.c b/fortran/src/H5Zf.c
index 8ad53c2..0427c23 100644
--- a/fortran/src/H5Zf.c
+++ b/fortran/src/H5Zf.c
@@ -1,4 +1,9 @@
-/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+/****h* H5Zf/H5Zf
+ * PURPOSE
+ * This file contains C stubs for H5Z Fortran APIs
+ *
+ * COPYRIGHT
+ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Copyright by The HDF Group. *
* Copyright by the Board of Trustees of the University of Illinois. *
* All rights reserved. *
@@ -11,23 +16,32 @@
* is linked from the top-level documents page. It can also be found at *
* http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
* access to either file, you may request a copy from help@hdfgroup.org. *
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
-
-/* This files contains C stubs for H5Z Fortran APIs */
+ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+ *
+ ******
+*/
#include "H5f90.h"
-/*----------------------------------------------------------------------------
- * Name: h5zunregister_c
- * Purpose: Call H5Zunregister to unregister filter
- * Inputs: filter identifier
- * Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
+/****if* H5Zf/h5zunregister_c
+ * NAME
+ * h5zunregister_c
+ * PURPOSE
+ * Call H5Zunregister to unregister filter
+ * INPUTS
+ * filter identifier
+ * RETURNS
+ * 0 on success, -1 on failure
+ * AUTHOR
+ * Elena Pourmal
* Wednesday, March 12, 2003
- * Modifications:
- *---------------------------------------------------------------------------*/
+ * HISTORY
+ *
+ * SOURCE
+*/
int_f
nh5zunregister_c (int_f *filter)
+/******/
{
int ret_value = -1;
herr_t status;
@@ -44,19 +58,28 @@ nh5zunregister_c (int_f *filter)
ret_value = 0;
return ret_value;
}
-/*----------------------------------------------------------------------------
- * Name: h5zfiletr_avail_c
- * Purpose: Call H5Zfilter_avail to find if filter is available
- * Inputs: filter - filter identifier
- * Outputs: flag - status flag
- * Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
+/****if* H5Zf/h5zfiletr_avail_c
+ * NAME
+ * h5zfiletr_avail_c
+ * PURPOSE
+ * Call H5Zfilter_avail to find if filter is available
+ * INPUTS
+ * filter - filter identifier
+ * OUTPUTS
+ * flag - status flag
+ * RETURNS
+ * 0 on success, -1 on failure
+ * AUTHOR
+ * Elena Pourmal
* Wednesday, March 12, 2003
- * Modifications:
- *---------------------------------------------------------------------------*/
+ * HISTORY
+ *
+ * SOURCE
+*/
int_f
nh5zfilter_avail_c ( int_f *filter , int_f *flag )
+/******/
{
int ret_value = 0;
H5Z_filter_t c_filter;
@@ -69,20 +92,29 @@ nh5zfilter_avail_c ( int_f *filter , int_f *flag )
return ret_value;
}
-/*----------------------------------------------------------------------------
- * Name: h5zget_filter_info_c
- * Purpose: Call H5Zget_filter_info to find if filter has its encoder
+/****if* H5Zf/h5zget_filter_info_c
+ * NAME
+ * h5zget_filter_info_c
+ * PURPOSE
+ * Call H5Zget_filter_info to find if filter has its encoder
* and/or its decoder available
- * Inputs: filter - filter identifier
- * Outputs: flag - status flag
- * Returns: 0 on success, -1 on failure
- * Programmer: Nat Furrer and James Laird
+ * INPUTS
+ * filter - filter identifier
+ * OUTPUTS
+ * flag - status flag
+ * RETURNS
+ * 0 on success, -1 on failure
+ * AUTHOR
+ * Nat Furrer and James Laird
* Wednesday, June 16, 2004
- * Modifications:
- *---------------------------------------------------------------------------*/
+ * HISTORY
+ *
+ * SOURCE
+*/
int_f
nh5zget_filter_info_c ( int_f *filter , int_f *flag )
+/******/
{
int ret_value = 0;
H5Z_filter_t c_filter;