From 61ba34a0b46e5ee9aac44badf24f050ece565b24 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 16 Mar 2021 13:04:24 -0400
Subject: [PATCH] Reduce the range i3:14 testing for max when selecting Q65
 candidates.

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

diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index 5ed6d5deb..0289039bd 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -473,9 +473,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.3) exit                !Candidate limit
      f=i*df
-     if(f.ge.(nfqso-ftol) .and. f.le.(nfqso+ftol)) cycle
-     i3=max(1,i-67*mode_q65)
-     i4=min(iz,i+3*mode_q65)
+     if(f.ge.(nfqso-ftol) .and. f.le.(nfqso+ftol)) cycle  !Looked here already
+     i3=max(1, i-mode_q65)
+     i4=min(iz,i+mode_q65)
      biggest=maxval(ccf2(i3:i4))
      if(ccf2(i).ne.biggest) cycle
      ncand=ncand+1