mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-08 01:56:10 -05:00
Pass submode (==> hmod) to fst280_decode.f90.
This commit is contained in:
parent
5569700980
commit
d64e266e8f
@ -192,7 +192,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
|
||||
call timer('dec280 ',0)
|
||||
call my_fst280%decode(fst280_decoded,id2,params%nutc, &
|
||||
params%nQSOProgress,params%nfqso,params%nfa,params%nfb, &
|
||||
params%ndepth,params%ntr)
|
||||
params%nsubmode,params%ndepth,params%ntr)
|
||||
call timer('dec280 ',1)
|
||||
go to 800
|
||||
endif
|
||||
|
@ -26,7 +26,7 @@ module fst280_decode
|
||||
contains
|
||||
|
||||
subroutine decode(this,callback,iwave,nutc,nQSOProgress,nfqso, &
|
||||
nfa,nfb,ndeep,ntrperiod)
|
||||
nfa,nfb,nsubmode,ndeep,ntrperiod)
|
||||
|
||||
use timer_module, only: timer
|
||||
use packjt77
|
||||
@ -51,12 +51,12 @@ contains
|
||||
integer*2 iwave(300*12000)
|
||||
|
||||
this%callback => callback
|
||||
hmod=1 !### pass as arg ###
|
||||
hmod=2**nsubmode
|
||||
if(nfqso+nqsoprogress.eq.-999) return
|
||||
Keff=91
|
||||
iwspr=0
|
||||
|
||||
nmax=15*12000
|
||||
|
||||
if(ntrperiod.eq.15) then
|
||||
nsps=800
|
||||
nmax=15*12000
|
||||
|
Loading…
Reference in New Issue
Block a user