w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-09-28 16:16:48 -04:00
Code Issues Packages Projects Releases Wiki Activity

Minor tweaks to qra65code to facilitate simple simulations.

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/qra/qra65/qra65_subs.c
View File

@ -22,8 +22,8 @@ void qra65_dec_(float r[], int xdec[], int* rc)
// rc=4 [CALL ? ] AP45 // rc=4 [CALL ? ] AP45
// rc=5 [CALL CALL ?] AP57 // rc=5 [CALL CALL ?] AP57
// int ncall=0xf70c238; //K1ABC int ncall=0xf70c238; //K1ABC
int ncall=0x890c60c; //KA1ABC // int ncall=0x890c60c; //KA1ABC
int i; int i;
qra65codec *codec = qra65_init(1,ncall); //codec for ncall qra65codec *codec = qra65_init(1,ncall); //codec for ncall
*rc = qra65_decode(codec,xdec,r); *rc = qra65_decode(codec,xdec,r);

4
lib/qra65code.f90
View File

@ -96,7 +96,7 @@ program QRA65code
ii=imsg ii=imsg
if(nrpt.gt.1) ii=nn if(nrpt.gt.1) ii=nn
write(*,1020) ii,msg0,decoded,itype,msgtype,irc 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 enddo
if(nmsg.eq.1 .and.nrpt.eq.1) then if(nmsg.eq.1 .and.nrpt.eq.1) then
@ -113,7 +113,7 @@ program QRA65code
if(nrpt.gt.1) then if(nrpt.gt.1) then
write(*,1060) ngood,nrpt,nbad write(*,1060) ngood,nrpt,nbad
1060 format('Decoded messages: ',i3,'/',i3,' Undetected errors:',i4) 1060 format('Decoded messages:',i5,'/',i4,' Undetected errors:',i5)
endif endif
999 end program QRA65code 999 end program QRA65code