From 860fdcd3f4e11bca5ed8c639552607ca53b83dab Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sat, 1 Jul 2017 13:45:16 +0000
Subject: [PATCH] Fix a bounds violation.

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

diff --git a/lib/fsk4hf/ft8b.f90 b/lib/fsk4hf/ft8b.f90
index ef3e3d630..b4ef75191 100644
--- a/lib/fsk4hf/ft8b.f90
+++ b/lib/fsk4hf/ft8b.f90
@@ -116,7 +116,8 @@ subroutine ft8b(dd0,s,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
   j=0
   do k=1,NN
     i1=ibest+(k-1)*32
-    csymb=cd0(i1:i1+31)
+    csymb=cmplx(0.0,0.0)
+    if( i1.gt.1 .and. i1+31 .lt. NP2 ) csymb=cd0(i1:i1+31)
     call four2a(csymb,32,1,-1,1)
     s2(0:7,k)=abs(csymb(1:8))
   enddo  
@@ -185,6 +186,7 @@ subroutine ft8b(dd0,s,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
      xsnr=xsig/xnoi-1.0
      if( xsnr .lt. 0.0 ) xsnr=0.005
      xsnr=10.0*log10(xsnr)-26.3
+     if( xsnr .lt. -24.0 ) xsnr=-24.0
   endif
 900 continue
   return