huge
double huge = 1.0e14;
if((nn<0.0) || (nn>huge)){
huge = 1.0e300;
t = huge * huge;
t = huge + tiny;
if (huge + x > one)
t = (ix < 0)? tiny : huge;
t = (ix < 0)? tiny : huge;
return (huge * huge); /* overflow */
t = huge + x; /* return x w/inexact when x != 0 */
return (x - (t - (huge + x)));
static const GENERIC huge = 1.0e10;
if (x > huge)
if (x > huge)
static const GENERIC huge = 1.0e10;
if (x > huge)
if (x > huge)
return (huge * ((ix < 0)? -huge : huge));
huge = 1.0e300,
static GENERIC huge = 1.0e30L;
if (x > huge)
if (x > huge)
static GENERIC huge = 1.0e30L;
if (x > huge)
if (x > huge)
huge = +1.0e4000L,
return (huge * huge);
static const GENERIC huge = 1.0e30L;
if (x>huge) return one;
if (x>huge) return -0.125L/x;
static const GENERIC huge = 1.0e30L;
if (x>huge) return one;
if (x>huge) return 0.375L/x;
huge = 1.0e300,
t = huge;
static const float zero = 0.0F, one = 1.0F, huge = 1.0e25f, tiny = 1.0e-25f;
fz = (i > 0)? huge : tiny;
r = (hx < 0)? tiny * tiny : huge * huge;
huge = 1e300,
r = (hx < 0)? tiny * tiny : huge * huge;
huge = 1.0e4000L,
dummy = huge;
dummy *= huge;
dummy = huge;
dummy = huge;
dummy *= huge;
dummy = huge;
dummy = huge;
dummy *= huge;
dummy = huge;
dummy = huge;
dummy *= huge;
dummy = huge;
dummy *= huge;
dummy = huge;
dummy *= huge;
dummy = huge;
dummy *= huge;
y[index] = huge * huge; \