qone
d = invsqrtpi*(pone(x)*cc-qone(x)*ss)/sqrt(x);
d = invsqrtpi*(pone(x)*ss+qone(x)*cc)/sqrt(x);
static GENERIC pone(GENERIC), qone(GENERIC);
d = invsqrtpi*(pone(x)*cc-qone(x)*ss)/sqrtl(x);
return (invsqrtpi*(pone(x)*ss+qone(x)*cc)/sqrtl(x));
static GENERIC pone(), qone();
static const long double qone = 1.0L;
return (copysignl(t + qone, x));
return (copysignl(t - qone, x));
d = invsqrtpi*(pone(x)*cc-qone(x)*ss)/sqrtl(x);
return invsqrtpi*(pone(x)*ss+qone(x)*cc)/sqrtl(x);
static GENERIC qone(GENERIC);
static const long double qone = 1.0L, qhalf = 0.5L, qmhalf = -0.5L;
return (copysignl(t - qone, x)); /* |t-1|*sign(x) */
t = t - qone;
t = t + qone;