Return to norm.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / j

researchv9-SUN3(old)

norm(x,y,z)
{
	return (sqrt(x*x + y*y + z*z));
}

sqrtryz(x,y,z)
{
	register long sumsq;

	sumsq = x*x - y*y - z*z;
	if (sumsq <= 0)
		return 0;
	return ( sqrt(sumsq) );
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.