From: David Wasley <dlw@ucbvax.Berkeley.EDU>
Date: Sat, 22 Jan 1983 03:12:06 +0000 (-0800)
Subject: date and time created 83/01/21 11:12:06 by dlw
X-Git-Tag: BSD-4_1c_2-Snapshot-Development~920
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/c8ac59daea212a69f54ed1b8d1940bea9d712422?hp=d1ae816f701eebf73e8acbfc7122ab01c08b4746

date and time created 83/01/21 11:12:06 by dlw

SCCS-vsn: usr.bin/f77/libF77/ef1asc_.c 1.1
---

diff --git a/usr/src/usr.bin/f77/libF77/ef1asc_.c b/usr/src/usr.bin/f77/libF77/ef1asc_.c
new file mode 100644
index 0000000000..117b6115f5
--- /dev/null
+++ b/usr/src/usr.bin/f77/libF77/ef1asc_.c
@@ -0,0 +1,15 @@
+/*
+ *	"@(#)ef1asc_.c	1.1"
+ */
+
+/* EFL support routine to copy string b to string a */
+
+#define M	( (long) (sizeof(long) - 1) )
+#define EVEN(x)	( ( (x)+ M) & (~M) )
+
+ef1asc_(a, la, b, lb)
+int *a, *b;
+long int *la, *lb;
+{
+s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
+}