main(argc,argv)
char **argv;
{
	int i, n = 1;
	double d = 1.;
	float f = 1.;

	double t1, t2, lt, cputim_();       /* fortran cc .. -lU77 */
	double fact = 1000000.;

	i = atoi(*(argv+1));
	while(i--)
		n *= 10;

	i = n;
	t1 = cputim_();
	while (i--) {
	}
	t2 = cputim_();

	lt = (t2 - t1) * fact;
	printf("ordinary memory access instruction %2.2f micro sec\n",
	lt / (n * 5));

	i = n;
	t1 = cputim_();
	while(i--) {
		cos(0.707);
	}
	t2 = cputim_();

	printf(
	"cos %2.2f micro sec\n",
	((t2 - t1) * fact - lt) / n);

	i = n;
	t1 = cputim_();
	while(i--) {
		sin(0.707);
	}
	t2 = cputim_();

	printf(
	"sin %2.2f micro sec\n",
	((t2 - t1) * fact - lt) / n);

	i = n;
	t1 = cputim_();
	while(i--) {
		atan2(3., 2.);
	}
	t2 = cputim_();

	printf(
	"atan2 %2.2f micro sec\n",
	((t2 - t1) * fact - lt) / n);

}
