From 3f5705ac74a0048130f77f1b5693c33bc6918ef6 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 5 Mar 2021 13:28:14 -0500
Subject: [PATCH] Fix for possible out-of-bounds nutc.

---
 lib/q65_decode.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90
index 2d45f1067..a793c87d5 100644
--- a/lib/q65_decode.f90
+++ b/lib/q65_decode.f90
@@ -87,7 +87,7 @@ contains
 
 ! Determine the T/R sequence: iseq=0 (even), or iseq=1 (odd)
     n=nutc
-    if(ntrperiod.ge.60) n=100*n
+    if(ntrperiod.ge.60 .and. nutc.le.2359) n=100*n
     write(cutc,'(i6.6)') n
     read(cutc,'(3i2)') ih,im,is
     nsec=3600*ih + 60*im + is