From 4e829fd4b8c2ea93dafd879e23f35eef86e0366e Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Sun, 9 Oct 2016 23:00:14 +0200
Subject: [PATCH] Corrected bug

---
 src/Davidson/davidson_parallel.irp.f | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Davidson/davidson_parallel.irp.f b/src/Davidson/davidson_parallel.irp.f
index de197f3b..aa2fbc23 100644
--- a/src/Davidson/davidson_parallel.irp.f
+++ b/src/Davidson/davidson_parallel.irp.f
@@ -432,8 +432,8 @@ subroutine davidson_collector(zmq_to_qp_run_socket, zmq_socket_pull , v0, s0, LD
   do j=1,N_states_diag
    !DIR$ IVDEP
    do i=1,dav_size
-     vt(i,j) = v0t(j,i)
-     st(i,j) = s0t(j,i)
+     v0(i,j) = v0t(j,i)
+     s0(i,j) = s0t(j,i)
    enddo
   enddo