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

lib/decoder.f90

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

lib/fst280_decode.f90

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