From 9113a5b7726382731b410df57610d411476772ae Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 16 Jan 2017 20:18:53 +0000 Subject: [PATCH] Correct several display formats. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@7515 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- libm65/map65a.f90 | 4 ++-- libm65/qra64c.f90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/libm65/map65a.f90 b/libm65/map65a.f90 index c0c582eae..00a6a8213 100644 --- a/libm65/map65a.f90 +++ b/libm65/map65a.f90 @@ -327,7 +327,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, & if(ndphi.eq.0) then write(*,1010) nkHz,ndf,npol,nutc,dt,nsync2, & cm,decoded,nkv,nqual,ntxpol,cp -1010 format('!',i3,i5,i4,i6.4,1x,f5.1,i4,a1,1x,a22,i2,i5,i5,1x,a1) +1010 format('!',i3,i5,i4,i6.4,f5.1,i5,1x,a1,1x,a22,i2,i5,i5,1x,a1) else if(iloop.ge.1) qphi(iloop)=sig(k,10) write(*,1010) nkHz,ndf,npol,nutc,dt,nsync2, & @@ -467,7 +467,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, & j=j+nsiz(n) enddo write(26,1015) nutc -1015 format(38x,i6.4,' ') +1015 format(37x,i6.4,' ') call flush(21) call flush(26) call display(nkeep,ftol) diff --git a/libm65/qra64c.f90 b/libm65/qra64c.f90 index e97baa5c3..758f74199 100644 --- a/libm65/qra64c.f90 +++ b/libm65/qra64c.f90 @@ -166,7 +166,7 @@ subroutine qra64c(cx,cy,nutc,nqd,ikhz,nfqso,ntol,xpol,mycall_12, & ntxpol=0 if(irc.ge.0) then write(*,1010) ikHz,nfreq,npol,nutc,dtx,nsnr,cmode,decoded,irc,ntxpol,cp -1010 format('!',i3,i5,i4,i6.4,f5.1,i5,a1,1x,a22,i2,i5,1x,a1) +1010 format('!',i3,i5,i4,i6.4,f5.1,i5,1x,a1,1x,a22,i2,i5,1x,a1) nwrite_qra64=nwrite_qra64+1 else write(*,1010) ikHz,nfreq,npol,nutc,dtx,nsnr,cmode