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

Correct a bug in jt65code.f90. (The "sent" array of symbols was

Browse Source 
clobbered by the decode test, before being displayed.)


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6000 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-10-24 18:09:50 +00:00
parent 1f26660585
commit 08235033cc
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/jt65code.f90
View File

@ -6,7 +6,7 @@ program JT65code
use packjt use packjt
character*22 msg,msg0,msg1,decoded,cok*3,bad*1,msgtype*10 character*22 msg,msg0,msg1,decoded,cok*3,bad*1,msgtype*10
integer dgen(12),sent(63),recd(12),era(51) integer dgen(12),sent(63),tmp(63),recd(12),era(51)
include 'testmsg.f90' include 'testmsg.f90'
nargs=iargc() nargs=iargc()
@ -60,9 +60,10 @@ program JT65code
call rs_encode(dgen,sent) !RS encode call rs_encode(dgen,sent) !RS encode
call interleave63(sent,1) !Interleave channel symbols call interleave63(sent,1) !Interleave channel symbols
call graycode(sent,63,1,sent) !Apply Gray code call graycode(sent,63,1,sent) !Apply Gray code
call graycode(sent,63,-1,sent)
call interleave63(sent,-1) call graycode(sent,63,-1,tmp) !Remove Gray code
call rs_decode(sent,era,0,recd,nerr) call interleave63(tmp,-1) !Remove interleaving
call rs_decode(tmp,era,0,recd,nerr) !Decode the message
call unpackmsg(recd,decoded) !Unpack the user message call unpackmsg(recd,decoded) !Unpack the user message
if(cok.eq."OOO") decoded(20:22)=cok if(cok.eq."OOO") decoded(20:22)=cok
call fmtmsg(decoded,iz) call fmtmsg(decoded,iz)