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++;
}