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_sturm(GEN P)
{
  pari_sp av = avma;
  long h, r;
  P = ZX_deflate_max(P, &h);
  if (odd(h))
    r = itos(ZX_Uspensky(P, NULL, 2, 0));
  else
    r = 2*itos(ZX_Uspensky(P, gen_0, 2, 0));
  avma = av; return r;
}
long ZX_sturm ( GEN P ) { pari_sp av = avma ; long h , r ; P = ZX_deflate_max ( P , & h ) ; if ( odd ( h ) ) r = itos ( ZX_Uspensky ( P , NULL , 2 , 0 ) ) ; else r = 2 * itos ( ZX_Uspensky ( P , gen_0 , 2 , 0 ) ) ; avma = av ; return r ; }
P non-constant, squarefree ZX
P non - constant squarefree ZX