blob: 70bf8f41908f9d02c8d8c4954deed01dd9594696 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
include <time.h>
# DP_DATE -- Create the date and time strings for the daophot output files.
procedure dp_date (date, time, maxch)
char date[ARB] # the date string
char time[ARB] # the time string
int maxch # the maximum number of character in the string
int tm[LEN_TMSTRUCT]
long ctime
long clktime()
#long lsttogmt()
begin
ctime = clktime (long(0))
#ctime = lsttogmt (ctime)
call brktime (ctime, tm)
call sprintf (date, maxch, "%04d-%02d-%02d")
call pargi (TM_YEAR(tm))
call pargi (TM_MONTH(tm))
call pargi (TM_MDAY(tm))
call sprintf (time, maxch, "%02d:%02d:%02d")
call pargi (TM_HOUR(tm))
call pargi (TM_MIN(tm))
call pargi (TM_SEC(tm))
end
|
