Reduce the range i3:14 testing for max when selecting Q65 candidates.

This commit is contained in:
Joe Taylor 2021-03-16 13:04:24 -04:00
parent 06f7ca7c75
commit 61ba34a0b4
1 changed files with 3 additions and 3 deletions

View File

@ -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