diff --git a/lib/decoder.f90 b/lib/decoder.f90 index a5f542e1e..6252583d2 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -120,11 +120,16 @@ subroutine multimode_decoder(ss,id2,params,nfsample) call timer('decft8 ',0) newdat=params%newdat + if(params%emedelay.ne.0.0) then + id2(1:156000)=id2(24001:180000) ! Drop the first 2 seconds of data + id2(156001:180000)=0 + endif call my_ft8%decode(ft8_decoded,id2,params%nQSOProgress,params%nfqso, & params%nftx,newdat,params%nutc,params%nfa,params%nfb, & - params%nzhsym,params%ndepth,ncontest,logical(params%nagain), & - logical(params%lft8apon),logical(params%lapcqonly), & - params%napwid,mycall,hiscall,params%ndiskdat) + params%nzhsym,params%ndepth,params%emedelay,ncontest, & + logical(params%nagain),logical(params%lft8apon), & + logical(params%lapcqonly),params%napwid,mycall,hiscall, & + params%ndiskdat) call timer('decft8 ',1) if(nfox.gt.0) then n30min=minval(n30fox(1:nfox)) diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90 index 07320ca24..34bce1bf3 100644 --- a/lib/ft8_decode.f90 +++ b/lib/ft8_decode.f90 @@ -33,8 +33,8 @@ module ft8_decode contains subroutine decode(this,callback,iwave,nQSOProgress,nfqso,nftx,newdat, & - nutc,nfa,nfb,nzhsym,ndepth,ncontest,nagain,lft8apon,lapcqonly, & - napwid,mycall12,hiscall12,ldiskdat) + nutc,nfa,nfb,nzhsym,ndepth,emedelay,ncontest,nagain,lft8apon, & + lapcqonly,napwid,mycall12,hiscall12,ldiskdat) use iso_c_binding, only: c_bool, c_int use timer_module, only: timer use shmem, only: shmem_lock, shmem_unlock @@ -184,6 +184,7 @@ contains endif if(.not.ldupe .and. associated(this%callback)) then qual=1.0-(nharderrors+dmin)/60.0 ! scale qual to [0.0,1.0] + if(emedelay.ne.0) xdt=xdt+2.0 call this%callback(sync,nsnr,xdt,f1,msg37,iaptype,qual) endif endif