bridge/class-master/depend/pari/src/basemath/rootpol.c
/* P non-constant, squarefree ZX */
P non-constant, squarefree ZX
P non - constant squarefree ZX
long
ZX_sturmpart(GEN P, GEN ab)
{
  pari_sp av = avma;
  long r;
  if (!check_ab(ab)) return ZX_sturm(P);
  r = itos(ZX_Uspensky(P, ab, 2, 0));
  avma = av; return r;
}
long ZX_sturmpart ( GEN P , GEN ab ) { pari_sp av = avma ; long r ; if ( ! check_ab ( ab ) ) return ZX_sturm ( P ) ; r = itos ( ZX_Uspensky ( P , ab , 2 , 0 ) ) ; avma = av ; return r ; }
P non-constant, squarefree ZX
P non - constant squarefree ZX