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

Put mycall13 into the 22-bit hash table only so that 22-bit hashes of mycall are recognized.

Browse Source
This commit is contained in:
Steve Franke 2018-12-21 13:20:14 -06:00
parent 4e2d61204f
commit adb7a935b2
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/77bit/packjt77.f90
View File

@ -88,13 +88,12 @@ subroutine save_hash_call(c13,n10,n12,n22)
if(i.gt.0) cw(i:)=' '
if(len(trim(cw)) .lt. 3) return
if(cw.eq.mycall13) return
n10=ihashcall(cw,10)
if(n10.ge.1 .and. n10 .le. 1024) calls10(n10)=cw
if(n10.ge.1 .and. n10 .le. 1024 .and. cw.ne.mycall13) calls10(n10)=cw
n12=ihashcall(cw,12)
if(n12.ge.1 .and. n12 .le. 4096) calls12(n12)=cw
if(n12.ge.1 .and. n12 .le. 4096 .and. cw.ne.mycall13) calls12(n12)=cw
n22=ihashcall(cw,22)
if(any(ihash22.eq.n22)) then ! If entry exists, make sure callsign is the most recently received one
@ -240,9 +239,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
if(len(trim(mycall13)).gt.2) then
mycall13_set=.true.
mycall13_0=mycall13
hashmy10=ihashcall(mycall13,10)
hashmy12=ihashcall(mycall13,12)
hashmy22=ihashcall(mycall13,22)
call save_hash_call(mycall13,hashmy10,hashmy12,hashmy22)
else
mycall13_set=.false.
endif