w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-26 14:18:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix incorrect reference to extract77 - should have been unpack77

Browse Source
This commit is contained in:
Steve Franke 2018-07-03 15:59:24 -05:00
parent c4e6a310aa
commit 24f4792b23
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/ft8/ft8b_2.f90
View File

@ -310,16 +310,14 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
call osd174_91(llrd,apmask,ndeep,message77,cw,nharderrors,dmin) call osd174_91(llrd,apmask,ndeep,message77,cw,nharderrors,dmin)
call timer('osd174_91 ',1) call timer('osd174_91 ',1)
endif endif
message=' ' msg37=' '
xsnr=-99.0 xsnr=-99.0
if(nharderrors.lt.0) cycle if(nharderrors.lt.0) cycle
if(count(cw.eq.0).eq.174) cycle !Reject the all-zero codeword if(count(cw.eq.0).eq.174) cycle !Reject the all-zero codeword
nbadcrc=0 ! If we get this far, must be a valid codeword. nbadcrc=0 ! If we get this far, must be a valid codeword.
i3=4*message77(72) + 2*message77(73) + message77(74) i3=4*message77(72) + 2*message77(73) + message77(74)
n3=4*message77(75) + 2*message77(76) + message77(77) n3=4*message77(75) + 2*message77(76) + message77(77)
iFreeText=message77(57) call unpack77(message77,msg37)
if(i5bit.eq.1) message77(57:)=0
call extract77(message77,msg37)
! This needs fixing for messages with i5bit=1 ! This needs fixing for messages with i5bit=1
call genft8_174_91(msg37,mygrid6,bcontest,i3,n3,msgsent37,msgbits,itone) call genft8_174_91(msg37,mygrid6,bcontest,i3,n3,msgsent37,msgbits,itone)
if(lsubtract) call subtractft8(dd0,itone,f1,xdt) if(lsubtract) call subtractft8(dd0,itone,f1,xdt)