diff --git a/lib/ft8/ft8apset.f90 b/lib/ft8/ft8apset.f90
index 60d2bf08c..90f05b708 100644
--- a/lib/ft8/ft8apset.f90
+++ b/lib/ft8/ft8apset.f90
@@ -5,8 +5,6 @@ subroutine ft8apset(mycall12,hiscall12,ncontest,apsym,aph10)
   character*12 mycall12,hiscall12,hiscall
   character*13 hc13
   character*10 c10
-  character*6  base6
-  logical*1  ok1
   integer apsym(58),aph10(10)
   logical nohiscall,unpk77_success
 
diff --git a/lib/ft8/ft8b.f90 b/lib/ft8/ft8b.f90
index 52ce7b897..88fcf2288 100644
--- a/lib/ft8/ft8b.f90
+++ b/lib/ft8/ft8b.f90
@@ -1,6 +1,6 @@
 subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon,     &
      lapcqonly,napwid,lsubtract,nagain,ncontest,iaptype,mycall12,hiscall12, &
-     sync0,f1,xdt,xbase,apsym,aph10,nharderrors,dmin,nbadcrc,ipass,iera,    &
+     f1,xdt,xbase,apsym,aph10,nharderrors,dmin,nbadcrc,ipass,               &
      msg37,xsnr,itone)
 
   use crc
diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90
index c1cfb82f5..a6416bf3b 100644
--- a/lib/ft8_decode.f90
+++ b/lib/ft8_decode.f90
@@ -154,10 +154,10 @@ contains
         xdt=candidate(2,icand)
         xbase=10.0**(0.1*(sbase(nint(f1/3.125))-40.0))
         call timer('ft8b    ',0)
-        call ft8b(dd,newdat,nQSOProgress,nfqso,nftx,ndeep,nzhsym,lft8apon, &
+        call ft8b(dd,newdat,nQSOProgress,nfqso,nftx,ndeep,nzhsym,lft8apon,  &
              lapcqonly,napwid,lsubtract,nagain,ncontest,iaptype,mycall12,   &
-             hiscall12,sync,f1,xdt,xbase,apsym2,aph10,nharderrors,dmin,     &
-             nbadcrc,iappass,iera,msg37,xsnr,itone)
+             hiscall12,f1,xdt,xbase,apsym2,aph10,nharderrors,dmin,          &
+             nbadcrc,iappass,msg37,xsnr,itone)
         call timer('ft8b    ',1)
         nsnr=nint(xsnr) 
         xdt=xdt-0.5