blob: b56b7280293c5af8a76ad170a34774f3facb9faa (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# CPUTIME -- Return the difference between the current cpu time consumed
# and the argument, in long integer milliseconds.
long procedure cputime (old_cputime)
long old_cputime, new_cputime
long clk_time
begin
call zgtime (clk_time, new_cputime)
return (new_cputime - old_cputime)
end
|
