Function Amax1

Part of:

package f2cl-lib
( amax1 < x > < y > &rest < z > )