chris/js8call
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Output i3bits in FT8 decoder from JT9

Browse Source
This commit is contained in:
Jordan Sherer 2018-07-12 16:19:33 -04:00
parent f81a954d1d
commit 441936111a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/ft8/ft8b.f90
View File

@ -380,6 +380,7 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
if(i3bit.eq.1) decoded(57:)=0 if(i3bit.eq.1) decoded(57:)=0
call extractmessage174(decoded,message,ncrcflag) call extractmessage174(decoded,message,ncrcflag)
decoded=decoded0 decoded=decoded0
! This needs fixing for messages with i3bit=1: ! This needs fixing for messages with i3bit=1:
call genft8(message,mygrid6,bcontest,i3bit,msgsent,msgbits,itone) call genft8(message,mygrid6,bcontest,i3bit,msgsent,msgbits,itone)
if(lsubtract) call subtractft8(dd0,itone,f1,xdt2) if(lsubtract) call subtractft8(dd0,itone,f1,xdt2)
@ -397,6 +398,7 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
if(.not.nagain) xsnr=xsnr2 if(.not.nagain) xsnr=xsnr2
if(xsnr .lt. -24.0) xsnr=-24.0 if(xsnr .lt. -24.0) xsnr=-24.0
if(i3bit.eq.1) then if(i3bit.eq.1) then
do i=1,12 do i=1,12
i1hiscall(i)=ichar(hiscall12(i:i)) i1hiscall(i)=ichar(hiscall12(i:i))
@ -431,6 +433,10 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
else else
msg37=message//' ' msg37=message//' '
endif endif
if(i3bit.gt.1) then
msg37(22:22) = char(48 + i3bit)
endif
return return
endif endif