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

Only hash the callsign of stations that we are hearing.

Browse Source
This commit is contained in:
Steven Franke 2024-02-05 08:52:57 -06:00
parent 20c41cf45b
commit 98e48e00d3
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/77bit/packjt77.f90
View File

@ -480,7 +480,11 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
i=index(call_2,' ') i=index(call_2,' ')
if(i.ge.4 .and. ipb.eq.1 .and. i3.eq.1) call_2(i:i+1)='/R' if(i.ge.4 .and. ipb.eq.1 .and. i3.eq.1) call_2(i:i+1)='/R'
if(i.ge.4 .and. ipb.eq.1 .and. i3.eq.2) call_2(i:i+1)='/P' if(i.ge.4 .and. ipb.eq.1 .and. i3.eq.2) call_2(i:i+1)='/P'
if(i.ge.4) call add_call_to_recent_calls(call_2) if(i.ge.4) then
call add_call_to_recent_calls(call_2)
! only hash the "from" call
call save_hash_call(call_2,ndum10,ndum12,ndum22)
endif
endif endif
if(igrid4.le.MAXGRID4) then if(igrid4.le.MAXGRID4) then
call to_grid4(igrid4,grid4,unpkg4_success) call to_grid4(igrid4,grid4,unpkg4_success)
@ -560,6 +564,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
call_1=call_3 call_1=call_3
call_2=adjustl(c11)//' ' call_2=adjustl(c11)//' '
call add_call_to_recent_calls(call_2) call add_call_to_recent_calls(call_2)
call save_hash_call(call_2,ndum10,ndum12,ndum22)
if(nrx.eq.1 .and. & if(nrx.eq.1 .and. &
dxcall13_set .and. mycall13_set .and. & dxcall13_set .and. mycall13_set .and. &
call_2.eq.dxcall13 .and. & call_2.eq.dxcall13 .and. &
@ -1540,7 +1545,7 @@ subroutine add_call_to_recent_calls(callsign)
endif endif
! Make sure that callsign is hashed ! Make sure that callsign is hashed
call save_hash_call(callsign,n10,n12,n22) ! call save_hash_call(callsign,n10,n12,n22) ! commented out - do this in the calling routine:
return return
end subroutine add_call_to_recent_calls end subroutine add_call_to_recent_calls