bridge/class-master/depend/pari/src/basemath/lfun.c
/*******************************************************************/
/*       Compute root number and residues                          */
/*******************************************************************/
/* round root number to \pm 1 if close to integer. */
Compute root number and residues
round root number to \pm 1 if close to integer.
Compute root number and residues round root number to \ pm 1 if close to integer .
static GEN
ropm1(GEN eno, long prec)
{
  long e;
  GEN r = grndtoi(eno, &e);
  return (e < -prec2nbits(prec)/2)? r: eno;
}
static GEN ropm1 ( GEN eno , long prec ) { long e ; GEN r = grndtoi ( eno , & e ) ; return ( e < - prec2nbits ( prec ) / 2 ) ? r : eno ; }
Compute root number and residues
round root number to \pm 1 if close to integer.
Compute root number and residues round root number to \ pm 1 if close to integer .