From 430a413f952987075590bd39f97b9e28b1098bb3 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 19 Mar 2020 10:16:33 -0400
Subject: [PATCH] Silence compiler warnings for packjt77.f90.

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

diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index b693da0eb..cd864f90b 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -470,7 +470,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
      call hash12(n12,call_3)
      if(iflip.eq.0) then       ! 12 bit hash for TO call
         call_1=call_3          
-        call_2=adjustl(c11)//'          '
+        call_2=adjustl(c11)//'  '
         call add_call_to_recent_calls(call_2)
         if(nrx.eq.1 .and.                        &  
            dxcall13_set .and. mycall13_set .and. & 
@@ -1199,7 +1199,6 @@ subroutine pack77_5(nwords,w,i3,n3,c77)
   character*13 w(19)
   character*77 c77
   character*6 bcall_1,bcall_2
-  character*3 mult
   character crpt*4
   character c1*1,c2*2
   logical ok1,ok2