xref: /csrg-svn/usr.bin/f77/libU77/gmtime_.c (revision 47944)
1*47944Sbostic /*-
2*47944Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47944Sbostic  * All rights reserved.
42518Sdlw  *
5*47944Sbostic  * %sccs.include.proprietary.c%
623027Skre  */
723027Skre 
8*47944Sbostic #ifndef lint
9*47944Sbostic static char sccsid[] = "@(#)gmtime_.c	5.2 (Berkeley) 04/12/91";
10*47944Sbostic #endif /* not lint */
11*47944Sbostic 
1223027Skre /*
132518Sdlw  * return broken down time
142518Sdlw  *
152518Sdlw  * calling sequence:
162518Sdlw  *	integer time, t[9]
172518Sdlw  *	call gmtime(time, t)
182518Sdlw  * where:
192518Sdlw  *	time is a system time. (see time(3F))
202518Sdlw  *	t will receive the broken down time assuming GMT.
212518Sdlw  *	(see ctime(3))
222518Sdlw  */
232518Sdlw 
242518Sdlw int *gmtime();
252518Sdlw 
gmtime_(clock,t)262518Sdlw gmtime_(clock, t)
272518Sdlw long *clock; long *t;
282518Sdlw {
292518Sdlw 	int i;
302518Sdlw 	int *g;
312518Sdlw 
322518Sdlw 	g = gmtime(clock);
332518Sdlw 	for (i=0; i<9; i++)
342518Sdlw 		*t++ = *g++;
352518Sdlw }
36