From fd1c6daf51d595cf2fe5ef61b78faef259e10c36 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Tue, 5 Apr 2016 17:55:38 +0000 Subject: [PATCH] Minor tweaks to the 9w decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6579 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/decode9w.f90 | 2 +- lib/sync9w.f90 | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/decode9w.f90 b/lib/decode9w.f90 index 60b769bde..b4f02c628 100644 --- a/lib/decode9w.f90 +++ b/lib/decode9w.f90 @@ -42,7 +42,7 @@ subroutine decode9w(nutc,nfqso,ntol,nsubmode,ss,id2,sync,nsnr,xdt1,f0,decoded) ccfblue=(ccfblue-base)/rms enddo - call softsym9w(id2,npts,xdt0,f0,a(4)*df,nsubmode,xdt1,i1softsymbols) + call softsym9w(id2,npts,xdt0,f0,a(4)*df,nsubmode,xdt1-1.05,i1softsymbols) call jt9fano(i1softsymbols,limit,nlim,decoded) return diff --git a/lib/sync9w.f90 b/lib/sync9w.f90 index f6797535c..f69720d78 100644 --- a/lib/sync9w.f90 +++ b/lib/sync9w.f90 @@ -74,6 +74,8 @@ subroutine sync9w(ss,nzhsym,lag1,lag2,ia,ib,ccfred,ccfblue,ipkbest,lagpk,nadd) lagpk=lag endif enddo + if(lagpk.eq.-9) lagpk=-8 !Protect the ends of ccfblue() + if(lagpk.eq.18) lagpk=17 return end subroutine sync9w