47 #define RPOLY(w) (T5 + w * (T9 + w * (T13 + w * (T17 + w * (T21 + \  argument
48 	w * (T25 + w * (T29 + w * T33)))))))
49 #define VPOLY(w) (T7 + w * (T11 + w * (T15 + w * (T19 + w * (T23 + \  argument
50 	w * (T27 + w * T31))))))
93 #define RPOLY(w) (T5 + w * (T9 + w * (T13 + w * (T17 + w * (T21 + \  argument
94 	w * (T25 + w * (T29 + w * (T33 + w * (T37 + w * (T41 + \
95 	w * (T45 + w * (T49 + w * (T53 + w * T57)))))))))))))
96 #define VPOLY(w) (T7 + w * (T11 + w * (T15 + w * (T19 + w * (T23 + \  argument
97 	w * (T27 + w * (T31 + w * (T35 + w * (T39 + w * (T43 + \
98 	w * (T47 + w * (T51 + w * T55))))))))))))
102 	long double z, r, v, w, s, a, t;  in __tanl()  local
117 	w = z * z;  in __tanl()
118 	r = RPOLY(w);  in __tanl()
119 	v = z * VPOLY(w);  in __tanl()
122 	w = x + r;  in __tanl()
125 		v = s - 2.0 * (x + (r - w * w / (w + s)));  in __tanl()
129 		return w;  in __tanl()
135 	z = w;  in __tanl()
138 	t = a = -1.0 / w;       /* a = -1.0/w */  in __tanl()