From fe5f640346d59321aba4beb85191f61982a51d53 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Wed, 1 Feb 2017 17:00:39 +0100 Subject: [PATCH] Corrected bug in pt2stoch --- plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f b/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f index 0a5d287e..96d770eb 100644 --- a/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f +++ b/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f @@ -295,8 +295,8 @@ integer function pt2_find(v, w, sze, imin, imax) end if end do !DIR$ LOOP COUNT (64) - do pt2_find=l,min(l+block,h) - if(w(pt2_find+1) > v) then + do pt2_find=l,h + if(w(pt2_find) >= v) then exit end if end do