projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
moved ioinit.f from libI77 to here (from dlw).
[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
++;
}