w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-24 13:18:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Eliminate some redundant candidates.

Browse Source
This commit is contained in:
Joe Taylor 2021-02-01 14:23:49 -05:00
parent 72a4158898
commit 34cb4c502d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/qra/q65/q65.f90
View File

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