add numerical recipes library

lib/nr/ansi/recipes/rebin.c

@@ -0,0 +1,17 @@
+
+void rebin(float rc, int nd, float r[], float xin[], float xi[])
+{
+	int i,k=0;
+	float dr=0.0,xn=0.0,xo=0.0;
+
+	for (i=1;i<nd;i++) {
+		while (rc > dr)
+			dr += r[++k];
+		if (k > 1) xo=xi[k-1];
+		xn=xi[k];
+		dr -= rc;
+		xin[i]=xn-(xn-xo)*dr/r[k];
+	}
+	for (i=1;i<nd;i++) xi[i]=xin[i];
+	xi[nd]=1.0;
+}