From 34cb4c502d4be6ee7b5c188a81155d69ecb1ecd2 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 1 Feb 2021 14:23:49 -0500
Subject: [PATCH] Eliminate some redundant candidates.

---
 lib/qra/q65/q65.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index 7b3053e4c..94e4d3ba1 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -447,7 +447,9 @@ subroutine q65_ccf_22(s1,iz,jz,nfqso,ipk,jpk,f0,xdt,ccf2)
      i=indx(jzz-j+1)+i1-1
      if(ccf2(i).lt.3.0) exit
      f=i*df
-     if(f.ge.(nfqso-ftol) .and. f.le.(nfqso+ftol)) cycle     
+     if(f.ge.(nfqso-ftol) .and. f.le.(nfqso+ftol)) cycle
+     biggest=maxval(ccf2(i-3:i+3))
+     if(ccf2(i).ne.biggest) cycle
      ncand=ncand+1
      candidates(ncand,1)=ccf2(i)
      candidates(ncand,2)=xdt2(i)