add numerical recipes library

lib/nr/ansi/examples/xmachar.c

@@ -0,0 +1,30 @@
+
+/* Driver for routine machar */
+
+#include <stdio.h>
+#define NRANSI
+#include "nr.h"
+
+int main(void)
+{
+	int ibeta,iexp,irnd,it,machep,maxexp,minexp,negep,ngrd;
+	float eps,epsneg,xmax,xmin;
+
+	machar(&ibeta,&it,&irnd,&ngrd,&machep,&negep,&iexp,&minexp,&maxexp,
+		&eps,&epsneg,&xmin,&xmax);
+	printf("ibeta = %d\n",ibeta);
+	printf("it = %d\n",it);
+	printf("irnd = %d\n",irnd);
+	printf("ngrd = %d\n",ngrd);
+	printf("machep = %d\n",machep);
+	printf("negep = %d\n",negep);
+	printf("iexp = %d\n",iexp);
+	printf("minexp = %d\n",minexp);
+	printf("maxexp = %d\n",maxexp);
+	printf("eps = %12.6g\n",eps);
+	printf("epsneg = %12.6g\n",epsneg);
+	printf("xmin = %12.6g\n",xmin);
+	printf("xmax = %12.6g\n",xmax);
+	return 0;
+}
+#undef NRANSI