bridge/class-master/depend/pari/src/basemath/mftrace.c
/* CHI mod F | N, return mfchar of modulus N.
 * FIXME: wasteful, G should be precomputed  */
CHI mod F | N, return mfchar of modulus N.
FIXME: wasteful, G should be precomputed
CHI mod F | N return mfchar of modulus N . FIXME : wasteful G should be precomputed
static GEN
mfcharinduce(GEN CHI, long N)
{
  GEN G, chi;
  if (mfcharmodulus(CHI) == N) return CHI;
  G = znstar0(utoipos(N), 1);
  chi = zncharinduce(gel(CHI,1), gel(CHI,2), G);
  CHI = leafcopy(CHI);
  gel(CHI,1) = G;
  gel(CHI,2) = chi; return CHI;
}
static GEN mfcharinduce ( GEN CHI , long N ) { GEN G , chi ; if ( mfcharmodulus ( CHI ) == N ) return CHI ; G = znstar0 ( utoipos ( N ) , 1 ) ; chi = zncharinduce ( gel ( CHI , 1 ) , gel ( CHI , 2 ) , G ) ; CHI = leafcopy ( CHI ) ; gel ( CHI , 1 ) = G ; gel ( CHI , 2 ) = chi ; return CHI ; }
CHI mod F | N, return mfchar of modulus N.
 FIXME: wasteful, G should be precomputed
CHI mod F | N return mfchar of modulus N . FIXME : wasteful G should be precomputed