Cosmetic change

This commit is contained in:
Bill Somerville 2020-10-23 03:32:22 +01:00
parent 308d815fb5
commit 5efe448a9c
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 1 additions and 1 deletions

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)