more notes in get_deflate mpi=.false. only

Author: scivision

src/read/read.f90

@@ -38,6 +38,9 @@
 
 
 module procedure get_deflate
+!! h5pget_filter_f doesn't work collectively, will crash on h5fclose_f
+!! if(mpi_id==0) with mpi_bcast does not work, same crash.
+!! better to use H5Pall_filters_avail_f when mpi=.true.
 
 integer :: i, j, ierr
 integer :: flags !< bit pattern

src/tests/unit/test_deflate_props.f90

@@ -29,7 +29,7 @@ program test_deflate_props
 
 if(mpi_id==0) then
   call test_get_deflate(fn1)
-  !! only works with mpi=.false. else get file close error
+  !! only works with mpi=.false. else get h5fclose error
   print *, 'OK: HDF5 get deflate'
 endif
 
@@ -89,7 +89,6 @@ subroutine test_get_deflate(fn)
 type(hdf5_file) :: h5f
 
 call h5f%open(fn, action='r', mpi=.false.)
-!! bug in HDF5? only works with MPI=.false.
 
 if (h5f%parallel_compression) then
   if (.not. h5f%deflate("/A")) error stop "test_get_deflate: expected deflate MPI"