bridge/class-master/depend/pari/src/basemath/char.c
/* G a znstar, not stack clean */
G a znstar, not stack clean
G a znstar not stack clean
GEN
znchareval(GEN G, GEN chi, GEN n, GEN z)
{
  GEN nchi, N = znstar_get_N(G);
  if (typ(n) == t_FRAC && !equali1(gcdii(gel(n,2), N))) return not_coprime(z);
  n = Rg_to_Fp(n, N);
  if (!equali1(gcdii(n, N))) return not_coprime(z);
  nchi = znconrey_normalized(G, chi);
  return chareval_i(nchi, znconreylog(G,n), z);
}
GEN znchareval ( GEN G , GEN chi , GEN n , GEN z ) { GEN nchi , N = znstar_get_N ( G ) ; if ( typ ( n ) == t_FRAC && ! equali1 ( gcdii ( gel ( n , 2 ) , N ) ) ) return not_coprime ( z ) ; n = Rg_to_Fp ( n , N ) ; if ( ! equali1 ( gcdii ( n , N ) ) ) return not_coprime ( z ) ; nchi = znconrey_normalized ( G , chi ) ; return chareval_i ( nchi , znconreylog ( G , n ) , z ) ; }
G a znstar, not stack clean
G a znstar not stack clean
/* avoid division by 0 */ /* nchi: normalized character on Conrey generators */