35 #include "qrm_common.h" 97 colors(1:7) = (/
'#d38d5f',
'#ffdd55',
'#8dd35f',
'#80b3ff',
'#e580ff',
'#ac9d93',
'#bcd35f'/)
106 character :: label*(*)
121 __qrm_prnt_err(
'("Tracing error!!! events nesting not supported")')
144 character :: ofile*(*)
147 real(kind(1.d0)) :: tottime
148 real(kind(1.d0)),
parameter :: h=20.d0, scale=10000
150 open(4, file=ofile, action=
'write')
155 write(4,
'("<rect style=""fill:",a7,";stroke:#000000;stroke-width:0;fill-opacity:1""& 156 & height=""",f5.1,""" width=""",f10.2""" y=""",f10.2,""" x=""",f10.2,""" />")')&
160 &
real(h)*
real(maxth-i), events(i,j)%start*scale
167 write(4,
'("<text x=""0"" y=""",f10.2,""" font-size=""",i3,""" fill=""",a7,""">",a20," -- ",f4.1,"%</text>")')&
168 &
real(h)*
real(maxth+i+2),floor(h),colors(i),labels(i),(
ttimes(i)/tottime)*100
171 write(4,
'("</svg>")')
real(kind(1.d0)), dimension(1:maxtypes), save ttimes
type(event_type), dimension(:,:), allocatable, save events
This module contains the interfaces of all non-typed routines.
integer, parameter maxevents
real(kind(1.d0)), save timezero
real(kind(1.d0)), dimension(0:maxth-1), save stops
This module contains all the error management routines and data.
Generic interface for the ::qrm_swtime routine.
This module contains all the facilities for visualizing the execution profile of a parallel code...
integer, parameter maxtypes
integer, dimension(0:maxth-1), save nevents
character(len=7), dimension(maxtypes) colors
real(kind(1.d0)), save stop
real(kind(1.d0)), save start
real(kind(1.d0)), dimension(0:maxth-1), save starts
logical, dimension(0:maxth-1), save pendings
character(len=20), dimension(maxtypes), save labels