59:
60: GET_FLOAT_WORD(hx,x);
61: GET_FLOAT_WORD(hy,y);
62: ix = hx&0x7fffffff; iy = hy&0x7fffffff;
133: t1 = u+v;
134: GET_FLOAT_WORD(is,t1);
135: SET_FLOAT_WORD(t1,is&0xfffff000);
141: if(ix<0x00800000)
142: {ax *= two24; n -= 24; GET_FLOAT_WORD(ix,ax); }
143: n += ((ix)>>23)-0x7f;
156: s_h = s;
157: GET_FLOAT_WORD(is,s_h);
158: SET_FLOAT_WORD(s_h,is&0xfffff000);
168: t_h = (float)3.0+s2+r;
169: GET_FLOAT_WORD(is,t_h);
170: SET_FLOAT_WORD(t_h,is&0xfffff000);
176: p_h = u+v;
177: GET_FLOAT_WORD(is,p_h);
178: SET_FLOAT_WORD(p_h,is&0xfffff000);
184: t1 = (((z_h+z_l)+dp_h[k])+t);
185: GET_FLOAT_WORD(is,t1);
186: SET_FLOAT_WORD(t1,is&0xfffff000);
194: /* split up y into yy1+y2 and compute (yy1+y2)*(t1+t2) */
195: GET_FLOAT_WORD(is,y);
196: SET_FLOAT_WORD(yy1,is&0xfffff000);
199: z = p_l+p_h;
200: GET_FLOAT_WORD(j,z);
201: if (j>0x43000000) /* if z > 128 */
225: t = p_l+p_h;
226: GET_FLOAT_WORD(is,t);
227: SET_FLOAT_WORD(t,is&0xfffff000);
235: z = one-(r-z);
236: GET_FLOAT_WORD(j,z);
237: j += (n<<23);