From abb3b7e08bebdcaf84208ebbe404441d3571b1f9 Mon Sep 17 00:00:00 2001 From: Yann Garniron Date: Sun, 2 Sep 2018 17:18:44 +0200 Subject: [PATCH] overflow of pt2_J --- 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 7934beff..e26defe4 100644 --- a/plugins/dress_zmq/dress_stoch_routines.irp.f +++ b/plugins/dress_zmq/dress_stoch_routines.irp.f @@ -43,7 +43,7 @@ END_PROVIDER l=dress_R1(m-1)+1 do j=l, dress_R1(m) if(dress_M_mi(m, pt2_J(j)) == 0 .and. pt2_J(j) > dress_dot_n_0(m)) then - pt2_J(j) += N_det_generators**2 + pt2_J(j) += N_det_generators nmov += 1 end if end do @@ -52,7 +52,7 @@ END_PROVIDER end if dress_R1(m) -= nmov do j=dress_R1(m)+1, dress_R1(m) + nmov - pt2_J(j) -= N_det_generators**2 + pt2_J(j) -= N_det_generators end do end do END_PROVIDER