From f0824553f78b15deb4a1a7a966a5de9f801514d0 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Thu, 6 Jul 2017 18:58:04 +0000 Subject: [PATCH] Disable subtraction for now. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7794 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fsk4hf/ft8b.f90 | 2 +- lib/ft8_decode.f90 | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/fsk4hf/ft8b.f90 b/lib/fsk4hf/ft8b.f90 index 4bf9d0ffa..11a9b3731 100644 --- a/lib/fsk4hf/ft8b.f90 +++ b/lib/fsk4hf/ft8b.f90 @@ -129,7 +129,7 @@ subroutine ft8b(dd0,newdat,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr) if(nbadcrc.eq.0) then call extractmessage174(decoded,message,ncrcflag,recent_calls,nrecent) call genft8(message,msgsent,itone) - call subtractft8(dd0,itone,f1,xdt2) +! call subtractft8(dd0,itone,f1,xdt2) xsig=0.0 xnoi=0.0 do i=1,79 diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90 index cf6d459f2..a167af6a9 100644 --- a/lib/ft8_decode.f90 +++ b/lib/ft8_decode.f90 @@ -56,10 +56,10 @@ contains if(sync.lt.syncmin) cycle f1=candidate(1,icand) xdt=candidate(2,icand) - nsnr=min(99,nint(10.0*log10(sync) - 25.5)) !### empirical ### + nsnr0=min(99,nint(10.0*log10(sync) - 25.5)) !### empirical ### call timer('ft8b ',0) call ft8b(dd,newdat,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr) - nsnr=xsnr + nsnr=xsnr xdt=xdt-0.6 call timer('ft8b ',1) if (associated(this%callback)) call this%callback(sync,nsnr,xdt, &