VMS Help FORTRAN, Intrinsic Procedures, xAMAX  *Conan The Librarian (sorry for the slow response - running on an old VAX)

  REAL*4      SAMAX (n, x, incx)
  REAL*8      DAMAX (n, x, incx)
  COMPLEX*8   CAMAX (n, x, incx)
  COMPLEX*16  ZAMAX (n, x, incx)

  Functions that return the first selected element of the array "x"
  that has the maximum absolute value.  For these routines, the
  absolute value of a complex number is defined as the sum of the
  absolute values of the real and imaginary parts.

  These routines are part of the BLAS1 Extended Set, and are
  available only on VAX processors.  Compaq Extended Math Library
  product may be needed to resolve references to Extended Set
  routines that are not expanded inline by the compiler.

  Arguments

    n

    Integer number of elements in array "x" to be accessed.

    x

    Array containing the elements to be accessed or array reference
    to the first such element.  The data type is REAL*4 for SAMAX,
    REAL*8 for DAMAX, COMPLEX*8 for CAMAX, COMPLEX*16 for ZAMAX.

    incx

    Integer index increment used in selecting which elements of array
    "x" are accessed.