bridge/class-master/depend/pari/src/basemath/rootpol.c
/* log of modulus of the smallest root of p, with relative error tau */
log of modulus of the smallest root of p, with relative error tau
log of modulus of the smallest root of p with relative error tau
static double
logmin_modulus(GEN p, double tau)
{
  pari_sp av = avma;
  double r;
  if (gequal0(gel(p,2))) return -pariINFINITY;
  r = - logmax_modulus(RgX_recip_shallow(p),tau);
  avma = av; return r;
}
static double logmin_modulus ( GEN p , double tau ) { pari_sp av = avma ; double r ; if ( gequal0 ( gel ( p , 2 ) ) ) return - pariINFINITY ; r = - logmax_modulus ( RgX_recip_shallow ( p ) , tau ) ; avma = av ; return r ; }
log of modulus of the smallest root of p, with relative error tau
log of modulus of the smallest root of p with relative error tau