From b8287eb584a8e70c44694be12c44adc7683d9939 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Sun, 23 Dec 2018 15:34:00 -0600
Subject: [PATCH] Bring encode77.f90 up to date.

---
 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