From aae9d203ecbf8d53accc6bc35c2ab56aeeae78a6 Mon Sep 17 00:00:00 2001 From: Yann Garniron Date: Thu, 30 Aug 2018 10:07:02 +0200 Subject: [PATCH] potential fragmentation bug --- plugins/dress_zmq/dress_stoch_routines.irp.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/plugins/dress_zmq/dress_stoch_routines.irp.f b/plugins/dress_zmq/dress_stoch_routines.irp.f index 9f112b75..56a35fee 100644 --- a/plugins/dress_zmq/dress_stoch_routines.irp.f +++ b/plugins/dress_zmq/dress_stoch_routines.irp.f @@ -370,7 +370,7 @@ subroutine dress_collector(zmq_socket_pull, E, relative_error, delta, delta_s2, allocate(breve_delta_m(N_states, N_det, 2)) allocate(dot_f(dress_N_cp)) allocate(S(pt2_N_teeth+1), S2(pt2_N_teeth+1)) - edI = -100000d0 + edI = 0d0 cp = 0d0 dot_f(:) = dress_dot_F(:) @@ -418,7 +418,7 @@ subroutine dress_collector(zmq_socket_pull, E, relative_error, delta, delta_s2, endif end do do i=1,n_tasks - edI(:, edI_index(i)) = edI_task(:, i) !!!!!!!!!!!!!!! += !!!!! + edI(:, edI_index(i)) += edI_task(:, i) end do cp(:,:,m_task,1) += breve_delta_m(:,:,1) cp(:,:,m_task,2) += breve_delta_m(:,:,2)