*
*=== Evtflg ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     EVenT FLaGs:                                                     *
*                                                                      *
*     Created on    19 May 1998    by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*   Flags indicating the event interaction type:                       *
*                                                                      *
*         LELEVT  =  Elastic interaction                               *
*         LINEVT  =  Inelastic interaction                             *
*         LDECAY  =  Particle decay                                    *
*         LDLTRY  =  Delta ray production (Moller and Bhabha included) *
*         LPAIRP  =  Pair production                                   *
*         LBRMSP  =  Bremsstrahlung                                    *
*         LANNRS  =  Annihilation at rest                              *
*         LANNFL  =  Annihilation in flight                            *
*         LPHOEL  =  Photoelectric effect                              *
*         LCMPTN  =  Compton effect                                    *
*         LCOHSC  =  Rayleigh scattering                               *
*         LLENSC  =  Low energy neutron scattering                     *
*         LOPPSC  =  Optical photon scattering                         *
*         LELDIS  =  Electromagnetic dissociation                      *
*         LRDCAY  =  Radioactive decay                                 *
*         LSRPHO  =  Synchrotron radiation emission                    *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LELEVT, LINEVT, LDECAY, LDLTRY, LPAIRP, LBRMSP, LANNRS,
     &        LANNFL, LPHOEL, LCMPTN, LCOHSC, LLENSC, LOPPSC, LELDIS,
     &        LRDCAY, LSRPHO
      COMMON / EVTFLG / LELEVT, LINEVT, LDECAY, LDLTRY, LPAIRP, LBRMSP,
     &                  LANNRS, LANNFL, LPHOEL, LCMPTN, LCOHSC, LLENSC,
     &                  LOPPSC, LELDIS, LRDCAY, LSRPHO, NTRCKS
      SAVE / EVTFLG /