diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-09-27 05:02:38 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-09-27 05:02:38 (GMT) |
commit | 4af3cd2b7a89b2eeed05d5ec0b0641ca7c2545bc (patch) | |
tree | 01f90619962c447280074bb8d10ae5c7b2b9acbc /fortran/src/H5Zf.c | |
parent | a07004c825e3a4e4b61269fd3e5f2b57092f073c (diff) | |
download | hdf5-4af3cd2b7a89b2eeed05d5ec0b0641ca7c2545bc.zip hdf5-4af3cd2b7a89b2eeed05d5ec0b0641ca7c2545bc.tar.gz hdf5-4af3cd2b7a89b2eeed05d5ec0b0641ca7c2545bc.tar.bz2 |
[svn-r21421] Merged the Fortran 2003 changes from the trunk into the 1.8 branch, used:
svn merge -r 20506:21414 https://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran
Tested: jam (gnu, intel, pgi compilers)
Also merged effected non-Fortran files:
svn merge -r21247:r21248 https://svn.hdfgroup.uiuc.edu/hdf5/trunk/src/libhdf5.settings.in
Diffstat (limited to 'fortran/src/H5Zf.c')
-rw-r--r-- | fortran/src/H5Zf.c | 92 |
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; |