Kludge to allow specifying blank "hiscall" when jt9 is executed from command line.

2021-02-25 15:19:44 -05:00 · 2021-02-25 15:19:44 -05:00 · 7ad8816170
parent 19512c00f1
commit 7ad8816170
1 changed files with 5 additions and 0 deletions
--- 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