Tweak timer calls to distinguish the QuickDecode portion.

This commit is contained in:
Joe Taylor 2021-07-01 13:21:32 -04:00
parent 525c791a16
commit 203c8c25dd
2 changed files with 4 additions and 2 deletions

View File

@ -160,9 +160,9 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, &
call q65_ccf_85(s1,iz,jz,nfqso,ia,ia2,ipk,jpk,f0,xdt,imsg_best,ccf1)
call timer('ccf_85 ',1)
call timer('list_dec',0)
call timer('dec_q3 ',0)
call q65_dec_q3(s1,iz,jz,s3,LL,ipk,jpk,snr2,dat4,idec,decoded)
call timer('list_dec',1)
call timer('dec_q3 ',1)
! If idec=3 we have a q3 decode. Continue to compute sync curve for plotting.
endif

View File

@ -37,6 +37,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
data nfile/0/,nutc0/-999/,nid/0/,ip000/1/,ip001/1/,mousefqso0/-999/
save
call timer('quick ',0)
nkhz_center=nint(1000.0*(fcenter-int(fcenter)))
mfa=nfa-nkhz_center+48
mfb=nfb-nkhz_center+48
@ -381,6 +382,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
write(*,1013) nsum,nsave
1013 format('<QuickDecodeDone>',2i4)
flush(6)
call timer('quick ',1)
endif
if(nqd.eq.1 .and. nagain.eq.1) go to 900