Pass more parameters to fst240_decode().

lib/decoder.f90

@@ -193,7 +193,8 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
      call my_fst240%decode(fst240_decoded,id2,params%nutc,                &
           params%nQSOProgress,params%nfqso,params%nfa,params%nfb,         &
           params%nsubmode,params%ndepth,params%ntr,params%nexp_decode,    &
-          params%ntol)
+          params%ntol,params%nzhsym,params%emedelay,                      &
+          logical(params%lapcqonly),params%napwid,mycall,hiscall)
      call timer('dec240  ',1)
      go to 800
   endif

lib/fst240_decode.f90

@@ -27,7 +27,8 @@ module fst240_decode
 contains
 
  subroutine decode(this,callback,iwave,nutc,nQSOProgress,nfqso,    &
-      nfa,nfb,nsubmode,ndeep,ntrperiod,nexp_decode,ntol)
+      nfa,nfb,nsubmode,ndeep,ntrperiod,nexp_decode,ntol,nzhsym,    &
+      emedelay,lapcqonly,napwid,mycall,hiscall)
 
    use timer_module, only: timer
    use packjt77
@@ -38,6 +39,7 @@ contains
    character*37 decodes(100)
    character*37 msg
    character*77 c77
+   character*12 mycall,hiscall
    complex, allocatable :: c2(:)
    complex, allocatable :: cframe(:)
    complex, allocatable :: c_bigfft(:)          !Complex waveform
@@ -46,6 +48,7 @@ contains
    real candidates(100,4)
    real bitmetrics(320,4)
    real s4(0:3,NN)
+   logical lapcqonly
    integer itone(NN)
    integer hmod
    integer*1 apmask(240),cw(240)
@@ -58,6 +61,9 @@ contains
              1,0,0,1,0,1,1,0,0,0,0,1,0,0,0,1,0,1,0,0,1,1,1,1,0,0,1,0,1, &
              0,1,0,1,0,1,1,0,1,1,1,1,1,0,0,0,1,0,1/
 
+   write(*,3001) nzhsym,emedelay,lapcqonly,napwid,mycall,hiscall
+3001 format(i4,f6.1,L3,i3,2x,2a12)
+   
    this%callback => callback
    hmod=2**nsubmode
    if(nfqso+nqsoprogress.eq.-999) return