diff --git a/src/ezfio.ml b/src/ezfio.ml
index 72985eb..3a86226 100644
--- a/src/ezfio.ml
+++ b/src/ezfio.ml
@@ -416,9 +416,9 @@ let write_array print_fun group name a =
   in
   begin
      (* Write rank *)
-     Printf.fprintf out_channel "%4d\n" rank;
+     Printf.fprintf out_channel "%3d\n" rank;
      (* Write dimensions *)
-     Array.iter (Printf.fprintf out_channel " %8d") dimensions;
+     Array.iter (Printf.fprintf out_channel " %16d") dimensions;
      Printf.fprintf out_channel "\n";
      Array.iter (print_fun out_channel) data;
      close_out out_channel ;