From d9e91a88abc8c13fc29a583d08b8d21303d12cd4 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 14 Nov 2016 21:04:13 +0000 Subject: [PATCH] Tweak an output format in the QRA64 simulator. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7319 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/qra/qra64/qra64sim.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/qra/qra64/qra64sim.f90 b/lib/qra/qra64/qra64sim.f90 index 3d77bced7..7ba68f899 100644 --- a/lib/qra/qra64/qra64sim.f90 +++ b/lib/qra/qra64/qra64sim.f90 @@ -80,7 +80,7 @@ program qra64sim sig=sqrt(2*bandwidth_ratio)*10.0**(0.05*xsnr) if(xsnr.gt.90.0) sig=1.0 write(*,1020) ifile,isig,f0,csubmode,xsnr,xdt,fspread,msg -1020 format(i4,i4,f10.3,2x,a1,2x,f5.1,f6.2,f5.1,1x,a22) +1020 format(i4,i4,f10.3,2x,a1,2x,f5.1,f6.2,f6.1,1x,a22) phi=0.d0 dphi=0.d0