10 //*=== Souevt ===========================================================*
12 //*----------------------------------------------------------------------*
14 //* Copyright (C) 1996-2005 by Alfredo Ferrari & Paola Sala *
15 //* All Rights Reserved. *
20 //* Created on 14 november 1996 by Alfredo Ferrari & Paola Sala *
23 //* Last change on 16-mar-98 by Alfredo Ferrari *
25 //* X,Y,Zsoevt(i) = position of the i_th source particle *
26 //* TX,Y,Zsoev(i) = direction of the i_th source particle *
27 //* Wtsoev(i) = weight of the i_th source particle *
28 //* Pmsoev(i) = momentum of the i_th source particle *
29 //* Tksoev(i) = kin. energy of the i_th source particle *
30 //* Agsoev(i) = age of the i_th source particle *
31 //* Aksoev(i) = Kaon ampl. of the i_th source particle *
32 //* Ussoev(j,i) = user var. of the i_th source particle *
33 //* Ijsoev(i) = identity of the i_th source particle *
34 //* Nrsoev(i) = region of the i_th source particle *
35 //* Nlsoev(i) = lattice of the i_th source particle *
36 //* Losoev(i) = user flag of the i_th source particle *
37 //* Iusoev(j,i) = user flags of the i_th source particle *
38 //* Npsoev = number of the source particles *
40 //*----------------------------------------------------------------------*
42 const Int_t mxsoev = 100;
45 Double_t xsoevt[mxsoev];
46 Double_t ysoevt[mxsoev];
47 Double_t zsoevt[mxsoev];
48 Double_t txsoev[mxsoev];
49 Double_t tysoev[mxsoev];
50 Double_t tzsoev[mxsoev];
51 Double_t txpsov[mxsoev];
52 Double_t typsov[mxsoev];
53 Double_t tzpsov[mxsoev];
54 Double_t wtsoev[mxsoev];
55 Double_t pmsoev[mxsoev];
56 Double_t tksoev[mxsoev];
57 Double_t agsoev[mxsoev];
58 Double_t aksoev[mxsoev];
59 Double_t ussoev[mkbmx1][mxsoev];
64 Int_t iusoevo[mkbmx2][mxsoev];
68 #define SOUEVT COMMON_BLOCK(SOUEVT,souevt)
69 COMMON_BLOCK_DEF(souevtCommon,SOUEVT);