xref: /original-bsd/usr.bin/f77/libU77/gmtime_.c (revision a141c157)
1 /*
2  * Copyright (c) 1980 Regents of the University of California.
3  * All rights reserved.  The Berkeley software License Agreement
4  * specifies the terms and conditions for redistribution.
5  *
6  *	@(#)gmtime_.c	5.1	06/07/85
7  */
8 
9 /*
10  * return broken down time
11  *
12  * calling sequence:
13  *	integer time, t[9]
14  *	call gmtime(time, t)
15  * where:
16  *	time is a system time. (see time(3F))
17  *	t will receive the broken down time assuming GMT.
18  *	(see ctime(3))
19  */
20 
21 int *gmtime();
22 
23 gmtime_(clock, t)
24 long *clock; long *t;
25 {
26 	int i;
27 	int *g;
28 
29 	g = gmtime(clock);
30 	for (i=0; i<9; i++)
31 		*t++ = *g++;
32 }
33