From d27623cdbe2e1f1769a1e4ce9133dbb3e1176533 Mon Sep 17 00:00:00 2001
From: David Wasley <dlw@ucbvax.Berkeley.EDU>
Date: Fri, 21 Jan 1983 19:12:59 -0800
Subject: [PATCH 1/1] date and time created 83/01/21 11:12:59 by dlw

SCCS-vsn: usr.bin/f77/libF77/h_dim.c 1.1
---
 usr/src/usr.bin/f77/libF77/h_dim.c | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 usr/src/usr.bin/f77/libF77/h_dim.c

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