w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-10-29 20:10:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Joe Taylor 2021-05-13 10:49:41 -04:00
parent 2a2f9eb76d
commit a323c6ec65
3 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
map65/libm65/decode1a.f90
View File

@ -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 ! 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. ! factor of 1/8, say? Should be a significant execution speed-up.
call timer('afc65b ',0)
! Best fit for DF, f1, f2, pol ! Best fit for DF, f1, f2, pol
call afc65b(c5x(i0),c5y(i0),nz,fsample,nflip,ipol,xpol,ndphi,a,ccfbest,dtbest) call afc65b(c5x(i0),c5y(i0),nz,fsample,nflip,ipol,xpol,ndphi,a,ccfbest,dtbest)
call timer('afc65b ',1)
pol=a(4)/57.2957795 pol=a(4)/57.2957795
aa=cos(pol) aa=cos(pol)

2
map65/libm65/filbig.f90
View File

@ -57,9 +57,7 @@ subroutine filbig(dd,nmax,f0,newdat,nfsample,xpol,c4a,c4b,n4)
cfilt(i)=fac*halfpulse(i) cfilt(i)=fac*halfpulse(i)
cfilt(nfft2+2-i)=fac*halfpulse(i) cfilt(nfft2+2-i)=fac*halfpulse(i)
enddo enddo
call timer('FFTfilt ',0)
call sfftw_execute(plan5) call sfftw_execute(plan5)
call timer('FFTfilt ',1)
base=cfilt(nfft2/2+1) base=cfilt(nfft2/2+1)
do i=1,nfft2 do i=1,nfft2

2
map65/libm65/q65b.f90
View File

@ -128,11 +128,9 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
nagain=0 nagain=0
nsnr0=-99 !Default snr for no decode nsnr0=-99 !Default snr for no decode
call timer('mmdec ',0)
! NB: Frequency of ipk is now shifted to 1000 Hz. ! NB: Frequency of ipk is now shifted to 1000 Hz.
call map65_mmdec(nutc,iwave,nsubmode,nfa,nfb,1000,ntol, & call map65_mmdec(nutc,iwave,nsubmode,nfa,nfb,1000,ntol, &
newdat,nagain,mycall,hiscall,hisgrid) newdat,nagain,mycall,hiscall,hisgrid)
call timer('mmdec ',1)
nfreq=nfreq0 + nhz + mousedf - 1000 nfreq=nfreq0 + nhz + mousedf - 1000
freq0=144.0 + 0.001*ikhz freq0=144.0 + 0.001*ikhz