C
C------------------------------------------------------------
C
      SUBROUTINE MB (X,Y,Z)
      INTEGER*2 X(1),Y(1),Z,COUNT
      DO COUNT = 1,Z
      Y(COUNT) = X(COUNT)
      END DO
      RETURN
      END
C-------------------------------------------------------------
C
