bridge/class-master/depend/pari/src/modules/algebras.c
/* assumes al is CSA or CYCLIC */
assumes al is CSA or CYCLIC
assumes al is CSA or CYCLIC
static GEN
algredcharpoly(GEN al, GEN x, long v)
{
  pari_sp av = avma;
  long w = gvar(rnf_get_pol(alg_get_center(al)));
  if (varncmp(v,w)>=0) pari_err_PRIORITY("algredcharpoly",pol_x(v),">=",w);
  switch(alg_type(al))
  {
    case al_CYCLIC:
    case al_CSA:
      return gerepileupto(av, algredcharpoly_i(al, x, v));
  }
  return NULL; 
}
static GEN algredcharpoly ( GEN al , GEN x , long v ) { pari_sp av = avma ; long w = gvar ( rnf_get_pol ( alg_get_center ( al ) ) ) ; if ( varncmp ( v , w ) >= 0 ) pari_err_PRIORITY ( " " , pol_x ( v ) , " " , w ) ; switch ( alg_type ( al ) ) { case al_CYCLIC : case al_CSA : return gerepileupto ( av , algredcharpoly_i ( al , x , v ) ) ; } return NULL ; }
assumes al is CSA or CYCLIC
assumes al is CSA or CYCLIC
/*LCOV_EXCL_LINE*/