gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

IO: Use compression_bound() to determine the buffer size.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2021-11-28 22:38:30 -03:00
parent e4ffa62714
commit 9ddf7c7b44
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
sources/io.F90
View File

@ -2806,7 +2806,7 @@ module io
array_bytes, array_digest, &
compressed_bytes, compressed_digest)
use compression, only : get_compression, compress
use compression, only : get_compression, compression_bound, compress
use hash , only : get_hash
implicit none
@ -2841,10 +2841,11 @@ module io
! try to compress array and write it
!
if (present(compressed_bytes) .and. get_compression() > 0) then
allocate(buffer(array_bytes), stat = status)
compressed_bytes = compression_bound(array_bytes)
allocate(buffer(compressed_bytes), stat = status)
if (status == 0) then
call compress(array, array_bytes, buffer, compressed_bytes)
if (compressed_bytes > 0) then
if (compressed_bytes < array_bytes) then
open(newunit = lun, file = fname, form = 'unformatted', &
access = 'stream', status = 'replace')
write(lun) buffer(1:compressed_bytes)