bridge/class-master/depend/pari/src/basemath/trans3.c
/* x a floating point number, t_REAL or t_COMPLEX of t_REAL */
x a floating point number, t_REAL or t_COMPLEX of t_REAL
x a floating point number t_REAL or t_COMPLEX of t_REAL
static GEN
logabs(GEN x)
{
  GEN y;
  if (typ(x) == t_COMPLEX)
  {
    y = logr_abs( cxnorm(x) );
    shiftr_inplace(y, -1);
  } else
    y = logr_abs(x);
  return y;
}
static GEN logabs ( GEN x ) { GEN y ; if ( typ ( x ) == t_COMPLEX ) { y = logr_abs ( cxnorm ( x ) ) ; shiftr_inplace ( y , -1 ) ; } else y = logr_abs ( x ) ; return y ; }
x a floating point number, t_REAL or t_COMPLEX of t_REAL
x a floating point number t_REAL or t_COMPLEX of t_REAL