C----------------------------------------------------------------------------
      logical lqq
      common /qqflag/lqq
      save /qqflag/
C
C     if lqq is true, then use QQ for particle decay
C----------------------------------------------------------------------------