From 6cecef42aaf5dae2658ab260c394472b404586ea Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 4 Oct 2018 16:09:02 -0400
Subject: [PATCH] Restore a missing call to unpack77().

---
 lib/ft8/genft8_174_91.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/ft8/genft8_174_91.f90 b/lib/ft8/genft8_174_91.f90
index a9e8d7007..979915689 100644
--- a/lib/ft8/genft8_174_91.f90
+++ b/lib/ft8/genft8_174_91.f90
@@ -17,6 +17,7 @@ subroutine genft8_174_91(msg,i3,n3,msgsent,msgbits,itone)
   i3=-1
   n3=-1
   call pack77(msg,i3,n3,c77)
+  call unpack77(c77,msgsent,unpk77_success)
 
   read(c77,'(77i1)',err=1) msgbits
   go to 2