bridge/class-master/depend/pari/src/basemath/base5.c
/* assume x a square t_MAT, return a t_VEC of embeddings of its columns */
assume x a square t_MAT, return a t_VEC of embeddings of its columns
assume x a square t_MAT return a t_VEC of embeddings of its columns
static GEN
mattocomplex(GEN nf, GEN x)
{
  long i,j, l = lg(x);
  GEN v = cgetg(l, t_VEC);
  for (j=1; j<l; j++)
  {
    GEN c = gel(x,j), b = cgetg(l, t_MAT);
    for (i=1; i<l; i++) gel(b,i) = nftocomplex(nf, gel(c,i));
    b = shallowtrans(b); settyp(b, t_COL);
    gel(v,j) = b;
  }
  return v;
}
static GEN mattocomplex ( GEN nf , GEN x ) { long i , j , l = lg ( x ) ; GEN v = cgetg ( l , t_VEC ) ; for ( j = 1 ; j < l ; j ++ ) { GEN c = gel ( x , j ) , b = cgetg ( l , t_MAT ) ; for ( i = 1 ; i < l ; i ++ ) gel ( b , i ) = nftocomplex ( nf , gel ( c , i ) ) ; b = shallowtrans ( b ) ; settyp ( b , t_COL ) ; gel ( v , j ) = b ; } return v ; }
assume x a square t_MAT, return a t_VEC of embeddings of its columns
assume x a square t_MAT return a t_VEC of embeddings of its columns