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

Add code to sort FST280 candidates by strength and return only the top few. Temporary?

Browse Source
This commit is contained in:
Joe Taylor 2020-06-19 15:54:59 -04:00
parent dc2d1057bd
commit dff2b7e146
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/fst280_decode.f90
View File

@ -410,7 +410,10 @@ contains
complex c_bigfft(0:nfft1/2)
integer hmod
integer indx(100)
real candidates(100,4)
real candidates0(100,4)
real snr_cand(100)
real s(18000)
real s2(18000)
data nfft1z/-1/
@ -457,6 +460,17 @@ contains
endif
enddo
snr_cand=0.
snr_cand(1:ncand)=candidates(1:ncand,2)
call indexx(snr_cand,ncand,indx)
nmax=5
do i=1,min(ncand,nmax)
j=indx(ncand+1-i)
candidates0(i,1:4)=candidates(j,1:4)
enddo
candidates(1:nmax,1:4)=candidates0(1:nmax,1:4)
candidates(nmax+1:,1:4)=0.
return
end subroutine get_candidates_fst280