diff --git a/map65/libm65/decode1a.f90 b/map65/libm65/decode1a.f90 index d735344af..bf106080a 100644 --- a/map65/libm65/decode1a.f90 +++ b/map65/libm65/decode1a.f90 @@ -67,10 +67,8 @@ subroutine decode1a(dd,newdat,f0,nflip,mode65,nfsample,xpol, & ! We're looking only at sync tone here... so why not downsample by another ! factor of 1/8, say? Should be a significant execution speed-up. - call timer('afc65b ',0) ! Best fit for DF, f1, f2, pol call afc65b(c5x(i0),c5y(i0),nz,fsample,nflip,ipol,xpol,ndphi,a,ccfbest,dtbest) - call timer('afc65b ',1) pol=a(4)/57.2957795 aa=cos(pol) diff --git a/map65/libm65/filbig.f90 b/map65/libm65/filbig.f90 index 88e1b8174..ada8ccc0c 100644 --- a/map65/libm65/filbig.f90 +++ b/map65/libm65/filbig.f90 @@ -57,9 +57,7 @@ subroutine filbig(dd,nmax,f0,newdat,nfsample,xpol,c4a,c4b,n4) cfilt(i)=fac*halfpulse(i) cfilt(nfft2+2-i)=fac*halfpulse(i) enddo - call timer('FFTfilt ',0) call sfftw_execute(plan5) - call timer('FFTfilt ',1) base=cfilt(nfft2/2+1) do i=1,nfft2 diff --git a/map65/libm65/q65b.f90 b/map65/libm65/q65b.f90 index d30a56906..01f37f6e1 100644 --- a/map65/libm65/q65b.f90 +++ b/map65/libm65/q65b.f90 @@ -128,11 +128,9 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, & nagain=0 nsnr0=-99 !Default snr for no decode - call timer('mmdec ',0) ! NB: Frequency of ipk is now shifted to 1000 Hz. call map65_mmdec(nutc,iwave,nsubmode,nfa,nfb,1000,ntol, & newdat,nagain,mycall,hiscall,hisgrid) - call timer('mmdec ',1) nfreq=nfreq0 + nhz + mousedf - 1000 freq0=144.0 + 0.001*ikhz