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, &