223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

avoid errors for empty datasets 

empty dataset cannot be chunked, but filters can only be applied to
chunked datasets
This commit is contained in:
Martin Diehl 2021-08-14 20:44:59 +02:00
parent 1963343cd8
commit 497bf2c645
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/HDF5_utilities.f90
View File

@ -1970,6 +1970,7 @@ subroutine initialize_write(dset_id, filespace_id, memspace_id, plist_id, &
call h5pcreate_f(H5P_DATASET_CREATE_F, dcpl, hdferr) call h5pcreate_f(H5P_DATASET_CREATE_F, dcpl, hdferr)
if (hdferr < 0) error stop 'HDF5 error' if (hdferr < 0) error stop 'HDF5 error'
if (product(totalShape) > 0) then
call h5pset_shuffle_f(dcpl, hdferr) call h5pset_shuffle_f(dcpl, hdferr)
if (hdferr < 0) error stop 'HDF5 error' if (hdferr < 0) error stop 'HDF5 error'
call h5pset_Fletcher32_f(dcpl,hdferr) call h5pset_Fletcher32_f(dcpl,hdferr)
@ -1983,6 +1984,7 @@ subroutine initialize_write(dset_id, filespace_id, memspace_id, plist_id, &
call h5pset_chunk_f(dcpl, size(totalShape), totalShape, hdferr) call h5pset_chunk_f(dcpl, size(totalShape), totalShape, hdferr)
endif endif
if (hdferr < 0) error stop 'HDF5 error' if (hdferr < 0) error stop 'HDF5 error'
endif
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! create dataspace in memory (local shape) and in file (global shape) ! create dataspace in memory (local shape) and in file (global shape)