w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-02 22:22:33 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix print format for w50 in fort.21

Browse Source
This commit is contained in:
Steven Franke 2020-07-21 12:42:50 -05:00
parent bb9e1b1b90
commit 231b518a22
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/fst240_decode.f90
View File

@ -565,7 +565,7 @@ contains
qual=0. qual=0.
fsig=fc_synced - 1.5*hmod*baud fsig=fc_synced - 1.5*hmod*baud
if(ex) then if(ex) then
write(21,'(i6.6,8i6,f7.1,f10.2,f7.1,1x,f7.2,1x,f7.1,1x,a37,f5.1)') & 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, & nutc,icand,itry,nsyncoh,iaptype,ijitter,ntype,nsync_qual, &
nharderrors,dmin,sync,xsnr,xdt,fsig,msg,w50 nharderrors,dmin,sync,xsnr,xdt,fsig,msg,w50
flush(21) flush(21)