bridge/class-master/depend/pari/src/basemath/base2.c
/* given MODULES x and y by their pseudo-bases, returns a pseudo-basis of the
 * module generated by x and y. */
given MODULES x and y by their pseudo-bases, returns a pseudo-basis of the
module generated by x and y.
given MODULES x and y by their pseudo - bases returns a pseudo - basis of the module generated by x and y .
static GEN
rnfjoinmodules_i(GEN nf, GEN Hx, GEN Ix, GEN Hy, GEN Iy)
{
  long lx = lg(Hx), ly = lg(Hy), l = lx+ly-1;
  GEN H = cgetg(l, t_MAT), I = cgetg(l, t_VEC);
  fill(lx, H     , Hx, I     , Ix);
  fill(ly, H+lx-1, Hy, I+lx-1, Iy); return nfhnf(nf, mkvec2(H, I));
}
static GEN rnfjoinmodules_i ( GEN nf , GEN Hx , GEN Ix , GEN Hy , GEN Iy ) { long lx = lg ( Hx ) , ly = lg ( Hy ) , l = lx + ly - 1 ; GEN H = cgetg ( l , t_MAT ) , I = cgetg ( l , t_VEC ) ; fill ( lx , H , Hx , I , Ix ) ; fill ( ly , H + lx - 1 , Hy , I + lx - 1 , Iy ) ; return nfhnf ( nf , mkvec2 ( H , I ) ) ; }
given MODULES x and y by their pseudo-bases, returns a pseudo-basis of the
 module generated by x and y.
given MODULES x and y by their pseudo - bases returns a pseudo - basis of the module generated by x and y .