From d64e266e8ff93465cdb9d47e4b10a396907d83c2 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 19 Jun 2020 09:15:00 -0400
Subject: [PATCH] Pass submode (==> hmod) to fst280_decode.f90.

---
 lib/decoder.f90       | 2 +-
 lib/fst280_decode.f90 | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index bc1b820ec..c737a2ca6 100644
--- a/lib/decoder.f90
+++ b/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
diff --git a/lib/fst280_decode.f90 b/lib/fst280_decode.f90
index ea9fd0020..24d100589 100644
--- a/lib/fst280_decode.f90
+++ b/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