From 3658e32d5774462445bc3495bfb21c957f52e01f Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 28 Jun 2017 15:34:38 +0000 Subject: [PATCH] Use norder=3 at the QSO frequency. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7745 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fsk4hf/ft8b.f90 | 3 ++- lib/ft8_decode.f90 | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/fsk4hf/ft8b.f90 b/lib/fsk4hf/ft8b.f90 index bdac86d5d..1c0575757 100644 --- a/lib/fsk4hf/ft8b.f90 +++ b/lib/fsk4hf/ft8b.f90 @@ -1,4 +1,4 @@ -subroutine ft8b(s,f1,xdt,nharderrors,dmin,nbadcrc,message) +subroutine ft8b(s,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message) include 'ft8_params.f90' parameter(NRECENT=10) @@ -12,6 +12,7 @@ subroutine ft8b(s,f1,xdt,nharderrors,dmin,nbadcrc,message) max_iterations=40 norder=2 + if(abs(nfqso-f1).lt.10.0) norder=3 tstep=0.5*NSPS/12000.0 df=12000.0/NFFT1 diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90 index b6ff2cd4b..bb72349aa 100644 --- a/lib/ft8_decode.f90 +++ b/lib/ft8_decode.f90 @@ -54,7 +54,7 @@ contains xdt=candidate(2,icand) nsnr=min(99,nint(10.0*log10(sync) - 25.5)) !### empirical ### call timer('ft8b ',0) - call ft8b(s,f1,xdt,nharderrors,dmin,nbadcrc,message) + call ft8b(s,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message) call timer('ft8b ',1) if (associated(this%callback)) call this%callback(sync,nsnr,xdt, & f1,nbadcrc,message)