DPMJET/flukapro/(SOUEVT)

   1 *$ CREATE SOUEVT.ADD
   2 *COPY SOUEVT
   3 *
   4 *=== Souevt ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     SOUrce EVenT:                                                    *
   9 *                                                                      *
  10 *     Created on 14 november 1996  by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on 16-mar-98     by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *          X,Y,Zsoevt(i) = position    of the i_th source particle     *
  16 *          TX,Y,Zsoev(i) = direction   of the i_th source particle     *
  17 *              Wtsoev(i) = weight      of the i_th source particle     *
  18 *              Pmsoev(i) = momentum    of the i_th source particle     *
  19 *              Tksoev(i) = kin. energy of the i_th source particle     *
  20 *              Agsoev(i) = age         of the i_th source particle     *
  21 *              Aksoev(i) = Kaon ampl.  of the i_th source particle     *
  22 *            Ussoev(j,i) = user var.   of the i_th source particle     *
  23 *              Ijsoev(i) = identity    of the i_th source particle     *
  24 *              Nrsoev(i) = region      of the i_th source particle     *
  25 *              Nlsoev(i) = lattice     of the i_th source particle     *
  26 *              Losoev(i) = user flag   of the i_th source particle     *
  27 *            Iusoev(j,i) = user flags  of the i_th source particle     *
  28 *                Npsoev  = number of the source particles              *
  29 *                                                                      *
  30 *----------------------------------------------------------------------*
  31 *
  32       PARAMETER ( MXSOEV = 100 )
  33       COMMON / SOUEVT / XSOEVT (MXSOEV), YSOEVT (MXSOEV),
  34      &                  ZSOEVT (MXSOEV), TXSOEV (MXSOEV),
  35      &                  TYSOEV (MXSOEV), TZSOEV (MXSOEV),
  36      &                  TXPSOV (MXSOEV), TYPSOV (MXSOEV),
  37      &                  TZPSOV (MXSOEV), WTSOEV (MXSOEV),
  38      &                  PMSOEV (MXSOEV), TKSOEV (MXSOEV),
  39      &                  AGSOEV (MXSOEV), AKSOEV (MXSOEV),
  40      &                  USSOEV (MKBMX1,MXSOEV),
  41      &                  IJSOEV (MXSOEV), NRSOEV (MXSOEV),
  42      &                  NLSOEV (MXSOEV), LOSOEV (MXSOEV),
  43      &                  IUSOEV (MKBMX2,MXSOEV), NPSOEV
  44