bridge/class-master/depend/pari/src/basemath/lfunutils.c
/* Value of CHI on x, coprime to bnr.mod */
Value of CHI on x, coprime to bnr.mod
Value of CHI on x coprime to bnr . mod
static GEN
chigeneval(GEN logx, GEN nchi, GEN z, long prec)
{
  pari_sp av = avma;
  GEN d = gel(nchi,1);
  GEN e = FpV_dotproduct(gel(nchi,2), logx, d);
  if (typ(z) != t_VEC)
    return gerepileupto(av, gpow(z, e, prec));
  else
  {
    ulong i = itou(e);
    avma = av; return gel(z, i+1);
  }
}
static GEN chigeneval ( GEN logx , GEN nchi , GEN z , long prec ) { pari_sp av = avma ; GEN d = gel ( nchi , 1 ) ; GEN e = FpV_dotproduct ( gel ( nchi , 2 ) , logx , d ) ; if ( typ ( z ) != t_VEC ) return gerepileupto ( av , gpow ( z , e , prec ) ) ; else { ulong i = itou ( e ) ; avma = av ; return gel ( z , i + 1 ) ; } }
Value of CHI on x, coprime to bnr.mod
Value of CHI on x coprime to bnr . mod