From 96c7d6bf36f790516a805872c3f503b20f1c1fc8 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 17 Feb 2023 10:43:37 -0500
Subject: [PATCH] Open/close LU 24 in q65_hist2.

---
 lib/qra/q65/q65.f90 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index fb323092f..754e27349 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -869,6 +869,7 @@ end subroutine q65_hist
 subroutine q65_hist2(nfreq,msg0,callers,nhist2)
 
   use types
+  use prog_args
   parameter (MAX_CALLERS=40)  !For multiple q3 decodes in NA VHf Contest mode
   character*37 msg0,msg
   type(q3list) callers(MAX_CALLERS)
@@ -913,9 +914,13 @@ subroutine q65_hist2(nfreq,msg0,callers,nhist2)
      callers(nhist2)%grid=g4
      callers(nhist2)%nsec=time()
      callers(nhist2)%nfreq=nfreq
-     write(24) nhist2,callers(1:nhist2)
   endif
 
+  open(24,file=trim(data_dir)//'/tsil.3q',status='unknown',     &
+       form='unformatted')
+  write(24) nhist2,callers(1:nhist2)
+  close(24)
+
 900 return
 end subroutine q65_hist2