bridge/class-master/depend/pari/src/basemath/trans3.c
/* returns the true value of eta(x) for Im(x) > 0, using reduction to
 * standard fundamental domain */
returns the true value of eta(x) for Im(x) > 0, using reduction to
standard fundamental domain
returns the true value of eta ( x ) for Im ( x ) > 0 using reduction to standard fundamental domain
GEN
trueeta(GEN x, long prec)
{
  pari_sp av = avma;
  GEN U, st, s, t;
  if (!is_scalar_t(typ(x))) pari_err_TYPE("trueeta",x);
  x = upper_to_cx(x, &prec);
  x = cxredsl2(x, &U);
  st = eta_correction(x, U, 1);
  x = eta_reduced(x, prec);
  s = gel(st, 1);
  t = gel(st, 2);
  x = gmul(x, exp_IPiQ(t, prec));
  if (s != gen_1) x = gmul(x, gsqrt(s, prec));
  return gerepileupto(av, x);
}
GEN trueeta ( GEN x , long prec ) { pari_sp av = avma ; GEN U , st , s , t ; if ( ! is_scalar_t ( typ ( x ) ) ) pari_err_TYPE ( " " , x ) ; x = upper_to_cx ( x , & prec ) ; x = cxredsl2 ( x , & U ) ; st = eta_correction ( x , U , 1 ) ; x = eta_reduced ( x , prec ) ; s = gel ( st , 1 ) ; t = gel ( st , 2 ) ; x = gmul ( x , exp_IPiQ ( t , prec ) ) ; if ( s != gen_1 ) x = gmul ( x , gsqrt ( s , prec ) ) ; return gerepileupto ( av , x ) ; }
returns the true value of eta(x) for Im(x) > 0, using reduction to
 standard fundamental domain
returns the true value of eta ( x ) for Im ( x ) > 0 using reduction to standard fundamental domain