diff --git a/lib/decoder.f90 b/lib/decoder.f90 index 116a07fa8..33d6e5be6 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -214,6 +214,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample) single_decode,logical(params%nagain),params%max_drift, & logical(params%newdat),params%emedelay,mycall,hiscall,hisgrid, & params%nQSOProgress,ncontest,logical(params%lapcqonly),navg0,nqf) + params%nclearave=.false. !### do k=1,20 diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90 index fb452377c..fecad60b1 100644 --- a/lib/q65_decode.f90 +++ b/lib/q65_decode.f90 @@ -111,7 +111,6 @@ contains if(lagain) ndepth=ior(ndepth,3) !Use 'Deep' for manual Q65 decodes dxcall13=hiscall ! initialize for use in packjt77 mycall13=mycall - nhist2=0 if(ncontest.eq.1) then ! NA VHF, WW-Digi, or ARRL Digi Contest open(24,file=trim(data_dir)//'/tsil.3q',status='unknown', & @@ -244,7 +243,6 @@ contains call q65_loops(c00,npts/2,nsps/2,nsubmode,ndepth,jpk0, & xdt,f0,iaptype,xdt1,f1,snr2,dat4,idec) call timer('q65loop1',1) -! write(*,3001) '=b',nfqso,ntol,ndepth,xdt,f0,idec if(idec.ge.0) then dtdec=xdt1 f0dec=f1 @@ -379,8 +377,6 @@ contains call q65_dec0(iavg,iwave,ntrperiod,nint(f0),ntol,lclearave, & emedelay,xdt,f0,snr1,width,dat4,snr2,idec,stageno) call timer('q65_dec0',1) - write(*,3001) icand,nint(f0),xdt,idec -3001 format('a',i3,i5,f6.1,i3) if(idec.ge.0) then dtdec=xdt !We have a q3 or q0 decode at f0 f0dec=f0 diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index 754e27349..fab3516c0 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -594,6 +594,7 @@ subroutine q65_ccf_22(s1,iz,jz,nfqso,ntol,iavg,ipk,jpk, & ! Resort the candidates back into frequency order tmp(1:ncand,1:3)=candidates(1:ncand,1:3) + candidates=0. call indexx(tmp(1:ncand,3),ncand,indx) do i=1,ncand candidates(i,1:3)=tmp(indx(i),1:3)