diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index 8aabe4152..ac62d0b3c 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -160,9 +160,9 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & call q65_ccf_85(s1,iz,jz,nfqso,ia,ia2,ipk,jpk,f0,xdt,imsg_best,ccf1) call timer('ccf_85 ',1) - call timer('list_dec',0) + call timer('dec_q3 ',0) call q65_dec_q3(s1,iz,jz,s3,LL,ipk,jpk,snr2,dat4,idec,decoded) - call timer('list_dec',1) + call timer('dec_q3 ',1) ! If idec=3 we have a q3 decode. Continue to compute sync curve for plotting. endif diff --git a/map65/libm65/map65a.f90 b/map65/libm65/map65a.f90 index e8359a5a0..7fae2b3d7 100644 --- a/map65/libm65/map65a.f90 +++ b/map65/libm65/map65a.f90 @@ -37,6 +37,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, & data nfile/0/,nutc0/-999/,nid/0/,ip000/1/,ip001/1/,mousefqso0/-999/ save + call timer('quick ',0) nkhz_center=nint(1000.0*(fcenter-int(fcenter))) mfa=nfa-nkhz_center+48 mfb=nfb-nkhz_center+48 @@ -381,6 +382,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, & write(*,1013) nsum,nsave 1013 format('',2i4) flush(6) + call timer('quick ',1) endif if(nqd.eq.1 .and. nagain.eq.1) go to 900