Fix defect in timer call chain maintenance

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4945 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2024-11-23 04:38:37 -05:00 · 2015-02-08 11:56:22 +00:00 · 2015-02-08 11:56:22 +00:00 · 004a604cde
commit 004a604cde
parent 90940a4eac
1 changed files with 3 additions and 0 deletions
--- a/lib/timer.f90
+++ b/lib/timer.f90
@ -122,6 +122,9 @@ subroutine timer(dname,k)
  !$          !same call chain so roll up data
  !$          ncall(j)=ncall(j)+ncall(i)
  !$          ut(j)=ut(j)+ut(i)
+  !$          do n=1,nmax
+  !$            if (nparent(n).eq.i) nparent(n)=j
+  !$          end do
  !$          name(i)=space
  !$          exit
  !$       end if