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

If file decdata is present in the data directory, then write detailed decoder data to file fst4_decodes.dat in the same directory.

This commit is contained in:
Steven Franke 2020-12-15 09:46:16 -06:00 committed by Bill Somerville
parent 812bd29e54
commit 89cbd177df
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/fst4_decode.f90
View File

@ -593,13 +593,14 @@ contains
nsnr=nint(xsnr)
qual=0.0
fsig=fc_synced - 1.5*baud
inquire(file='decdata',exist=decdata_exists)
inquire(file=trim(data_dir)//'/decdata',exist=decdata_exists)
if(decdata_exists) then
open(21,file=trim(data_dir)//'/fst4_decodes.dat',status='unknown')
write(21,3021) nutc,icand,itry,nsyncoh,iaptype, &
ijitter,ntype,Keff,nsync_qual,nharderrors,dmin, &
sync,xsnr,xdt,fsig,w50,trim(msg)
3021 format(i6.6,6i3,3i4,f6.1,f9.2,f6.1,f6.2,f7.1,f7.3,1x,a)
flush(21)
close(21)
endif
call this%callback(nutc,smax1,nsnr,xdt,fsig,msg, &
iaptype,qual,ntrperiod,lwspr,fmid,w50)