THPIO4
double THPIO4 = 2.35619449019234492885; /* 3*pi/4 */
unsigned short THPIO4[4] = {0x21d2,0x7f33,0xd97c,0x4002};
unsigned short THPIO4[4] = {0x4002,0xd97c,0x7f33,0x21d2};
unsigned short THPIO4[4] = {040426,0145743,0174631,007222,};
extern unsigned short THPIO4[];
{"atan2", atan2, &INF, &MINF, &THPIO4, 0},
static double MPI, PIO2, MPIO2, PIO4, MPIO4, THPIO4, MTHPIO4;
THPIO4 = 3.0 * PIO4;
MTHPIO4 = -THPIO4;