From 0926943326c080888c9fc608f0957af2253cc8e3 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 17 Mar 2020 16:05:02 -0400
Subject: [PATCH] Silence some compiler warnings.

---
 lib/fano232.f90  | 2 +-
 lib/wqdecode.f90 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/fano232.f90 b/lib/fano232.f90
index dc3c639f6..5ba95d46c 100644
--- a/lib/fano232.f90
+++ b/lib/fano232.f90
@@ -126,7 +126,7 @@ subroutine fano232(symbol,nbits,mettab,ndelta,maxcycles,dat,     &
   np=7
   do j=1,nbytes-1
      i4a=nstate(np)
-     dat(j)=i4a
+     dat(j)=int(i4a,1)
      np=np+8
   enddo
   dat(nbytes)=0
diff --git a/lib/wqdecode.f90 b/lib/wqdecode.f90
index baa68cb14..625658b5c 100644
--- a/lib/wqdecode.f90
+++ b/lib/wqdecode.f90
@@ -316,7 +316,7 @@ subroutine unpackpfx(ng,call1)
         endif
         n=n/37
      enddo
-     call1=pfx//'/'//call1
+     call1=pfx//'/'//call1(1:8)
      if(call1(1:1).eq.' ') call1=call1(2:)
      if(call1(1:1).eq.' ') call1=call1(2:)
   else