w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix a typo. Thanks NQ6Z!

Browse Source
This commit is contained in:
Steven Franke 2020-01-03 14:28:37 -06:00
parent 0f592eb48f
commit dda393dd81
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/77bit/packjt77.f90
View File

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