add numerical recipes library

lib/nr/k_and_r/recipes/shootf.c

@@ -0,0 +1,35 @@
+
+#include "nrutil.h"
+#define EPS 1.0e-6
+
+extern int nn2,nvar;
+extern float x1,x2,xf;
+
+int kmax,kount;
+float *xp,**yp,dxsav;
+
+void shootf(n,v,f)
+float f[],v[];
+int n;
+{
+	void derivs(),load1(),load2(),odeint(),rkqs(),score();
+	int i,nbad,nok;
+	float h1,hmin=0.0,*f1,*f2,*y;
+
+	f1=vector(1,nvar);
+	f2=vector(1,nvar);
+	y=vector(1,nvar);
+	kmax=0;
+	h1=(x2-x1)/100.0;
+	load1(x1,v,y);
+	odeint(y,nvar,x1,xf,EPS,h1,hmin,&nok,&nbad,derivs,rkqs);
+	score(xf,y,f1);
+	load2(x2,&v[nn2],y);
+	odeint(y,nvar,x2,xf,EPS,h1,hmin,&nok,&nbad,derivs,rkqs);
+	score(xf,y,f2);
+	for (i=1;i<=n;i++) f[i]=f1[i]-f2[i];
+	free_vector(y,1,nvar);
+	free_vector(f2,1,nvar);
+	free_vector(f1,1,nvar);
+}
+#undef EPS