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

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

View File

@ -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

View File

@ -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