From 17d1bc92dc9923330fb2f57e128eaee02899c7e4 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sat, 20 Jun 2020 14:17:34 -0400 Subject: [PATCH] Revert "Make sure that ncand is correct even when the number of candidates has been limited." This reverts commit e78f1abcedccca04eaddc6cefba01da2fc615cae. --- lib/fst280_decode.f90 | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lib/fst280_decode.f90 b/lib/fst280_decode.f90 index a0e4b4a0c..377332cb7 100644 --- a/lib/fst280_decode.f90 +++ b/lib/fst280_decode.f90 @@ -442,10 +442,9 @@ contains call pctile(s2(ia:ib),ib-ia+1,30,base) s2=s2/base - thresh=1.4 + thresh=1.25 ncand=0 - candidates=0 if(ia.lt.3) ia=3 if(ib.gt.18000-2) ib=18000-2 do i=ia,ib @@ -466,8 +465,7 @@ contains snr_cand(1:ncand)=candidates(1:ncand,2) call indexx(snr_cand,ncand,indx) nmax=5 - ncand=min(ncand,nmax) - do i=1,ncand + do i=1,min(ncand,nmax) j=indx(ncand+1-i) candidates0(i,1:4)=candidates(j,1:4) enddo