Lines Matching defs:inc
375 /* input: A[0] ... A[inc*(K-1)] are residues mod 2^N+1 where
377 output: A[inc*l[k][i]] <- \sum (2^omega)^(ij) A[inc*j] mod 2^N+1 */
381 mp_size_t omega, mp_size_t n, mp_size_t inc, mp_ptr tp)
387 cy = mpn_add_n_sub_n (Ap[0], Ap[inc], Ap[0], Ap[inc], n + 1) & 1;
390 mpn_add_n (Ap[0], Ap[0], Ap[inc], n + 1);
391 cy = mpn_sub_n (Ap[inc], tp, Ap[inc], n + 1);
395 if (cy) /* Ap[inc][n] can be -1 or -2 */
396 Ap[inc][n] = mpn_add_1 (Ap[inc], Ap[inc], n, ~Ap[inc][n] + 1);
403 mpn_fft_fft (Ap, K2, ll-1, 2 * omega, n, inc * 2, tp);
404 mpn_fft_fft (Ap+inc, K2, ll-1, 2 * omega, n, inc * 2, tp);
405 /* A[2*j*inc] <- A[2*j*inc] + omega^l[k][2*j*inc] A[(2j+1)inc]
406 A[(2j+1)inc] <- A[2*j*inc] + omega^l[k][(2j+1)inc] A[(2j+1)inc] */
407 for (j = 0; j < K2; j++, lk += 2, Ap += 2 * inc)
409 /* Ap[inc] <- Ap[0] + Ap[inc] * 2^(lk[1] * omega)
410 Ap[0] <- Ap[0] + Ap[inc] * 2^(lk[0] * omega) */
411 mpn_fft_mul_2exp_modF (tp, Ap[inc], lk[0] * omega, n);
413 mpn_fft_add_sub_modF (Ap[0], Ap[inc], tp, n);
415 mpn_fft_sub_modF (Ap[inc], Ap[0], tp, n);
422 /* input: A[0] ... A[inc*(K-1)] are residues mod 2^N+1 where
424 output: A[inc*l[k][i]] <- \sum (2^omega)^(ij) A[inc*j] mod 2^N+1