diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90
index e7f8c23a3..de7a7dede 100644
--- a/lib/q65_decode.f90
+++ b/lib/q65_decode.f90
@@ -160,8 +160,8 @@ contains
 
 ! No single-transmission decode.
     if(iand(ndepth,16).eq.16) then
-       call q65_avg2(nutc,ntrperiod,LL,ntol,lclearave,     &
-            baud,nsubmode,ibwa,ibwb,codewords,ncw,xdt,f0,snr1,s3,dat4,idec)
+       call q65_avg2(ntrperiod,ntol,baud,nsubmode,ibwa,ibwb,codewords,ncw, &
+            xdt,f0,snr1,dat4,idec)
     endif
     
 100 decoded='                                     '
diff --git a/lib/qra/q65/q65_avg.f90 b/lib/qra/q65/q65_avg.f90
index 9d605fb72..1cb190136 100644
--- a/lib/qra/q65/q65_avg.f90
+++ b/lib/qra/q65/q65_avg.f90
@@ -1,5 +1,4 @@
-subroutine q65_avg(nutc,ntrperiod,LL,ntol,lclearave,baud,nsubmode,   &
-     ibwa,ibwb,codewords,ncw,xdt,f0,snr1,s3)
+subroutine q65_avg(nutc,ntrperiod,LL,ntol,lclearave,xdt,f0,snr1,s3)
 
 ! Accumulate Q65 spectra s3(LL,63) and associated parameters for
 ! message averaging.
@@ -66,8 +65,8 @@ subroutine q65_avg(nutc,ntrperiod,LL,ntol,lclearave,baud,nsubmode,   &
 
 10 return
 
-  entry q65_avg2(nutc,ntrperiod,LL,ntol,lclearave,baud,nsubmode,   &
-     ibwa,ibwb,codewords,ncw,xdt,f0,snr1,s3,dat4,idec)
+  entry q65_avg2(ntrperiod,ntol,baud,nsubmode,ibwa,ibwb,codewords,ncw,   &
+       xdt,f0,snr1,dat4,idec)
 
   mode_q65=2**nsubmode
   ibwa=1.8*log(baud*mode_q65) + 2
diff --git a/lib/qra/q65/q65_sync.f90 b/lib/qra/q65/q65_sync.f90
index a27962c3a..600a5c86a 100644
--- a/lib/qra/q65/q65_sync.f90
+++ b/lib/qra/q65/q65_sync.f90
@@ -250,8 +250,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps,   &
         enddo
 !        write(*,3002) 'B',xdt,f0,sum(s3)
 !3002    format(a1,f7.2,2f8.1)
-        call q65_avg(nutc,ntrperiod,LL,ntol,lclearave,     &
-             baud,nsubmode,ibwa,ibwb,codewords,ncw,xdt,f0,snr1,s3)
+        call q65_avg(nutc,ntrperiod,LL,ntol,lclearave,xdt,f0,snr1,s3)
      endif
   endif