From 4847cf361733f9d82377a55051d5631d7971ce82 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 31 May 2021 10:23:22 -0400 Subject: [PATCH] Allow drift compensation with FTol greater than 100 Hz. --- lib/qra/q65/q65.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index 58c64e5cd..0552bc8da 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -437,7 +437,7 @@ subroutine q65_ccf_22(s1,iz,jz,nfqso,ntol,ndepth,ntrperiod,iavg,ipk,jpk, & ia=max(nfa,100)/df ib=min(nfb,4900)/df - if(nqd.ne.1 .or. iavg.ne.0 .or. ntol.ge.200) max_drift=0 + if(nqd.ne.1 .or. iavg.ne.0) max_drift=0 if(max_drift.ne.0) then ia=nint((nfqso-ntol)/df) ib=nint((nfqso+ntol)/df)