From ade40fabf5ba9eef01190c277f59e1dbb419a304 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 5 Feb 2021 14:14:22 -0500
Subject: [PATCH] Be sure that Q65 nsps cannot remain undefined, and can't stop
 jt9[.exe].

---
 lib/q65_decode.f90 | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90
index 0bea7d8ee..3212fbc56 100644
--- a/lib/q65_decode.f90
+++ b/lib/q65_decode.f90
@@ -98,9 +98,8 @@ contains
     allocate (c00(0:nfft1-1))
     allocate (c0(0:nfft1-1))
 
-    if(ntrperiod.eq.15) then
-       nsps=1800
-    else if(ntrperiod.eq.30) then
+    nsps=1800
+    if(ntrperiod.eq.30) then
        nsps=3600
     else if(ntrperiod.eq.60) then
        nsps=7200
@@ -108,8 +107,6 @@ contains
        nsps=16000
     else if(ntrperiod.eq.300) then
        nsps=41472
-    else
-       stop 'Invalid TR period'
     endif
 
     baud=12000.0/nsps