diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-03-19 16:13:35 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-03-19 16:13:35 (GMT) |
| commit | 65f5514a4ff647cff51c37e3af30d5e138733d06 (patch) | |
| tree | 4d1a0934ee57c44e3703b4388dcb67a0c6c063ad /fortran/src/H5Zf.c | |
| parent | da4bf69db756aabb448bead90a0d85d7348ff04e (diff) | |
| download | hdf5-65f5514a4ff647cff51c37e3af30d5e138733d06.zip hdf5-65f5514a4ff647cff51c37e3af30d5e138733d06.tar.gz hdf5-65f5514a4ff647cff51c37e3af30d5e138733d06.tar.bz2 | |
[svn-r6494]
Purpose: Catching up with the C library
Description: Added the follwoing new fortran functions
h5iget_name_f
h5tis_variavle_str_f
h5zunregister_f
h5zfilter_avail_f
h5pset_shuffle_f
h5pset_fletcher32
h5pset_edc_check_f
h5pget_edc_check_f
h5dfill_f
Solution:
Platforms tested: arabica(C and F90), burrwhite (pgcc and pgf90), modi4 (F90 and parallel)
Misc. update:
Diffstat (limited to 'fortran/src/H5Zf.c')
| -rw-r--r-- | fortran/src/H5Zf.c | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/fortran/src/H5Zf.c b/fortran/src/H5Zf.c new file mode 100644 index 0000000..3f6a2a6 --- /dev/null +++ b/fortran/src/H5Zf.c @@ -0,0 +1,53 @@ +#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 + * Wednesday, March 12, 2003 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5zunregister_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; + printf(" filter # %d \n", (int)c_filter); + status = H5Zunregister(c_filter); + printf("From C zunregister %d \n", status); + if (status < 0) return ret_value; + 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 + * Wednesday, March 12, 2003 + * Modifications: + *---------------------------------------------------------------------------*/ + +int_f +nh5zfilter_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; +} |