From ba6d576413a82e050d3fcc471b18448a15a4d643 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 23 Jun 2016 15:50:59 +0000 Subject: [PATCH] Minor tweaks to qra65code to facilitate simple simulations. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6803 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/qra/qra65/qra65_subs.c | 4 ++-- lib/qra65code.f90 | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/qra/qra65/qra65_subs.c b/lib/qra/qra65/qra65_subs.c index a0100f8da..e5c7f2a06 100644 --- a/lib/qra/qra65/qra65_subs.c +++ b/lib/qra/qra65/qra65_subs.c @@ -22,8 +22,8 @@ void qra65_dec_(float r[], int xdec[], int* rc) // rc=4 [CALL ? ] AP45 // rc=5 [CALL CALL ?] AP57 - // int ncall=0xf70c238; //K1ABC - int ncall=0x890c60c; //KA1ABC + int ncall=0xf70c238; //K1ABC + // int ncall=0x890c60c; //KA1ABC int i; qra65codec *codec = qra65_init(1,ncall); //codec for ncall *rc = qra65_decode(codec,xdec,r); diff --git a/lib/qra65code.f90 b/lib/qra65code.f90 index bbcca3fe9..d9718a900 100644 --- a/lib/qra65code.f90 +++ b/lib/qra65code.f90 @@ -96,7 +96,7 @@ program QRA65code ii=imsg if(nrpt.gt.1) ii=nn write(*,1020) ii,msg0,decoded,itype,msgtype,irc -1020 format(i3,2x,a22,2x,a22,4x,i3,": ",a13,i3) +1020 format(i4,1x,a22,2x,a22,4x,i3,": ",a13,i3) enddo if(nmsg.eq.1 .and.nrpt.eq.1) then @@ -113,7 +113,7 @@ program QRA65code if(nrpt.gt.1) then write(*,1060) ngood,nrpt,nbad -1060 format('Decoded messages: ',i3,'/',i3,' Undetected errors:',i4) +1060 format('Decoded messages:',i5,'/',i4,' Undetected errors:',i5) endif 999 end program QRA65code