DPMJET/flukapro/(DIMPAR)

   1 *$ CREATE DIMPAR.ADD
   2 *COPY DIMPAR
   3 *                                                                      *
   4 *=== dimpar ===========================================================*
   5 *                                                                      *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *      DIMPAR: included in any routine                                 *
   9 *                                                                      *
  10 *          Mxxrgn = maximum number of regions                          *
  11 *          Mxxmdf = maximum number of media in Fluka                   *
  12 *          Mxxmde = maximum number of media in Emf                     *
  13 *          Mfstck = stack dimension in Fluka                           *
  14 *          Mestck = stack dimension in Emf                             *
  15 *          Mostck = stack dimension for optical photons                *
  16 *          Mxprsn = secondary stack dimension for resonance generator  *
  17 *          Mxpdpm = secondary stack dimension for DPM generators       *
  18 *          Mxoutu = maximum number of output units                     *
  19 *          Nallwp = number of allowed particles                        *
  20 *          Nelemx = number of maximum allowed elements of a compound   *
  21 *          Mpdpdx = number of particle types for which EM dE/dx pro-   *
  22 *                   cesses (ion,pair,bremss) have to be computed       *
  23 *          Mxhttr = maximum number of (hit) target nucleons for a      *
  24 *                   given collision generation                         *
  25 *          Icomax = maximum number of materials for compounds (equal   *
  26 *                   to the sum of the number of materials for every    *
  27 *                   compound )                                         *
  28 *          Ichmax = maximum number of harmonic oscillator levels for   *
  29 *                   compounds (equal to the sum of the number of har-  *
  30 *                   monic oscillator levels for every compound )       *
  31 *          Nstbis = number of stable isotopes recorded in common iso-  *
  32 *                   top                                                *
  33 *          Mxpabl = number of resonances inside Hadrin common blocks   *
  34 *          Idmaxp = number of particles/resonances defined in common   *
  35 *                   part                                               *
  36 *          Idmxdc = number of particles/resonances decay channels      *
  37 *                   defined in common decayc                           *
  38 *          Ihypmx = maximum number of hyperons in a hypernucleus       *
  39 *          Mkbmx1 = dimension for KWB real spare array in Fluka Stack  *
  40 *          Mkbmx2 = dimension for KWB int. spare array in Fluka Stack  *
  41 *                                                                      *
  42 *----------------------------------------------------------------------*
  43 *                                                                      *
  44       PARAMETER ( MXXRGN =10000 )
  45       PARAMETER ( MXXMDF =  210 )
  46       PARAMETER ( MXXMDE =  202 )
  47       PARAMETER ( MFSTCK = 2500 )
  48       PARAMETER ( MESTCK =  100 )
  49       PARAMETER ( MOSTCK = 2000 )
  50       PARAMETER ( MXPRSN =  100 )
  51       PARAMETER ( MXPDPM =  800 )
  52       PARAMETER ( MXOUTU =   50 )
  53       PARAMETER ( NALLWP =   64 )
  54       PARAMETER ( NELEMX =   80 )
  55       PARAMETER ( MPDPDX =   18 )
  56       PARAMETER ( MXHTTR =   20 )
  57       PARAMETER ( ICOMAX =  700 )
  58       PARAMETER ( ICHMAX = ICOMAX + MXXMDF )
  59       PARAMETER ( NSTBIS =  304 )
  60 * Till 3-aug-99:
  61 *     PARAMETER ( MXPABL =  110 )
  62       PARAMETER ( MXPABL =  120 )
  63       PARAMETER ( IDMAXP =  450 )
  64       PARAMETER ( IDMXDC = 2000 )
  65       PARAMETER ( MXMCIN =  410 )
  66       PARAMETER ( IHYPMX =    4 )
  67 * Till 19-jul-2000:
  68 *     PARAMETER ( MKBMX1 =    9 )
  69 *     PARAMETER ( MKBMX2 =    3 )
  70       PARAMETER ( MKBMX1 =    9 )
  71       PARAMETER ( MKBMX2 =    9 )
  72