diff --git a/q65w/libm65/CMakeLists.txt b/q65w/libm65/CMakeLists.txt
index de5af0415..d45eaccff 100644
--- a/q65w/libm65/CMakeLists.txt
+++ b/q65w/libm65/CMakeLists.txt
@@ -38,8 +38,6 @@ set (libm65_FSRCS
   timf2.f90
   tm2.f90
   toxyz.f90
-  trimlist.f90
-  wavhdr.f90
 
   f77_wisdom.f
   )
diff --git a/q65w/libm65/q65b.f90 b/q65w/libm65/q65b.f90
index 5175abd1f..9922f06a5 100644
--- a/q65w/libm65/q65b.f90
+++ b/q65w/libm65/q65b.f90
@@ -9,7 +9,6 @@ subroutine q65b(nutc,nqd,nxant,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
 ! orthogonal polarization.  Decoded messages are sent back to the GUI
 ! on stdout.
 
-!  use wavhdr
   use q65_decode
   use wideband_sync
   use timer_module, only: timer
diff --git a/q65w/libm65/trimlist.f90 b/q65w/libm65/trimlist.f90
deleted file mode 100644
index 9e8a36e69..000000000
--- a/q65w/libm65/trimlist.f90
+++ /dev/null
@@ -1,28 +0,0 @@
-subroutine trimlist(sig,km,ftol,indx,nsiz,nz)
-
-  parameter (MAXMSG=1000)             !Size of decoded message list
-  real sig(MAXMSG,30)
-  integer indx(MAXMSG),nsiz(MAXMSG)
-
-!    1      2     3    4    5    6     7     8
-!  nfile  nutc  freq  snr  dt  ipol  flip  sync
-
-  call indexx(sig(1,3),km,indx)            !Sort list by frequency
-
-  n=1
-  i0=1
-  do i=2,km         
-     j0=indx(i-1)
-     j=indx(i)
-     if(sig(j,3)-sig(j0,3).gt.ftol) then
-        nsiz(n)=i-i0
-        i0=i
-        n=n+1
-     endif
-  enddo
-  nz=n
-  nsiz(nz)=km+1-i0
-  nsiz(nz+1)=-1
-
-  return
-end subroutine trimlist
diff --git a/q65w/libm65/wavhdr.f90 b/q65w/libm65/wavhdr.f90
deleted file mode 100644
index 6568c1fa6..000000000
--- a/q65w/libm65/wavhdr.f90
+++ /dev/null
@@ -1,110 +0,0 @@
-module wavhdr
-  type hdr
-     character*4 ariff
-     integer*4 lenfile
-     character*4 awave
-     character*4 afmt
-     integer*4 lenfmt
-     integer*2 nfmt2
-     integer*2 nchan2
-     integer*4 nsamrate
-     integer*4 nbytesec
-     integer*2 nbytesam2
-     integer*2 nbitsam2
-     character*4 adata
-     integer*4 ndata
-  end type hdr
-
-  contains
-
-    function default_header(nsamrate,npts)
-      type(hdr) default_header,h
-      h%ariff='RIFF'
-      h%awave='WAVE'
-      h%afmt='fmt '
-      h%lenfmt=16
-      h%nfmt2=1
-      h%nchan2=1
-      h%nsamrate=nsamrate
-      h%nbitsam2=16
-      h%nbytesam2=h%nbitsam2 * h%nchan2 / 8
-      h%adata='data'
-      h%nbytesec=h%nsamrate * h%nbitsam2 * h%nchan2 / 8
-      h%ndata=2*npts
-      h%lenfile=h%ndata + 44 - 8
-      default_header=h
-    end function default_header
-
-    subroutine set_wsjtx_wav_params(fMHz,mode,nsubmode,ntrperiod,id2)
-
-      parameter (NBANDS=23,NMODES=13)
-      character*8 mode,modes(NMODES)
-      integer*2 id2(4)
-      integer iperiod(8)
-      real fband(NBANDS)
-      data fband/0.137,0.474,1.8,3.5,5.1,7.0,10.14,14.0,18.1,21.0,24.9,  &
-           28.0,50.0,144.0,222.0,432.0,902.0,1296.0,2304.0,3400.0,       &
-           5760.0,10368.0,24048.0/
-      data modes/'Echo','FSK441','ISCAT','JT4','JT65','JT6M','JT9',      &
-           'JT9+JT65','JTMS','JTMSK','WSPR','FT8','FT2'/
-      data iperiod/5,10,15,30,60,120,900,0/
-
-      dmin=1.e30
-      iband=0
-      do i=1,NBANDS
-         if(abs(fMHz-fband(i)).lt.dmin) then
-            dmin=abs(fMHz-fband(i))
-            iband=i
-         endif
-      enddo
-
-      imode=0
-      do i=1,NMODES
-         if(mode.eq.modes(i)) imode=i
-      enddo
-
-      ip=0
-      do i=1,8
-         if(ntrperiod.eq.iperiod(i)) ip=i
-      enddo
-
-      id2(1)=iband
-      id2(2)=imode
-      id2(3)=nsubmode
-      id2(4)=ip
-      
-      return
-    end subroutine set_wsjtx_wav_params
-
-    subroutine get_wsjtx_wav_params(id2,band,mode,nsubmode,ntrperiod,ok)
-
-      parameter (NBANDS=23,NMODES=13)
-      character*8 mode,modes(NMODES)
-      character*6 band,bands(NBANDS)
-      integer*2 id2(4)
-      integer iperiod(8)
-      logical ok
-      data modes/'Echo','FSK441','ISCAT','JT4','JT65','JT6M','JT9',    &
-           'JT9+JT65','JTMS','JTMSK','WSPR','FT8','FT2'/
-      data iperiod/5,10,15,30,60,120,900,0/
-      data bands/'2190m','630m','160m','80m','60m','40m','30m','20m',  &
-           '17m','15m','12m','10m','6m','2m','1.25m','70cm','33cm',    &
-           '23cm','13cm','9cm','6cm','3cm','1.25cm'/
-
-      ok=.true.
-      if(id2(1).lt.1 .or. id2(1).gt.NBANDS) ok=.false.
-      if(id2(2).lt.1 .or. id2(2).gt.NMODES) ok=.false.
-      if(id2(3).lt.1 .or. id2(3).gt.8) ok=.false.
-      if(id2(4).lt.1 .or. id2(4).gt.8) ok=.false.
-
-      if(ok) then
-         band=bands(id2(1))
-         mode=modes(id2(2))
-         nsubmode=id2(3)
-         ntrperiod=iperiod(id2(4))
-      endif
-
-      return
-    end subroutine get_wsjtx_wav_params
-
-end module wavhdr