DPMJET/flukapro/(DPDXCM)

   1 *$ CREATE DPDXCM.ADD
   2 *COPY DPDXCM
   3 *
   4 *=== dpdxcm ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     Include file: dpdxcm  (DP/DX CoMmon)                             *
   9 *                                                                      *
  10 *     Created  on  10 february 1991   by        Alfredo Ferrari        *
  11 *                                                INFN - Milan          *
  12 *                                                                      *
  13 *     Last change on  17-jun-97       by        Alfredo Ferrari        *
  14 *                                                                      *
  15 *     Included in the following routines:                              *
  16 *                                                                      *
  17 *                FLUKA                                                 *
  18 *                BLKDT1                                                *
  19 *                DEDX                                                  *
  20 *                DPDXIO                                                *
  21 *                DPDX                                                  *
  22 *                HVBREM                                                *
  23 *                ZEROIN                                                *
  24 *                                                                      *
  25 *           Avionp (m) = average ionization potential (eV) of medium m *
  26 *           Ccster (m) = Sternheimer cbar   parameter for medium m     *
  27 *           X0ster (m) = Sternheimer x0     parameter for medium m     *
  28 *           Xester (m) = Sternheimer x1     parameter for medium m     *
  29 *           Amster (m) = Sternheimer m      parameter for medium m     *
  30 *           Aaster (m) = Sternheimer a      parameter for medium m     *
  31 *           D0ster (m) = Sternheimer delta0 parameter for medium m     *
  32 *           Aviont (m) = auxiliary ionization potential of medium m    *
  33 *                                                                      *
  34 *----------------------------------------------------------------------*
  35 *
  36       PARAMETER ( MNDPDX = 50 )
  37       PARAMETER ( RMDPDX = 1.15D+00 )
  38       PARAMETER ( DPDXR1 = 0.15D+00 )
  39       PARAMETER ( DPDXR2 = 0.70D+00 )
  40       PARAMETER ( ERDEDX = 0.15D+00 * 0.15D+00 )
  41       PARAMETER ( MDPDXH =  4 )
  42 *  Toln10 = 2 x log (10)
  43       PARAMETER ( TOLN10 = 4.605170185988091 D+00 )
  44 *
  45       LOGICAL LDELTA, LPDETB, LETFUN
  46       COMMON / DPDXCM / P0DPDX (MPDPDX,MXXMDF), P1DPDX (MPDPDX,MXXMDF),
  47      &                  TMDPDX (MXXMDF), T0DPDX (MXXMDF),
  48      &                  D0DPDX (MXXMDF), AVIONP (MXXMDF),
  49      &                  RHORFL (MXXMDF), GASPFL (MXXMDF),
  50      &                  CCSTER (MXXMDF), AMSTER (MXXMDF),
  51      &                  XOSTER (MXXMDF), XESTER (MXXMDF),
  52      &                  AASTER (MXXMDF), D0STER (MXXMDF),
  53      &                  AVIONT (MXXMDF), ETDPDX (MXXMDF),
  54      &                  ALMASS (MPDPDX),
  55      &                  NBDPDX (MXXMDF), KDPDXT (MPDPDX,MXXMDF),
  56      &                  LDELTA (MXXMDF), LPDETB (MXXMDF),
  57      &                  IJDPDX (-6:NALLWP), LETFUN
  58