From 0e7c679ae515567bb01ece95647c3afe99fdcd0c Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Thu, 20 Dec 2018 15:47:22 -0600
Subject: [PATCH] Don't initialize hash arrays twice.

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

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index 9691b33e3..e4ea697b6 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -6,9 +6,11 @@ module packjt77
   character (len=13), dimension(1:4096) ::  calls12=''
   character (len=13), dimension(1:MAXHASH) :: calls22=''
   character (len=13), dimension(1:MAXRECENT) :: recent_calls=''
-  character (len=13) :: mycall13,dxcall13
+  character (len=13) :: mycall13=''
+  character (len=13) :: dxcall13=''
   integer, dimension(1:MAXHASH) :: ihash22=-1
-  integer n28a,n28b,nzhash
+  integer :: nzhash=0
+  integer n28a,n28b
 
   contains
 
@@ -78,18 +80,7 @@ end function ihashcall
 subroutine save_hash_call(c13,n10,n12,n22)
 
   character*13 c13,cw
-  logical first
-  data first/.true./
-  save first
 
-  if(first) then
-     calls10=''
-     calls12=''
-     ihash22=-1
-     calls22='             '
-     nzhash=0
-     first=.false.
-  endif
   cw=c13 
   if(cw(1:1).eq.' ' .or. cw(1:5).eq.'<...>' .or. len(trim(cw)).lt.3) return
   if(cw(1:1).eq.'<') cw=cw(2:)