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

Add a timer call. Still to do: convert timer calls to 'use timer ...'

Browse Source
This commit is contained in:
Joe Taylor 2021-04-28 15:32:58 -04:00
parent 943ff89dcd
commit 4b967ad8af
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
map65/libm65/q65b.f90
View File

@ -90,8 +90,10 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
newdat=1 newdat=1
nagain=0 nagain=0
nsnr0=-99 !Default snr for no decode nsnr0=-99 !Default snr for no decode
call timer('mmdec ',0)
call map65_mmdec(nutc,iwave,nsubmode,nfa,nfb,nfqso,ntol,newdat,nagain, & call map65_mmdec(nutc,iwave,nsubmode,nfa,nfb,nfqso,ntol,newdat,nagain, &
mycall,hiscall,hisgrid) mycall,hiscall,hisgrid)
call timer('mmdec ',1)
if(nsnr0.gt.nsnr1) then if(nsnr0.gt.nsnr1) then
nsnr1=nsnr0 nsnr1=nsnr0
xdt1=xdt0 xdt1=xdt0
@ -100,7 +102,7 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
cq1=cq0 cq1=cq0
ipol1=45*ipol ipol1=45*ipol
endif endif
enddo enddo !ipol
nfreq=nfreq1+mousedf-1000 nfreq=nfreq1+mousedf-1000
write(line,1020) ikhz,nfreq,ipol1,nutc,xdt1,nsnr1,msg1(1:27),cq1 write(line,1020) ikhz,nfreq,ipol1,nutc,xdt1,nsnr1,msg1(1:27),cq1