From 6ad6d44ffa83a6ff68e64979224455bd103f5b33 Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Thu, 14 Feb 2019 17:34:46 -0600 Subject: [PATCH] When doing block detection of symbols, fill in incomplete blocks using data from shorter block sizes. --- lib/ft4/ft4_decode.f90 | 4 ++++ lib/ft4/getcandidates4.f90 | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lib/ft4/ft4_decode.f90 b/lib/ft4/ft4_decode.f90 index 366365fe7..36f257a60 100644 --- a/lib/ft4/ft4_decode.f90 +++ b/lib/ft4/ft4_decode.f90 @@ -301,6 +301,10 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nQSOProgress,ncontest,nfqso, & enddo enddo + bmetb(205:206)=bmeta(205:206) + bmetc(201:204)=bmetb(201:204) + bmetc(205:206)=bmeta(205:206) + call clockit('normaliz',0) call normalizebmet(bmeta,2*NN) call normalizebmet(bmetb,2*NN) diff --git a/lib/ft4/getcandidates4.f90 b/lib/ft4/getcandidates4.f90 index 47b08d426..424a7d297 100644 --- a/lib/ft4/getcandidates4.f90 +++ b/lib/ft4/getcandidates4.f90 @@ -27,7 +27,7 @@ subroutine getcandidates4(id,fa,fb,syncmin,nfqso,maxcand,savg,candidate, & ! Compute symbol spectra, stepping by NSTEP steps. savg=0. tstep=NSTEP/12000.0 - df=12000.0/NFFT1 !3.125 Hz + df=12000.0/NFFT1 !5.86 Hz fac=1.0/300.0 do j=1,NHSYM ia=(j-1)*NSTEP + 1