w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add calls to timer(). 

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3470 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2013-07-09 16:22:25 +00:00
parent c2c2b752d9
commit 1881cc1bb1
3 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/downsam9.f90
View File

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

12
lib/softsym.f90
View File

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

2
mainwindow.cpp
View File

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