w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-23 12:48:40 -05:00
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.

Browse Source
This commit is contained in:
Steven Franke 2020-12-15 09:46:16 -06:00
parent 2960adc557
commit 1878685134
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) nsnr=nint(xsnr)
qual=0.0 qual=0.0
fsig=fc_synced - 1.5*baud 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 if(decdata_exists) then
open(21,file=trim(data_dir)//'/fst4_decodes.dat',status='unknown')
write(21,3021) nutc,icand,itry,nsyncoh,iaptype, & write(21,3021) nutc,icand,itry,nsyncoh,iaptype, &
ijitter,ntype,Keff,nsync_qual,nharderrors,dmin, & ijitter,ntype,Keff,nsync_qual,nharderrors,dmin, &
sync,xsnr,xdt,fsig,w50,trim(msg) 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) 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 endif
call this%callback(nutc,smax1,nsnr,xdt,fsig,msg, & call this%callback(nutc,smax1,nsnr,xdt,fsig,msg, &
iaptype,qual,ntrperiod,lwspr,fmid,w50) iaptype,qual,ntrperiod,lwspr,fmid,w50)