SQRTH
SQRTH = 7.071067811865475244008443621048490392848359E-1L;
if (x < SQRTH)
if (x < SQRTH)
SQRTH = 7.071067811865475244008443621048490392848359E-1L;
if (x < SQRTH)
if (x < SQRTH)
if( x < SQRTH )
if( x < SQRTH )
if( x < SQRTH )
if( x < SQRTH )
if( x < SQRTH )
if( x < SQRTH )
if( x < SQRTH )
if( x < SQRTH )
unsigned short SQRTH[4] = {0x3bcd,0x667f,0xa09e,0x3fe6};
unsigned short SQRTH[4] = {0x3fe6,0xa09e,0x667f,0x3bcd};
unsigned short SQRTH[4] = {040065,002363,031771,0157144,};
extern unsigned short SQRTH[];
double SQRTH = 7.07106781186547524401E-1; /* sqrt(2)/2 */
{"sin", sin, &PIO4, &SQRTH, 1},
extern double MACHEP, SQRTH, SQRT2;
{"cos", cos, &PIO4, &SQRTH, 0},