Initial experimentation

lib/jt9a.f90

@@ -61,7 +61,7 @@ subroutine jt9a()
   local_params=shared_data%params !save a copy because wsjtx carries on accessing
   call flush(6)
   call timer('decoder ',0)
-  call multimode_decoder(shared_data%ss,shared_data%id2,local_params,12000)
+  call multimode_decoder(shared_data%ss,shared_data%id1,local_params,12000)
   call timer('decoder ',1)
 
 100 inquire(file=trim(temp_dir)//'/.lock',exist=fileExists)

lib/jt9com.f90

@@ -18,6 +18,8 @@
      integer(c_int) :: nfsplit
      integer(c_int) :: nfb
      integer(c_int) :: ntol
+     integer(c_int) :: knum
+     integer(c_int) :: kpos
      integer(c_int) :: kin
      integer(c_int) :: nzhsym
      integer(c_int) :: nsubmode
@@ -52,6 +54,7 @@
      real(c_float) :: ss(184,NSMAX)
      real(c_float) :: savg(NSMAX)
      real(c_float) :: sred(5760)
+     integer(c_short) :: id1(NMAX)
      integer(c_short) :: id2(NMAX)
      type(params_block) :: params
   end type dec_data

lib/symspec.f90

@@ -2,12 +2,13 @@ subroutine symspec(shared_data,k,ntrperiod,nsps,ingain,nminw,pxdb,s,   &
      df3,ihsym,npts8,pxdbmax)
 
 ! Input:
-!  k         pointer to the most recent new data
-!  ntrperiod T/R sequence length, minutes
-!  nsps      samples per symbol, at 12000 Hz
-!  ndiskdat  0/1 to indicate if data from disk
-!  nb        0/1 status of noise blanker (off/on)
-!  nbslider  NB setting, 0-100
+!  shared_data  pointer to the most recent new data
+!  k            frames in that data
+!  ntrperiod    T/R sequence length, minutes
+!  nsps         samples per symbol, at 12000 Hz
+!  ndiskdat     0/1 to indicate if data from disk
+!  nb           0/1 status of noise blanker (off/on)
+!  nbslider     NB setting, 0-100
 
 ! Output:
 !  pxdb      raw power (0-90 dB)