bridge/class-master/depend/pari/src/basemath/rootpol.c
/* normalize a polynomial p, that is change it with coefficients in Z[i],
after making product by 2^shift */
normalize a polynomial p, that is change it with coefficients in Z[i],
after making product by 2^shift
normalize a polynomial p that is change it with coefficients in Z [ i ] after making product by 2^shift
static GEN
pol_to_gaussint(GEN p, long shift)
{
  long i, l = lg(p);
  GEN q = cgetg(l, t_POL); q[1] = p[1];
  for (i=2; i<l; i++) gel(q,i) = gtrunc2n(gel(p,i), shift);
  return q;
}
static GEN pol_to_gaussint ( GEN p , long shift ) { long i , l = lg ( p ) ; GEN q = cgetg ( l , t_POL ) ; q [ 1 ] = p [ 1 ] ; for ( i = 2 ; i < l ; i ++ ) gel ( q , i ) = gtrunc2n ( gel ( p , i ) , shift ) ; return q ; }
normalize a polynomial p, that is change it with coefficients in Z[i],
after making product by 2^shift
normalize a polynomial p that is change it with coefficients in Z [ i ] after making product by 2^shift