*$ CREATE EMFSTK.ADD
*COPY EMFSTK
*
*=== Emfstk ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1992-2015    by  Alberto Fasso` &  Alfredo Ferrari *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     Common emfstk (EMF STacK) for EMF                                *
*                                                                      *
*     Last change on  13-Apr-15    by    Alfredo Ferrari               *
*                                                                      *
*        Anfemf(i) = extra infos: for EM particles a non zero value is *
*                    the kinetic energy of a possible delta ray parent *
*                    (excluding Moller and Bhabha). Note it is in EMF  *
*                    energy units like all rest                        *
*        Ekpemf(i) = kinetic energy of the parent of the last hadronic *
*                    inelastic interaction: note it is in EMF energy   *
*                    units like all rest                               *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LRDEMF
      INTEGER*8 IRLATT, NHPEMF
      COMMON /EMFSTK/ ETEMF  (MESTCK), PMEMF  (MESTCK), XEMF   (MESTCK),
     &                YEMF   (MESTCK), ZEMF   (MESTCK), UEMF   (MESTCK),
     &                VEMF   (MESTCK), WEMF   (MESTCK), DNEAR  (MESTCK),
     &                UPOL   (MESTCK), VPOL   (MESTCK), WPOL   (MESTCK),
     &                USNRML (MESTCK), VSNRML (MESTCK), WSNRML (MESTCK),
     &                WTEMF  (MESTCK), AGEMF  (MESTCK), CMPEMF (MESTCK),
     &                RDLYEM (MESTCK), ECREMF (MESTCK), ANFEMF (MESTCK),
     &                EKPEMF (MESTCK),           ESPARK (MKBMX1,MESTCK),
     &                IRLATT (MESTCK), NHPEMF (MESTCK), IREMF  (MESTCK),
     &                IESPAK (MKBMX2,MESTCK),           ICHEMF (MESTCK),
     &                INFEMF (MESTCK), LNFEMF (MESTCK), IPREMF (MESTCK),
     &                KCHEMF (MESTCK), LLOEMF (MESTCK), LOUEMF (MESTCK),
     &                LRDEMF (MESTCK), IAZEMF (MESTCK), NPEMF , NPSTRT
      SAVE / EMFSTK /