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

Add some additional calls to timer().

This commit is contained in:
Joe Taylor 2021-01-09 11:02:54 -05:00
parent 57b6b2dca1
commit 146ca19b97
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/q65_decode.f90
View File

@ -167,9 +167,12 @@ contains
! There was no single-transmission decode. ! There was no single-transmission decode.
if(iand(ndepth,16).eq.16) then if(iand(ndepth,16).eq.16) then
! Try for an average decode. ! Try for an average decode.
call timer('q65_avg2',0)
call q65_avg2(ntrperiod,ntol,baud,nsubmode,nQSOprogress,lapcqonly, & call q65_avg2(ntrperiod,ntol,baud,nsubmode,nQSOprogress,lapcqonly, &
codewords,ncw,xdt,f0,snr1,snr2,dat4,idec) codewords,ncw,xdt,f0,snr1,snr2,dat4,idec)
call timer('q65_avg2',1)
endif endif
100 decoded=' ' 100 decoded=' '

8
lib/qra/q65/q65_sync.f90
View File

@ -69,6 +69,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps, &
enddo enddo
endif endif
call timer('s1 ',0)
fac=1/32767.0 fac=1/32767.0
do j=1,jz !Compute symbol spectra at step size do j=1,jz !Compute symbol spectra at step size
i1=(j-1)*istep i1=(j-1)*istep
@ -90,6 +91,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps, &
call smo121(s1(1:iz,j),iz) call smo121(s1(1:iz,j),iz)
enddo enddo
enddo enddo
call timer('s1 ',1)
i0=nint(nfqso/df) !Target QSO frequency i0=nint(nfqso/df) !Target QSO frequency
if(i0-64.lt.1 .or. i0-65+LL.gt.iz) go to 900 if(i0-64.lt.1 .or. i0-65+LL.gt.iz) go to 900
@ -115,6 +117,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps, &
!###################################################################### !######################################################################
! Try list decoding via "Deep Likelihood". ! Try list decoding via "Deep Likelihood".
call timer('list_dec',0)
ipk=0 ipk=0
jpk=0 jpk=0
ccf_best=0. ccf_best=0.
@ -159,6 +162,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps, &
ccf1=ccf(:,jpk) ccf1=ccf(:,jpk)
endif endif
enddo ! imsg enddo ! imsg
call timer('list_dec',1)
i1=i0+ipk-64 i1=i0+ipk-64
i2=i1+LL-1 i2=i1+LL-1
@ -212,6 +216,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps, &
!###################################################################### !######################################################################
! Compute the 2D CCF using sync symbols only ! Compute the 2D CCF using sync symbols only
100 ccf=0. 100 ccf=0.
call timer('2dccf ',0)
do lag=lag1,lag2 do lag=lag1,lag2
do k=1,85 do k=1,85
n=NSTEP*(k-1) + 1 n=NSTEP*(k-1) + 1
@ -249,6 +254,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps, &
snr1=smax/rms snr1=smax/rms
ccf2=ccf2/rms ccf2=ccf2/rms
if(snr1.gt.10.0) ccf2=(10.0/snr1)*ccf2 if(snr1.gt.10.0) ccf2=(10.0/snr1)*ccf2
call timer('2dccf ',1)
if(irc.le.0) then if(irc.le.0) then
f0=nfqso + ipk*df f0=nfqso + ipk*df
@ -270,7 +276,9 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps, &
n=n+1 n=n+1
if(j.ge.1 .and. j.le.jz) s3(-64:LL-65,n)=s1(i1:i2,j) if(j.ge.1 .and. j.le.jz) s3(-64:LL-65,n)=s1(i1:i2,j)
enddo enddo
call timer('q65_avg ',0)
call q65_avg(nutc,ntrperiod,LL,nfqso,ntol,lclearave,xdt,f0,snr1,s3) call q65_avg(nutc,ntrperiod,LL,nfqso,ntol,lclearave,xdt,f0,snr1,s3)
call timer('q65_avg ',1)
endif endif
endif endif
endif endif