From bfa4b2895de99da991eec0bdc9ffb663ba830721 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 19 May 2017 14:44:20 +0000
Subject: [PATCH] Fix minor bug in gen9 -- thanks to Igor, UA3DJY, for
 identifying it!

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

diff --git a/lib/gen9.f90 b/lib/gen9.f90
index b86d6bb23..144e646d8 100644
--- a/lib/gen9.f90
+++ b/lib/gen9.f90
@@ -43,7 +43,9 @@ subroutine gen9(msg0,ichk,msgsent,i4tone,itype)
      call entail(i4Msg6BitWords,i1Msg8BitBytes)  !Add tail, make 8-bit bytes
      nsym2=206
      call encode232(i1Msg8BitBytes,nsym2,i1EncodedBits)   !Encode K=32, r=1/2
+     i1EncodedBits(207)=0
      call interleave9(i1EncodedBits,1,i1ScrambledBits)    !Interleave bits
+     i1ScrambledBits(207)=0
      call packbits(i1ScrambledBits,69,3,i4DataSymbols)    !Pk 3-bits into words
      call graycode(i4DataSymbols,69,1,i4GrayCodedSymbols) !Apply Gray code