diff options
| author | Pedro Vicente Nunes <pvn@hdfgroup.org> | 2004-02-04 20:35:37 (GMT) |
|---|---|---|
| committer | Pedro Vicente Nunes <pvn@hdfgroup.org> | 2004-02-04 20:35:37 (GMT) |
| commit | c238a6c13cdd0107fdf2c5ee0145a9b3d773fc92 (patch) | |
| tree | 8bffaa4395b7498e7ec79116f0fae4e258449929 /fortran | |
| parent | 78fb916259dad96f1252a99a47c5b576be17a951 (diff) | |
| download | hdf5-c238a6c13cdd0107fdf2c5ee0145a9b3d773fc92.zip hdf5-c238a6c13cdd0107fdf2c5ee0145a9b3d773fc92.tar.gz hdf5-c238a6c13cdd0107fdf2c5ee0145a9b3d773fc92.tar.bz2 | |
[svn-r8150] Purpose:
introduced the constant H5Z_FILTER_ALL, used to remove all filters in H5Premove_filter
Description:
Solution:
Platforms tested:
linux
Misc. update:
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5f90global.f90 | 2 | ||||
| -rw-r--r-- | fortran/test/tH5Z.f90 | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index 47dfee6..8b6979c 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -521,6 +521,7 @@ INTEGER :: H5Z_FILTER_ERROR_F INTEGER :: H5Z_FILTER_NONE_F + INTEGER :: H5Z_FILTER_ALL_F INTEGER :: H5Z_FILTER_DEFLATE_F INTEGER :: H5Z_FILTER_SHUFFLE_F INTEGER :: H5Z_FILTER_FLETCHER32_F @@ -533,6 +534,7 @@ EQUIVALENCE(H5Z_flags(1), H5Z_FILTER_ERROR_F) EQUIVALENCE(H5Z_flags(2), H5Z_FILTER_NONE_F) + EQUIVALENCE(H5Z_flags(2), H5Z_FILTER_ALL_F) EQUIVALENCE(H5Z_flags(3), H5Z_FILTER_DEFLATE_F) EQUIVALENCE(H5Z_flags(4), H5Z_FILTER_SHUFFLE_F) EQUIVALENCE(H5Z_flags(5), H5Z_FILTER_FLETCHER32_F) diff --git a/fortran/test/tH5Z.f90 b/fortran/test/tH5Z.f90 index 214d2ab..7005e14 100644 --- a/fortran/test/tH5Z.f90 +++ b/fortran/test/tH5Z.f90 @@ -130,7 +130,7 @@ endif ! Delete all filters - CALL h5premove_filter_f(crtpr_id, H5Z_FILTER_NONE_F, error) + CALL h5premove_filter_f(crtpr_id, H5Z_FILTER_ALL_F, error) CALL check("h5premove_filter_f", error, total_error) ! Verify the correct number of filters now |