date and time created 83/01/21 12:33:31 by dlw

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

diff --git a/usr/src/usr.bin/f77/libF77/short_.c b/usr/src/usr.bin/f77/libF77/short_.c
new file mode 100644 (file)
index 0000000..70a68fd
--- /dev/null
+++ b/usr/src/usr.bin/f77/libF77/short_.c
@@ -0,0 +1,18 @@
+/*
+ *     "@(#)short_.c   1.1"
+ */
+
+/*
+ * convert long ints to short.
+ *
+ * used as follows:
+ *     integer*2 short
+ *     ...
+ *     call mysub(short(ivar))
+ * where:
+ *     mysub expects to receive an integer*2 arg and ivar is integer*4
+ */
+
+short short_(i)
+long *i;
+{      return((short)*i);      }