summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5f90global.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2004-07-03 02:39:24 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2004-07-03 02:39:24 (GMT)
commit3a6668b2f948d266bf7c99d641c331ff09021ceb (patch)
tree3f65c3449d328d82b37fbe458bcb033d5ac3c26f /fortran/src/H5f90global.f90
parent0f7e7766509bdf92eda32e08f50dc8197a231710 (diff)
downloadhdf5-3a6668b2f948d266bf7c99d641c331ff09021ceb.zip
hdf5-3a6668b2f948d266bf7c99d641c331ff09021ceb.tar.gz
hdf5-3a6668b2f948d266bf7c99d641c331ff09021ceb.tar.bz2
[svn-r8799]
Purpose: Maintenance Description: H5_SZIP_CHIP_OPTION_MASK was deleted from the list of the available parameters for the H5Pset_szip function. Solution: Updated Fortran source, tests and documentation to reflect this change. Platforms tested: arabica (too small for h5committest) Misc. update:
Diffstat (limited to 'fortran/src/H5f90global.f90')
-rw-r--r--fortran/src/H5f90global.f9010
1 files changed, 3 insertions, 7 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90
index 7eb5732..2e54c4a 100644
--- a/fortran/src/H5f90global.f90
+++ b/fortran/src/H5f90global.f90
@@ -555,21 +555,17 @@
!
! H5 Library flags declaration
!
- INTEGER, PARAMETER :: H5LIB_FLAGS_LEN = 4
+ INTEGER, PARAMETER :: H5LIB_FLAGS_LEN = 2
INTEGER :: H5LIB_flags(H5LIB_FLAGS_LEN)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$ ATTRIBUTES DLLEXPORT :: /H5LIB_FLAGS/
!DEC$endif
COMMON /H5LIB_FLAGS/ H5LIB_flags
- 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_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)
+ EQUIVALENCE(H5LIB_flags(1), H5_SZIP_EC_OM_F)
+ EQUIVALENCE(H5LIB_flags(2), H5_SZIP_NN_OM_F)
END MODULE H5GLOBAL