Merge branch 'master' of github.com:scemama/qmcchem

ocaml/Launcher.ml

@@ -9,6 +9,16 @@ let to_string = function
   | Srun     -> "srun"
   | Bash     -> "env"
   | MPI      -> Lazy.force Qmcchem_config.mpirun
+(*
+let to_string = function
+  | MPI
+  | Srun     -> String.concat ~sep:" " [ Lazy.force Qmcchem_config.mpirun ;
+      match Sys.getenv "QMCCHEM_MPIRUN_FLAGS" with
+      | None -> ""
+      | Some p -> p
+    ]
+  | Bash     -> "env"
+*)
 
 
 (** Find the launcher for the current job scheduler *)

ocaml/Qmcchem_run.ml

@@ -49,6 +49,7 @@ let full_run ?(start_dataserver=true) ezfio_filename  =
     end;
   
 
+(*
   (* Check if the Zmq Rep socket is open *)
   let test_open_rep_socket () =
     let zmq_context =
@@ -94,6 +95,8 @@ let full_run ?(start_dataserver=true) ezfio_filename  =
   in
   if (not (count 300)) then
     Watchdog.kill ();
+  *)
+  Time.pause (Time.Span.of_sec 3.);
      
 
   (* Start the qmc processes *)

src/ZMQ/worker.irp.f

@@ -351,7 +351,7 @@ subroutine get_running(do_run)
     return
   else
 
-    timeout = 5 ! seconds
+    timeout = 600 ! seconds
    
     ! Polling items
     ! -------------