mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-12-24 11:40:31 -05:00
Wire up JT65 Fast/Normal/Deep for HF decoding. Use Random erasure patterns, Aggressive decoding level, and Two pass decoding checkbox only for VHF/UHF/Microwave operation.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8258 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
6e31fcd2da
commit
af1a0e37f7
@ -130,12 +130,20 @@ contains
|
||||
if(n2pass.gt.1) npass=2
|
||||
else
|
||||
nvec=1000
|
||||
if(ndepth.eq.1) npass=1
|
||||
if(ndepth.eq.2) npass=2
|
||||
if(ndepth.eq.3) npass=4
|
||||
if(ndepth.eq.1) then
|
||||
npass=2
|
||||
nvec=100
|
||||
elseif(ndepth.eq.2) then
|
||||
npass=2
|
||||
nvec=1000
|
||||
else
|
||||
npass=4
|
||||
nvec=2000
|
||||
endif
|
||||
endif
|
||||
!write(*,*) bVHF,single_decode,ndepth,n2pass,npass,nvec,ntrials
|
||||
do ipass=1,npass
|
||||
!write(*,*) 'pass ',ipass
|
||||
first_time=.true.
|
||||
if(ipass.eq.1) then !First-pass parameters
|
||||
thresh0=2.5
|
||||
@ -293,7 +301,9 @@ contains
|
||||
endif
|
||||
n=naggressive
|
||||
rtt=0.001*nrtt1000
|
||||
!write(*,*) 'nft ',nft,minsync,nspecial
|
||||
if(nft.lt.2 .and. minsync.ge.0 .and. nspecial.eq.0) then
|
||||
!write(*,*) 'naggressive ',n,nhard_min,ntotal_min,rtt
|
||||
if(nhard_min.gt.50) cycle
|
||||
if(nhard_min.gt.h0(n)) cycle
|
||||
if(ntotal_min.gt.d0(n)) cycle
|
||||
@ -317,6 +327,7 @@ contains
|
||||
exit
|
||||
endif
|
||||
enddo
|
||||
!write(*,*) 'ndupe ',ndupe,sync1,minsync
|
||||
if(ndupe.ne.1 .and. sync1.ge.float(minsync)) then
|
||||
if(ipass.eq.1) n65a=n65a + 1
|
||||
if(ipass.eq.2) n65b=n65b + 1
|
||||
@ -338,7 +349,7 @@ contains
|
||||
endif
|
||||
enddo !Candidate loop
|
||||
if(ipass.eq.2 .and. ndecoded.lt.1) exit
|
||||
enddo !Two-pass loop
|
||||
enddo !Multiple-pass loop
|
||||
900 return
|
||||
end subroutine decode
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user