From 3172f1e97685a94e9e8d739d45e5bb07eddee472 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Thu, 18 Jun 2020 08:14:11 -0500 Subject: [PATCH] Fix a type, add threshold for h=8, tweak gen_candidates to decrease the number of spurious candidates. --- lib/fst280_decode.f90 | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lib/fst280_decode.f90 b/lib/fst280_decode.f90 index bfbbded60..326e81f2d 100644 --- a/lib/fst280_decode.f90 +++ b/lib/fst280_decode.f90 @@ -408,15 +408,19 @@ contains s2(i)=s(i-nh*3) + s(i-nh) +s(i+nh) +s(i+nh*3) s2(i)=db(s2(i)) - 48.5 enddo + if(hmod.eq.1) thresh=-29.5 !### temporaray? ### if(hmod.eq.2) thresh=-27.0 - if(hmid.eq.4) thresh=-25.0 + if(hmod.eq.4) thresh=-27.0 + if(hmod.eq.8) thresh=-27.0 ncand=0 + if(ia.lt.3) ia=3 + if(ib.gt.18000-2) ib=18000-2 do i=ia,ib - if((s2(i).gt.s2(i-1)).and. & - (s2(i).gt.s2(i+1)).and. & + if((s2(i).gt.s2(i-2)).and. & + (s2(i).gt.s2(i+2)).and. & (s2(i).gt.thresh).and.ncand.lt.100) then ncand=ncand+1 candidates(ncand,1)=df2*i