xref: /original-bsd/usr.bin/f77/libU77/ctime_.c (revision 0b685140)
1 /*
2 char id_ctime[] = "@(#)ctime_.c	1.1";
3  *
4  * convert system time to ascii string
5  *
6  * calling sequence:
7  *	character*24 string, ctime
8  *	integer clock
9  *	string = ctime (clock)
10  * where:
11  *	string will receive the ascii equivalent of the integer clock time.
12  */
13 
14 char *ctime();
15 
16 ctime_(str, len, clock)
17 char *str; long len, *clock;
18 {
19 	char *s = ctime(clock);
20 	s[24] = '\0';
21 	b_char(s, str, len);
22 }
23