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
This commit is contained in:
Joe Taylor 2016-06-23 15:50:59 +00:00
parent f146375dd0
commit e2ea412e24
2 changed files with 4 additions and 4 deletions

View File

@ -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);

View File

@ -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