j1l
extern long double j1l(long double);
return (x*(u/v) + tpi*(j1l(x)*logl(x)-one/x));
b = j1l(x);
return (j1l(x));
extern long double j1l(long double);
return(x*(u/v) + tpi*(j1l(x)*logl(x)-one/x));
b = j1l(x);
return (j1l(x));
extern long double j1l(long double);