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

Add timer calls in qra66_decode.

Browse Source
This commit is contained in:
Joe Taylor 2020-08-04 11:58:09 -04:00
parent 4b92c20ee9
commit 902bb4d5e0
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/qra66_decode.f90
View File

@ -92,7 +92,9 @@ contains
call four2a(c0,nfft2,1,1,1) !Inverse c2c FFT
ntol=100
call timer('sync66 ',0)
call sync66a(iwave,15*12000,nsps,nfqso,ntol,xdt,f0,snr1)
call timer('sync66 ',1)
jpk=(xdt+0.5)*6000 - 384 !### Empirical ###
if(jpk.lt.0) jpk=0
a=0.
@ -113,8 +115,10 @@ contains
enddo
!Call Nico's QRA64 decoder
call timer('qra64_de',0)
call qra64_dec(s3,nc1,nc2,ng2,naptype,0,nSubmode,b90, &
nFadingModel,dat4,snr2,irc)
call timer('qra64_de',1)
snr2=snr2 + 5.563 !10*log(6912/1920)
if(irc.gt.0) call badmsg(irc,dat4,nc1,nc2,ng2)