C...Selection of hard scattering subprocesses.
      COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200)
      integer MSEL,MSELPD,MSUB,KFIN
      double precision CKIN