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

IO: Formatting correction.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2023-08-14 12:49:42 -03:00
parent 5574b6fcf1
commit a71a1390ca
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
sources/io.F90
View File

@ -2396,8 +2396,8 @@ module io
bytes = size(ids, kind=8) * kind(ids)
write(str, "('datablock_ids_',i6.6)") nproc
call write_binary_xml(rpath, "ids", trim(str), c_loc(ids), bytes, &
"int32", shape(ids), hash_type, &
call write_binary_xml(rpath, "ids", trim(str), c_loc(ids), &
bytes, "int32", shape(ids), hash_type, &
snapshot_compressor, compression_level, &
snapshot_encoder, xml_ptr, status)
if (status /= 0) &
@ -2418,10 +2418,9 @@ module io
end do
write(str,"('datablock_',a,'_',i6.6)") trim(pvars(p)), nproc
call write_binary_xml(rpath, pvars(p), trim(str), c_loc(array), bytes, &
"float64", shape(array), hash_type, &
snapshot_compressor, &
compression_level, &
call write_binary_xml(rpath, pvars(p), trim(str), c_loc(array), &
bytes, "float64", shape(array), hash_type, &
snapshot_compressor, compression_level, &
snapshot_encoder, xml_ptr, status)
if (status /= 0) &
call print_message(loc, "Could not store variable '" // &