add numerical recipes library

lib/nr/k_and_r/recipes/mpdiv.c

@@ -0,0 +1,26 @@
+
+#include "nrutil.h"
+#define MACC 6
+
+void mpdiv(q,r,u,v,n,m)
+int m,n;
+unsigned char q[],r[],u[],v[];
+{
+	void mpinv(),mpmov(),mpmul(),mpsad(),mpsub();
+	int is;
+	unsigned char *rr,*s;
+
+	rr=cvector(1,(n+MACC)<<1);
+	s=cvector(1,(n+MACC)<<1);
+	mpinv(s,v,n+MACC,m);
+	mpmul(rr,s,u,n+MACC,n);
+	mpsad(s,rr,n+MACC-1,1);
+	mpmov(q,&s[2],n-m+1);
+	mpmul(rr,q,v,n-m+1,m);
+	mpsub(&is,&rr[1],u,&rr[1],n);
+	if (is) nrerror("MACC too small in mpdiv");
+	mpmov(r,&rr[n-m+1],m);
+	free_cvector(s,1,(n+MACC)<<1);
+	free_cvector(rr,1,(n+MACC)<<1);
+}
+#undef MACC