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

Implement de-duping for FST280.

Browse Source
This commit is contained in:
Steven Franke 2020-06-21 12:40:38 -05:00
parent 956aa2dfc5
commit 79c437f69a
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/fst280_decode.f90
View File

@ -34,6 +34,7 @@ contains
parameter (MAXCAND=100) parameter (MAXCAND=100)
class(fst280_decoder), intent(inout) :: this class(fst280_decoder), intent(inout) :: this
procedure(fst280_decode_callback) :: callback procedure(fst280_decode_callback) :: callback
character*37 decodes(100)
character*37 msg character*37 msg
character*77 c77 character*77 c77
complex, allocatable :: c2(:) complex, allocatable :: c2(:)
@ -135,6 +136,8 @@ contains
ncand,candidates) ncand,candidates)
ndecodes=0 ndecodes=0
decodes=' '
isbest1=0 isbest1=0
isbest8=0 isbest8=0
fc21=0. fc21=0.
@ -308,7 +311,14 @@ contains
c77(51:77)='000000000000000000000110000' c77(51:77)='000000000000000000000110000'
call unpack77(c77,0,msg,unpk77_success) call unpack77(c77,0,msg,unpk77_success)
endif endif
if(nharderrors .ge.0 .and. unpk77_success) then if(unpk77_success) then
idupe=0
do i=1,ndecodes
if(decodes(i).eq.msg) idupe=1
enddo
if(idupe.eq.1) exit
ndecodes=ndecodes+1
decodes(ndecodes)=msg
nsnr=nint(xsnr) nsnr=nint(xsnr)
iaptype=0 iaptype=0
qual=0. qual=0.