197   gf lambda[NN-KK + 1], s[NN-KK + 1];	/* Err+Eras Locator poly  in eras_dec_rs()  local
237   CLEAR(&lambda[1],NN-KK);  in eras_dec_rs()
238   lambda[0] = 1;  in eras_dec_rs()
242     lambda[1] = Alpha_to[modnn(PRIM * eras_pos[0])];  in eras_dec_rs()
246 	tmp = Index_of[lambda[j - 1]];  in eras_dec_rs()
248 	  lambda[j] ^= Alpha_to[modnn(u + tmp)];  in eras_dec_rs()
257       reg[i] = Index_of[lambda[i]];  in eras_dec_rs()
287     b[i] = Index_of[lambda[i]];  in eras_dec_rs()
299       if ((lambda[i] != 0) && (s[r - i] != A0)) {  in eras_dec_rs()
300 	discr_r ^= Alpha_to[modnn(Index_of[lambda[i]] + s[r - i])];  in eras_dec_rs()
310       t[0] = lambda[0];  in eras_dec_rs()
313 	  t[i+1] = lambda[i+1] ^ Alpha_to[modnn(discr_r + b[i])];  in eras_dec_rs()
315 	  t[i+1] = lambda[i+1];  in eras_dec_rs()
324 	  b[i] = (lambda[i] == 0) ? A0 : modnn(Index_of[lambda[i]] - discr_r + NN);  in eras_dec_rs()
330       COPY(lambda,t,NN-KK+1);  in eras_dec_rs()
337     lambda[i] = Index_of[lambda[i]];  in eras_dec_rs()
338     if(lambda[i] != A0)  in eras_dec_rs()
345   COPY(&reg[1],&lambda[1],NN-KK);  in eras_dec_rs()
383       if ((s[i + 1 - j] != A0) && (lambda[j] != A0))  in eras_dec_rs()
384 	tmp ^= Alpha_to[modnn(s[i + 1 - j] + lambda[j])];  in eras_dec_rs()
407       if(lambda[i+1] != A0)  in eras_dec_rs()
408 	den ^= Alpha_to[modnn(lambda[i+1] + i * root[j])];  in eras_dec_rs()