date and time created 81/02/10 13:56:24 by dlw

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

diff --git a/usr/src/usr.bin/f77/libU77/fdate_.c b/usr/src/usr.bin/f77/libU77/fdate_.c
new file mode 100644 (file)
index 0000000..909c933
--- /dev/null
+++ b/usr/src/usr.bin/f77/libU77/fdate_.c
@@ -0,0 +1,25 @@
+/*
+char id_fdate[] = "@(#)fdate_.c        1.1";
+ *
+ * Return date and time in an ASCII string.
+ *
+ * calling sequence:
+ *     character*24 string
+ *     call fdate(string)
+ * where:
+ *     the 24 character string will be filled with the date & time in
+ *     ascii form as described under ctime(3).
+ *     No 'newline' or NULL will be included.
+ */
+
+fdate_(s, strlen)
+char *s; long strlen;
+{
+       char *ctime(), *c;
+       long time(), t;
+
+       t = time(0);
+       c = ctime(&t);
+       c[24] = '\0';
+       b_char(c, s, strlen);
+}