/* @(#)w_j1.c 5.1 93/09/24 */
* ====================================================
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
* Developed at SunPro, a Sun Microsystems, Inc. business.
* Permission to use, copy, modify, and distribute this
* software is freely granted, provided that this notice
* ====================================================
static char rcsid
[] = "$Id: w_j1.c,v 1.3 1994/02/18 02:27:42 jtc Exp $";
double j1(double x
) /* wrapper j1 */
double j1(x
) /* wrapper j1 */
if(_LIB_VERSION
== _IEEE_
|| isnan(x
) ) return z
;
return __kernel_standard(x
,x
,36); /* j1(|x|>X_TLOSS) */
double y1(double x
) /* wrapper y1 */
double y1(x
) /* wrapper y1 */
if(_LIB_VERSION
== _IEEE_
|| isnan(x
) ) return z
;
return __kernel_standard(x
,x
,10);
return __kernel_standard(x
,x
,11);
return __kernel_standard(x
,x
,37); /* y1(x>X_TLOSS) */