mirror of https://github.com/saitohirga/WSJT-X.git
Make the timer calls cumulative over a full MAP65 run.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@7508 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
48505621ae
commit
999b597264
|
@ -58,7 +58,6 @@ subroutine decode0(dd,ss,savg,nstandalone)
|
||||||
|
|
||||||
call timer('map65a ',1)
|
call timer('map65a ',1)
|
||||||
call timer('decode0 ',1)
|
call timer('decode0 ',1)
|
||||||
if(nstandalone.eq.0) call timer('decode0 ',101)
|
|
||||||
|
|
||||||
write(*,1010) nsum,nsave
|
write(*,1010) nsum,nsave
|
||||||
1010 format('<DecodeFinished>',2i4)
|
1010 format('<DecodeFinished>',2i4)
|
||||||
|
|
|
@ -27,6 +27,7 @@ subroutine m65a
|
||||||
|
|
||||||
inquire(file=trim(cwd)//'/.quit',exist=fileExists)
|
inquire(file=trim(cwd)//'/.quit',exist=fileExists)
|
||||||
if(fileExists) then
|
if(fileExists) then
|
||||||
|
call timer('decode0 ',101)
|
||||||
call ftnquit
|
call ftnquit
|
||||||
i=detach_m65()
|
i=detach_m65()
|
||||||
go to 999
|
go to 999
|
||||||
|
|
|
@ -64,7 +64,7 @@ subroutine timer(dname,k)
|
||||||
|
|
||||||
40 write(lu,1040)
|
40 write(lu,1040)
|
||||||
1040 format(/' name time frac dtime', &
|
1040 format(/' name time frac dtime', &
|
||||||
' dfrac calls level parent'/73('-'))
|
' dfrac calls level parent'/75('-'))
|
||||||
|
|
||||||
if(k.gt.100) then
|
if(k.gt.100) then
|
||||||
ndiv=k-100
|
ndiv=k-100
|
||||||
|
@ -96,7 +96,7 @@ subroutine timer(dname,k)
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
write(lu,1070) sum,sumf
|
write(lu,1070) sum,sumf
|
||||||
1070 format(/36x,f10.2,f6.2)
|
1070 format(75('-')/36x,f10.2,f6.2)
|
||||||
nmax=0
|
nmax=0
|
||||||
eps=0.000001
|
eps=0.000001
|
||||||
ntrace=0
|
ntrace=0
|
||||||
|
|
Loading…
Reference in New Issue