proc zeilenvielfaches (matrix M, poly z, int k)
"USAGE:      zeilenvielfaches(M,z,k); matrix M, poly z, int k
RETURN:      matrix, die k-te Zeile von M wurde mit z multipliziert
KEYWORDS:    Gauss algorithm
EXAMPLE:     example zeilenvielfaches;   zeigt ein Beispiel"
{
  if ((k>=0) and (k<=nrows(M)))
  {
    M[k,1..ncols(M)]=z*M[k,1..ncols(M)];
    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=zeilenvielfaches(M,-1,2);
  pmat(N);
}