From 41f9810822425fa4bbe79320d3817887054a765e Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 18 Sep 2018 13:28:41 -0400
Subject: [PATCH] Update the callign sequence for unpack77, to account for the
 new "success" flag.

---
 lib/77bit/encode77.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/77bit/encode77.f90 b/lib/77bit/encode77.f90
index 3c81e07f2..987efc4f6 100644
--- a/lib/77bit/encode77.f90
+++ b/lib/77bit/encode77.f90
@@ -6,6 +6,7 @@ program encode77
   character msg*37,cerr*1
   character*77 c77
   character*80 infile
+  logical unpk77_success
 
   nargs=iargc()
   if(nargs.ne.1 .and.nargs.ne.2) then
@@ -33,7 +34,7 @@ program encode77
      i3=-1
      n3=-1
      call pack77(msg0(1:37),i3,n3,c77)
-     call unpack77(c77,msg)
+     call unpack77(c77,msg,unpk77_success)
      cerr=' '
      if(msg.ne.msg0(1:37)) cerr='*'
      if(i3.eq.0) write(*,1004) i3,n3,cerr,msg0(1:37),msg