get_deflate: work with mpi

Author: scivision

src/read/read.f90

@@ -55,8 +55,6 @@
 
 get_deflate = .false.
 
-if(self%use_mpi) error stop "ERROR:h5fortran:get_deflate: must not have mpi=.true. => %open(mpi=.false.) to use %deflate()"
-
 Naux = size(Aux, kind=SIZE_T)
 
 call h5dopen_f(self%file_id, dname, dset_id, ierr)
@@ -87,10 +85,9 @@
     if(j>0) print *, "TRACE:get_filter: filter name: ", filter_name(:j-1)
   endif
 
-  if (filter_id == H5Z_FILTER_DEFLATE_F) then
-    get_deflate = .true.
-    exit filters
-  end if
+  get_deflate = filter_id == H5Z_FILTER_DEFLATE_F
+  if(get_deflate) exit filters
+
 end do filters
 
 call h5pclose_f(dcpl, ierr)

src/tests/unit/test_deflate_props.f90

@@ -27,11 +27,8 @@ program test_deflate_props
 call test_read_deflate_props(fn1, N, mpi_id)
 if(mpi_id==0) print *,'OK: HDF5 read deflate properties'
 
-if(mpi_id==0) then
-  call test_get_deflate(fn1)
-  !! only works with mpi=.false. else get h5fclose error
-  print *, 'OK: HDF5 get deflate'
-endif
+call test_get_deflate(fn1)
+if (ierr /= 0) print *, 'OK: HDF5 get deflate'
 
 call mpi_finalize(ierr)
 if (ierr /= 0) error stop "mpi_finalize"
@@ -88,7 +85,7 @@ subroutine test_get_deflate(fn)
 
 type(hdf5_file) :: h5f
 
-call h5f%open(fn, action='r', mpi=.false.)
+call h5f%open(fn, action='r', mpi=.true.)
 
 if (h5f%parallel_compression) then
   if (.not. h5f%deflate("/A")) error stop "test_get_deflate: expected deflate MPI"