From c30b91cb6919ab6b0b9205609f93f963b26a527f Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 29 Oct 2021 15:31:22 -0400 Subject: [PATCH] Correct a format. --- lib/ft8_decode.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90 index bd08dde5c..b9e01be4c 100644 --- a/lib/ft8_decode.f90 +++ b/lib/ft8_decode.f90 @@ -243,7 +243,7 @@ contains xdt,xsnr,msg37,snr7,snr7b) ddt=xdt-dt0(i,jseq,0) write(41,3041) nutc,snr7,snr7b,xdt,ddt,nint(f0(i,jseq,0)),trim(msg37) -3041 format(i6.6,3f7.2,2f6.2,i5,2x,a) +3041 format(i6.6,4f7.2,i5,2x,a) if(snr7.lt.6.0 .or. snr7b.lt.1.8) cycle write(42,3041) nutc,snr7,snr7b,xdt,ddt,nint(f0(i,jseq,0)),trim(msg37) flush(41)