Correct a flaw in ISCAT decoder.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7198 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-10-18 18:53:29 +00:00
parent 8a8bb89e44
commit 0c59730c02
1 changed files with 1 additions and 1 deletions

View File

@ -91,7 +91,7 @@ subroutine fast_decode(id2,narg,ntrperiod,bShMsgs,line,mycall_12, &
ndat=ndat0
call wav11(id2,ndat,dat)
nzz=11025*ntrperiod
if(npts.lt.nzz) dat(npts+1:nzz)=0.0
if(ndat.lt.nzz) dat(npts+1:nzz)=0.0
ndat=min(ndat,30*11025)
call ana932(dat,ndat,cdat,npts) !Make downsampled analytic signal
endif