bridge/class-master/depend/pari/src/basemath/mftrace.c
/* F vector of forms with same weight and character but varying level, return
 * global [N,k,chi,P] */
F vector of forms with same weight and character but varying level, return
global [N,k,chi,P]
F vector of forms with same weight and character but varying level return global [ N k chi P ]
static GEN
vecmfNK(GEN F)
{
  long i, l = lg(F);
  GEN N, f;
  if (l == 1) return mkNK(1, 0, mfchartrivial());
  f = gel(F,1); N = mf_get_gN(f);
  for (i = 2; i < l; i++) N = lcmii(N, mf_get_gN(gel(F,i)));
  return mkgNK(N, mf_get_gk(f), mf_get_CHI(f), mf_get_field(f));
}
static GEN vecmfNK ( GEN F ) { long i , l = lg ( F ) ; GEN N , f ; if ( l == 1 ) return mkNK ( 1 , 0 , mfchartrivial ( ) ) ; f = gel ( F , 1 ) ; N = mf_get_gN ( f ) ; for ( i = 2 ; i < l ; i ++ ) N = lcmii ( N , mf_get_gN ( gel ( F , i ) ) ) ; return mkgNK ( N , mf_get_gk ( f ) , mf_get_CHI ( f ) , mf_get_field ( f ) ) ; }
F vector of forms with same weight and character but varying level, return
 global [N,k,chi,P]
F vector of forms with same weight and character but varying level return global [ N k chi P ]