w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Override hashtable and use mycall when 22-bit hash in call_1 of i3=1 message matches hashmy22.

This commit is contained in:
K9AN 2020-06-06 08:18:31 -05:00
parent e5a21ddb41
commit c058686bc6
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/77bit/packjt77.f90
View File

@ -411,6 +411,10 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
read(c77,1000) n28a,ipa,n28b,ipb,ir,igrid4,i3
1000 format(2(b28,b1),b1,b15,b3)
call unpack28(n28a,call_1,unpk28_success)
if(nrx.eq.1 .and. mycall13_set .and. hashmy22.eq.(n28a-2063592)) then
call_1='<'//trim(mycall13)//'>'
unpk28_success=.true.
endif
if(.not.unpk28_success) unpk77_success=.false.
call unpack28(n28b,call_2,unpk28_success)
if(.not.unpk28_success) unpk77_success=.false.