mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-02-21 04:58:33 -05:00
Better handling of decodes with unhashed callsigns.
This commit is contained in:
parent
2de786329b
commit
3b783a083e
@ -325,7 +325,7 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
|
|||||||
cycle
|
cycle
|
||||||
endif
|
endif
|
||||||
nbadcrc=0 ! If we get this far: valid codeword, valid (i3,n3), nonquirky message.
|
nbadcrc=0 ! If we get this far: valid codeword, valid (i3,n3), nonquirky message.
|
||||||
call genft8_174_91(msg37,i3,n3,msgsent37,msgbits,itone)
|
call get_tones_from_77bits(message77,itone)
|
||||||
if(lsubtract) call subtractft8(dd0,itone,f1,xdt)
|
if(lsubtract) call subtractft8(dd0,itone,f1,xdt)
|
||||||
xsig=0.0
|
xsig=0.0
|
||||||
xnoi=0.0
|
xnoi=0.0
|
||||||
|
@ -17,11 +17,13 @@ subroutine genft8_174_91(msg,i3,n3,msgsent,msgbits,itone)
|
|||||||
i3=-1
|
i3=-1
|
||||||
n3=-1
|
n3=-1
|
||||||
call pack77(msg,i3,n3,c77)
|
call pack77(msg,i3,n3,c77)
|
||||||
call unpack77(c77,msgsent,unpk77_success)
|
|
||||||
|
|
||||||
read(c77,'(77i1)',err=1) msgbits
|
read(c77,'(77i1)',err=1) msgbits
|
||||||
go to 2
|
go to 2
|
||||||
1 write(81,*) msg,c77 ; flush(81)
|
1 write(81,*) msg,c77 ; flush(81)
|
||||||
|
|
||||||
|
entry get_tones_from_77bits(msgbits,itone)
|
||||||
|
|
||||||
2 call encode174_91(msgbits,codeword) !Encode the test message
|
2 call encode174_91(msgbits,codeword) !Encode the test message
|
||||||
|
|
||||||
! Message structure: S7 D29 S7 D29 S7
|
! Message structure: S7 D29 S7 D29 S7
|
||||||
|
Loading…
Reference in New Issue
Block a user