From 05ed9c050d7ebe4508c19c9baed89e73b993663e Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 2 Jan 2024 19:52:45 -0500
Subject: [PATCH] Another attempt at identifying 30 s Tx sequences from disk
 data.

---
 qmap/libqmap/q65c.f90 | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/qmap/libqmap/q65c.f90 b/qmap/libqmap/q65c.f90
index bcc1f2867..02a5ff5fe 100644
--- a/qmap/libqmap/q65c.f90
+++ b/qmap/libqmap/q65c.f90
@@ -42,12 +42,20 @@ subroutine q65c(itimer)
   npatience=1
   newdat=1                          !Always on ??
 
-  call chkstat(dd,nhsym,pdb)
-  if(abs(pdb(1)-pdb(2)).gt.3.0) ntx30a=20      !We transmitted in first half
-  if(abs(pdb(3)-pdb(4)).gt.3.0) ntx30b=20      !We transmitted in second half
-  
-!  write(*,3001) nutc,nhsym,pdb,ntx30a,ntx30b
+  if(ndiskdat.eq.1) then
+     call chkstat(dd,nhsym,pdb)
+     if((abs(pdb(1)-pdb(2)).gt.3.0 .and. pdb(1).gt.1.0) .or.  &
+          pdb(1).lt.1.0) ntx30a=20                               !Tx 1st half
+     if((abs(pdb(3)-pdb(4)).gt.3.0 .and. pdb(3).gt.1.0) .or.  &
+          pdb(3).lt.1.0) ntx30b=20                               !Tx 2nd half
+     if(pdb(4).lt.0.04) then
+        ntx30a=0  !Older 56s files have no Tx
+        ntx30b=0  !Older 56s files have no Tx
+     endif
+
+!     write(*,3001) nutc,nhsym,pdb,ntx30a,ntx30b
 !3001 format(i4.4,i6,4f7.1,2i6)
+  endif
 
   if(ntx30a.gt.5) then
      dd(1:2,1:30*96000)=0.