diff --git a/lib/ft4/ft4_decode.f90 b/lib/ft4/ft4_decode.f90 index bd6d9a5d0..cfbfc6b39 100644 --- a/lib/ft4/ft4_decode.f90 +++ b/lib/ft4/ft4_decode.f90 @@ -184,7 +184,7 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nQSOProgress,ncontest,nfqso, & f0=candidate(1,icand) if(f0.le.max(fa,10.0) .or. f0.ge.min(fb,4990.0)) cycle snr=candidate(3,icand)-1.0 - if( f0.le.10.0 .or. f0.ge.4990.0 ) cycle + call clockit('ft4_down',0) call ft4_downsample(iwave,f0,cd2) !Downsample from 512 to 32 Sa/Symbol call clockit('ft4_down',1) diff --git a/lib/ft4/getcandidates4.f90 b/lib/ft4/getcandidates4.f90 index 23da3d394..bf62abfa7 100644 --- a/lib/ft4/getcandidates4.f90 +++ b/lib/ft4/getcandidates4.f90 @@ -54,7 +54,7 @@ subroutine getcandidates4(id,fa,fb,syncmin,nfqso,maxcand,savg,candidate, & np=n2500-n300+1 indx=0 call indexx(savsm(n300:n2500),np,indx) - xn=savsm(nfa+indx(nint(0.3*np))) + xn=savsm(n300+indx(nint(0.3*np))) ncand=0 if(xn.le.1.e-8) return savsm=savsm/xn