From ffb591f6d731ba758d6b5b684f3232f2f575acdb Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Fri, 27 Jul 2018 17:01:00 +0200 Subject: [PATCH] Fix out-of-bounds --- plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f | 1 + 1 file changed, 1 insertion(+) diff --git a/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f b/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f index 2f85cc00..e6e2418f 100644 --- a/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f +++ b/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f @@ -344,6 +344,7 @@ subroutine pt2_collector(zmq_socket_pull, E, b, tbc, comb, Ncomb, computed, pt2_ eqt = sqrt(1d0 / (Nabove(tooth)-1.d0) * abs(sum2above(tooth) / Nabove(tooth) - (sumabove(tooth)/Nabove(tooth))**2)) else eqt = 0.d0 + tooth=comb_teeth endif call wall_time(time) if ( ((dabs(eqt/avg) < relative_error) .or. (dabs(eqt) < absolute_error)) .and. Nabove(tooth) >= 10.d0) then