*$ CREATE EMFCMP.ADD
*COPY EMFCMP
*
*=== emfcmp ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1990-2006      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     include file: emfcmp     created on 31-10-90 by    A. Ferrari    *
*                                                     &  P. Sala       *
*                                                        Infn - Milan  *
*     Last change  on   09-jan-06    by    Alfredo Ferrari, INFN-Milan *
*                                                                      *
*     included in the following routines:                              *
*                                                                      *
*                               Ededxf                                 *
*                               Electr(new version)                    *
*                               Emfin (new version)                    *
*                               Emfret(new version)                    *
*                               Formfe                                 *
*                               Pdedxf                                 *
*                               Photfl                                 *
*                               Photon(new version)                    *
*                               Thnzse                                 *
*                                                                      *
*     description of the common block(s) and variable(s)               *
*                                                                      *
*     /EMFCMP/ contains information about composition of Emf media     *
*         iclemf(med)  = number of materials in a compound             *
*         ic0emf(med)  = starting position for 0 index for med medium  *
*                        in the following arrays                       *
*         zetemf(i)    = atomic numbers of the constituents            *
*         rhozef(i)    = partial densities    (sum = rho )             *
*         pzemf (i)    = proportion by number (sum = 1)                *
*         atwemf(i)    = atomic weights                                *
*         aocmbe(i)    = atomic densities in barn**-1 cm**-1           *
*                        (Atoms Over Cm times Barn for Emf compounds)  *
*         cnea13(i)    = atomic weight^1/3                             *
*         sumzme(i)    = cumulative proportion of z(z+fudgem) (sum=1)  *
*         memfmt(i)    = fluka material
*         metofl(k)    = fluka medium corresponding to kth Emf medium  *
*         jchemf(med)  = number of harmonic oscillator levels in a     *
*                        compound                                      *
*         jc0emf(med)  = starting position for 0 index for med medium  *
*                        in the following arrays                       *
*         pliemf(med)  = plasma energy for Emf med medium              *
*         zsqemf(med)   = squared atomic for Emf med medium            *
*         ehoemf(j)    = jth - jc0emf(med) harmonic oscillator levels  *
*                        of Emf medium Med                             *
*         elnhem(j)    = natural logarithm of ehoemf (j)               *
*         fosemf(j)    = oscillator strength for the jth - jc0emf(med) *
*                        harmonic oscillator levels of Emf medium Med  *
*         zhoemf(j)    = atomic number of the element for the jth -    *
*                        jc0emf(med) harmonic oscillator level of Emf  *
*                        medium Med                                    *
*         ahoemf(j)    = atomic weights  of the element for the jth -  *
*                        jc0emf(med) harmonic oscillator level of Emf  *
*                        medium Med                                    *
*         eliemf(j)    = l_i of the Sternheimer theory for the jth -   *
*                        jc0emf(med) harmonic oscillator level of Emf  *
*                        medium Med                                    *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / EMFCMP / AOCMBE (ICOMAX), EOCMBE (ICOMAX),
     &                  ZETEMF (ICOMAX), RHOZEF (ICOMAX),
     &                  PZEMF  (ICOMAX), ATWEMF (ICOMAX),
     &                  CNEA13 (ICOMAX), SUMZME (ICOMAX),
     &                  EHOEMF (ICHMAX), ELNHEM (ICHMAX),
     &                  FOSEMF (ICHMAX), ZHOEMF (ICHMAX),
     &                  AHOEMF (ICHMAX), ELIEMF (ICHMAX),
     &                  PLIEMF (MXXMDE), ZSQEMF (MXXMDE),
     &                  IC0EMF (MXXMDE), ICLEMF (MXXMDE),
     &                  JC0EMF (MXXMDE), JCHEMF (MXXMDE),
     &                  MEMFMT (ICOMAX), METOFL (0:MXXMDE)
      SAVE / EMFCMP /