From 609bcb00091dc8746228aa1b1ab0d0b818332e9b Mon Sep 17 00:00:00 2001
From: Bill Somerville <g4wjs@classdesign.com>
Date: Sun, 8 Feb 2015 11:56:22 +0000
Subject: [PATCH] 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
---
 lib/timer.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/timer.f90 b/lib/timer.f90
index 9fc4840da..1dd74bdf4 100644
--- 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