w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-31 05:02:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Revert "Improve the trace behavior of timer()."

Browse Source 
This reverts commit d60a97634bb74d0b7fa775207decd18b19e2707e.
This commit is contained in:
Joe Taylor 2021-01-09 16:35:04 -05:00
parent d60a97634b
commit 7f4876cee0
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/timer_impl.f90
View File

@ -6,7 +6,6 @@ module timer_impl
public :: init_timer, fini_timer public :: init_timer, fini_timer
integer, public :: limtrace=0 integer, public :: limtrace=0
! integer, public :: limtrace=10000000
private private
@ -147,11 +146,8 @@ contains
endif endif
ntrace=ntrace+1 ntrace=ntrace+1
tname='TopLevel' if(ntrace.lt.limtrace) write(lu,1020) ntrace,tname,k,level,nparent(n)
if(nparent(n).ge.1 .and. nparent(n).le.MAXCALL) tname=name(nparent(n)) 1020 format(i8,': ',a8,3i5)
if(ntrace.lt.limtrace) write(lu,1020) ntrace,dname,k,level,nparent(n),tname
1020 format(i8,': ',a8,3i5,2x,a8)
flush(lu)
go to 998 go to 998
! Write out the timer statistics ! Write out the timer statistics