w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-28 23:28:49 -05:00
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.

Browse Source
This commit is contained in:
K9AN 2020-06-06 08:18:31 -05:00 committed by Bill Somerville
parent 00dfab9c88
commit 5de5db6765
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
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 read(c77,1000) n28a,ipa,n28b,ipb,ir,igrid4,i3
1000 format(2(b28,b1),b1,b15,b3) 1000 format(2(b28,b1),b1,b15,b3)
call unpack28(n28a,call_1,unpk28_success) 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. if(.not.unpk28_success) unpk77_success=.false.
call unpack28(n28b,call_2,unpk28_success) call unpack28(n28b,call_2,unpk28_success)
if(.not.unpk28_success) unpk77_success=.false. if(.not.unpk28_success) unpk77_success=.false.