Add calls to timer().

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3470 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

lib/downsam9.f90

@@ -23,7 +23,9 @@ subroutine downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2)
         x1(i)=fac*id2(i)
      enddo
      x1(npts:nfft1-1)=0.                      !Zero the rest of x1
+     call timer('fft_forw',0)
      call four2a(c1,nfft1,1,-1,0)             !Forward FFT, r2c
+     call timer('fft_forw',1)
 
      nadd=1.0/df1
      s=0.
@@ -45,7 +47,9 @@ subroutine downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2)
   nw=100
   ia=max(1,nf-nw)
   ib=min(5000,nf+nw)
+  call timer('pctile_1',0)
   call pctile(s(ia),ib-ia+1,40,avenoise)
+  call timer('pctile_1',1)
 
   fac=sqrt(1.0/avenoise)
   do i=0,nfft2-1
@@ -53,7 +57,9 @@ subroutine downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2)
      if(i.gt.nh2) j=j-nfft2
      c2(i)=fac*c1(j)
   enddo
+  call timer('fft_back',0)
   call four2a(c2,nfft2,1,1,1)              !FFT back to time domain
+  call timer('fft_back',1)
   nz2=8*npts8/ndown
 
   return

lib/softsym.f90

@@ -15,24 +15,36 @@ subroutine softsym(id2,npts8,nsps8,newdat,fpk,syncpk,snrdb,xdt,        &
   ndown=nsps8/nspsd
 
 ! Mix, low-pass filter, and downsample to 16 samples per symbol
+  call timer('downsam9',0)
   call downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2)
+  call timer('downsam9',1)
 
+  call timer('peakdt9 ',0)
   call peakdt9(c2,nz2,nsps8,nspsd,c3,nz3,xdt)  !Find DT
+  call timer('peakdt9 ',1)
 
   fsample=1500.0/ndown
   a=0.
+  call timer('afc9    ',0)
   call afc9(c3,nz3,fsample,a,syncpk)  !Find deltaF, fDot, fDDot
+  call timer('afc9    ',1)
   freq=fpk - a(1)
   drift=-2.0*a(2)
 
+  call timer('twkfreq ',0)
   call twkfreq(c3,c5,nz3,fsample,a)   !Correct for delta f, f1, f2 ==> a(1:3)
+  call timer('twkfreq ',1)
 
 ! Compute soft symbols (in scrambled order)
+  call timer('symspec2',0)
   call symspec2(c5,nz3,nsps8,nspsd,fsample,freq,drift,snrdb,schk,      &
        i1SoftSymbolsScrambled)
+  call timer('symspec2',1)
 
 ! Remove interleaving
+  call timer('interlv9',0)
   call interleave9(i1SoftSymbolsScrambled,-1,i1SoftSymbols)
+  call timer('interlv9',1)
 
   return
 end subroutine softsym

mainwindow.cpp

@@ -1,4 +1,4 @@
-//--------------------------------------------------------------- MainWindow
+//-------------------------------------------------------------- MainWindow
 #include "mainwindow.h"
 #include "ui_mainwindow.h"
 #include "devsetup.h"