w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-03 13:30:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'develop' into feat-APforRU

Browse Source
This commit is contained in:
Steve Franke 2018-09-28 17:15:15 -05:00
commit 77904edc81
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft8/ft8b_2.f90
View File

@ -358,7 +358,7 @@ write(*,*) apmag,lapon,lapcqonly,npasses,nQSOProgress
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,i3g,n3g,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

6
lib/ft8/genft8_174_91.f90
View File

@ -17,12 +17,14 @@ 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)
2 call encode174_91(msgbits,codeword) !Encode 77-bit msg into codeword
entry get_tones_from_77bits(msgbits,itone)
2 call encode174_91(msgbits,codeword) !Encode the test message
! Message structure: S7 D29 S7 D29 S7 ! Message structure: S7 D29 S7 D29 S7
itone(1:7)=icos7 itone(1:7)=icos7