Revert "Make sure that ncand is correct even when the number of candidates has been limited."

This reverts commit e78f1abced.
This commit is contained in:
Joe Taylor 2020-06-20 14:17:34 -04:00
parent 066d2585bc
commit 17d1bc92dc
1 changed files with 2 additions and 4 deletions

View File

@ -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