diff --git a/lib/decoder.f90 b/lib/decoder.f90
index 84fe875b9..9afb02b6b 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -159,7 +159,7 @@ subroutine multimode_decoder(ipc1,ss,id2,params,nfsample)
   if(params%nmode.eq.5) then
      call timer('decft4  ',0)
      call my_ft4%decode(ft4_decoded,id2,params%nQSOProgress,params%nfqso,    &
-          params%nutc,params%nfa,params%nfb,params%ndepth,                   &
+          params%nfa,params%nfb,params%ndepth,                               &
           logical(params%lapcqonly),ncontest,mycall,hiscall)
      call timer('decft4  ',1)
      go to 800
diff --git a/lib/ft4/ft4sim.f90 b/lib/ft4/ft4sim.f90
index 655218f68..c2367cf83 100644
--- a/lib/ft4/ft4sim.f90
+++ b/lib/ft4/ft4sim.f90
@@ -12,8 +12,6 @@ program ft4sim
   complex c0(0:NMAX-1)
   complex c(0:NMAX-1)
   real wave(NMAX)
-  real dphi(0:NMAX-1)
-  real pulse(3*NSPS)               
   integer itone(NN)
   integer*1 msgbits(77)
   integer*2 iwave(NMAX)                  !Generated full-length waveform
diff --git a/lib/ft4_decode.f90 b/lib/ft4_decode.f90
index a5347c69f..3de9f89f5 100644
--- a/lib/ft4_decode.f90
+++ b/lib/ft4_decode.f90
@@ -24,7 +24,7 @@ module ft4_decode
 contains
 
    subroutine decode(this,callback,iwave,nQSOProgress,nfqso,    &
-      nutc,nfa,nfb,ndepth,lapcqonly,ncontest,mycall,hiscall)
+      nfa,nfb,ndepth,lapcqonly,ncontest,mycall,hiscall)
       use timer_module, only: timer
       use packjt77
       include 'ft4/ft4_params.f90'
@@ -86,6 +86,8 @@ contains
 
       this%callback => callback
       hhmmss=cdatetime0(8:13)
+      smax1=0.
+      nd1=0
 
       if(first) then
          fs=12000.0/NDOWN                !Sample rate after downsampling
@@ -447,8 +449,6 @@ contains
                      nsnr=nint(max(-21.0,xsnr))
                      xdt=ibest/666.67 - 0.5
                      qual=1.0-(nharderror+dmin)/60.0 
-!write(21,'(i6.6,i5,2x,f4.1,i6,2x,a37,2x,f4.1,3i3,f5.1,i4,i4,i4,f6.2)') &
-!  nutc,nsnr,xdt,nint(f1),message,smax,iaptype,ipass,isp,dmin,nsync_qual,nharderror,iseg,qual
                      call this%callback(smax,nsnr,xdt,f1,message,iaptype,qual)
                      exit
                   endif
diff --git a/lib/ft8/osd174_91.f90 b/lib/ft8/osd174_91.f90
index 958b0c9fd..bea351101 100644
--- a/lib/ft8/osd174_91.f90
+++ b/lib/ft8/osd174_91.f90
@@ -104,6 +104,8 @@ dmin=sum(nxor*absrx)
 cw=c0
 ntotal=0
 nrejected=0
+npre1=0
+npre2=0
 
 if(ndeep.eq.0) goto 998  ! norder=0
 if(ndeep.gt.5) ndeep=5
@@ -152,6 +154,7 @@ do iorder=1,nord
       else
          iend=1
       endif
+      d1=0.
       do n1=iflag,iend,-1
          mi=misub
          mi(n1)=1
diff --git a/lib/wsprd/osdwspr.f90 b/lib/wsprd/osdwspr.f90
index c1ae76846..2a2d712de 100644
--- a/lib/wsprd/osdwspr.f90
+++ b/lib/wsprd/osdwspr.f90
@@ -145,6 +145,7 @@ do iorder=1,nord
       else
          iend=1
       endif
+      d1=0.
       do n1=iflag,iend,-1
          mi=misub
          mi(n1)=1