From dc62afc420709fae7b6a23c38f7a1af7f6ea1b1b Mon Sep 17 00:00:00 2001 From: Quincey Koziol Date: Tue, 1 Jul 2003 10:05:25 -0500 Subject: [svn-r7130] Purpose: Tweak code Description: Change FORTRAN flags for szip so they are shorter. Platforms tested: eyeballed... too minor for quad check --- fortran/src/H5_f.c | 2 +- fortran/src/H5f90global.f90 | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c index e5601b9..a66b826 100644 --- a/fortran/src/H5_f.c +++ b/fortran/src/H5_f.c @@ -405,7 +405,7 @@ int_f nh5init1_flags_c(int_f *h5lib_flags) { int ret_value = -1; - unsigned prm_1 = H5_SZIP_ALLOW_K13_OPTION_MASK; + unsigned prm_1 = H5_SZIP_AK13_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; diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index 6e33a71..72c1148 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -614,12 +614,12 @@ !DEC$ ATTRIBUTES DLLEXPORT :: /H5LIB_FLAGS/ !DEC$endif COMMON /H5LIB_FLAGS/ H5LIB_flags - INTEGER :: H5_SZIP_ALLOW_K13_OM_F + INTEGER :: H5_SZIP_AK13_OM_F INTEGER :: H5_SZIP_CHIP_OM_F INTEGER :: H5_SZIP_EC_OM_F INTEGER :: H5_SZIP_NN_OM_F ! - EQUIVALENCE(H5LIB_flags(1), H5_SZIP_ALLOW_K13_OM_F) + EQUIVALENCE(H5LIB_flags(1), H5_SZIP_AK13_OM_F) EQUIVALENCE(H5LIB_flags(2), H5_SZIP_CHIP_OM_F) EQUIVALENCE(H5LIB_flags(3), H5_SZIP_EC_OM_F) EQUIVALENCE(H5LIB_flags(4), H5_SZIP_NN_OM_F) -- cgit v0.12