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

Only print dupes if SNR is higher than what has already been printed.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7931 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-07-20 21:08:36 +00:00
parent fc5e10fc08
commit 925cd09085
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lib/ft8_decode.f90
View File

@ -36,12 +36,14 @@ contains
real candidate(3,200) real candidate(3,200)
real dd(15*12000) real dd(15*12000)
logical, intent(in) :: nagain logical, intent(in) :: nagain
logical newdat,lsubtract logical newdat,lsubtract,ldupe
character*12 mycall12, hiscall12 character*12 mycall12, hiscall12
character*6 hisgrid6 character*6 hisgrid6
integer*2 iwave(15*12000) integer*2 iwave(15*12000)
integer apsym(KK) integer apsym(KK)
character datetime*13,message*22 character datetime*13,message*22
character*22 allmessages(100)
integer allsnrs(100)
save s,dd save s,dd
this%callback => callback this%callback => callback
@ -52,6 +54,10 @@ contains
dd=iwave dd=iwave
ndecodes=0
allmessages=' '
allsnrs=0
! For now: ! For now:
! ndepth=1: no subtraction, 1 pass, belief propagation only ! ndepth=1: no subtraction, 1 pass, belief propagation only
! ndepth=2: subtraction, 2 passes, belief propagation only ! ndepth=2: subtraction, 2 passes, belief propagation only
@ -87,11 +93,20 @@ contains
call jtmsg(message,iflag) call jtmsg(message,iflag)
if(iand(iflag,16).ne.0) message(22:22)='?' if(iand(iflag,16).ne.0) message(22:22)='?'
if(iand(iflag,15).eq.0) then if(iand(iflag,15).eq.0) then
ldupe=.false.
do id=1,ndecodes
if(message.eq.allmessages(id).and.nsnr.le.allsnrs(id)) ldupe=.true.
enddo
if(.not.ldupe) then
ndecodes=ndecodes+1
allmessages(ndecodes)=message
allsnrs(ndecodes)=nsnr
endif
! write(81,1004) nutc,ncand,icand,ipass,iaptype,iap,iera, & ! write(81,1004) nutc,ncand,icand,ipass,iaptype,iap,iera, &
! iflag,nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), & ! iflag,nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), &
! xdt,nint(f1),message ! xdt,nint(f1),message
! flush(81) ! flush(81)
if(associated(this%callback)) then if(.not.ldupe .and. associated(this%callback)) then
call this%callback(sync,nsnr,xdt,f1,iap,iera,message) call this%callback(sync,nsnr,xdt,f1,iap,iera,message)
endif endif
else else