FUNCTION MAX0 (I,J)
      MAX0=I
      IF (J.GT.I) MAX0=J
      RETURN
      END