PI
#ifndef PI
return (-PI - tiny); /* atan(-0,-anything) */
return (PI + tiny); /* atan(+...,-INF) */
return (-PI - tiny); /* atan(-...,-INF) */
return (PI - (z - t)); /* atan(+,-) */
return ((z - t) - PI); /* atan(-,-) */
PI = 3.141592653589793238462643383279502884197L,
return (PI + tiny); /* atan(+0,-anything) */