bridge/class-master/depend/pari/src/basemath/mftrace.c
/* destroy van and prepare to evaluate theta(sigma(van)), for all sigma in
 * embeddings vector vE */
destroy van and prepare to evaluate theta(sigma(van)), for all sigma in
embeddings vector vE
destroy van and prepare to evaluate theta ( sigma ( van )) for all sigma in embeddings vector vE
static GEN
van_embedall(GEN van, GEN vE, GEN gN, GEN gk)
{
  GEN a0 = gel(van,1), vL;
  long i, lE = lg(vE), l = lg(van);
  van++; van[0] = evaltyp(t_VEC) | evallg(l-1); 
  vL = cgetg(lE, t_VEC);
  for (i = 1; i < lE; i++)
  {
    GEN E = gel(vE,i), v = mfvecembed(E, van);
    gel(vL,i) = mkvec2(mfembed(E,a0), mfthetaancreate(v, gN, gk));
  }
  return vL;
}
static GEN van_embedall ( GEN van , GEN vE , GEN gN , GEN gk ) { GEN a0 = gel ( van , 1 ) , vL ; long i , lE = lg ( vE ) , l = lg ( van ) ; van ++ ; van [ 0 ] = evaltyp ( t_VEC ) | evallg ( l - 1 ) ; vL = cgetg ( lE , t_VEC ) ; for ( i = 1 ; i < lE ; i ++ ) { GEN E = gel ( vE , i ) , v = mfvecembed ( E , van ) ; gel ( vL , i ) = mkvec2 ( mfembed ( E , a0 ) , mfthetaancreate ( v , gN , gk ) ) ; } return vL ; }
destroy van and prepare to evaluate theta(sigma(van)), for all sigma in
 embeddings vector vE
destroy van and prepare to evaluate theta ( sigma ( van )) for all sigma in embeddings vector vE
/* remove a0 */