w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Implement "Single decode" for FST280.

Browse Source
This commit is contained in:
Joe Taylor 2020-06-21 10:33:36 -04:00
parent f03f411733
commit ad4fac6b3d
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/decoder.f90
View File

@ -192,7 +192,8 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
call timer('dec280 ',0) call timer('dec280 ',0)
call my_fst280%decode(fst280_decoded,id2,params%nutc, & call my_fst280%decode(fst280_decoded,id2,params%nutc, &
params%nQSOProgress,params%nfqso,params%nfa,params%nfb, & params%nQSOProgress,params%nfqso,params%nfa,params%nfb, &
params%nsubmode,params%ndepth,params%ntr) params%nsubmode,params%ndepth,params%ntr,params%nexp_decode, &
params%ntol)
call timer('dec280 ',1) call timer('dec280 ',1)
go to 800 go to 800
endif endif

14
lib/fst280_decode.f90
View File

@ -26,7 +26,7 @@ module fst280_decode
contains contains
subroutine decode(this,callback,iwave,nutc,nQSOProgress,nfqso, & subroutine decode(this,callback,iwave,nutc,nQSOProgress,nfqso, &
nfa,nfb,nsubmode,ndeep,ntrperiod) nfa,nfb,nsubmode,ndeep,ntrperiod,nexp_decode,ntol)
use timer_module, only: timer use timer_module, only: timer
use packjt77 use packjt77
@ -47,7 +47,7 @@ contains
integer*1 apmask(280),cw(280) integer*1 apmask(280),cw(280)
integer*1 hbits(328) integer*1 hbits(328)
integer*1 message101(101),message74(74) integer*1 message101(101),message74(74)
logical badsync,unpk77_success logical badsync,unpk77_success,single_decode
integer*2 iwave(300*12000) integer*2 iwave(300*12000)
this%callback => callback this%callback => callback
@ -56,6 +56,7 @@ contains
Keff=91 Keff=91
iwspr=0 iwspr=0
nmax=15*12000 nmax=15*12000
single_decode=iand(nexp_decode,32).eq.32
if(ntrperiod.eq.15) then if(ntrperiod.eq.15) then
nsps=800 nsps=800
@ -100,8 +101,13 @@ contains
allocate( cframe(0:164*nss-1) ) allocate( cframe(0:164*nss-1) )
npts=nmax npts=nmax
fa=max(100,nfa) if(single_decode) then
fb=min(4800,nfb) fa=max(100,nfqso-ntol)
fb=min(4800,nfqso+ntol)
else
fa=max(100,nfa)
fb=min(4800,nfb)
endif
if(ndeep.eq.3) then if(ndeep.eq.3) then
ntmax=4 ! number of block sizes to try ntmax=4 ! number of block sizes to try