Cosmetic change

This commit is contained in:
Bill Somerville 2020-10-23 03:32:22 +01:00
parent 3888b0d0bb
commit ab90585e46
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F

View File

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