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