*$ CREATE EMFTHR.ADD
*COPY EMFTHR
*
*=== Emfthr ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1997-2005      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     Last change on 06-feb-05     by    Alfredo Ferrari               *
*                                                                      *
*     Common Thresh for EMF                                            *
*      Mxxmde = Maximum number of media in Emf                         *
*      Ecutme = Minimum energy to perform Moliere's scattering         *
*      Ethnsz = Minimum energy to apply the nuclear size correction    *
*               to the Moliere's scattering Moliere's scattering       *
*  Please note that the following arrays use the Fluka material index  *
*  rather than the EMF one                                             *
*      Upcmpt = Minimum photon energy to perform Compton scattering    *
*      Upphel = Minimum photon energy to perform photoelectric         *
*      Uppair = Minimum photon energy to perform pair production       *
*      Uprlgh = Minimum photon energy to perform Rayleigh scattering   *
*      Upphnc = Minimum photon energy to perform photonucl. interac.   *
*      Uebrms = Minimum e+/e-  energy to perform bremsstrahlung        *
*      Uebhml = Minimum e+/e-  energy to perform Bhabha/Moller         *
*      Ueannh = Minimum e+     energy to perform annihilation          *
*      Uephnc = Minimum e+/e-  energy to perform photonucl. interac.   *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / EMFTHR / EPHMIN (MXXMDE), EEPMIN (MXXMDE),
     &                  EPHMAX (MXXMDE), EEPMAX (MXXMDE),
     &                  THMOLL (MXXMDE), ECUTME (MXXMDE),
     &                  ETHNSZ (MXXMDE), UPCMPT (MXXMDF),
     &                  UPPHEL (MXXMDF), UPPAIR (MXXMDF),
     &                  UPRLGH (MXXMDF), UPPHNC (MXXMDF),
     &                  UEBRMS (MXXMDF), UEBHML (MXXMDF),
     &                  UEANNH (MXXMDF), UEPHNC (MXXMDF)
      SAVE / EMFTHR /