add numerical recipes library

lib/nr/ansi/examples/xcaldat.c

@@ -0,0 +1,41 @@
+
+/* Driver for routine caldat */
+
+#include <stdio.h>
+#include <stdlib.h>
+#define NRANSI
+#include "nr.h"
+#include "nrutil.h"
+
+#define MAXSTR 80
+
+int main(void)
+{
+	int i,id,idd,im,imm,iy,iyy,n;
+	long j;
+	char dummy[MAXSTR];
+	static char *name[]={"","january","february","march",
+		"april","may","june","july","august",
+		"september","october","november","december"};
+	FILE *fp;
+
+	/* Check whether caldat properly undoes the operation of julday */
+	if ((fp = fopen("dates1.dat","r")) == NULL)
+		nrerror("Data file dates1.dat not found\n");
+	fgets(dummy,MAXSTR,fp);
+	fscanf(fp,"%d %*s ",&n);
+	printf("\n %14s %43s\n","original date:","reconstructed date");
+	printf("%8s %5s %6s %15s %12s %5s %6s\n","month","day","year",
+		"julian day","month","day","year");
+	for (i=1;i<=n;i++) {
+		fscanf(fp,"%d %d %d ",&im,&id,&iy);
+		fgets(dummy,MAXSTR,fp);
+		j=julday(im,id,iy);
+		caldat(j,&imm,&idd,&iyy);
+		printf("%10s %3d %6d %13ld %16s %3d %6d\n",name[im],
+			id,iy,j,name[imm],idd,iyy);
+	}
+	fclose(fp);
+	return 0;
+}
+#undef NRANSI