*
*=== Souevt ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     SOUrce EVenT:                                                    *
*                                                                      *
*     Created on 14 November 1996  by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*          X,Y,Zsoevt(i) = position      of the i_th source particle   *
*          TX,Y,Zsoev(i) = direction     of the i_th source particle   *
*              Wtsoev(i) = weight        of the i_th source particle   *
*              Pmsoev(i) = momentum      of the i_th source particle   *
*              Tksoev(i) = kin. energy   of the i_th source particle   *
*              Agsoev(i) = age           of the i_th source particle   *
*              Aksoev(i) = Kaon ampl.    of the i_th source particle   *
*              Rdsoev(i) = Rad. delay    of the i_th source particle   *
*              Ecsoev(i) = Trans. energy of the i_th source particle   *
*              Afsoev(i) = extra infos   of the i_th source particle   *
*              Epsoev(i) = last inel. Ek of the i_th source particle   *
*            Ussoev(j,i) = user var.     of the i_th source particle   *
*              Ijsoev(i) = identity      of the i_th source particle   *
*              Igsoev(i) = group n.      of the i_th source particle   *
*              Nrsoev(i) = region        of the i_th source particle   *
*              Nlsoev(i) = lattice       of the i_th source particle   *
*              Kcsoev(i) = Channel. flag of the i_th source particle   *
*              Ipsoev(i) = last inel. id of the i_th source particle   *
*              Ifsoev(i) = extra infos   of the i_th source particle   *
*              Lfsoev(i) = extra infos   of the i_th source particle   *
*              Iasoev(i) = rad. parent   of the i_th source particle   *
*              Lrsoev(i) = Rad.dec. flag of the i_th source particle   *
*              Losoev(i) = user flag     of the i_th source particle   *
*            Iusoev(j,i) = user flags    of the i_th source particle   *
*                Npsoev  = number of the source particles              *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( MXSOEV = 100 )
      LOGICAL LRSOEV, LCSOEV
      INTEGER*8 NLSOEV
      COMMON / SOUEVT / XSOEVT (MXSOEV), YSOEVT (MXSOEV),
     &                  ZSOEVT (MXSOEV), TXSOEV (MXSOEV),
     &                  TYSOEV (MXSOEV), TZSOEV (MXSOEV),
     &                  TXPSOV (MXSOEV), TYPSOV (MXSOEV),
     &                  TZPSOV (MXSOEV), WTSOEV (MXSOEV),
     &                  PMSOEV (MXSOEV), TKSOEV (MXSOEV),
     &                  AGSOEV (MXSOEV), AKSOEV (MXSOEV),
     &                  RDSOEV (MXSOEV), ECSOEV (MXSOEV),
     &                  AFSOEV (MXSOEV), EPSOEV (MXSOEV),
     &                  USSOEV (MKBMX1,MXSOEV),
     &                  IUSOEV (MKBMX2,MXSOEV),
     &                  IJSOEV (MXSOEV), IGSOEV (MXSOEV),
     &                  NRSOEV (MXSOEV), NLSOEV (MXSOEV),
     &                  KCSOEV (MXSOEV), IFSOEV (MXSOEV),
     &                  LFSOEV (MXSOEV), IPSOEV (MXSOEV),
     &                  IASOEV (MXSOEV), LRSOEV (MXSOEV),
     &                  LOSOEV (MXSOEV), NPSOEV
      SAVE / SOUEVT /