From 21095808f19c11e7bcc5b5c3cd1e3fed692fa2c3 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sat, 13 Aug 2016 14:07:24 +0000
Subject: [PATCH] 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
---
 lib/msk144_decode.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/msk144_decode.f90 b/lib/msk144_decode.f90
index 9572412e6..575d21467 100644
--- a/lib/msk144_decode.f90
+++ b/lib/msk144_decode.f90
@@ -16,6 +16,7 @@ subroutine msk144_decode(id2,npts,nutc,nprint,pchk_file,mycall,hiscall,   &
 
   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( npts .lt. 0.25*12000 ) go to 900  !Min record length 0.25s.
 
   hist=0
   do i=0,npts-1