; MAX
;---------------------------------------------------------------
;! returns the maximum of its two arguments
;# Verb POPS
;-----------------------------------------------------------------------
;;  Copyright (C) 1995
;;  Associated Universities, Inc. Washington DC, USA.
;;
;;  This program is free software; you can redistribute it and/or
;;  modify it under the terms of the GNU General Public License as
;;  published by the Free Software Foundation; either version 2 of
;;  the License, or (at your option) any later version.
;;
;;  This program is distributed in the hope that it will be useful,
;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;  GNU General Public License for more details.
;;
;;  You should have received a copy of the GNU General Public
;;  License along with this program; if not, write to the Free
;;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,
;;  MA 02139, USA.
;;
;;  Correspondence concerning AIPS should be addressed as follows:
;;         Internet email: aipsmail@nrao.edu.
;;         Postal address: AIPS Project Office
;;                         National Radio Astronomy Observatory
;;                         520 Edgemont Road
;;                         Charlottesville, VA 22903-2475 USA
;-----------------------------------------------------------------------
;---------------------------------------------------------------
MAX       LLLLLLLLLLLLUUUUUUUUUUUU CCCCCCCCCCCCCCCCCCCCCCCCCCCCC
MAX:  Function verb to return the maximum value of the arguments
          NO adverbs.  Instead, MAX takes two arguments
                     MAX (value1, value2)
          where value1 and value2 are any numeric scalars and/or
          arrays.
----------------------------------------------------------------
MAX
Type:  Verb      (function: leaves results on the stack)
Use:   To obtain the maximum value of numeric scalars (adverbs,
       subscripted arrays, constants) and/or numeric arrays
       (adverbs).  MAX requires 2 immediate arguments as
                     MAX (value1, value2)
       where value1 and value2 are any numeric scalars or
       arrays.  Examples:
            MAX (3.3, 2.3)           is    3.3
            MAX (-3.3, 2.3)          is    3.3
       and with LEVS = 1,2,3,4,5,6,7,8,10; I = -6; APARM = 16
            MAX (LEVS, I)            is   10.0
            MAX (LEVS, 43)           is   43.0
            MAX (LEVS, APARM)        is   16.0
Adverbs:   none.
----------------------------------------------------------------