From 653e53b1252db927efcd5e4c3cb0608c2f61d558 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 19 Sep 2018 11:48:30 -0400
Subject: [PATCH] Apply the fix for i3, n3 before calling pack77() in
 genft8_174_91.f90.

---
 lib/ft8/genft8_174_91.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/ft8/genft8_174_91.f90 b/lib/ft8/genft8_174_91.f90
index d56187d6c..c9b2a7cd7 100644
--- a/lib/ft8/genft8_174_91.f90
+++ b/lib/ft8/genft8_174_91.f90
@@ -14,8 +14,10 @@ subroutine genft8_174_91(msg,i3,n3,msgsent,msgbits,itone)
   data icos7/3,1,4,0,6,5,2/                   !Costas 7x7 tone pattern
   data graymap/0,1,3,2,5,6,4,7/
 
+  i3=-1
+  n3=-1
   call pack77(msg,i3,n3,c77)
-  call unpack77(c77,msgsent,unpk77_success) 
+  call unpack77(c77,msgsent,unpk77_success)
 
   read(c77,'(77i1)',err=1) msgbits
   go to 2