PIO2
unsigned short PIO2[4] = {0x2d18,0x5444,0x21fb,0x3ff9};
unsigned short PIO2[4] = {0x3ff9,0x21fb,0x5444,0x2d18};
unsigned short PIO2[4] = {040311,007732,0121041,064302,};
extern unsigned short PIO2[];
double PIO2 = 1.57079632679489661923; /* pi/2 */
{"cos", cos, &PIO2, 6.1232339957367574e-17, 1},
{"atan", atan, &INF, &PIO2, 0},
{"atan2", atan2, &ONE, &ZERO, &PIO2, 0},
{"atan2", atan2, &ONE, &MZERO, &PIO2, 0},
{"atan2", atan2, &INF, &ONE, &PIO2, 0},
{"atan2", atan2, &INF, &MONE, &PIO2, 0},
static double MPI, PIO2, MPIO2, PIO4, MPIO4, THPIO4, MTHPIO4;
PIO2 = 0.5 * PI;
MPIO2 = -PIO2;
PIO4 = 0.5 * PIO2;
{"sin", sin, &PIO2, &ONE, 0},