diff --git a/q65w/libq65/decode0.f90 b/q65w/libq65/decode0.f90
index 27eae0769..dcb6bcb04 100644
--- a/q65w/libq65/decode0.f90
+++ b/q65w/libq65/decode0.f90
@@ -16,7 +16,7 @@ subroutine decode0(dd,ss,savg,nstandalone)
        mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode,               &
        ndop00,nsave,max_drift,nhsym,mycall,mygrid,hiscall,hisgrid,datetime
   common/early/nhsym1,nhsym2,ldecoded(32768)
-  data neme0/-99/,mcall3b/1/
+  data neme0/-99/
   save
 
   call sec0(0,tquick)
@@ -40,9 +40,6 @@ subroutine decode0(dd,ss,savg,nstandalone)
      enddo
 10   rmsdd=1.5*i
   endif
-
-  if(mycall.ne.mycall0 .or. hiscall.ne.hiscall0 .or.         &
-       hisgrid.ne.hisgrid0 .or. mcall3.ne.0 .or. neme.ne.neme0) mcall3b=1
       
   mycall0=mycall
   hiscall0=hiscall
@@ -52,7 +49,7 @@ subroutine decode0(dd,ss,savg,nstandalone)
   call timer('q65wa   ',0)
   call q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,           &
        mousedf,mousefqso,nagain,ndecdone,nfshift,max_drift,          &
-       nfcal,mcall3b,nsum,nxant,mycall,mygrid,                 &
+       nfcal,nsum,nxant,mycall,mygrid,                 &
        hiscall,hisgrid,nhsym,nfsample,             &
        ndiskdat,nxpol,nmode,ndop00)
   call timer('q65wa   ',1)
diff --git a/q65w/libq65/q65wa.f90 b/q65w/libq65/q65wa.f90
index 6c7ef681a..47147dc89 100644
--- a/q65w/libq65/q65wa.f90
+++ b/q65w/libq65/q65wa.f90
@@ -1,6 +1,6 @@
 subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,        &
      mousedf,mousefqso,nagain,ndecdone,nfshift,max_drift,             &
-     nfcal,mcall3b,nsum,nxant,mycall,mygrid,                    &
+     nfcal,nsum,nxant,mycall,mygrid,                    &
      hiscall,hisgrid,nhsym,nfsample,                &
      ndiskdat,nxpol,nmode,ndop00)
 
@@ -25,7 +25,6 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,        &
   type(candidate) :: cand(MAX_CANDIDATES)
   character*60 result
   common/decodes/ndecodes,ncand,result(50)
-  common/c3com/ mcall3a
   common/testcom/ifreq
   common/early/nhsym1,nhsym2,ldecoded(32768)
 
@@ -72,7 +71,6 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,        &
   nwrite_q65=0
   bq65=mode_q65.gt.0
 
-  mcall3a=mcall3b
   mousefqso0=mousefqso
   nsum=0
 
@@ -126,9 +124,7 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,        &
   enddo  ! icand
   call sec0(1,tsec0)
   ndecdone=2
-
   call flush(12)
-  mcall3b=mcall3a
 
   return
 end subroutine q65wa