bridge/class-master/depend/pari/src/basemath/alglin1.c
/* assume M = (r1+r2) x (r1+2r2) matrix and y compatible vector or matrix
 * r1 first lines of M,y are real. Solve the system obtained by splitting
 * real and imaginary parts. */
assume M = (r1+r2) x (r1+2r2) matrix and y compatible vector or matrix
r1 first lines of M,y are real. Solve the system obtained by splitting
real and imaginary parts.
assume M = ( r1 + r2 ) x ( r1 + 2r2 ) matrix and y compatible vector or matrix r1 first lines of M y are real . Solve the system obtained by splitting real and imaginary parts .
GEN
RgM_solve_realimag(GEN M, GEN y)
{
  long l = lg(M), r2 = l - lgcols(M), r1 = l-1 - 2*r2;
  return RgM_solve(split_realimag(M, r1,r2),
                   split_realimag(y, r1,r2));
}
GEN RgM_solve_realimag ( GEN M , GEN y ) { long l = lg ( M ) , r2 = l - lgcols ( M ) , r1 = l - 1 - 2 * r2 ; return RgM_solve ( split_realimag ( M , r1 , r2 ) , split_realimag ( y , r1 , r2 ) ) ; }
assume M = (r1+r2) x (r1+2r2) matrix and y compatible vector or matrix
 r1 first lines of M,y are real.
assume M = ( r1 + r2 ) x ( r1 + 2r2 ) matrix and y compatible vector or matrix r1 first lines of M y are real .