From e23f97bbd614366730dbf5be20d0e64ec60e5d15 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Mon, 24 Aug 2020 22:15:54 -0300 Subject: [PATCH] COMPRESSION: Remove long lines. Signed-off-by: Grzegorz Kowal --- sources/compression.F90 | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/sources/compression.F90 b/sources/compression.F90 index e93d185..1981f0f 100644 --- a/sources/compression.F90 +++ b/sources/compression.F90 @@ -260,8 +260,9 @@ module compression #ifdef ZSTD case(compression_zstd) allocate(buffer(zstd_bound(size(input, kind=8)))) - csize = zstd_compress(c_loc(buffer), size(buffer, kind=8), & - c_loc(input), size(input, kind=8), compression_level) + csize = zstd_compress(c_loc(buffer), size(buffer, kind=8), & + c_loc(input), size(input, kind=8), & + compression_level) if (csize > 0 .and. csize <= size(output, kind=8)) then output(1:csize) = buffer(1:csize) else @@ -274,7 +275,7 @@ module compression prefs(5:6) = transfer(size(input, kind=8), [ 0_4 ]) prefs(9) = compression_level allocate(buffer(lz4_bound(size(input, kind=8), c_loc(prefs)))) - csize = lz4_compress(c_loc(buffer), size(buffer, kind=8), & + csize = lz4_compress(c_loc(buffer), size(buffer, kind=8), & c_loc(input), size(input, kind=8), c_loc(prefs)) if (csize > 0 .and. csize <= size(output, kind=8)) then output(1:csize) = buffer(1:csize) @@ -288,7 +289,7 @@ module compression csize = 0 allocate(buffer(size(input))) ret = lzma_compress(compression_level, 4, c_null_ptr, & - c_loc(input), size(input, kind=8), & + c_loc(input), size(input, kind=8), & c_loc(buffer), c_loc(csize), size(buffer, kind=8)) if (ret == 0 .and. csize <= size(output, kind=8)) then output(1:csize) = buffer(1:csize)