blob: e7cb9ae947e09c7236877d1a596156112a09e08f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
include <time.h>
# DG_PTIME - Put time stamp into a text file
procedure dg_ptime (fd, label)
int fd # log file descriptor
char label[ARB] # string label
char str[SZ_TIME] # time string
long clktime()
begin
call cnvtime (clktime (long (0)), str, SZ_TIME)
call fprintf (fd, "\n**** %s **** (%s) ****\n")
call pargstr (str)
call pargstr (label)
end
|
