diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index 636f36a39..94eb60ced 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -501,7 +501,7 @@ subroutine q65_ccf_22(s1,iz,jz,nfqso,ntol,iavg,ipk,jpk, & ia=max(nfa,100)/df ib=min(nfb,4900)/df - if(nqd.ne.1 .or. iavg.ne.0) max_drift=0 +! if(nqd.ne.1 .or. iavg.ne.0) max_drift=0 !### Disabled March 22, 2023 if(max_drift.ne.0) then ia=max(nint(100/df),nint((nfqso-ntol)/df)) ib=min(nint(4900/df),nint((nfqso+ntol)/df))