--- ray/src/common/urand.c	1991/05/17 12:55:27	1.1
+++ ray/src/common/urand.c	1991/06/07 10:47:17	1.4
@@ -45,3 +45,18 @@ int  size;
 				urperm[i+offset]++;
 		}
 }
+
+
+int
+ilhash(d, n)			/* hash a set of integer values */
+register int  *d;
+register int  n;
+{
+	static int  tab[8] = {13623,353,1637,5831,2314,3887,5832,8737};
+	register int  hval;
+
+	hval = 0;
+	while (n-- > 0)
+		hval += *d++ * tab[n&7];
+	return(hval);
+}