fabsl
extern long double fabsl(long double x);
__real__ result = -1.0 / fabsl (__real__ x);
__real__ result = -1.0 / fabsl (__real__ x);
__real__ x = fabsl (__real__ x);
r = fabsl ((0.5L * __imag__ x) / s);
__real__ res = fabsl (sqrtl (__real__ x));
long double r = sqrtl (0.5 * fabsl (__imag__ x));
big = fabsl(x) >= 0.67434;
z = (1.0 - fabsl(x))*0.5;
z = atanl(fabsl(y/x));
x = fabsl(x);
s = fabsl(x) - 1;
x = fabsl(x);
ya = fabsl(y);
yb = 0.5 * fabsl(w);
if (iyflg && floorl(x) == x && fabsl(y) < 32768.0) {
q = fabsl(x);
z = fabsl(z) * stirf(q);