From 79be2a7790364139f6d90a150745164e9c380fa8 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 27 Jul 2020 08:27:16 -0400 Subject: [PATCH] Reformat the fort.21 output. --- lib/fst4_decode.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/fst4_decode.f90 b/lib/fst4_decode.f90 index 9626c7114..dfa9c912a 100644 --- a/lib/fst4_decode.f90 +++ b/lib/fst4_decode.f90 @@ -565,9 +565,10 @@ contains qual=0. fsig=fc_synced - 1.5*hmod*baud if(ex) then - write(21,'(i6.6,8i6,f7.1,f10.2,f7.1,1x,f7.2,1x,f7.1,1x,a37,f5.3)') & - nutc,icand,itry,nsyncoh,iaptype,ijitter,ntype,nsync_qual, & - nharderrors,dmin,sync,xsnr,xdt,fsig,msg,w50 + write(21,3021) nutc,icand,itry,nsyncoh,iaptype, & + ijitter,ntype,nsync_qual,nharderrors,dmin, & + sync,xsnr,xdt,fsig,w50,trim(msg) +3021 format(i6.6,6i3,2i4,f6.1,f7.2,f6.1,f6.2,f7.1,f7.3,1x,a) flush(21) endif call this%callback(nutc,smax1,nsnr,xdt,fsig,msg, &