LCPQ/EZFIO
10
0
Fork 0
mirror of https://gitlab.com/scemama/EZFIO.git synced 2025-01-05 02:48:39 +01:00
Code Releases Activity

Fixed bug in ocaml format

Browse Source
This commit is contained in:
Anthony Scemama 2014-11-14 10:23:55 +01:00
parent aae15b024a
commit 6fac927736
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

@ -207,8 +207,8 @@ Write
----- -----
*) *)
let print_int out_channel i = Printf.fprintf out_channel "%16d\n" i let print_int out_channel i = Printf.fprintf out_channel "%20d\n" i
and print_int64 out_channel i = Printf.fprintf out_channel "%16Ld\n" i and print_int64 out_channel i = Printf.fprintf out_channel "%20Ld\n" i
and print_float out_channel f = Printf.fprintf out_channel "%24.15e\n" f and print_float out_channel f = Printf.fprintf out_channel "%24.15e\n" f
and print_string out_channel s = Printf.fprintf out_channel "%s\n" s and print_string out_channel s = Printf.fprintf out_channel "%s\n" s
and print_bool out_channel b = Printf.fprintf out_channel "%s\n" (fortran_string_of_bool b);; and print_bool out_channel b = Printf.fprintf out_channel "%s\n" (fortran_string_of_bool b);;