*$ CREATE CMPEMF.ADD
*COPY CMPEMF
*
*=== Cmpemf ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1990-2009      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     Include file: cmpemf     created on 31-10-90 by    A. Ferrari    *
*                                                     &  P. Sala       *
*                                                        Infn - Milan  *
*     Last change  on   17-apr-09    by    Alfredo Ferrari, INFN-Milan *
*                                                                      *
*     description of the common block(s) and variable(s)               *
*                                                                      *
*     /Cmpemf/ contains informations relevant for the photon and       *
*              electron/positron cross section preprocessing           *
*                                                                      *
*          Rhpemf    = Density of the (Mdpmf) pemf medium under consi- *
*                      deration                                        *
*          Zpemf (i) = Atomic number of the i_th element of the (Mdpmf)*
*                      pemf medium under consideration                 *
*          Pzpemf(i) = Fraction by number of the i_th element of the   *
*                      (Mdpmf) pemf medium under consideration         *
*          Rhzpmf(i) = Fraction by weight of the i_th element of the   *
*                      (Mdpmf) pemf medium under consideration         *
*          Wapemf(i) = Atomic weight of the i_th element of the (Mdpmf)*
*                      pemf medium under consideration                 *
*             Fdpemf = Atomic electron contribution for Pemf           *
*             Lposit = True when a positron is the requested particle  *
*             Lpored = True when proper reduced bremms xsecs are       *
*                      requested for positrons                         *
*             Lmigd1 = True when proper low energy polarization correc-*
*                      tions are requested                             *
*             Lmigd2 = True when Landau-Pomeranchuk-Migdal corrections *
*                      are requested for bremmstralhung                *
*             Lmigdp = True when Landau-Pomeranchuk-Migdal corrections *
*                      are requested for pair production               *
*             Lbrslf = True when proper Berger & Seltzer based bremms  *
*                      xsecs are requested                             *
*             Lpemf  = logical flag for (standalone) Pemf or not       *
*             Lpmffe = logical flag for using (standalone) Pemf files  *
*                      or not for electrons                            *
*             Lpmffg = logical flag for using (standalone) Pemf files  *
*                      or not for photons                              *
*             Mdpmf  = current medium under consideration              *
*             Nelpmf = number of elements of the (Mdpmf) pemf medium   *
*                      under consideration                             *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LPOSIT, LPORED, LMIGD1, LMIGD2, LMIGDP, LBRSLF, LCSHEL,
     &        LPEMF , LPMFFE, LPMFFG
*
      COMMON / CMPEMF / ZPEMF  (NELEMX), PZPEMF (NELEMX),
     &                  RHZPMF (NELEMX), WAPEMF (NELEMX),
     &                  FDPEMF,
     &                  LPOSIT, LPORED, LMIGD1, LMIGD2, LMIGDP, LBRSLF,
     &                  LCSHEL, LPEMF , LPMFFE, LPMFFG, NELPMF, MDPMF
      SAVE / CMPEMF /