From c091fcc90858a26eca5e5dbc2766a279afead276 Mon Sep 17 00:00:00 2001 From: Bill Somerville Date: Tue, 27 Oct 2015 16:47:31 +0000 Subject: [PATCH] Merged r6000 from development branch Fixes a defect in jt65code. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx-1.5@6012 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 9d528907d..032842e17 100644 --- a/lib/jt65code.f90 +++ b/lib/jt65code.f90 @@ -6,7 +6,7 @@ program JT65code character*22 testmsg(26) 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) nargs=iargc() if(nargs.ne.1) then @@ -80,9 +80,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)