diff --git a/lib/ft4/ft4_decode.f90 b/lib/ft4/ft4_decode.f90 index f62569343..63cc6753e 100644 --- a/lib/ft4/ft4_decode.f90 +++ b/lib/ft4/ft4_decode.f90 @@ -183,7 +183,7 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nQSOProgress,ncontest,nfqso, & do icand=1,ncand f0=candidate(1,icand) snr=candidate(3,icand)-1.0 - if( f0.le.375.0 .or. f0.ge.(5000.0-375.0) ) cycle + 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) @@ -232,9 +232,8 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nQSOProgress,ncontest,nfqso, & enddo enddo f0=f0+real(idfbest) + if( f0.le.10.0 .or. f0.ge.4990.0 ) cycle -!f0=1500 -!ibest=219 call clockit('ft4down ',0) call ft4_downsample(iwave,f0,cb) !Final downsample with corrected f0 call clockit('ft4down ',1) diff --git a/lib/ft4/ft4d.f90 b/lib/ft4/ft4d.f90 index 7725992df..f8e6dab71 100644 --- a/lib/ft4/ft4d.f90 +++ b/lib/ft4/ft4d.f90 @@ -43,8 +43,8 @@ program ft4d read(arg,*) nQSOProgress iarg=iarg+2 endif - nfa=0 - nfb=4224 + nfa=10 + nfb=4990 ndecodes=0 nfqso=1500 mycall="K9AN"