From 191df237d7962ce64ede5bd689c4a5b1f9652f2f Mon Sep 17 00:00:00 2001 From: Thomas Applencourt Date: Wed, 25 Jan 2017 20:14:11 -0600 Subject: [PATCH] Update selection.irp.f --- plugins/Full_CI_ZMQ/selection.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/plugins/Full_CI_ZMQ/selection.irp.f b/plugins/Full_CI_ZMQ/selection.irp.f index 3f351004..b0078b18 100644 --- a/plugins/Full_CI_ZMQ/selection.irp.f +++ b/plugins/Full_CI_ZMQ/selection.irp.f @@ -112,7 +112,7 @@ double precision function get_phase_bi(phasemask, s1, s2, h1, p1, h2, p2) if(s1 == s2 .and. max(h1, p1) > min(h2, p2)) np = np + 1_1 get_phase_bi = res(iand(np,1_1)) -end subroutine +end function