From 7f4876cee01a0da510423e645ac9c28ba54ece82 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sat, 9 Jan 2021 16:35:04 -0500 Subject: [PATCH] Revert "Improve the trace behavior of timer()." This reverts commit d60a97634bb74d0b7fa775207decd18b19e2707e. --- lib/timer_impl.f90 | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/lib/timer_impl.f90 b/lib/timer_impl.f90 index 221db9e0a..4e35162cb 100644 --- a/lib/timer_impl.f90 +++ b/lib/timer_impl.f90 @@ -6,7 +6,6 @@ module timer_impl public :: init_timer, fini_timer integer, public :: limtrace=0 -! integer, public :: limtrace=10000000 private @@ -147,11 +146,8 @@ contains endif ntrace=ntrace+1 - tname='TopLevel' - if(nparent(n).ge.1 .and. nparent(n).le.MAXCALL) tname=name(nparent(n)) - if(ntrace.lt.limtrace) write(lu,1020) ntrace,dname,k,level,nparent(n),tname -1020 format(i8,': ',a8,3i5,2x,a8) - flush(lu) + if(ntrace.lt.limtrace) write(lu,1020) ntrace,tname,k,level,nparent(n) +1020 format(i8,': ',a8,3i5) go to 998 ! Write out the timer statistics