From 0bd8542ccf95900fce38e94eaee5a4b9855ffd76 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sat, 1 Jul 2017 16:06:18 +0000 Subject: [PATCH] Guard against bounds error in candidate array. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7765 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fsk4hf/sync8.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/fsk4hf/sync8.f90 b/lib/fsk4hf/sync8.f90 index eb9a1f2a2..41a0ca358 100644 --- a/lib/fsk4hf/sync8.f90 +++ b/lib/fsk4hf/sync8.f90 @@ -89,7 +89,7 @@ subroutine sync8(iwave,nfa,nfb,nfqso,s,candidate,ncand) candidate0(2,k)=(jpeak(n)-1)*tstep candidate0(3,k)=red(n) enddo - ncand=k + ncand=min(100,k) ! Put nfqso at top of list, and save only the best of near-dupe freqs. do i=1,ncand