From ca9406664ecd41c9b0a0d70b9dcb42db0123c4ed Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 14 Dec 2022 16:52:06 -0500
Subject: [PATCH] More ipc variables.

---
 q65w/libq65/decode0.f90 | 5 +++--
 q65w/libq65/ftninit.f90 | 1 -
 q65w/libq65/q65b.f90    | 4 ++--
 q65w/libq65/q65wa.f90   | 6 +++---
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/q65w/libq65/decode0.f90 b/q65w/libq65/decode0.f90
index 2a1beb97b..ffb330f90 100644
--- a/q65w/libq65/decode0.f90
+++ b/q65w/libq65/decode0.f90
@@ -9,7 +9,8 @@ subroutine decode0(dd,ss,savg)
   character mycall*12,hiscall*12,mygrid*6,hisgrid*6,datetime*20
   character mycall0*12,hiscall0*12,hisgrid0*6
   character*60 result
-  common/decodes/ndecodes,ncand,result(50)
+  common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy,              &
+       nWTransmitting,result(50)
   common/npar/fcenter,nutc,idphi,mousedf,mousefqso,nagain,                &
        ndepth,ndiskdat,neme,newdat,nfa,nfb,nfcal,nfshift,                 &
        mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode,               &
@@ -17,7 +18,7 @@ subroutine decode0(dd,ss,savg)
   data neme0/-99/
   save
 
-  call sec0(0,tquick)
+  nQDecoderDone=0
   if(newdat.ne.0) then
      nz=96000*nhsym/5.3833
      hist=0
diff --git a/q65w/libq65/ftninit.f90 b/q65w/libq65/ftninit.f90
index c55249866..565398565 100644
--- a/q65w/libq65/ftninit.f90
+++ b/q65w/libq65/ftninit.f90
@@ -15,7 +15,6 @@ subroutine ftninit
   
   appd='.'
   addpfx='    '
-  open(12,file=appd//'/q65w_decodes.txt',status='unknown')
   open(17,file=appd//'/red.dat',status='unknown')
   open(19,file=appd//'/livecq.txt',status='unknown')
   open(71,file=appd//'/debug.tmp',status='unknown')
diff --git a/q65w/libq65/q65b.f90 b/q65w/libq65/q65b.f90
index ecc1ee41e..4dd038de0 100644
--- a/q65w/libq65/q65b.f90
+++ b/q65w/libq65/q65b.f90
@@ -26,7 +26,8 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
   character*6 hisgrid
   character*4 grid4
   character*60 result
-  common/decodes/ndecodes,ncand,result(50)
+  common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy,              &
+       nWTransmitting,result(50)
   common/cacb/ca
   save
 
@@ -126,7 +127,6 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
      frx=0.001*k0*df+nkhz_center-48.0+1.0 - 0.001*nfcal
      fsked=frx - 0.001*ndop00/2.0 - 1.5
      write(result(ndecodes),1120) nutc,fsked,xdt0,nsnr0,trim(msg0)
-     write(12,1120) nutc,fsked,xdt0,nsnr0,trim(msg0)
 1120 format(i4.4,f9.3,f7.2,i5,2x,a,i6)
      result(ndecodes)=trim(result(ndecodes))//char(0)
   endif
diff --git a/q65w/libq65/q65wa.f90 b/q65w/libq65/q65wa.f90
index 0aeaf9d5b..479e1294a 100644
--- a/q65w/libq65/q65wa.f90
+++ b/q65w/libq65/q65wa.f90
@@ -18,7 +18,8 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,         &
   logical candec(MAX_CANDIDATES)
   type(candidate) :: cand(MAX_CANDIDATES)
   character*60 result
-  common/decodes/ndecodes,ncand,result(50)
+  common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy,              &
+       nWTransmitting,result(50)
   common/testcom/ifreq
   save
 
@@ -68,9 +69,8 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,         &
      call timer('q65b    ',1)
      if(idec.ge.0) candec(icand)=.true.
   enddo  ! icand
-  call sec0(1,tsec0)
   ndecdone=2
-  call flush(12)
+  nQDecoderDone=1
 
   return
 end subroutine q65wa