diff --git a/lib/downsam9.f90 b/lib/downsam9.f90 index 89932d6ae..851d497ca 100644 --- a/lib/downsam9.f90 +++ b/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 diff --git a/lib/softsym.f90 b/lib/softsym.f90 index 399db36f2..8eda5e73c 100644 --- a/lib/softsym.f90 +++ b/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 diff --git a/mainwindow.cpp b/mainwindow.cpp index 004810a5c..77107089b 100644 --- a/mainwindow.cpp +++ b/mainwindow.cpp @@ -1,4 +1,4 @@ -//--------------------------------------------------------------- MainWindow +//-------------------------------------------------------------- MainWindow #include "mainwindow.h" #include "ui_mainwindow.h" #include "devsetup.h"