diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90 index 1dfaf2e00..5d5dcf710 100644 --- a/lib/q65_decode.f90 +++ b/lib/q65_decode.f90 @@ -149,10 +149,12 @@ contains iavg=0 call timer('q65_dec0',0) ! Call top-level routine in q65 module: establish sync and try for a -! q3 of q0 decode. +! q3 or q0 decode. call q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & emedelay,xdt,f0,snr1,width,dat4,snr2,idec) call timer('q65_dec0',1) +! write(*,3001) '=a',sum(abs(float(iwave))),nfqso,ntol,ndepth,xdt,f0,idec +!3001 format(a2,f15.0,3i5,f7.2,f7.1,i5) if(idec.ge.0) then dtdec=xdt !We have a q3 or q0 decode at nfqso diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index eee12b2a5..ac2438a81 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -124,7 +124,7 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & dtstep=nsps/(NSTEP*12000.0) !Step size in seconds lag1=-1.0/dtstep lag2=1.0/dtstep + 0.9999 - if(nsps.ge.3600 .and. emedelay.gt.0) lag2=5.0/dtstep + 0.9999 !Include EME + if(nsps.ge.3600 .and. emedelay.gt.0) lag2=5.5/dtstep + 0.9999 !Include EME j0=0.5/dtstep if(nsps.ge.7200) j0=1.0/dtstep !Nominal start-signal index