w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-10-31 13:10:19 -04:00
Code Issues Packages Projects Releases Wiki Activity

Wire up Fast/Normal/Deep for non VHF/UHF JT65 decoding.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8257 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-11-24 02:38:14 +00:00
parent d7725abf08
commit 6e31fcd2da
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lib/jt65_decode.f90
View File

@ -121,9 +121,20 @@ contains
go to 900 go to 900
endif endif
! do ipass=1,n2pass !Two-pass decoding loop single_decode=iand(nexp_decode,32).ne.0 .or. nagain
npass=1 bVHF=iand(nexp_decode,64).ne.0
if(n2pass .gt. 1) npass=ndepth+1 !**** TEMPORARY ****
if( bVHF ) then
nvec=ntrials
npass=1
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
endif
!write(*,*) bVHF,single_decode,ndepth,n2pass,npass,nvec,ntrials
do ipass=1,npass do ipass=1,npass
first_time=.true. first_time=.true.
if(ipass.eq.1) then !First-pass parameters if(ipass.eq.1) then !First-pass parameters
@ -150,13 +161,10 @@ contains
call timer('symsp65 ',0) call timer('symsp65 ',0)
ss=0. ss=0.
! call symspec65(dd,npts,ss,nqsym,savg) !Get normalized symbol spectra
call symspec65(dd,npts,nqsym,savg) !Get normalized symbol spectra call symspec65(dd,npts,nqsym,savg) !Get normalized symbol spectra
call timer('symsp65 ',1) call timer('symsp65 ',1)
nfa=nf1 nfa=nf1
nfb=nf2 nfb=nf2
single_decode=iand(nexp_decode,32).ne.0 .or. nagain
bVHF=iand(nexp_decode,64).ne.0
!### Q: should either of the next two uses of "single_decode" be "bVHF" instead? !### Q: should either of the next two uses of "single_decode" be "bVHF" instead?
if(single_decode .or. (bVHF .and. ntol.lt.1000)) then if(single_decode .or. (bVHF .and. ntol.lt.1000)) then
@ -178,7 +186,6 @@ contains
ncand=0 ncand=0
call timer('sync65 ',0) call timer('sync65 ',0)
! call sync65(ss,nfa,nfb,naggressive,ntol,nqsym,ca,ncand,0,bVHF)
call sync65(nfa,nfb,naggressive,ntol,nqsym,ca,ncand,nrob,bVHF) call sync65(nfa,nfb,naggressive,ntol,nqsym,ca,ncand,nrob,bVHF)
call timer('sync65 ',1) call timer('sync65 ',1)
@ -188,7 +195,6 @@ contains
if(ncand.eq.0) ncand=1 if(ncand.eq.0) ncand=1
if(abs(ca(1)%freq - f0).gt.width) width=2*df !### ??? ### if(abs(ca(1)%freq - f0).gt.width) width=2*df !### ??? ###
endif endif
nvec=ntrials
mode65=2**nsubmode mode65=2**nsubmode
nflip=1 nflip=1