summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2003-07-01 15:05:25 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2003-07-01 15:05:25 (GMT)
commitdc62afc420709fae7b6a23c38f7a1af7f6ea1b1b (patch)
tree4d3f6da4440220ea35d4c23dfe0ace772d3a23d8 /fortran/src
parent93622d0b7a74be940d1ad11c3bf7bc58718055a2 (diff)
downloadhdf5-dc62afc420709fae7b6a23c38f7a1af7f6ea1b1b.zip
hdf5-dc62afc420709fae7b6a23c38f7a1af7f6ea1b1b.tar.gz
hdf5-dc62afc420709fae7b6a23c38f7a1af7f6ea1b1b.tar.bz2
[svn-r7130] Purpose:
Tweak code Description: Change FORTRAN flags for szip so they are shorter. Platforms tested: eyeballed... too minor for quad check
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5_f.c2
-rw-r--r--fortran/src/H5f90global.f904
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)