LCPQ/qmcchem
10
1
Fork 1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2025-01-02 17:45:39 +01:00
Code Releases Activity

Corrected bug in walkers

Browse Source
This commit is contained in:
Anthony Scemama 2016-04-05 11:52:04 +02:00
parent 3826062b88
commit 0d5d317a85
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ocaml/Qmcchem_forwarder.ml
View File

@ -445,7 +445,7 @@ let run ezfio_filename dataserver =
let fetch i = let fetch i =
let rec loop accu = function let rec loop accu = function
| -1 -> accu | -1 -> accu
| k -> loop ((Array.get a (i+k)) :: accu) (k-1) | k -> loop ((Array.get a (i*len+k)) :: accu) (k-1)
in in
loop [] (len-1) loop [] (len-1)
in in
@ -481,6 +481,8 @@ let run ezfio_filename dataserver =
Int.to_string (5*len)] ; ( select_n_of ~n:5 ~len rest ) ] Int.to_string (5*len)] ; ( select_n_of ~n:5 ~len rest ) ]
| _ -> message | _ -> message
in 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 ZMQ.Socket.send_all push_socket new_message
in in