LCPQ
/
EZFIO
mirror of https://gitlab.com/scemama/EZFIO.git
10
0
Fork 0
Code Releases Activity

Corrects bug #1

This commit is contained in:
Anthony Scemama 2014-12-10 15:28:58 +01:00
parent 46adaa470b
commit 797b62ac17
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ezfio.ml
View File

@ -430,7 +430,7 @@ let write_array print_fun group name a =
(* Write rank *)
Printf.fprintf out_channel "%3d\n" rank;
(* Write dimensions *)
Array.iter (Printf.fprintf out_channel " %20d") dimensions;
Array.iter (Printf.fprintf out_channel "%20d ") dimensions;
Printf.fprintf out_channel "\n";
Array.iter (print_fun out_channel) data;
close_out out_channel ;