From 12a328ecbef4c437c25ab624a25daff39f4b7533 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sun, 23 Dec 2018 15:28:42 -0500
Subject: [PATCH] adjust encode77 for the new unpack77() calling sequence.

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

diff --git a/lib/77bit/encode77.f90 b/lib/77bit/encode77.f90
index 987efc4f6..4b2a13551 100644
--- a/lib/77bit/encode77.f90
+++ b/lib/77bit/encode77.f90
@@ -34,7 +34,7 @@ program encode77
      i3=-1
      n3=-1
      call pack77(msg0(1:37),i3,n3,c77)
-     call unpack77(c77,msg,unpk77_success)
+     call unpack77(c77,1,msg,unpk77_success)
      cerr=' '
      if(msg.ne.msg0(1:37)) cerr='*'
      if(i3.eq.0) write(*,1004) i3,n3,cerr,msg0(1:37),msg