From d4d42459551099399050425c8c8cb0f07e229089 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 8 Apr 2021 11:54:26 -0400
Subject: [PATCH] Cleanup so we don't display holdover decodes from previous
 calls.

---
 libm65/q65b.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/libm65/q65b.f90 b/libm65/q65b.f90
index 411c6797c..3c9ea07f8 100644
--- a/libm65/q65b.f90
+++ b/libm65/q65b.f90
@@ -114,6 +114,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol,  &
 !  0001 -22  2.9 1081 :  EA2AGZ IK4WLV -16                     q0
 !  110  101   2  1814  2.9  -11 # QRZ HB9Q JN47          1    0   30 H
   nsnr0=-99
+  line2=' '
   do i=1,8
      read(24,1002,end=100) line
 1002 format(a62)
@@ -128,9 +129,9 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol,  &
      endif
   enddo
   
-100 if(nsnr.gt.-40) write(*,1100) trim(line2)
+100 if(nsnr0.gt.-40) write(*,1100) trim(line2)
 1100 format(a)
-  close(24)
+  close(24,status='delete')
   
 900 return
 end subroutine q65b