Fix waterfall display by extracting global symspec vars and resetting the ja to the correct value after detector reset

lib/jt9com.f90

@@ -55,6 +55,7 @@
      character(kind=c_char) :: mygrid(6)
      character(kind=c_char) :: hiscall(12)
      character(kind=c_char) :: hisgrid(6)
+     integer(c_int) :: ndebug
   end type params_block
 
   type, bind(C) :: dec_data

lib/symspec.f90

@@ -1,4 +1,4 @@
-subroutine symspec(shared_data,k,k0,ntrperiod,nsps,ingain,nminw,pxdb,s,   &
+subroutine symspec(shared_data,k,k0,ja,ssum,ntrperiod,nsps,ingain,nminw,pxdb,s,   &
      df3,ihsym,npts8,pxdbmax)
 
 ! Input:
@@ -84,7 +84,9 @@ subroutine symspec(shared_data,k,k0,ntrperiod,nsps,ingain,nminw,pxdb,s,   &
   do i=0,nfft3-1                      !Copy data into cx
      j=ja+i-(nfft3-1)
      xc(i)=0.
-     if(j.ge.1 .and.j.le.NMAX) xc(i)=fac0*shared_data%id2(j)
+     if(j.ge.1 .and. j.le.NMAX) then
+         xc(i)=fac0*shared_data%id2(j)
+     endif
   enddo
   ihsym=ihsym+1