1 /* kf_tan.c -- float version of k_tan.c
18     pio4 = 7.8539812565e-01, /* 0x3f490fda */
19     pio4lo = 3.7748947079e-08, /* 0x33222168 */
21         3.3333334327e-01, /* 0x3eaaaaab */
22         1.3333334029e-01, /* 0x3e088889 */
23         5.3968254477e-02, /* 0x3d5d0dd1 */
24         2.1869488060e-02, /* 0x3cb327a4 */
25         8.8632395491e-03, /* 0x3c11371f */
26         3.5920790397e-03, /* 0x3b6b6916 */
27         1.4562094584e-03, /* 0x3abede48 */
28         5.8804126456e-04, /* 0x3a1a26c8 */
29         2.4646313977e-04, /* 0x398137b9 */
30         7.8179444245e-05, /* 0x38a3f445 */
31         7.1407252108e-05, /* 0x3895c07a */
32         -1.8558637748e-05, /* 0xb79bae5f */
33         2.5907305826e-05, /* 0x37d95384 */
39     float z, r, v, w, s;  in __kernel_tanf()  local
43     if (ix < 0x31800000) /* x < 2**-28 */  in __kernel_tanf()
49                 return (iy == 1) ? x : -one / x;  in __kernel_tanf()
54             x = -x;  in __kernel_tanf()
55             y = -y;  in __kernel_tanf()
57         z = pio4 - x;  in __kernel_tanf()
58         w = pio4lo - y;  in __kernel_tanf()
69     v = z *  in __kernel_tanf()
72     r = y + z * (s * (r + v) + y);  in __kernel_tanf()
76         v = (float)iy;  in __kernel_tanf()
77         return (float)(1 - ((hx >> 30) & 2)) *  in __kernel_tanf()
78                (v - (float)2.0 * (x - (w * w / (w + v) - r)));  in __kernel_tanf()
83 			   simply return -1.0/(x+r) here */  in __kernel_tanf()
84         /*  compute -1.0/(x+r) accurately */  in __kernel_tanf()
90         v = r - (z - x); /* z+v = r+x */  in __kernel_tanf()
91         t = a = -(float)1.0 / w; /* a = -1.0/w */  in __kernel_tanf()
95         return t + a * (s + t * v);  in __kernel_tanf()