1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
integer max_timers
integer max_timer_desc_len
integer cpu_timer
integer elapsed_time_timer
parameter (max_timers = 100000)
parameter (max_timer_desc_len = 40)
parameter (cpu_timer = 1)
parameter (elapsed_time_timer = 2)
double precision timers, tmark, timer_min, timer_max
integer timer_type, itmark
character*(max_timer_desc_len) tdesc
logical do_timer
common /timerz/timers(max_timers),
* tmark(max_timers), itmark(max_timers),
* tdesc(max_timers), timer_type(max_timers),
* do_timer
|
