w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-04 02:45:18 -04:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Joe Taylor 2021-02-25 15:19:44 -05:00
parent 19512c00f1
commit 7ad8816170
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/jt9.f90
View File

@ -206,6 +206,11 @@ program jt9
go to 999 go to 999
endif endif
if(hiscall.eq.'b') then
hiscall=' '
hisgrid=' '
endif
if (mode .eq. 241) then if (mode .eq. 241) then
ntol = min (ntol, 100) ntol = min (ntol, 100)
else if (mode .eq. 65 + 9 .and. .not. have_ntol) then else if (mode .eq. 65 + 9 .and. .not. have_ntol) then