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
This commit is contained in:
Joe Taylor 2015-02-28 14:24:57 +00:00
parent 8cec76bc4a
commit d3ca5fdc8e

View File

@ -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 if(ndepth.ge.3 .or. nqd.eq.1) then
limit=30000 limit=30000
ccflim=2.5 ccflim=2.5
schklim=2.0
endif endif
if(nagain.ne.0) then if(nagain.ne.0) then
limit=100000 limit=100000
ccflim=2.4 ccflim=2.4
schklim=1.8
endif endif
ccfok=.false. ccfok=.false.
@ -95,9 +97,9 @@ subroutine decjt9(ss,id2,nutc,nfqso,newdat,npts8,nfa,nfsplit,nfb,ntol, &
sync=(syncpk+1)/4.0 sync=(syncpk+1)/4.0
! if(maxval(i1SoftSymbols).eq.0) cycle ! if(maxval(i1SoftSymbols).eq.0) cycle
! if(nqd.eq.1 .and. ((sync.lt.0.5) .or. (schk.lt.1.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.5))) cycle
if(nqd.ne.1 .and. ((sync.lt.1.0) .or. (schk.lt.1.8))) cycle ! if(nqd.ne.1 .and. ((sync.lt.1.0) .or. (schk.lt.1.8))) cycle
call timer('jt9fano ',0) call timer('jt9fano ',0)
call jt9fano(i1SoftSymbols,limit,nlim,msg) call jt9fano(i1SoftSymbols,limit,nlim,msg)