Lines Matching refs:jz
410 * jz local integer variable indicating the number of
470 int32_t jz, jx, jv, jp, jk, carry, n, iq[20], i, j, k, m, q0, ih;
496 jz = jk;
499 for (i = 0, j = jz, z = q[jz]; j > 0; i++, j--) {
511 if (q0 > 0) { /* need iq[jz-1] to determine n */
512 i = (iq[jz - 1] >> (24 - q0));
514 iq[jz - 1] -= i << (24 - q0);
515 ih = iq[jz - 1] >> (23 - q0);
517 ih = iq[jz - 1] >> 23;
525 for (i = 0; i < jz; i++) { /* compute 1-q */
539 iq[jz - 1] &= 0x7FFFFF;
542 iq[jz - 1] &= 0x3FFFFF;
555 for (i = jz - 1; i >= jk; i--) j |= iq[i];
561 for (i = jz + 1; i <= jz + k; i++) { /* add q[jz+1] to q[jz+k] */
566 jz += k;
573 jz -= 1;
575 while (iq[jz] == 0) {
576 jz--;
583 iq[jz] = z - two24 * fw;
584 jz += 1;
586 iq[jz] = fw;
588 iq[jz] = z;
594 for (i = jz; i >= 0; i--) {
599 /* compute PIo2[0,...,jp]*q[jz,...,0] */
600 for (i = jz; i >= 0; i--) {
601 for (fw = 0.0, k = 0; k <= jp && k <= jz - i; k++) fw += PIo2[k] * q[i + k];
602 fq[jz - i] = fw;
609 for (i = jz; i >= 0; i--) fw += fq[i];
615 for (i = jz; i >= 0; i--) fw += fq[i];
618 for (i = 1; i <= jz; i++) fw += fq[i];
622 for (i = jz; i > 0; i--) {
627 for (i = jz; i > 1; i--) {
632 for (fw = 0.0, i = jz; i >= 2; i--) fw += fq[i];