From 95259fddfe3ed03ea3b11771d59f53de84c419d7 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Mon, 1 Feb 2016 16:15:34 +0000
Subject: [PATCH] Actually, those calls to packbits() should send the value
 "69" as 2nd argument.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6458 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/gen9.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/gen9.f90 b/lib/gen9.f90
index 50c29b267..b86d6bb23 100644
--- a/lib/gen9.f90
+++ b/lib/gen9.f90
@@ -44,8 +44,8 @@ subroutine gen9(msg0,ichk,msgsent,i4tone,itype)
      nsym2=206
      call encode232(i1Msg8BitBytes,nsym2,i1EncodedBits)   !Encode K=32, r=1/2
      call interleave9(i1EncodedBits,1,i1ScrambledBits)    !Interleave bits
-     call packbits(i1ScrambledBits,nsym2/3,3,i4DataSymbols) !Pk 3-bits into words
-     call graycode(i4DataSymbols,nsym2/3,1,i4GrayCodedSymbols) !Apply Gray code
+     call packbits(i1ScrambledBits,69,3,i4DataSymbols)    !Pk 3-bits into words
+     call graycode(i4DataSymbols,69,1,i4GrayCodedSymbols) !Apply Gray code
 
 ! Insert sync symbols at ntone=0 and add 1 to the data-tone numbers.
      j=0