From 96ad947a3784b3ab1cb9e77d930299f43b8d7114 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Mon, 27 Jan 2020 09:55:34 -0600 Subject: [PATCH] Implement decode quality metric for FT4. --- lib/ft4_decode.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/ft4_decode.f90 b/lib/ft4_decode.f90 index cbfb0b1b9..686d8ce88 100644 --- a/lib/ft4_decode.f90 +++ b/lib/ft4_decode.f90 @@ -446,8 +446,9 @@ contains endif nsnr=nint(max(-21.0,xsnr)) 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)') & -! nutc,nsnr,xdt,nint(f1),message,smax,iaptype,ipass,isp,dmin,nsync_qual,nharderror,iseg + qual=1.0-(nharderror+dmin)/60.0 +!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) exit endif