[unix-history] / usr / src / usr.bin / f77 / libU77 / gmtime_.c

/*
char id_gmtime[] = "@(#)gmtime_.c	1.1";
 *
 * return broken down time
 *
 * calling sequence:
 *	integer time, t[9]
 *	call gmtime(time, t)
 * where:
 *	time is a system time. (see time(3F))
 *	t will receive the broken down time assuming GMT.
 *	(see ctime(3))
 */

int *gmtime();

gmtime_(clock, t)
long *clock; long *t;
{
	int i;
	int *g;

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