From 17056d926d510664285f34c17aede1cbb66ea448 Mon Sep 17 00:00:00 2001
From: Bill Somerville <g4wjs@classdesign.com>
Date: Tue, 24 Nov 2015 19:46:59 +0000
Subject: [PATCH] Remove more KVASD remnants

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6173 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/decoder.f90 | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index eeba22568..ebe05d779 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -36,9 +36,6 @@ subroutine decoder(ss,id2,nfsample)
   if(nmode.eq.4 .or. nmode.eq.65) open(14,file=trim(temp_dir)//'/avemsg.txt', &
        status='unknown')
 
-  if(nmode.eq.65 .or. nmode.eq.(65+9)) open(22,file=trim(temp_dir)//    &
-       '/kvasd.dat',access='direct',recl=1024,status='unknown')
-
   if(nmode.eq.4) then
      jz=52*nfsample
      if(newdat.ne.0) then
@@ -110,7 +107,6 @@ subroutine decoder(ss,id2,nfsample)
   call flush(6)
   close(13) 
   if(nmode.eq.4 .or. nmode.eq.65) close(14)
-  close(22)
 
   return
 end subroutine decoder