w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-16 09:01:59 -05:00
Code Issues Packages Projects Releases Wiki Activity

Delete unused nav(6) array in mskrtd. Minor fix to command-line tool msk144d2.f90.

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/msk144d2.f90
View File

@ -90,7 +90,8 @@ program msk144d2
read(unit=wav%lun) id2(1:npts) read(unit=wav%lun) id2(1:npts)
close(unit=wav%lun) close(unit=wav%lun)
call timer('read ',1) 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) ichunk=id2(i:i+7*1024-1)
tsec=(i-1)/12000.0 tsec=(i-1)/12000.0
call mskrtd(ichunk,nutc,tsec,ntol,nrxfreq,ndepth,line) call mskrtd(ichunk,nutc,tsec,ntol,nrxfreq,ndepth,line)

2
lib/mskrtd.f90
View File

@ -22,14 +22,12 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,line)
integer iavmask(8) integer iavmask(8)
integer iavpatterns(8,NPATTERNS) integer iavpatterns(8,NPATTERNS)
integer npkloc(10) integer npkloc(10)
integer nav(6)
real d(NFFT1) real d(NFFT1)
real pow(8) real pow(8)
real xmc(NPATTERNS) real xmc(NPATTERNS)
logical first logical first
data first/.true./ data first/.true./
data nav/1,2,3,5,7,9/
data iavpatterns/ & data iavpatterns/ &
1,1,1,1,0,0,0,0, & 1,1,1,1,0,0,0,0, &
0,0,1,1,1,1,0,0, & 0,0,1,1,1,1,0,0, &