134: GET_FLOAT_WORD(is,t1);
135: SET_FLOAT_WORD(t1,is&0xfffff000);
136: t2 = v-(t1-u);
149: else {k=0;n+=1;ix -= 0x00800000;}
150: SET_FLOAT_WORD(ax,ix);
151:
157: GET_FLOAT_WORD(is,s_h);
158: SET_FLOAT_WORD(s_h,is&0xfffff000);
159: /* t_h=ax+bp[k] High */
160: SET_FLOAT_WORD(t_h,((ix>>1)|0x20000000)+0x0040000+(k<<21));
161: t_l = ax - (t_h-bp[k]);
169: GET_FLOAT_WORD(is,t_h);
170: SET_FLOAT_WORD(t_h,is&0xfffff000);
171: t_l = r-((t_h-(float)3.0)-s2);
177: GET_FLOAT_WORD(is,p_h);
178: SET_FLOAT_WORD(p_h,is&0xfffff000);
179: p_l = v-(p_h-u);
185: GET_FLOAT_WORD(is,t1);
186: SET_FLOAT_WORD(t1,is&0xfffff000);
187: t2 = z_l-(((t1-t)-dp_h[k])-z_h);
195: GET_FLOAT_WORD(is,y);
196: SET_FLOAT_WORD(yy1,is&0xfffff000);
197: p_l = (y-yy1)*t1+y*t2;
219: k = ((n&0x7fffffff)>>23)-0x7f; /* new k for n */
220: SET_FLOAT_WORD(t,n&~(0x007fffff>>k));
221: n = ((n&0x007fffff)|0x00800000)>>(23-k);
226: GET_FLOAT_WORD(is,t);
227: SET_FLOAT_WORD(t,is&0xfffff000);
228: u = t*lg2_h;
238: if((j>>23)<=0) z = scalbnf(z,n); /* subnormal output */
239: else SET_FLOAT_WORD(z,j);
240: return s*z;