*$ CREATE MULTS.ADD
*COPY MULTS
*
*=== Mults ============================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1989-2005      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     Last change  on  04-feb-03   by   Alfredo Ferrari                *
*                                                                      *
*     Common Mults for EMF                                             *
*        Mxxmde = maximum number of media in Emf                       *
*       (Alpfsc = alpha, fine structure constant = 1/137)              *
*        Ztldem = "effective" Zeta for the spin relativistic correc-   *
*                 tion                                                 *
*        Alztle = Alpfsc * Ztldem                                      *
*        Alzt2e = Alztle **2                                           *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LSRCRE, LNSCRE, LMLRGE
      COMMON /MULTS/ ZTLDEM (MXXMDE), ALZTLE (MXXMDE), ALZT2E (MXXMDE),
     &               AE1O3E (MXXMDE), FUDEMF (MXXMDE),
     &               LSRCRE (MXXMDE), LNSCRE (MXXMDE), LMLRGE (-1:1)
      SAVE / MULTS /