bridge/class-master/depend/pari/src/modules/algebras.c
/* finds a nontrivial ideal of O/prad or gen_0 if there is none. */
finds a nontrivial ideal of O/prad or gen_0 if there is none.
finds a nontrivial ideal of O / prad or gen_0 if there is none .
static GEN
algpdecompose_i(GEN al, GEN p, GEN zprad, GEN projs)
{
  pari_sp av = avma;
  GEN prad = algpradical_i(al,p,zprad,projs);
  return gerepileupto(av, algpdecompose0(al, prad, p, projs));
}
static GEN algpdecompose_i ( GEN al , GEN p , GEN zprad , GEN projs ) { pari_sp av = avma ; GEN prad = algpradical_i ( al , p , zprad , projs ) ; return gerepileupto ( av , algpdecompose0 ( al , prad , p , projs ) ) ; }
finds a nontrivial ideal of O/prad or gen_0 if there is none.
finds a nontrivial ideal of O / prad or gen_0 if there is none .