Lines Matching defs:jz
84 * jz local integer variable indicating the number of
237 int32_t jz, jx, jv, jp, jk, carry, n, iq[20], i, j, k, m, q0, ih;
264 jz = jk;
267 for (i = 0, j = jz, z = q[jz]; j > 0; i++, j--) {
279 if (q0 > 0) { /* need iq[jz-1] to determine n */
280 i = iq[jz - 1] >> (24 - q0);
282 iq[jz - 1] -= i << (24 - q0);
283 ih = iq[jz - 1] >> (23 - q0);
285 ih = iq[jz - 1] >> 23;
292 for (i = 0; i < jz; i++) { /* compute 1-q */
305 iq[jz - 1] &= 0x7fffff;
308 iq[jz - 1] &= 0x3fffff;
322 for (i = jz - 1; i >= jk; i--)
328 for (i = jz + 1; i <= jz + k; i++) { /* add q[jz+1] to q[jz+k] */
334 jz += k;
341 jz -= 1;
343 while (iq[jz] == 0) {
344 jz--;
351 iq[jz] = (int32_t)(z - 0x1p24 * fw);
352 jz += 1;
354 iq[jz] = (int32_t)fw;
356 iq[jz] = (int32_t)z;
361 for (i = jz; i >= 0; i--) {
366 /* compute PIo2[0,...,jp]*q[jz,...,0] */
367 for (i = jz; i >= 0; i--) {
368 for (fw = 0.0, k = 0; k <= jp && k <= jz - i; k++)
370 fq[jz - i] = fw;
377 for (i = jz; i >= 0; i--)
384 for (i = jz; i >= 0; i--)
390 for (i = 1; i <= jz; i++)
395 for (i = jz; i > 0; i--) {
400 for (i = jz; i > 1; i--) {
405 for (fw = 0.0, i = jz; i >= 2; i--)