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