FUNCTION AMAX1 (A,B)
      AMAX1=A
      IF (B.GT.A) AMAX1=B
      RETURN
      END