89fbe00dec
* commit '54957d37f5aa73912763dbb6e308555e863c43f4': Commit copyright header change for src/H5PLpkg.c which was added after running script to make changes. Add new files in release_docs to MANIFEST. Cimmit changes to Makefile.in(s) and H5PL.c that resulted from running autogen.sh. Merge pull request #407 in HDFFV/hdf5 from ~LRKNOX/hdf5_lrk:hdf5_1_10_1 to hdf5_1_10_1 Change copyright headers to replace url referring to file to be removed and replace it with new url for COPYING file.
125 lines
2.9 KiB
C
125 lines
2.9 KiB
C
/****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. *
|
|
* *
|
|
* This file is part of HDF5. The full HDF5 copyright notice, including *
|
|
* terms governing use, modification, and redistribution, is contained in *
|
|
* the COPYING file, which can be found at the root of the source code *
|
|
* distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases. *
|
|
* If you do not have access to either file, you may request a copy from *
|
|
* help@hdfgroup.org. *
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
*
|
|
******
|
|
*/
|
|
|
|
#include "H5f90.h"
|
|
|
|
/****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
|
|
* HISTORY
|
|
*
|
|
* SOURCE
|
|
*/
|
|
int_f
|
|
h5zunregister_c (int_f *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;
|
|
}
|
|
/****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
|
|
* HISTORY
|
|
*
|
|
* SOURCE
|
|
*/
|
|
|
|
int_f
|
|
h5zfilter_avail_c ( int_f *filter , int_f *flag )
|
|
/******/
|
|
{
|
|
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;
|
|
}
|
|
|
|
/****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
|
|
* AUTHOR
|
|
* Nat Furrer and James Laird
|
|
* Wednesday, June 16, 2004
|
|
* HISTORY
|
|
*
|
|
* SOURCE
|
|
*/
|
|
|
|
int_f
|
|
h5zget_filter_info_c ( int_f *filter , int_f *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;
|
|
|
|
return ret_value;
|
|
}
|