From 08235033ccec3eb17ebcb4c9279f5fef1cee11c6 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sat, 24 Oct 2015 18:09:50 +0000 Subject: [PATCH] Correct a bug in jt65code.f90. (The "sent" array of symbols was 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 --- lib/jt65code.f90 | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lib/jt65code.f90 b/lib/jt65code.f90 index b0cb95a6f..961ffe557 100644 --- a/lib/jt65code.f90 +++ b/lib/jt65code.f90 @@ -6,7 +6,7 @@ program JT65code use packjt 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' nargs=iargc() @@ -60,9 +60,10 @@ program JT65code call rs_encode(dgen,sent) !RS encode call interleave63(sent,1) !Interleave channel symbols call graycode(sent,63,1,sent) !Apply Gray code - call graycode(sent,63,-1,sent) - call interleave63(sent,-1) - call rs_decode(sent,era,0,recd,nerr) + + call graycode(sent,63,-1,tmp) !Remove Gray code + 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 if(cok.eq."OOO") decoded(20:22)=cok call fmtmsg(decoded,iz)