From c818756f68e3cecfa529e1ed17ce8141ee5fdff2 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 2 Dec 2021 20:51:33 +0100 Subject: [PATCH] wrong check iand is used for checking, see https://support.hdfgroup.org/HDF5/doc/RM/H5Z/H5Zget_filter_info.htm --- src/HDF5_utilities.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/HDF5_utilities.f90 b/src/HDF5_utilities.f90 index 7a345de83..9e03222a9 100644 --- a/src/HDF5_utilities.f90 +++ b/src/HDF5_utilities.f90 @@ -137,7 +137,7 @@ subroutine HDF5_utilities_init if (avail) then call H5Zget_filter_info_f(H5Z_FILTER_DEFLATE_F,configFlags,hdferr) if (hdferr < 0) error stop 'HDF5 error' - compression_possible = compression_possible .and. ior(H5Z_FILTER_ENCODE_ENABLED_F,configFlags) > 0 + compression_possible = compression_possible .and. iand(H5Z_FILTER_ENCODE_ENABLED_F,configFlags) > 0 end if call H5Zfilter_avail_f(H5Z_FILTER_SHUFFLE_F,avail,hdferr) @@ -147,7 +147,7 @@ subroutine HDF5_utilities_init if (avail) then call H5Zget_filter_info_f(H5Z_FILTER_SHUFFLE_F,configFlags,hdferr) if (hdferr < 0) error stop 'HDF5 error' - compression_possible = compression_possible .and. ior(H5Z_FILTER_ENCODE_ENABLED_F,configFlags) > 0 + compression_possible = compression_possible .and. iand(H5Z_FILTER_ENCODE_ENABLED_F,configFlags) > 0 end if end subroutine HDF5_utilities_init