Lines Matching refs:discr_r
195 gf u,q,tmp,num1,num2,den,discr_r;
296 discr_r = 0;
299 discr_r ^= Alpha_to[modnn(Index_of[lambda[i]] + s[r - i])];
302 discr_r = Index_of[discr_r]; /* Index form */
303 if (discr_r == A0) {
308 /* 7 lines below: T(x) <-- lambda(x) - discr_r*x*b(x) */
312 t[i+1] = lambda[i+1] ^ Alpha_to[modnn(discr_r + b[i])];
319 * 2 lines below: B(x) <-- inv(discr_r) *
323 b[i] = (lambda[i] == 0) ? A0 : modnn(Index_of[lambda[i]] - discr_r + NN);