minor cleanup

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6709 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-05-27 20:50:30 +00:00 · 2016-05-27 20:50:30 +00:00 · 4d0bf9027b
parent aa34320736
commit 4d0bf9027b
1 changed files with 0 additions and 2 deletions
--- 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;