w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 02:12:37 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix minor bug in gen9 -- thanks to Igor, UA3DJY, for identifying it!

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7692 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-05-19 14:44:20 +00:00
parent 0eaa1222f8
commit bfa4b2895d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/gen9.f90
View File

@ -43,7 +43,9 @@ subroutine gen9(msg0,ichk,msgsent,i4tone,itype)
call entail(i4Msg6BitWords,i1Msg8BitBytes) !Add tail, make 8-bit bytes call entail(i4Msg6BitWords,i1Msg8BitBytes) !Add tail, make 8-bit bytes
nsym2=206 nsym2=206
call encode232(i1Msg8BitBytes,nsym2,i1EncodedBits) !Encode K=32, r=1/2 call encode232(i1Msg8BitBytes,nsym2,i1EncodedBits) !Encode K=32, r=1/2
i1EncodedBits(207)=0
call interleave9(i1EncodedBits,1,i1ScrambledBits) !Interleave bits call interleave9(i1EncodedBits,1,i1ScrambledBits) !Interleave bits
i1ScrambledBits(207)=0
call packbits(i1ScrambledBits,69,3,i4DataSymbols) !Pk 3-bits into words call packbits(i1ScrambledBits,69,3,i4DataSymbols) !Pk 3-bits into words
call graycode(i4DataSymbols,69,1,i4GrayCodedSymbols) !Apply Gray code call graycode(i4DataSymbols,69,1,i4GrayCodedSymbols) !Apply Gray code