Procedure

     MAXAC  ( Maximum element of array, character )

     SUBROUTINE MAXAC ( ARRAY, NDIM, MAXVAL, LOC )

Abstract

     Locate the maximum element of a character array.

Required_Reading

     None.

Keywords

     ARRAY
     SEARCH

Declarations

     IMPLICIT NONE

     CHARACTER*(*)   ARRAY ( * )
     INTEGER         NDIM
     CHARACTER*(*)   MAXVAL
     INTEGER         LOC

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  -------------------------------------------------
     ARRAY      I   Array.
     NDIM       I   Number of elements in ARRAY.
     MAXVAL     O   Maximum value in ARRAY.
     LOC        O   Location of MAXVAL in ARRAY.

Detailed_Input

     ARRAY    is an arbitrary array.

     NDIM     is the number of elements in ARRAY.

Detailed_Output

     MAXVAL   is the value in array that is greater than or equal
              to all other values in the array. If the array
              contains more than one element with this value,
              the first one is returned.

              Elements in character arrays are compared according
              to the ASCII collating sequence.

     LOC      is the location of the maximum element. That is,
              MAXVAL contains element ARRAY(LOC).

Parameters

     None.

Exceptions

     Error free.

     1)  If the array is empty (NDIM is less than one), LOC is zero,
         and MAXVAL is not changed.

     2)  If the declared length of MAXVAL is too short to contain the
         entire element, the element is truncated. (The original value
         can be accessed via LOC.)

Files

     None.

Particulars

     None.

Examples

     Let array A contain the following elements.

        A(1) = 'Einstein'
        A(2) = 'Bohr'
        A(3) = 'Feynman'
        A(4) = 'Pauli'
        A(5) = 'Bardeen'
        A(6) = 'Dirac'

     Then following the call

        CALL MAXAC ( A, 6, MAXVAL, LOC )

     the values of MAXVAL and LOC are 'Pauli' and 4 respectively.

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

     J. Diaz del Rio    (ODC Space)
     W.L. Taber         (JPL)
     I.M. Underwood     (JPL)

Version

    SPICELIB Version 1.1.0, 14-APR-2021 (JDR)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard. Removed
        unnecessary $Revisions section.

    SPICELIB Version 1.0.1, 10-MAR-1992 (WLT)

        Comment section for permuted index source lines was added
        following the header.

    SPICELIB Version 1.0.0, 31-JAN-1990 (IMU)