bridge/class-master/depend/pari/src/basemath/base2.c
/* Factor characteristic polynomial chi of phi mod p. If it splits, update
 * S->{phi, chi, nu} and return 1. In any case, set *nu to an irreducible
 * factor mod p of chi */
Factor characteristic polynomial chi of phi mod p. If it splits, update
S->{phi, chi, nu} and return 1. In any case, set *nu to an irreducible
factor mod p of chi
Factor characteristic polynomial chi of phi mod p . If it splits update S - > { phi chi nu } and return 1 . In any case set * nu to an irreducible factor mod p of chi
static int
split_char(decomp_t *S, GEN chi, GEN phi, GEN phi0, GEN *nu)
{
  long l;
  *nu  = get_nu(chi, S->p, &l);
  if (l == 1) return 0; 
  S->phi = compmod(S->p, phi, phi0, S->f, S->p, 0);
  S->chi = chi;
  S->nu = *nu; return 1;
}
static int split_char ( decomp_t * S , GEN chi , GEN phi , GEN phi0 , GEN * nu ) { long l ; * nu = get_nu ( chi , S -> p , & l ) ; if ( l == 1 ) return 0 ; S -> phi = compmod ( S -> p , phi , phi0 , S -> f , S -> p , 0 ) ; S -> chi = chi ; S -> nu = * nu ; return 1 ; }
Factor characteristic polynomial chi of phi mod p. If it splits, update
 S->{phi, chi, nu} and return 1.
Factor characteristic polynomial chi of phi mod p . If it splits update S - > { phi chi nu } and return 1 .
/* single irreducible factor: doesn't split */ /* phi o phi0 mod (p, f) */