diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-12 04:09:49 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-12 04:09:49 (GMT) |
| commit | a496f905b8c9ca6428d27efaaf354eb475e2a531 (patch) | |
| tree | 17962b1a4dc82b599502651f0b38759da9d7578a /fortran/src/H5_f.c | |
| parent | 15a0473d746c22992b549238c852bac72ffb006c (diff) | |
| download | hdf5-a496f905b8c9ca6428d27efaaf354eb475e2a531.zip hdf5-a496f905b8c9ca6428d27efaaf354eb475e2a531.tar.gz hdf5-a496f905b8c9ca6428d27efaaf354eb475e2a531.tar.bz2 | |
[svn-r6641]
Purpose: Catching up with C library
Description: I added four new functions
h5pset_szip_f
h5pget_filter_by_id_f
h5pmodify_filetr_f
h5pall_filters_avail_f
Solution:
Platforms tested: arabica (with and without SZIP Library),
modi4 (with SZIP and parallel)
burrwhite (with SZIP and PGI C and Fortran compilers)
Misc. update:
Diffstat (limited to 'fortran/src/H5_f.c')
| -rw-r--r-- | fortran/src/H5_f.c | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c index 9d69b55..adc19f6 100644 --- a/fortran/src/H5_f.c +++ b/fortran/src/H5_f.c @@ -378,19 +378,27 @@ nh5init_flags_c( int_f *h5d_flags, int_f *h5e_flags, int_f *h5f_flags, h5z_flags[6] = H5Z_DISABLE_EDC; h5z_flags[7] = H5Z_ENABLE_EDC; h5z_flags[8] = H5Z_NO_EDC; + h5z_flags[9] = H5Z_FILTER_SZIP; + h5z_flags[10] = H5Z_FLAG_OPTIONAL; ret_value = 0; return ret_value; } -/* + int_f -nh5init1_flags_c(haddr_t_f *h5lib_flags) +nh5init1_flags_c(int_f *h5lib_flags) { - int ret_value = -1; + int ret_value = -1; + unsigned prm_1 = H5_SZIP_RAW_OPTION_MASK; + unsigned prm_2 = H5_SZIP_NN_OPTION_MASK; + unsigned prm_3 = H5_SZIP_RAW_OPTION_MASK | H5_SZIP_NN_OPTION_MASK; + h5lib_flags[0] = (int_f)prm_1; + h5lib_flags[1] = (int_f)prm_2; + h5lib_flags[2] = (int_f)prm_3; ret_value = 0; return ret_value; } -*/ + /*--------------------------------------------------------------------------- * Name: h5open_c * Purpose: Calls H5open call to initialize C HDF5 library |