diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-12 04:09:49 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-12 04:09:49 (GMT) |
| commit | a496f905b8c9ca6428d27efaaf354eb475e2a531 (patch) | |
| tree | 17962b1a4dc82b599502651f0b38759da9d7578a /fortran/src/H5f90global.f90 | |
| parent | 15a0473d746c22992b549238c852bac72ffb006c (diff) | |
| download | hdf5-a496f905b8c9ca6428d27efaaf354eb475e2a531.zip hdf5-a496f905b8c9ca6428d27efaaf354eb475e2a531.tar.gz hdf5-a496f905b8c9ca6428d27efaaf354eb475e2a531.tar.bz2 | |
[svn-r6641]
Purpose: Catching up with C library
Description: I added four new functions
h5pset_szip_f
h5pget_filter_by_id_f
h5pmodify_filetr_f
h5pall_filters_avail_f
Solution:
Platforms tested: arabica (with and without SZIP Library),
modi4 (with SZIP and parallel)
burrwhite (with SZIP and PGI C and Fortran compilers)
Misc. update:
Diffstat (limited to 'fortran/src/H5f90global.f90')
| -rw-r--r-- | fortran/src/H5f90global.f90 | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index 0c8d5fc..26a081c 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -555,7 +555,7 @@ ! ! H5Z flags declaration ! - INTEGER, PARAMETER :: H5Z_FLAGS_LEN = 9 + INTEGER, PARAMETER :: H5Z_FLAGS_LEN = 11 INTEGER H5Z_flags(H5Z_FLAGS_LEN) !DEC$if defined(BUILD_HDF5_DLL) !DEC$ ATTRIBUTES DLLEXPORT :: /H5Z_FLAGS/ @@ -567,10 +567,12 @@ INTEGER :: H5Z_FILTER_DEFLATE_F INTEGER :: H5Z_FILTER_SHUFFLE_F INTEGER :: H5Z_FILTER_FLETCHER32_F + INTEGER :: H5Z_FILTER_SZIP_F INTEGER :: H5Z_ERROR_EDC_F INTEGER :: H5Z_DISABLE_EDC_F INTEGER :: H5Z_ENABLE_EDC_F INTEGER :: H5Z_NO_EDC_F + INTEGER :: H5Z_FLAG_OPTIONAL_F EQUIVALENCE(H5Z_flags(1), H5Z_FILTER_ERROR_F) EQUIVALENCE(H5Z_flags(2), H5Z_FILTER_NONE_F) @@ -581,20 +583,26 @@ EQUIVALENCE(H5Z_flags(7), H5Z_DISABLE_EDC_F) EQUIVALENCE(H5Z_flags(8), H5Z_ENABLE_EDC_F) EQUIVALENCE(H5Z_flags(9), H5Z_NO_EDC_F) + EQUIVALENCE(H5Z_flags(10), H5Z_FILTER_SZIP_F) + EQUIVALENCE(H5Z_flags(11), H5Z_FLAG_OPTIONAL_F) ! ! H5 Library flags declaration ! -! INTEGER, PARAMETER :: H5LIB_FLAGS_LEN = 1 -! INTEGER(HADDR_T) H5LIB_flags(H5LIB_FLAGS_LEN) + INTEGER, PARAMETER :: H5LIB_FLAGS_LEN = 3 + 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(HADDR_T) :: HADDR_MAX_F + COMMON /H5LIB_FLAGS/ H5LIB_flags + INTEGER :: H5_SZIP_RAW_OM_F + INTEGER :: H5_SZIP_NN_OM_F + INTEGER :: H5_SZIP_RAWORNN_OM_F ! -! EQUIVALENCE(H5LIB_flags(1), HADDR_MAX_F) + EQUIVALENCE(H5LIB_flags(1), H5_SZIP_RAW_OM_F) + EQUIVALENCE(H5LIB_flags(2), H5_SZIP_NN_OM_F) + EQUIVALENCE(H5LIB_flags(3), H5_SZIP_RAWORNN_OM_F) END MODULE H5GLOBAL |