proc matrixsumme (intmat M)
"USAGE:      matrixsumme(M); intmat M
RETURN:      int, Summe der Eintraege in der Matrix
KEYWORDS:    ungerade Zahlen, Quadrat
EXAMPLE:     example matrixsumme;   zeigt ein Beispiel"
{
  int i,j;
  int summe=0;
  for (i=1;i<=nrows(M);i=i+1)
  {
    for (j=1;j<=ncols(M);j=j+1)
    {
      summe=summe+M[i,j];
    }
  }
  return(summe);
}
example
{
  "Beispiel:";
  echo = 2;
  intmat M[2][5]=1,2,3,4,5,6,7,8,9,10;
  matrixsumme(M);
}