xref: /original-bsd/usr.bin/f77/libU77/ltime_.c (revision 6c57d260)
1 /*
2 char id_ltime[] = "@(#)ltime_.c	1.1";
3  *
4  * return broken down time
5  *
6  * calling sequence:
7  *	integer time, t[9]
8  *	call ltime(time, t)
9  * where:
10  *	time is a  system time. (see time(3F))
11  *	t will receive the broken down time corrected for local timezone.
12  *	(see ctime(3))
13  */
14 
15 int *localtime();
16 
17 ltime_(clock, t)
18 long *clock; long *t;
19 {
20 	int i;
21 	int *l;
22 
23 	l = localtime(clock);
24 	for (i=0; i<9; i++)
25 		*t++ = *l++;
26 }
27