y1l
extern long double y1l(long double);
return (sign*y1l(x));
b = y1l(x);
extern long double y1l(long double);
return (sign*y1l(x));
b = y1l(x);
extern long double y1l(long double);