From 6fac927736df632b8e598c82cc7b05bcfec354cb Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Fri, 14 Nov 2014 10:23:55 +0100 Subject: [PATCH] Fixed bug in ocaml format --- src/ezfio.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/ezfio.ml b/src/ezfio.ml index 252e4bb..2ced147 100644 --- a/src/ezfio.ml +++ b/src/ezfio.ml @@ -207,8 +207,8 @@ Write ----- *) -let print_int out_channel i = Printf.fprintf out_channel "%16d\n" i -and print_int64 out_channel i = Printf.fprintf out_channel "%16Ld\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 "%20Ld\n" i 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_bool out_channel b = Printf.fprintf out_channel "%s\n" (fortran_string_of_bool b);;