From 3c77b720f88e476f61f3dc7d02916a9a44f341cf Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 15 Feb 2019 09:06:41 -0500 Subject: [PATCH] Account for buffer start time in ft4d. --- lib/ft4/ft4d.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/ft4/ft4d.f90 b/lib/ft4/ft4d.f90 index 12f2fdfc3..12aa26181 100644 --- a/lib/ft4/ft4d.f90 +++ b/lib/ft4/ft4d.f90 @@ -63,7 +63,8 @@ program ft4d nsteps=(npts-60000)/3456 + 1 do n=1,nsteps i0=(n-1)*3456 + 1 - call ft4_decode(cdatetime,0.0,nfa,nfb,nQSOProgress,ncontest, & + tbuf=(i0-1)/12000.0 + call ft4_decode(cdatetime,tbuf,nfa,nfb,nQSOProgress,ncontest, & nfqso,iwave(i0),ndecodes,mycall,hiscall,nrx,line,data_dir) do idecode=1,ndecodes call get_ft4msg(idecode,nrx,line)