w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-12-24 11:40:31 -05:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
This reverts commit d60a97634b.
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
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