#include "../h/which.h"
#ifdef PUMA
#include "../h/pumadata.h"
#endif
#ifdef STAN
#include "../h/standata.h"
#endif

#define RD      57.29577951308232100
#define CHK     20

main()
{
	int i;
	short e1[6], e2[6];
	double a[6], r[6];

	for (i = 0; i < CHK + 1;  ++i) {
		rngtoenc(e1, r);
		enctorng(r, e1);
		enctoang(a, e1);
		angtoenc(e2, a);
printf(" %-5d %-5d %-5d %-5d %-5d %-5d | %-4.1f %-4.1f %-4.1f %-4.1f %-4.1f %-4.
e1[0] - e2[0], e1[1] - e2[1], e1[2] - e2[2], e1[3] - e2[3], e1[4] - e2[4], e1[5]
(a[0]) * RD, (a[1]) * RD, (a[2]) * RD,
(a[3]) * RD, (a[4]) * RD, (a[5]) * RD);
	r[0] += JRNG1 / CHK;
	r[1] += JRNG2 / CHK;
	r[2] += JRNG3 / CHK;
	r[3] += JRNG4 / CHK;
	r[4] += JRNG5 / CHK;
	r[5] += JRNG6 / CHK;

	}
}
