__ieee754_y0
if(n==0) return(__ieee754_y0(x));
a = __ieee754_y0(x);
extern double __ieee754_y0 __P((double));
return __ieee754_y0(x);
z = __ieee754_y0(x);