version="1.0";
info="
      LIBRARY:         123456.lib

      AUTHOR:          Thomas Keilen,  email: keilen@mathematik.uni-kl.de

      SEE ALSO:        matrix.lib, linalg.lib, keilen.lib

      KEYWORDS:        Lineare Algebra

      NOTE:            

      PROCEDURES:
        max_in_intvec(intvec)           gives the maximal entry of an integer vector
";
////////////////////////////////////////////////////////////////////////////////////
LIB "matrix.lib";
LIB "general.lib";
////////////////////////////////////////////////////////////////////////////////////

proc max_in_intvec (intvec v, list #)
"USAGE:   max_in_intvec(v); v intvec
RETURN:   int m, maximum of the integers in v
USAGE:    max_in_intvec(v,1); v intvec
RETURN:   intvec m, m[1] maximum of the integers in v, m[2] position of the 
          last occurence of the maximum in v
NOTE:     This procedure is only for internal use; this procedure is called by 
          totalmultiplicities and semigroup.
"
{
  int max=v[1];
  int maxpos=1;
  for (int i=2;i<=size(v);i++)
  {
    if (v[i]>max)
    {
      max=v[i];
      maxpos=i;
    }
  }
  if (size(#)==0)
  {
    return(max);
  }
  else 
  {
    return(intvec(max,maxpos));
  }
}
example
{
  "Beispiel:";
  echo=2;
  intvec v=2,4,1,-7,9,2,3,-10;
  max_in_intvec(v);
  max_in_intvec(v,1);
}