11 //*=== Genstk ===========================================================*
13 //*----------------------------------------------------------------------*
15 //* hadron GENerator STacK for FLUKA: (new version of old Finuc of *
16 //* FLUKA86 by J.Ranft) *
18 //* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! *
19 //* !!!! S E E A L S O I N C L U D E F I L E !!!! *
20 //* !!!! G E N S T K 2 !!!! *
21 //* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! *
23 //* Created on 20 january 1996 by Alfredo Ferrari & Paola Sala *
26 //* Last change on 15-may-05 by Alfredo Ferrari *
29 //* /Genstk/ is the storage for secondaries created in hadronic *
31 //* Np = total number of secondaries *
32 //* Kpart (ip) = (Paprop) id of the ip_th secondary *
33 //* Cxr (ip) = x-axis direction cosine of the ip_th secondary *
34 //* Cyr (ip) = y-axis direction cosine of the ip_th secondary *
35 //* Czr (ip) = z-axis direction cosine of the ip_th secondary *
36 //* Cxrpol (ip) = x-axis direction cosine of the ip_th secondary *
37 //* polarization vector (rest frame when applicable) *
38 //* Cyrpol (ip) = y-axis direction cosine of the ip_th secondary *
39 //* polarization vector (rest frame when applicable) *
40 //* Czrpol (ip) = z-axis direction cosine of the ip_th secondary *
41 //* polarization vector (rest frame when applicable) *
42 //* Tki (ip) = laboratory kinetic energy of ip_th secondary (GeV)*
43 //* Plr (ip) = laboratory momentum of the ip_th secondary (GeV/c)*
44 //* Wei (ip) = statistical weight of the ip_th secondary *
45 //* Agesec (ip) = "age" of the ip_th secondary with respect to the *
46 //* interaction time *
47 //* Tv = excitation energy (GeV) *
48 //* Tvcms = actual excitation energy of the residual nucleus *
49 //* Tvrecl = recoil kinetic energy of the residual nucleus *
50 //* Tvheav = recoil kinetic energies of heavy (2-H, 3-H, 3-He, *
51 //* 4-He) fragments after evaporation *
52 //* Tvbind = approximate energy wasted in nuclear binding *
53 //* effects (not yet operational) *
54 //* Infext (ip) = possible extra infos for the ip_th secondary * 2006.3
56 //*----------------------------------------------------------------------*
59 const Int_t mxp = mxpscs;
83 #define GENSTK COMMON_BLOCK(GENSTK,genstk)
84 COMMON_BLOCK_DEF(genstkCommon,GENSTK);