19 * CDDL HEADER END
20 */
21
22 /*
23 * Copyright 2011 Nexenta Systems, Inc. All rights reserved.
24 */
25 /*
26 * Copyright 2006 Sun Microsystems, Inc. All rights reserved.
27 * Use is subject to license terms.
28 */
29
30 /*
31 * Floating point Bessel's function of the first and second kinds
32 * of order zero: j0(x),y0(x);
33 *
34 * Special cases:
35 * y0(0)=y1(0)=yn(n,0) = -inf with division by zero signal;
36 * y0(-ve)=y1(-ve)=yn(n,-ve) are NaN with invalid signal.
37 */
38
39 #pragma weak j0l = __j0l
40 #pragma weak y0l = __y0l
41
42 #include "libm.h"
43 #include "libm_synonyms.h"
44
45 #include "longdouble.h"
46
47 #include <math.h>
48 #if defined(__SUNPRO_C)
49 #include <sunmath.h>
50 #endif
51
52 #define GENERIC long double
53 static GENERIC
54 zero = 0.0L,
55 small = 1.0e-9L,
56 tiny = 1.0e-38L,
57 one = 1.0L,
58 five = 5.0L,
59 eight = 8.0L,
60 invsqrtpi = 5.641895835477562869480794515607725858441e-0001L,
61 tpi = 0.636619772367581343075535053490057448L;
62
63 static GENERIC pzero(), qzero();
|
19 * CDDL HEADER END
20 */
21
22 /*
23 * Copyright 2011 Nexenta Systems, Inc. All rights reserved.
24 */
25 /*
26 * Copyright 2006 Sun Microsystems, Inc. All rights reserved.
27 * Use is subject to license terms.
28 */
29
30 /*
31 * Floating point Bessel's function of the first and second kinds
32 * of order zero: j0(x),y0(x);
33 *
34 * Special cases:
35 * y0(0)=y1(0)=yn(n,0) = -inf with division by zero signal;
36 * y0(-ve)=y1(-ve)=yn(n,-ve) are NaN with invalid signal.
37 */
38
39 #pragma weak __j0l = j0l
40 #pragma weak __y0l = y0l
41
42 #include "libm.h"
43
44 #include "longdouble.h"
45
46 #include <math.h>
47 #if defined(__SUNPRO_C)
48 #include <sunmath.h>
49 #endif
50
51 #define GENERIC long double
52 static GENERIC
53 zero = 0.0L,
54 small = 1.0e-9L,
55 tiny = 1.0e-38L,
56 one = 1.0L,
57 five = 5.0L,
58 eight = 8.0L,
59 invsqrtpi = 5.641895835477562869480794515607725858441e-0001L,
60 tpi = 0.636619772367581343075535053490057448L;
61
62 static GENERIC pzero(), qzero();
|