1
double precision function timer()
3
c return the time since the last call to timer.
5
c must be initialized by calling once and throwing away the
7
c ... use cpu time on multi-user machines
8
c ... use elapsed time on dedicated or single user machines.
12
* timer = dble(dtime(tt))
14
C$Id: timer.F,v 1.1 2005-03-08 23:58:03 d3g293 Exp $
18
timer = dble(m - mlast) * 0.01d0