From 6c7f112384e19326e8f05e4cf6fd75b00a698896 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sat, 1 Oct 2016 00:05:20 +0000
Subject: [PATCH] Delete unused nav(6) array in mskrtd. Minor fix to
 command-line tool msk144d2.f90.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7131 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/msk144d2.f90 | 3 ++-
 lib/mskrtd.f90   | 2 --
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/msk144d2.f90 b/lib/msk144d2.f90
index 7df8fed18..f6eec1d7f 100644
--- a/lib/msk144d2.f90
+++ b/lib/msk144d2.f90
@@ -90,7 +90,8 @@ program msk144d2
      read(unit=wav%lun) id2(1:npts)
      close(unit=wav%lun)
      call timer('read    ',1)
-     do i=1,npts,7*512
+
+     do i=1,npts-7*1024+1,7*512
        ichunk=id2(i:i+7*1024-1)
        tsec=(i-1)/12000.0
        call mskrtd(ichunk,nutc,tsec,ntol,nrxfreq,ndepth,line)
diff --git a/lib/mskrtd.f90 b/lib/mskrtd.f90
index 11cfae85c..0f01d4860 100644
--- a/lib/mskrtd.f90
+++ b/lib/mskrtd.f90
@@ -22,14 +22,12 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,line)
   integer iavmask(8)
   integer iavpatterns(8,NPATTERNS)
   integer npkloc(10)
-  integer nav(6)
 
   real d(NFFT1)
   real pow(8)
   real xmc(NPATTERNS)
   logical first
   data first/.true./
-  data nav/1,2,3,5,7,9/
   data iavpatterns/ &
        1,1,1,1,0,0,0,0, &
        0,0,1,1,1,1,0,0, &