LCPQ/EZFIO
10
0
Fork 0
mirror of https://gitlab.com/scemama/EZFIO.git synced 2025-01-03 01:55:44 +01:00
Code Releases Activity

Corrects bug #1

Browse Source
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 *) (* Write rank *)
Printf.fprintf out_channel "%3d\n" rank; Printf.fprintf out_channel "%3d\n" rank;
(* Write dimensions *) (* Write dimensions *)
Array.iter (Printf.fprintf out_channel " %20d") dimensions; Array.iter (Printf.fprintf out_channel "%20d ") dimensions;
Printf.fprintf out_channel "\n"; Printf.fprintf out_channel "\n";
Array.iter (print_fun out_channel) data; Array.iter (print_fun out_channel) data;
close_out out_channel ; close_out out_channel ;