From 04caf1930c7a64538e0f3b6ae8e8439658ecc531 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Thu, 28 Feb 2019 16:08:28 +0100
Subject: [PATCH] n_state

---
 Utils/Davidson.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Utils/Davidson.ml b/Utils/Davidson.ml
index 1450fcf..d0e078f 100644
--- a/Utils/Davidson.ml
+++ b/Utils/Davidson.ml
@@ -4,7 +4,7 @@ type t
 
 let make
     ?guess
-    ?(n_states=8)
+    ?(n_states=1)
     ?(n_iter=10)
     ?(threshold=1.e-6)
     diagonal
@@ -37,7 +37,7 @@ let make
         )
       |> Util.normalize
     in
-    List.init m (fun i -> random_vector i) 
+    List.init m (fun i -> random_vector (i+1)) 
   in
 
   let pick_new u =
@@ -73,7 +73,7 @@ let make
       matrix_prod (
         u_new_ortho
         |> Mat.of_col_vecs_list
-        |> Matrix.sparse_of_mat )
+        |> Matrix.dense_of_mat )
       |> Matrix.to_mat
       |> Mat.to_col_vecs_list
     in