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

Make sure that ncand is correct even when the number of candidates has been limited.

Browse Source
This commit is contained in:
K9AN 2020-06-19 20:56:50 -05:00
parent f2b460231b
commit e78f1abced
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/fst280_decode.f90
View File

@ -441,9 +441,10 @@ contains
call pctile(s2(ia:ib),ib-ia+1,30,base) call pctile(s2(ia:ib),ib-ia+1,30,base)
s2=s2/base s2=s2/base
thresh=1.25 thresh=1.4
ncand=0 ncand=0
candidates=0
if(ia.lt.3) ia=3 if(ia.lt.3) ia=3
if(ib.gt.18000-2) ib=18000-2 if(ib.gt.18000-2) ib=18000-2
do i=ia,ib do i=ia,ib
@ -464,7 +465,8 @@ contains
snr_cand(1:ncand)=candidates(1:ncand,2) snr_cand(1:ncand)=candidates(1:ncand,2)
call indexx(snr_cand,ncand,indx) call indexx(snr_cand,ncand,indx)
nmax=5 nmax=5
do i=1,min(ncand,nmax) ncand=min(ncand,nmax)
do i=1,ncand
j=indx(ncand+1-i) j=indx(ncand+1-i)
candidates0(i,1:4)=candidates(j,1:4) candidates0(i,1:4)=candidates(j,1:4)
enddo enddo