LCPQ/EZFIO
10
0
Fork 0
mirror of https://gitlab.com/scemama/EZFIO.git synced 2024-11-19 04:22:25 +01:00
Code Releases Activity

Bug with multi-dimensional integer*8 arrays in ocaml corrected

Browse Source
This commit is contained in:
Anthony Scemama 2014-09-17 11:51:52 +02:00
parent 088c5ab63d
commit 4837aed52e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ezfio.ml
View File

@ -416,9 +416,9 @@ let write_array print_fun group name a =
in in
begin begin
(* Write rank *) (* Write rank *)
Printf.fprintf out_channel "%4d\n" rank; Printf.fprintf out_channel "%3d\n" rank;
(* Write dimensions *) (* Write dimensions *)
Array.iter (Printf.fprintf out_channel " %8d") dimensions; Array.iter (Printf.fprintf out_channel " %16d") 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 ;