bridge/class-master/depend/pari/src/basemath/mftrace.c
/* mfgetembed for the successive eigenforms in MF_get_newforms */
mfgetembed for the successive eigenforms in MF_get_newforms
mfgetembed for the successive eigenforms in MF_get_newforms
static GEN
mfeigenembed(GEN mf, long prec)
{
  GEN vP = MF_get_fields(mf), vF = MF_get_newforms(mf);
  GEN zcyclo, vE, CHI = MF_get_CHI(mf), P = mfcharpol(CHI);
  long i, l = lg(vP);
  vF = Q_remove_denom(liftpol_shallow(vF), NULL);
  prec += nbits2extraprec(gexpo(vF));
  zcyclo = grootsof1_CHI(CHI, prec);
  vE = cgetg(l, t_VEC);
  for (i = 1; i < l; i++) gel(vE,i) = getembed(P, gel(vP,i), zcyclo, prec);
  return vE;
}
static GEN mfeigenembed ( GEN mf , long prec ) { GEN vP = MF_get_fields ( mf ) , vF = MF_get_newforms ( mf ) ; GEN zcyclo , vE , CHI = MF_get_CHI ( mf ) , P = mfcharpol ( CHI ) ; long i , l = lg ( vP ) ; vF = Q_remove_denom ( liftpol_shallow ( vF ) , NULL ) ; prec += nbits2extraprec ( gexpo ( vF ) ) ; zcyclo = grootsof1_CHI ( CHI , prec ) ; vE = cgetg ( l , t_VEC ) ; for ( i = 1 ; i < l ; i ++ ) gel ( vE , i ) = getembed ( P , gel ( vP , i ) , zcyclo , prec ) ; return vE ; }
mfgetembed for the successive eigenforms in MF_get_newforms
mfgetembed for the successive eigenforms in MF_get_newforms