From 5de5db67653f9745c9c615cf5afbd13b667cfd9c Mon Sep 17 00:00:00 2001
From: K9AN <s.j.franke@icloud.com>
Date: Sat, 6 Jun 2020 08:18:31 -0500
Subject: [PATCH] Override hashtable and use mycall when 22-bit hash in call_1
 of i3=1 message matches hashmy22.

---
 lib/77bit/packjt77.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index c5a663ccd..22cdb52fb 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -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.