Remove some timer calls for routines that contribute negligibly to execution time.

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)

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

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