Lines Matching refs:jk
108 * jk jk+1 is the initial number of terms of ipio2[] needed
124 * jp jp+1 is the number of terms in PIo2[] needed, jp = jk.
139 * fq[] final product of x*(2/pi) in fq[0],..,fq[jk]
153 /* initial value for jk */
192 int jz, jx, jv, jp, jk, carry, n, iq[20], i, j, k, m, q0, ih;
195 /* initialize jk */
196 jk = init_jk[prec];
197 jp = jk;
208 /* set up f[0] to f[jx + jk] where f[jx + jk] = ipio2[jv + jk] */
210 m = jx + jk;
216 /* compute q[0], q[1], ... q[jk] */
217 for (i = 0; i <= jk; i++)
226 jz = jk;
308 for (i = jz - 1; i >= jk; i--)
314 for (k = 1; iq[jk - k] == 0; k++) /* k = no. of terms needed */