Guard against sending too-short data records to detectmsk routines.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7027 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-08-13 14:07:24 +00:00
parent 573615c565
commit 21095808f1

View File

@ -16,6 +16,7 @@ subroutine msk144_decode(id2,npts,nutc,nprint,pchk_file,mycall,hiscall, &
line(1:100)(1:1)=char(0) line(1:100)(1:1)=char(0)
if(maxval(id2(1:npts)).eq.0 .and. minval(id2(1:npts)).eq.0) go to 900 if(maxval(id2(1:npts)).eq.0 .and. minval(id2(1:npts)).eq.0) go to 900
if( npts .lt. 0.25*12000 ) go to 900 !Min record length 0.25s.
hist=0 hist=0
do i=0,npts-1 do i=0,npts-1