From 1f42b7092a72af16bd26f40e576f456f842f88e7 Mon Sep 17 00:00:00 2001 From: Thomas Applencourt Date: Wed, 25 Jan 2017 20:19:34 -0600 Subject: [PATCH] Update selection.irp.f --- plugins/CAS_SD_ZMQ/selection.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/plugins/CAS_SD_ZMQ/selection.irp.f b/plugins/CAS_SD_ZMQ/selection.irp.f index f90ee488..33aab57d 100644 --- a/plugins/CAS_SD_ZMQ/selection.irp.f +++ b/plugins/CAS_SD_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