w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'feat-fst280' of bitbucket.org:k1jt/wsjtx into feat-fst280

This commit is contained in:
Bill Somerville 2020-07-27 13:37:04 +01:00
parent c5248bf116 4455861773
commit 4efd5536e8
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/fst4_decode.f90
View File

@ -569,9 +569,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, &