add numerical recipes library

lib/nr/k_and_r/recipes/copy.c

@@ -0,0 +1,11 @@
+
+void copy(aout,ain,n)
+double **ain,**aout;
+int n;
+{
+	int i,j;
+	for (i=1;i<=n;i++)
+		for (j=1;j<=n;j++)
+			aout[j][i]=ain[j][i];
+
+}