w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-29 07:39:43 -05:00
Code Issues Packages Projects Releases Wiki Activity

Pass submode (==> hmod) to fst280_decode.f90.

Browse Source
This commit is contained in:
Joe Taylor 2020-06-19 09:15:00 -04:00
parent 5569700980
commit d64e266e8f
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/decoder.f90
View File

@ -192,7 +192,7 @@ 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%ndepth,params%ntr) params%nsubmode,params%ndepth,params%ntr)
call timer('dec280 ',1) call timer('dec280 ',1)
go to 800 go to 800
endif endif

6
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,ndeep,ntrperiod) nfa,nfb,nsubmode,ndeep,ntrperiod)
use timer_module, only: timer use timer_module, only: timer
use packjt77 use packjt77
@ -51,12 +51,12 @@ contains
integer*2 iwave(300*12000) integer*2 iwave(300*12000)
this%callback => callback this%callback => callback
hmod=1 !### pass as arg ### hmod=2**nsubmode
if(nfqso+nqsoprogress.eq.-999) return if(nfqso+nqsoprogress.eq.-999) return
Keff=91 Keff=91
iwspr=0 iwspr=0
nmax=15*12000 nmax=15*12000
if(ntrperiod.eq.15) then if(ntrperiod.eq.15) then
nsps=800 nsps=800
nmax=15*12000 nmax=15*12000