From dda393dd81a34ab572d5b1959da8b8864af7da44 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Fri, 3 Jan 2020 14:28:37 -0600
Subject: [PATCH] Fix a typo. Thanks NQ6Z!

---
 lib/77bit/packjt77.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index 90e17add2..c93776105 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -635,7 +635,7 @@ subroutine pack28(c13,n28)
        npdig.ge.iarea-1 .or. nslet.gt.3) then
 ! Treat this as a nonstandard callsign: compute its 22-bit hash
      call save_hash_call(c13,n10,n12,n22)   !Save callsign in hash table
-     n22=ihashcall(c13,n22)
+     n22=ihashcall(c13,22)
      n28=NTOKENS + n22
      go to 900
   endif