DPMJET/flukapro/(HDSLCM)

   1 *$ CREATE HDSLCM.ADD
   2 *COPY HDSLCM
   3 *
   4 *=== Hdslcm ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     HaDron SeLection CoMmon:                                         *
   9 *                                                                      *
  10 *     Created on  21 october 1997  by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on 25-mar-98     by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *                                                                      *
  16 *----------------------------------------------------------------------*
  17 *
  18       PARAMETER ( MXIDSL = 10 )
  19       PARAMETER ( MXHDSL =  2 )
  20 *
  21       COMMON / HDSLCM / AIDSEL (MXIDSL,MXHDSL), ATDSEL (MXIDSL,MXHDSL),
  22      &                  PXDSEL (MXIDSL,MXHDSL), PYDSEL (MXIDSL,MXHDSL),
  23      &                  PZDSEL (MXIDSL,MXHDSL), PIDSEL (MXIDSL,MXHDSL),
  24      &                  PXSDSL (MXIDSL,MXHDSL), PYSDSL (MXIDSL,MXHDSL),
  25      &                  FIDSEL (MXIDSL,MXHDSL), RIDSEL (MXHDSL)       ,
  26      &                  PSDSLX                , PSDSLY                ,
  27      &                  KIDSEL (MXIDSL,MXHDSL), NIDSEL (MXHDSL)       ,
  28      &                  IBDSEL (MXHDSL)       , NQDSEL (MXHDSL)       ,
  29      &                  JIDSEL (MXHDSL)       , MIDSEL
  30