PROCEDURE  max(a, b: IN STD_LOGIC_VECTOR；
                           y: OUT  INTEGER)   IS
            BEGIN
                  IF  (a<b)  THEN
                      y := b；
                  ELSE
                      y := a；
                  END  IF；
            END  max；