*$ CREATE EMFMAT.ADD
*COPY EMFMAT
*
*=== Emfmat ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1990-2009      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     Last change  on  16-apr-09   by  Alfredo Ferrari, INFN-Milan     *
*                                                                      *
*      Mxxmde = maximum number of media in Emf                         *
*         Estepe = maximum fractional energy loss allowed for the gi-  *
*                  ven medium                                          *
*         Ltmin  = logical array to flag whether or not has the step   *
*                  to be larger or equal than the minimum allowed      *
*                  by Moliere's theory, regardless of the energy loss: *
*                  default is .true.                                   *
*                                                                      *
*----------------------------------------------------------------------*
*
*  Fix to 7% the maximum energy loss in a (single) Landau/Vavilov step
      PARAMETER ( ESTLEM = 0.07D+00 )
      LOGICAL LTMIN, LFXTMX, LPEMDT, LXFLUO, LEMFLA
      CHARACTER*4 CMDEMF
      COMMON /EMFMAT/ RLCEMF (MXXMDE), RLDEMF (MXXMDE), RHOEMF (MXXMDE),
     &                AMSEMF (MXXMDE), AIPEMF (MXXMDE), D0DEMF (MXXMDE),
     &                E0LPM  (MXXMDE), ES1LPM (MXXMDE), AS1LPM (MXXMDE),
     &                RGWEMF (MXXMDE), RPWEMF (MXXMDE), RUWEMF (MXXMDE),
     &                RVWEMF (MXXMDE), ZLNLPM (MXXMDE), ZINVRT (MXXMDE),
     &                ESTEPE (MXXMDE), AVEKDG (MXXMDE),
     &                MXTBGE (MXXMDE), MXTBEK (MXXMDE), IRAYLM (MXXMDE),
     &                LXFLUO (MXXMDE), IEKEDG (MXXMDE), LEMFLA (MXXMDE),
     &                ISTPE  (MXXMDE), LTMIN  (MXXMDE), LPEMDT (MXXMDE),
     &                MALEMF(0:MXXMDE),NMDEMF, ILVLEM , NEREMF, NKDGEM ,
     &                LFXTMX
      COMMON /EMFMCH/ CMDEMF(24,MXXMDE)
      SAVE / EMFMAT /
      SAVE / EMFMCH /