w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 02:12:37 -04:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/qra/q65/q65.f90
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 i=indx(jzz-j+1)+i1-1
if(ccf2(i).lt.3.3) exit !Candidate limit if(ccf2(i).lt.3.3) exit !Candidate limit
f=i*df 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 !Looked here already
i3=max(1,i-67*mode_q65) i3=max(1, i-mode_q65)
i4=min(iz,i+3*mode_q65) i4=min(iz,i+mode_q65)
biggest=maxval(ccf2(i3:i4)) biggest=maxval(ccf2(i3:i4))
if(ccf2(i).ne.biggest) cycle if(ccf2(i).ne.biggest) cycle
ncand=ncand+1 ncand=ncand+1