blob: 8415591921bf834871eb3102f2da9fc290cc1cf1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# CLKTIME -- Get the current clock time (local standard time) in units
# of seconds since 00:00:00 01-Jan-80. This can be broken down into days,
# hours, seconds, etc. with BRKTIME, or printed as a date/time string with
# CNVTIME.
long procedure clktime (old_time)
long old_time, new_time
long cpu_time
begin
call zgtime (new_time, cpu_time)
return (new_time - old_time)
end
|
