1 c---------------------------------------------------------------------
2 c---------------------------------------------------------------------
4 subroutine timer_clear(n)
6 c---------------------------------------------------------------------
7 c---------------------------------------------------------------------
12 double precision start(64), elapsed(64)
13 common /tt/ start, elapsed
20 c---------------------------------------------------------------------
21 c---------------------------------------------------------------------
23 subroutine timer_start(n)
25 c---------------------------------------------------------------------
26 c---------------------------------------------------------------------
31 double precision start(64), elapsed(64)
32 common /tt/ start, elapsed
34 start(n) = MPI_Wtime()
40 c---------------------------------------------------------------------
41 c---------------------------------------------------------------------
43 subroutine timer_stop(n)
45 c---------------------------------------------------------------------
46 c---------------------------------------------------------------------
51 double precision start(64), elapsed(64)
52 common /tt/ start, elapsed
53 double precision t, now
56 elapsed(n) = elapsed(n) + t
62 c---------------------------------------------------------------------
63 c---------------------------------------------------------------------
65 double precision function timer_read(n)
67 c---------------------------------------------------------------------
68 c---------------------------------------------------------------------
72 double precision start(64), elapsed(64)
73 common /tt/ start, elapsed
75 timer_read = elapsed(n)