w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 02:12:37 -04:00
Code Issues Packages Projects Releases Wiki Activity

Add timer calls for two of Nico's routines.

Browse Source
This commit is contained in:
Joe Taylor 2020-10-31 11:33:01 -04:00
parent abbb277793
commit 1768971931
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/qra/q65/q65_loops.f90
View File

@ -67,14 +67,17 @@ subroutine q65_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel, &
if(b90.gt.230.0) cycle if(b90.gt.230.0) cycle
! if(b90.lt.0.15*width) exit ! if(b90.lt.0.15*width) exit
ncall=ncall+1 ncall=ncall+1
call timer('qra64_de',0) call timer('q65_intr',0)
call q65_intrinsics_ff(s3,nsubmode,b90,nFadingModel,s3prob) call q65_intrinsics_ff(s3,nsubmode,b90,nFadingModel,s3prob)
call timer('q65_intr',1)
call timer('q65_dec ',0)
call q65_dec(s3,s3prob,APmask,APsymbols,esnodb,dat4,irc) call q65_dec(s3,s3prob,APmask,APsymbols,esnodb,dat4,irc)
call timer('q65_dec ',1)
! irc > 0 ==> number of iterations required to decode ! irc > 0 ==> number of iterations required to decode
! -1 = invalid params ! -1 = invalid params
! -2 = decode failed ! -2 = decode failed
! -3 = CRC mismatch ! -3 = CRC mismatch
call timer('qra64_de',1)
if(irc.ge.0) go to 100 if(irc.ge.0) go to 100
enddo ! ibw (b90 loop) enddo ! ibw (b90 loop)
enddo ! idt (DT loop) enddo ! idt (DT loop)