Lines Matching refs:jz
84 * jz local integer variable indicating the number of
275 int32_t jz,jx,jv,jp,jk,carry,n,iq[20],i,j,k,m,q0,ih;
299 jz = jk;
302 for (i=0,j=jz,z=q[jz]; j>0; i++,j--) {
314 if (q0 > 0) { /* need iq[jz-1] to determine n */
315 i = iq[jz-1]>>(24-q0); n += i;
316 iq[jz-1] -= i<<(24-q0);
317 ih = iq[jz-1]>>(23-q0);
319 else if (q0 == 0) ih = iq[jz-1]>>23;
324 for (i=0; i<jz; i++) { /* compute 1-q */
337 iq[jz-1] &= 0x7fffff; break;
339 iq[jz-1] &= 0x3fffff; break;
352 for (i=jz-1; i>=jk; i--) j |= iq[i];
356 for (i=jz+1; i<=jz+k; i++) { /* add q[jz+1] to q[jz+k] */
362 jz += k;
369 jz -= 1;
371 while (iq[jz] == 0) {
372 jz--;
379 iq[jz] = (int32_t)(z - 0x1p24*fw);
380 jz += 1;
382 iq[jz] = (int32_t)fw;
384 iq[jz] = (int32_t)z;
389 for (i=jz; i>=0; i--) {
394 /* compute PIo2[0,...,jp]*q[jz,...,0] */
395 for(i=jz; i>=0; i--) {
396 for (fw=0.0,k=0; k<=jp && k<=jz-i; k++)
398 fq[jz-i] = fw;
405 for (i=jz; i>=0; i--)
412 for (i=jz; i>=0; i--)
418 for (i=1; i<=jz; i++)
423 for (i=jz; i>0; i--) {
428 for (i=jz; i>1; i--) {
433 for (fw=0.0,i=jz; i>=2; i--)