From 0d5d317a85260e9617db2cfbd19c71262e99ef07 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 5 Apr 2016 11:52:04 +0200
Subject: [PATCH] Corrected bug in walkers

---
 ocaml/Qmcchem_forwarder.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ocaml/Qmcchem_forwarder.ml b/ocaml/Qmcchem_forwarder.ml
index 9a75765..ee22d96 100644
--- a/ocaml/Qmcchem_forwarder.ml
+++ b/ocaml/Qmcchem_forwarder.ml
@@ -445,7 +445,7 @@ let run ezfio_filename dataserver =
         let fetch i = 
           let rec loop accu = function 
           | -1 -> accu
-          | k -> loop ((Array.get a (i+k)) :: accu) (k-1)
+          | k -> loop ((Array.get a (i*len+k)) :: accu) (k-1)
           in
           loop [] (len-1)
         in
@@ -481,6 +481,8 @@ let run ezfio_filename dataserver =
               Int.to_string (5*len)] ; ( select_n_of ~n:5 ~len rest ) ]
           | _ -> message
         in
+   let f = fun x -> x   in
+   Printf.printf "%s\n%s\n\n%!" (List.to_string ~f message) (List.to_string ~f new_message);
         ZMQ.Socket.send_all  push_socket  new_message
       in