w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-23 12:48:40 -05:00
Code Issues Packages Projects Releases Wiki Activity

Minor tweaks to how decoder statistics are compiled and displayed.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4964 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-02-13 20:25:49 +00:00
parent 272dcbe3eb
commit 71a2f501eb
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/extract.F90
View File

@ -115,8 +115,6 @@ subroutine extract(s3,nadd,nqd,ncount,nhist,decoded,ltext,nbmkv)
endif
900 continue
if(nbmkv.eq.1) numbm=numbm+1
if(nbmkv.eq.2) numkv=numkv+1
return
end subroutine extract

3
lib/jt65a.f90
View File

@ -12,6 +12,7 @@ subroutine jt65a(dd0,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nagain,ndecoded)
logical done(NSZ)
real a(5)
character decoded*22
common/decstats/num65,numbm,numkv,num9,numfano
save
dd=0.
@ -76,6 +77,8 @@ subroutine jt65a(dd0,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nagain,ndecoded)
if(nsnr.lt.-30) nsnr=-30
if(nsnr.gt.-1) nsnr=-1
dt=dt-tskip
if(nbmkv.eq.1) numbm=numbm+1
if(nbmkv.eq.2) numkv=numkv+1
! Serialize writes - see also decjt9.f90

2
lib/jt9.f90
View File

@ -222,7 +222,7 @@ program jt9
write(12,1100) numbm,numkv,num65
1100 format(/'JT65: ',i6,' BM and',i7,' KV in',i7,' attempts')
write(12,1110) numfano,num9
1110 format('JT9: ',i6,' Fano in',12x,i7,' attempts')
1110 format( 'JT9: ',i6,' Fano in',i7,' attempts')
! Save wisdom and free memory
iret=fftwf_export_wisdom_to_filename(wisfile)