From 5efe448a9ca0d60648a058c74e512eed98f44d49 Mon Sep 17 00:00:00 2001
From: Bill Somerville <bill@classdesign.com>
Date: Fri, 23 Oct 2020 03:32:22 +0100
Subject: [PATCH] Cosmetic change

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

diff --git a/lib/jt9.f90 b/lib/jt9.f90
index 6b4368740..81013f1b6 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -202,7 +202,7 @@ program jt9
 
   if (mode .eq. 241) then
      ntol = min (ntol, 100)
-  else if (mode .eq. 74) then
+  else if (mode .eq. 65 + 9) then
      ntol = 20
   else
      ntol = min (ntol, 1000)