Fix a typo. Thanks NQ6Z!

This commit is contained in:
Steven Franke 2020-01-03 14:28:37 -06:00
parent 0f592eb48f
commit dda393dd81

View File

@ -635,7 +635,7 @@ subroutine pack28(c13,n28)
npdig.ge.iarea-1 .or. nslet.gt.3) then
! Treat this as a nonstandard callsign: compute its 22-bit hash
call save_hash_call(c13,n10,n12,n22) !Save callsign in hash table
n22=ihashcall(c13,n22)
n22=ihashcall(c13,22)
n28=NTOKENS + n22
go to 900
endif