pone
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();
d = invsqrtpi*(pone(x)*cc-qone(x)*ss)/sqrtl(x);
return invsqrtpi*(pone(x)*ss+qone(x)*cc)/sqrtl(x);
static GENERIC pone(GENERIC);
f0 = -pone/f0;
f0 = (f0 - z)/(pone + f0*z);
sign1 = pone;
f1 = -pone/f1;
f1 = (f1 - z)/(pone + f1*z);
sign2 = pone;
f2 = -pone/f2;
f2 = (f2 - z)/(pone + f2*z);
sign3 = pone;
n3 = -pone;
d3 = (pone + f3*z); /* get reduced argument */
d3 = pone;
static const float pone = 1.0f;
sign0 = pone;