diff --git a/lib/jt65_decode.f90 b/lib/jt65_decode.f90
index 7e451bad3..6d0bd6243 100644
--- a/lib/jt65_decode.f90
+++ b/lib/jt65_decode.f90
@@ -187,7 +187,7 @@ contains
 
        ncand=0
        call timer('sync65  ',0)
-       call sync65(nfa,nfb,naggressive,ntol,nqsym,ca,ncand,nrob,bVHF)
+       call sync65(nfa,nfb,ntol,nqsym,ca,ncand,nrob,bVHF)
        call timer('sync65  ',1)
 
 ! If a candidate was found within +/- ntol of nfqso, move it into ca(1).
diff --git a/lib/qra64a.f90 b/lib/qra64a.f90
index 9116c53a2..5d314f2b4 100644
--- a/lib/qra64a.f90
+++ b/lib/qra64a.f90
@@ -86,7 +86,7 @@ subroutine qra64a(dd,npts,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth,   &
      idt=itry0/2
      if(mod(itry0,2).eq.0) idt=-idt
      jpk=jpk0 + 750*idt
-     call spec64(c0,npts2,mode64,jpk,s3a,LL,NN)
+     call spec64(c0,jpk,s3a,LL,NN)
      call pctile(s3a,LL*NN,40,base)
      s3a=s3a/base
      where(s3a(1:LL*NN)>s3lim) s3a(1:LL*NN)=s3lim
diff --git a/lib/spec64.f90 b/lib/spec64.f90
index a0c0a04c7..3404243c4 100644
--- a/lib/spec64.f90
+++ b/lib/spec64.f90
@@ -1,4 +1,4 @@
-subroutine spec64(c0,npts2,mode64,jpk,s3,LL,NN)
+subroutine spec64(c0,jpk,s3,LL,NN)
 
   parameter (NSPS=3456)                      !Samples per symbol at 6000 Hz
   complex c0(0:360000)                       !Complex spectrum of dd()
diff --git a/lib/sync65.f90 b/lib/sync65.f90
index 4a681a0a7..974bdc2da 100644
--- a/lib/sync65.f90
+++ b/lib/sync65.f90
@@ -1,5 +1,4 @@
-subroutine sync65(nfa,nfb,naggressive,ntol,nqsym,ca,ncand,nrobust,   &
-     bVHF)
+subroutine sync65(nfa,nfb,ntol,nqsym,ca,ncand,nrobust,bVHF)
 
   parameter (NSZ=3413,NFFT=8192,MAXCAND=300)
   real ss(552,NSZ)