xref: /csrg-svn/usr.bin/f77/libU77/gmtime_.c (revision 23027)
12518Sdlw /*
2*23027Skre  * Copyright (c) 1980 Regents of the University of California.
3*23027Skre  * All rights reserved.  The Berkeley software License Agreement
4*23027Skre  * specifies the terms and conditions for redistribution.
52518Sdlw  *
6*23027Skre  *	@(#)gmtime_.c	5.1	06/07/85
7*23027Skre  */
8*23027Skre 
9*23027Skre /*
102518Sdlw  * return broken down time
112518Sdlw  *
122518Sdlw  * calling sequence:
132518Sdlw  *	integer time, t[9]
142518Sdlw  *	call gmtime(time, t)
152518Sdlw  * where:
162518Sdlw  *	time is a system time. (see time(3F))
172518Sdlw  *	t will receive the broken down time assuming GMT.
182518Sdlw  *	(see ctime(3))
192518Sdlw  */
202518Sdlw 
212518Sdlw int *gmtime();
222518Sdlw 
232518Sdlw gmtime_(clock, t)
242518Sdlw long *clock; long *t;
252518Sdlw {
262518Sdlw 	int i;
272518Sdlw 	int *g;
282518Sdlw 
292518Sdlw 	g = gmtime(clock);
302518Sdlw 	for (i=0; i<9; i++)
312518Sdlw 		*t++ = *g++;
322518Sdlw }
33