diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index 7d115a251..f030f18a8 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -9,7 +9,7 @@ module q65
   integer,dimension(22) ::  isync = (/1,9,12,13,15,22,23,26,27,33,35,   &
                                      38,46,50,55,60,62,66,69,74,76,85/)
   integer codewords(63,206)
-  integer navg,ibwa,ibwb,ncw,nsps,mode_q65
+  integer navg,ibwa,ibwb,ncw,nsps,mode_q65,istep,nsmo
   real,allocatable,save :: s1a(:,:)      !Cumulative symbol spectra
   real sync(85)                          !sync vector
 
diff --git a/lib/qra/q65/q65_sync.f90 b/lib/qra/q65/q65_sync.f90
index 76dbc6b22..ca2a1efad 100644
--- a/lib/qra/q65/q65_sync.f90
+++ b/lib/qra/q65/q65_sync.f90
@@ -1,5 +1,5 @@
-subroutine q65_sync(nutc,iwave,ntrperiod,   &
-     nfqso,ntol,ndepth,lclearave,emedelay,xdt,f0,snr1,width,dat4,snr2,idec)
+subroutine q65_sync(nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave,  &
+     emedelay,xdt,f0,snr1,width,dat4,snr2,idec)
 
 ! Detect and align with the Q65 sync vector, returning time and frequency
 ! offsets and SNR estimate.
@@ -73,7 +73,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,   &
 
   call timer('s1      ',0)
   nmax=ntrperiod*12000
-  call q65_symspec(iwave,nmax,iz,jz,istep,nsmo,s1)
+  call q65_symspec(iwave,nmax,iz,jz,s1)
   call timer('s1      ',1)
 
   i0=nint(nfqso/df)                           !Target QSO frequency
@@ -178,7 +178,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,   &
 900 return
 end subroutine q65_sync
 
-subroutine q65_symspec(iwave,nmax,iz,jz,istep,nsmo,s1)
+subroutine q65_symspec(iwave,nmax,iz,jz,s1)
 
   use q65
   integer*2 iwave(0:nmax-1)              !Raw data