From 4c88ab860bd7a5b5767ddb3057372cc2a1589168 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sat, 1 Jul 2017 14:47:52 +0000 Subject: [PATCH] Add more bounds checks. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7762 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fsk4hf/ft8b.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/fsk4hf/ft8b.f90 b/lib/fsk4hf/ft8b.f90 index 0c5ffe111..cfcbd7282 100644 --- a/lib/fsk4hf/ft8b.f90 +++ b/lib/fsk4hf/ft8b.f90 @@ -207,9 +207,9 @@ subroutine ft8_downsample(dd,f0,c1) baud=12000.0/(32.0*64.0) i0=nint(f0/df) ft=f0+8.0*baud - it=nint(ft/df) + it=min(nint(ft/df),NMAX/2-1) fb=f0-1.0*baud - ib=nint(fb/df) + ib=max(1,nint(fb/df)) k=0 c1=cmplx(0.0,0.0) do i=ib,it