diff options
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 |