From 8a20b97597b1f0ab87af1b57985dd9629337d90a Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Sat, 13 Oct 2018 13:50:24 -0500 Subject: [PATCH] Make sure that all callsigns from i3=1, i3=2 and i3=4 messages are in the hashtable. --- lib/77bit/packjt77.f90 | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90 index 44a273944..2ff63413d 100644 --- a/lib/77bit/packjt77.f90 +++ b/lib/77bit/packjt77.f90 @@ -439,9 +439,11 @@ subroutine unpack77(c77,msg,unpk77_success) if(iflip.eq.0) then call_1=call_3 call_2=adjustl(c11)//' ' + call add_call_to_recent_calls(call_2) else call_1=adjustl(c11)//' ' call_2=call_3 + call add_call_to_recent_calls(call_1) endif if(icq.eq.0) then if(nrpt.eq.0) msg=trim(call_1)//' '//trim(call_2) @@ -1209,6 +1211,9 @@ subroutine add_call_to_recent_calls(callsign) recent_calls(1)=callsign endif +! Make sure that callsign is hashed + call save_hash_call(callsign,n10,n12,n22) + return end subroutine add_call_to_recent_calls