From 0485afda6f20e12503b170dc5be2355d5d6a7a96 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 17 Dec 2019 11:10:34 +0100
Subject: [PATCH] Fixing walkers

---
 ocaml/Qmcchem_dataserver.ml | 17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

diff --git a/ocaml/Qmcchem_dataserver.ml b/ocaml/Qmcchem_dataserver.ml
index 70c605d..08c9e39 100644
--- a/ocaml/Qmcchem_dataserver.ml
+++ b/ocaml/Qmcchem_dataserver.ml
@@ -218,7 +218,7 @@ let run ?(daemon=true) ezfio_filename =
 
   (** Last time when the walkers were saved to disk. *)
   let last_save_walkers = 
-    ref (Unix.gettimeofday ())
+    ref 0.
   in
 
 
@@ -226,20 +226,20 @@ let run ?(daemon=true) ezfio_filename =
   let save_walkers () =
     if (delta_t !last_save_walkers > 10. ) then
       begin
-        let t0 =
-          Unix.gettimeofday ()
-        in
         Ezfio.set_electrons_elec_coord_pool_size walk_num_tot ;
         let walkers_list = 
-          Array.map Array.to_list walkers_array 
+          Array.map Array.to_list walkers_array
           |> Array.to_list
           |> List.concat
           |> List.map float_of_string
         in
         Ezfio.set_electrons_elec_coord_pool (Ezfio.ezfio_array_of_list
           ~rank:3 ~dim:[| elec_num+1 ; 3 ; walk_num_tot |] ~data:walkers_list);
+        let t0 =
+          Unix.gettimeofday ()
+        in
         send_log "status" walk_num_tot t0 "Saved walkers";
-        last_save_walkers := Unix.gettimeofday ();
+        last_save_walkers := t0 ;
       end
   in
 
@@ -737,10 +737,6 @@ let run ?(daemon=true) ezfio_filename =
               recv_log log_msg ;
               for i=0 to ((Array.length w)-1)
               do
-                (*
-                Array.replace walkers_array (!last_walker) (fun _ -> Array.map 
-                   string_of_float w.(i));
-                *)
                 walkers_array.(!last_walker) <- Array.map string_of_float w.(i);
                 increment_last_walker ();
               done;
@@ -776,6 +772,7 @@ let run ?(daemon=true) ezfio_filename =
         in handle msg
       in
 
+      save_walkers ();
       (* Main loop *)
       while (!status <> Status.Stopped)
       do