From 5e4d5a62e4dc90e9a67187281498af283bcdba71 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 7 Dec 2016 20:51:58 +0100
Subject: [PATCH] Randomized multiplet guess

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

diff --git a/ocaml/qp_create_guess.ml b/ocaml/qp_create_guess.ml
index 62af57de..bebfdad3 100644
--- a/ocaml/qp_create_guess.ml
+++ b/ocaml/qp_create_guess.ml
@@ -88,8 +88,9 @@ let run ~multiplicity ezfio_file =
       ~alpha:(Elec_alpha_number.of_int alpha_new)
       ~beta:(Elec_beta_number.of_int beta_new) pair )
   in
+
   let c = 
-    Array.create ~len:(List.length determinants) (Det_coef.of_float 1.)
+    Array.init (List.length determinants) (fun _ -> Det_coef.of_float ((Random.float 2.)-.1.))
   in
  
   determinants