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
This commit is contained in:
Steven Franke 2016-10-01 00:05:20 +00:00
parent c7c50830bf
commit 6c7f112384
2 changed files with 2 additions and 3 deletions

View File

@ -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)

View File

@ -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, &