From 8f159db05681ebbdc296d1aeb62fd6439b7d4f5a Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 4 Jan 2023 14:49:22 -0500
Subject: [PATCH] Don't do the "stest" cycle when decoding for Q65W.

---
 lib/qra/q65/q65.f90 | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index fa548e18f..9619a03f7 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -516,9 +516,14 @@ subroutine q65_ccf_22(s1,iz,jz,nfqso,ntol,ndepth,ntrperiod,iavg,ipk,jpk,  &
   lagpk=0
   lagbest=0
   idrift_best=0
+  stest_min=1.4
+
+! Special case for Q65W:
+  if(nfa.eq.990 .and. nfb.eq.1010 .and. nfqso.eq.1000) stest_min=0.0
+
   do i=ia,ib
-     stest=s1avg(i)/(1.015*base0)
-     if(stest.lt.1.4) cycle
+     stest=s1avg(i)/base0
+     if(stest.lt.stest_min) cycle
      ccfmax=0.
      do lag=lag1,lag2
         do idrift=-max_drift,max_drift