Minor timer clean up

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4961 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Bill Somerville 2015-02-13 16:55:57 +00:00
parent 8956b53453
commit 701911ac9c

View File

@ -22,7 +22,9 @@ subroutine timer(dname,k)
real ut(MAXCALL),ut0(MAXCALL) real ut(MAXCALL),ut0(MAXCALL)
!$ integer ntid(MAXCALL) !$ integer ntid(MAXCALL)
integer nmax,ncall(MAXCALL),nlevel(MAXCALL),nparent(MAXCALL) integer nmax,ncall(MAXCALL),nlevel(MAXCALL),nparent(MAXCALL)
common/data/nmax,name,on,ut,ut0,dut,ntid,ncall,nlevel,nparent,total,sum,sumf,space common/data/nmax,name,on,ut,ut0,dut, &
!$ ntid, &
ncall,nlevel,nparent,total,sum,sumf,space
data eps/0.000001/,ntrace/0/ data eps/0.000001/,ntrace/0/
data level/0/,nmax/0/,space/' '/ data level/0/,nmax/0/,space/' '/
@ -142,8 +144,7 @@ subroutine timer(dname,k)
total=ut(1) total=ut(1)
sum=0. sum=0.
sumf=0. sumf=0.
i=1 call print_root(1)
call print_root(i)
write(lu,1070) sum,sumf write(lu,1070) sum,sumf
1070 format(58('-')/32x,f10.3,f6.2) 1070 format(58('-')/32x,f10.3,f6.2)
nmax=0 nmax=0
@ -171,13 +172,15 @@ recursive subroutine print_root(i)
real ut(MAXCALL),ut0(MAXCALL) real ut(MAXCALL),ut0(MAXCALL)
!$ integer ntid(MAXCALL) !$ integer ntid(MAXCALL)
integer nmax,ncall(MAXCALL),nlevel(MAXCALL),nparent(MAXCALL) integer nmax,ncall(MAXCALL),nlevel(MAXCALL),nparent(MAXCALL)
common/data/nmax,name,on,ut,ut0,dut,ntid,ncall,nlevel,nparent,total,sum,sumf,space common/data/nmax,name,on,ut,ut0,dut, &
!$ ntid, &
ncall,nlevel,nparent,total,sum,sumf,space
if (i.le.nmax) then if (i.le.nmax) then
if (name(i).ne.space) then if (name(i).ne.space) then
dut=ut(i) dut=ut(i)
do j=i,nmax do j=i,nmax
if(nparent(j).eq.i) dut=dut-ut(j) if (name(j).ne.space.and.nparent(j).eq.i) dut=dut-ut(j)
enddo enddo
if(dut.lt.0.0) dut=0.0 if(dut.lt.0.0) dut=0.0
utf=ut(i)/total utf=ut(i)/total