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

This commit is contained in:
Joe Taylor 2021-02-25 15:19:44 -05:00
parent 19512c00f1
commit 7ad8816170

View File

@ -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