From 7ad88161709b4ac85f10c36643f4bbced055f171 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 25 Feb 2021 15:19:44 -0500
Subject: [PATCH] Kludge to allow specifying blank "hiscall" when jt9 is
 executed from command line.

---
 lib/jt9.f90 | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/jt9.f90 b/lib/jt9.f90
index 9a150dadc..fae842587 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -206,6 +206,11 @@ program jt9
      go to 999
   endif
 
+  if(hiscall.eq.'b') then
+     hiscall='            '
+     hisgrid='      '
+  endif
+
   if (mode .eq. 241) then
      ntol = min (ntol, 100)
   else if (mode .eq. 65 + 9 .and. .not. have_ntol) then