add numerical recipes library

lib/nr/k_and_r/recipes/igray.c

@@ -0,0 +1,18 @@
+
+unsigned long igray(n,is)
+int is;
+unsigned long n;
+{
+	int ish;
+	unsigned long ans,idiv;
+
+	if (is >= 0)
+		return n ^ (n >> 1);
+	ish=1;
+	ans=n;
+	for (;;) {
+		ans ^= (idiv=ans >> ish);
+		if (idiv <= 1 || ish == 16) return ans;
+		ish <<= 1;
+	}
+}