add numerical recipes library

lib/nr/k_and_r/recipes/ellpi.c

@@ -0,0 +1,16 @@
+
+#include <math.h>
+#include "nrutil.h"
+
+float ellpi(phi,en,ak)
+float ak,en,phi;
+{
+	float rf(),rj();
+	float cc,enss,q,s;
+
+	s=sin(phi);
+	enss=en*s*s;
+	cc=SQR(cos(phi));
+	q=(1.0-s*ak)*(1.0+s*ak);
+	return s*(rf(cc,q,1.0)-enss*rj(cc,q,1.0,1.0+enss)/3.0);
+}