In ft8apset, mycall and dxcall must be at least 3 characters long, otherwise they are treated as non-existent.

This commit is contained in:
Steve Franke 2018-12-24 11:19:07 -06:00
parent b44d7b472d
commit 1a8ddad307

View File

@ -14,7 +14,7 @@ subroutine ft8apset(mycall12,hiscall12,apsym)
nohiscall=.false.
hiscall=hiscall12
if(len(trim(hiscall)).eq.0) then
if(len(trim(hiscall)).lt.3) then
hiscall=mycall12 ! use mycall for dummy hiscall - mycall won't be hashed.
nohiscall=.true.
endif