add numerical recipes library

2025-09-12 18:55:25 +09:00
parent d4dff245bd
commit 2c75620ec9
1344 changed files with 63869 additions and 0 deletions
--- a/lib/nr/k_and_r/recipes/irbit1.c
+++ b/lib/nr/k_and_r/recipes/irbit1.c
@@ -0,0 +1,13 @@
+
+int irbit1(iseed)
+unsigned long *iseed;
+{
+	unsigned long newbit;
+
+	newbit =  (*iseed >> 17) & 1
+		^ (*iseed >> 4) & 1
+		^ (*iseed >> 1) & 1
+		^ (*iseed & 1);
+	*iseed=(*iseed << 1) | newbit;
+	return (int) newbit;
+}