From d3ca5fdc8efca0f2c2c3f5ab3170a87787255da9 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sat, 28 Feb 2015 14:24:57 +0000 Subject: [PATCH] Another minor adjustment to the JT9 decoder, conditionally changing limits on sync and schk. (Probably still more to come...) git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4998 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/decjt9.f90 | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lib/decjt9.f90 b/lib/decjt9.f90 index 80f32cca3..d08975811 100644 --- a/lib/decjt9.f90 +++ b/lib/decjt9.f90 @@ -50,10 +50,12 @@ subroutine decjt9(ss,id2,nutc,nfqso,newdat,npts8,nfa,nfsplit,nfb,ntol, & if(ndepth.ge.3 .or. nqd.eq.1) then limit=30000 ccflim=2.5 + schklim=2.0 endif if(nagain.ne.0) then limit=100000 ccflim=2.4 + schklim=1.8 endif ccfok=.false. @@ -95,9 +97,9 @@ subroutine decjt9(ss,id2,nutc,nfqso,newdat,npts8,nfa,nfsplit,nfb,ntol, & sync=(syncpk+1)/4.0 ! if(maxval(i1SoftSymbols).eq.0) cycle -! if(nqd.eq.1 .and. ((sync.lt.0.5) .or. (schk.lt.1.0))) cycle -! if(nqd.ne.1 .and. ((sync.lt.1.0) .or. (schk.lt.1.5))) cycle - if(nqd.ne.1 .and. ((sync.lt.1.0) .or. (schk.lt.1.8))) cycle + if(nqd.eq.1 .and. ((sync.lt.0.5) .or. (schk.lt.1.0))) cycle + if(nqd.ne.1 .and. ((sync.lt.1.0) .or. (schk.lt.1.5))) cycle +! if(nqd.ne.1 .and. ((sync.lt.1.0) .or. (schk.lt.1.8))) cycle call timer('jt9fano ',0) call jt9fano(i1SoftSymbols,limit,nlim,msg)