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/asolve.c
+++ b/lib/nr/k_and_r/recipes/asolve.c
@@ -0,0 +1,13 @@
+
+extern unsigned long ija[];
+extern double sa[];
+
+void asolve(n,b,x,itrnsp)
+double b[],x[];
+int itrnsp;
+unsigned long n;
+{
+	unsigned long i;
+
+	for(i=1;i<=n;i++) x[i]=(sa[i] != 0.0 ? b[i]/sa[i] : b[i]);
+}