w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 10:22:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Put <...> around callsign recovered from hash table.

Browse Source
This commit is contained in:
Joe Taylor 2018-06-28 13:07:01 -04:00
parent 1d0ffcfdca
commit 4946d01edb
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/77bit/test28.txt
View File

@ -14,16 +14,22 @@ CQ_AAAA
CQ_ZZZZ CQ_ZZZZ
EI30T EI30T
YW18FIFA YW18FIFA
KH1/KH7Z
<KH1/KH7Z> <KH1/KH7Z>
ZS9YOTA ZS9YOTA
YB50ST YB50ST
999ABC 00A
99ZZZ
000A
009ZZZ
999ZZZ
HA70BAY HA70BAY
WB2000XYZ WB2000XYZ
WB2000XYZABCD WB2000XYZABCD
ZM90DX ZM90DX
<VP2E/KA1ABC> <VP2E/KA1ABC>
HB9GOLD HB9GOLD
A0
A0A A0A
K1ABC K1ABC
K1JT K1JT

4
lib/77bit/unpack28.f90
View File

@ -45,6 +45,10 @@ subroutine unpack28(n28_0,c13)
! This is a 22-bit hash of a callsign ! This is a 22-bit hash of a callsign
n22=n28 n22=n28
call hash22(n22,c13,-1) !Retrieve callsign from hash table call hash22(n22,c13,-1) !Retrieve callsign from hash table
if(c13(1:1).ne.'<') then
n=len(trim(c13))
c13='<'//c13(1:n)//'>'//' '
endif
go to 900 go to 900
endif endif