proc zeilentausch (matrix M, int k, int l)
"USAGE:      zeilentausch(M,k,l); matrix M, int k, int l
RETURN:      matrix, die k-te Zeile von M wurde der l-ten vertauscht
KEYWORDS:    Gauss algorithm
EXAMPLE:     example zeilentausch;   zeigt ein Beispiel"
{
  if ((k>=1) and (k<=nrows(M)) and (l>=1) and (l<=nrows(M)))
  {
    poly z;
    for (int i=1;i<=ncols(M);i++)
    {
      z=M[k,i];
      M[k,i]=M[l,i];
      M[l,i]=z;
    }
    return(M);
  }
}
example
{
  "Beispiel:";
  echo = 2;
  ring r=0,x,lp;
  matrix M[3][4]=1,2,3,4,5,6,7,8,9,0,1,2;
  pmat(M);
  matrix N=zeilentausch(M,1,2);
  pmat(N);
}