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)