Minor tweaks to how decoder statistics are compiled and displayed.

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 ec6847ff00
commit efeb157d94
3 changed files with 4 additions and 3 deletions

View File

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

View File

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

View File

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