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

lib/extract.F90

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

lib/jt65a.f90

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

lib/jt9.f90

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