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

date and time created 83/01/21 11:14:42 by dlw

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

diff --git a/usr/src/usr.bin/f77/libF77/i_dim.c b/usr/src/usr.bin/f77/libF77/i_dim.c
new file mode 100644
index 0000000000..e02c8fa4a1
--- /dev/null
+++ b/usr/src/usr.bin/f77/libF77/i_dim.c
@@ -0,0 +1,9 @@
+/*
+ *	"@(#)i_dim.c	1.1"
+ */
+
+long int i_dim(a,b)
+long int *a, *b;
+{
+return( *a > *b ? *a - *b : 0);
+}