diff options
author | Quincey Koziol <koziol@hdfgroup.org> | 2003-07-01 14:53:37 (GMT) |
---|---|---|
committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-07-01 14:53:37 (GMT) |
commit | 93622d0b7a74be940d1ad11c3bf7bc58718055a2 (patch) | |
tree | 796656b2b3278e44fdd04a6c67819d3aae823959 /fortran/src/H5_f.c | |
parent | 732bb9f065b04396254b8a5cd56d38139c2926a8 (diff) | |
download | hdf5-93622d0b7a74be940d1ad11c3bf7bc58718055a2.zip hdf5-93622d0b7a74be940d1ad11c3bf7bc58718055a2.tar.gz hdf5-93622d0b7a74be940d1ad11c3bf7bc58718055a2.tar.bz2 |
[svn-r7129] Purpose:
Bug fix
Description:
Propogate szip flag changes into FORTRAN source & tests
Platforms tested:
h5committest
Diffstat (limited to 'fortran/src/H5_f.c')
-rw-r--r-- | fortran/src/H5_f.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c index 82f4d92..e5601b9 100644 --- a/fortran/src/H5_f.c +++ b/fortran/src/H5_f.c @@ -405,12 +405,14 @@ int_f nh5init1_flags_c(int_f *h5lib_flags) { 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; + unsigned prm_1 = H5_SZIP_ALLOW_K13_OPTION_MASK; + unsigned prm_2 = H5_SZIP_CHIP_OPTION_MASK; + unsigned prm_3 = H5_SZIP_EC_OPTION_MASK; + unsigned prm_4 = 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; + h5lib_flags[3] = (int_f)prm_4; ret_value = 0; return ret_value; } |