From 45d48629d2c756b836cc22015b402ef0c2794dcb Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 31 Aug 2018 09:23:37 -0400
Subject: [PATCH] Increase size of callsign  hash table; protect against its
 overflow.

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

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index 706cccb99..42f91dcfb 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -1,7 +1,7 @@
 module packjt77
 
 ! These variables are accessible from outside via "use packjt":
-  parameter (MAXHASH=20)
+  parameter (MAXHASH=100)
   character*13 callsign(MAXHASH)
   integer ihash10(MAXHASH),ihash12(MAXHASH),ihash22(MAXHASH)
   integer n28a,n28b,nzhash
@@ -121,7 +121,7 @@ subroutine save_hash_call(c13,n10,n12,n22)
   ihash12(1)=n12
   ihash22(1)=n22
   callsign(1)=c13
-  nzhash=nzhash+1
+  if(nzhash.lt.MAXHASH) nzhash=nzhash+1
 
 900 return
 end subroutine save_hash_call