date and time created 81/02/18 19:10:05 by dlw

SCCS-vsn: usr.bin/f77/libU77/ctime_.c 1.1

diff --git a/usr/src/usr.bin/f77/libU77/ctime_.c b/usr/src/usr.bin/f77/libU77/ctime_.c
new file mode 100644 (file)
index 0000000..53408b1
--- /dev/null
+++ b/usr/src/usr.bin/f77/libU77/ctime_.c
@@ -0,0 +1,22 @@
+/*
+char id_ctime[] = "@(#)ctime_.c        1.1";
+ *
+ * convert system time to ascii string
+ *
+ * calling sequence:
+ *     character*24 string, ctime
+ *     integer clock
+ *     string = ctime (clock)
+ * where:
+ *     string will receive the ascii equivalent of the integer clock time.
+ */
+
+char *ctime();
+
+ctime_(str, len, clock)
+char *str; long len, *clock;
+{
+       char *s = ctime(clock);
+       s[24] = '\0';
+       b_char(s, str, len);
+}