Lines Matching defs:q0
104 * q0 the corresponding exponent of q[0]. Note that the
105 * exponent for q[i] would be q0-24*i.
170 int jz,jx,jv,jp,jk,carry,n,iq[20],i,j,k,m,q0,ih;
177 /* determine jx,jv,q0, note that 3>q0 */
180 q0 = e0-24*(jv+1);
201 z = ieee_scalbn(z,q0); /* actual value of z */
206 if(q0>0) { /* need iq[jz-1] to determine n */
207 i = (iq[jz-1]>>(24-q0)); n += i;
208 iq[jz-1] -= i<<(24-q0);
209 ih = iq[jz-1]>>(23-q0);
211 else if(q0==0) ih = iq[jz-1]>>23;
224 if(q0>0) { /* rare case: chance is 1 in 12 */
225 switch(q0) {
234 if(carry!=0) z -= ieee_scalbn(one,q0);
257 jz -= 1; q0 -= 24;
258 while(iq[jz]==0) { jz--; q0-=24;}
260 z = ieee_scalbn(z,-q0);
264 jz += 1; q0 += 24;
270 fw = ieee_scalbn(one,q0);
