From 4d0bf9027b69fcb8f5662dcb87f3c55eef20c94e Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Fri, 27 May 2016 20:50:30 +0000
Subject: [PATCH] minor cleanup

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

diff --git a/lib/genmsk144.f90 b/lib/genmsk144.f90
index e19b1632e..15016559e 100644
--- a/lib/genmsk144.f90
+++ b/lib/genmsk144.f90
@@ -162,8 +162,6 @@ subroutine genmsk144(msg0,ichk,msgsent,i4tone,itype)
 
 ! Map I and Q  to tones. 
     i4tone=0 
-    iq=144
-    it=1
     do i=1,72
       i4tone(2*i-1)=(bitseq(2*i)*bitseq(2*i-1)+1)/2;
       i4tone(2*i)=-(bitseq(2*i)*bitseq(mod(2*i,144)+1)-1)/2;