mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-31 15:47:10 -04:00
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:
parent
c7c50830bf
commit
6c7f112384
@ -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)
|
||||
|
@ -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, &
|
||||
|
Loading…
Reference in New Issue
Block a user