*$ CREATE DPDXCM.ADD
*COPY DPDXCM
*
*=== dpdxcm ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Include file: dpdxcm  (DP/DX CoMmon)                             *
*                                                                      *
*     Created  on  10 february 1991   by        Alfredo Ferrari        *
*                                                INFN - Milan          *
*                                                                      *
*     Last change on  17-jun-97       by        Alfredo Ferrari        *
*                                                                      *
*     Included in the following routines:                              *
*                                                                      *
*                FLUKA                                                 *
*                BLKDT1                                                *
*                DEDX                                                  *
*                DPDXIO                                                *
*                DPDX                                                  *
*                HVBREM                                                *
*                ZEROIN                                                *
*                                                                      *
*           Avionp (m) = average ionization potential (eV) of medium m *
*           Ccster (m) = Sternheimer cbar   parameter for medium m     *
*           X0ster (m) = Sternheimer x0     parameter for medium m     *
*           Xester (m) = Sternheimer x1     parameter for medium m     *
*           Amster (m) = Sternheimer m      parameter for medium m     *
*           Aaster (m) = Sternheimer a      parameter for medium m     *
*           D0ster (m) = Sternheimer delta0 parameter for medium m     *
*           Aviont (m) = auxiliary ionization potential of medium m    *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( MNDPDX = 50 )
      PARAMETER ( RMDPDX = 1.15D+00 )
      PARAMETER ( DPDXR1 = 0.15D+00 )
      PARAMETER ( DPDXR2 = 0.70D+00 )
      PARAMETER ( ERDEDX = 0.15D+00 * 0.15D+00 )
      PARAMETER ( MDPDXH =  4 )
*  Toln10 = 2 x log (10)
      PARAMETER ( TOLN10 = 4.605170185988091 D+00 )
*
      LOGICAL LDELTA, LPDETB, LETFUN
      COMMON / DPDXCM / P0DPDX (MPDPDX,MXXMDF), P1DPDX (MPDPDX,MXXMDF),
     &                  TMDPDX (MXXMDF), T0DPDX (MXXMDF),
     &                  D0DPDX (MXXMDF), AVIONP (MXXMDF),
     &                  RHORFL (MXXMDF), GASPFL (MXXMDF),
     &                  CCSTER (MXXMDF), AMSTER (MXXMDF),
     &                  XOSTER (MXXMDF), XESTER (MXXMDF),
     &                  AASTER (MXXMDF), D0STER (MXXMDF),
     &                  AVIONT (MXXMDF), ETDPDX (MXXMDF),
     &                  ALMASS (MPDPDX),
     &                  NBDPDX (MXXMDF), KDPDXT (MPDPDX,MXXMDF),
     &                  LDELTA (MXXMDF), LPDETB (MXXMDF),
     &                  IJDPDX (-6:NALLWP), LETFUN