From 9d75e1d9d11da42e66f5c200b93501c6647d8094 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sun, 12 Jun 2016 02:55:43 +0000
Subject: [PATCH] Guard against array overrun.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6771 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/detectmsk144.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/detectmsk144.f90 b/lib/detectmsk144.f90
index 0fcdc990a..387788f43 100644
--- a/lib/detectmsk144.f90
+++ b/lib/detectmsk144.f90
@@ -87,10 +87,11 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc)
      first=.false.
   endif
 
-  nstep=694  ! fill the detmet, detsnr, detferr arrays
+  nstep=693  ! fill the detmet, detsnr, detferr arrays
   do istp=1,nstep
     ns=1+256*(istp-1)
     ne=ns+NPTS-1
+    if( ne .gt. n ) exit
     tt=(ns+ne)/2.0/12000.0
     cdat=cbig(ns:ne)