w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-14 16:11:50 -05:00
Code Issues Packages Projects Releases Wiki Activity

Implement decode quality metric for FT4.

Browse Source
This commit is contained in:
Steven Franke 2020-01-27 09:55:34 -06:00
parent 70b84478f0
commit 96ad947a37
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/ft4_decode.f90
View File

@ -446,8 +446,9 @@ contains
endif endif
nsnr=nint(max(-21.0,xsnr)) nsnr=nint(max(-21.0,xsnr))
xdt=ibest/666.67 - 0.5 xdt=ibest/666.67 - 0.5
!write(21,'(i6.6,i5,2x,f4.1,i6,2x,a37,2x,f4.1,3i3,f5.1,i4,i4,i4)') & qual=1.0-(nharderror+dmin)/60.0
! nutc,nsnr,xdt,nint(f1),message,smax,iaptype,ipass,isp,dmin,nsync_qual,nharderror,iseg !write(21,'(i6.6,i5,2x,f4.1,i6,2x,a37,2x,f4.1,3i3,f5.1,i4,i4,i4,f6.2)') &
! nutc,nsnr,xdt,nint(f1),message,smax,iaptype,ipass,isp,dmin,nsync_qual,nharderror,iseg,qual
call this%callback(smax,nsnr,xdt,f1,message,iaptype,qual) call this%callback(smax,nsnr,xdt,f1,message,iaptype,qual)
exit exit
endif endif