13 //*=== stack ============================================================*
15 //*----------------------------------------------------------------------*
17 //* include file: stack copy created 26/11/86 by p*
19 //* changes: last change on 16-sep-1999 by alfredo ferrari *
22 //* included in the following subroutines or functions: not updated *
48 //* description of the common block(s) and variable(s) *
50 //* /stack/ stack for the primaries *
51 //* wt = weight of the particle *
52 //* pmom = laboratory momentum of the particle in gev/c *
53 //* tke = laboratory kinetic energy of the particle in gev *
54 //* xa = x-coordinate of the particle *
55 //* ya = y-coordinate of the particle *
56 //* za = z-coordinate of the particle *
57 //* tx = direction cosine of the particle *
58 //* with respect to x-axis *
59 //* ty = direction cosine of the particle *
60 //* with respect to y-axis *
61 //* tz = direction cosine of the particle *
62 //* with respect to z-axis *
63 //* txpol = direction cosine of the particle polarization *
64 //* typol = direction cosine of the particle polarization *
65 //* tzpol = direction cosine of the particle polarization *
66 //* txnor = direction cosine of a (possible) surface normal *
67 //* tynor = direction cosine of a (possible) surface normal *
68 //* tznor = direction cosine of a (possible) surface normal *
69 //* dfnear = distance to the nearest boundary *
70 //* agestk = age of the particle (seconds) *
71 //* aknshr = kshort component of k0/k0bar *
72 //* raddly = delay (s) in production wrt the nominal primary "0" *
73 //* time for particle produced in radioactive decays *
74 //* (i.e. those coming from decays of daughter isotopes) *
75 //* sparek = spare real variables available for k.w.burn *
76 //* ispark = spare integer variables available for k.w.burn *
77 //* ilo = type of the particle (see btype in /paprop/) *
78 //* igroup = energy group for low energy neutrons *
79 //* lo = generation of the particle *
80 //* louse = user flag *
81 //* nreg = number of the region of the particle *
82 //* nlattc = number of the lattice cell of the particle *
83 //* nhspnt = pointer to the history object (geant4 geometry) *
84 //* nevent = number of the event which created the particle *
85 //* numpar = particle number *
86 //* lraddc = flag for particles generated in radioactive decyas *
87 //* nparma = biggest particle number encountered *
88 //* mstack = size of the stack *
89 //* lstmax = highest value of the stack pointer encountered *
91 //* lstack = stack pointer *
92 //* lstaol = stack pointer of the last processed particle *
93 //* igroun = energy group number of the last processed particle *
94 //* if it is a low energy neutron *
96 //*----------------------------------------------------------------------*
100 Double_t xa[mfstck+1]; //(0:MFSTCK)
101 Double_t ya[mfstck+1]; //(0:MFSTCK)
102 Double_t za[mfstck+1]; //(0:MFSTCK)
103 Double_t tx[mfstck+1]; //(0:MFSTCK)
104 Double_t ty[mfstck+1]; //(0:MFSTCK)
105 Double_t tz[mfstck+1]; //(0:MFSTCK)
106 Double_t txpol[mfstck+1]; //(0:MFSTCK)
107 Double_t typol[mfstck+1]; //(0:MFSTCK)
108 Double_t tzpol[mfstck+1]; //(0:MFSTCK)
109 Double_t txnor[mfstck+1]; //(0:MFSTCK)
110 Double_t tynor[mfstck+1]; //(0:MFSTCK)
111 Double_t tznor[mfstck+1]; //(0:MFSTCK)
112 Double_t wt[mfstck+1]; //(0:MFSTCK)
113 Double_t pmom[mfstck+1]; //(0:MFSTCK)
114 Double_t tke[mfstck+1]; //(0:MFSTCK)
115 Double_t dfnear[mfstck+1]; //(0:MFSTCK)
116 Double_t agestk[mfstck+1]; //(0:MFSTCK)
117 Double_t aknshr[mfstck+1]; //(0:MFSTCK)
118 Double_t raddly[mfstck+1]; //(0:MFSTCK)
119 Double_t sparek[mfstck+1][mkbmx1]; //(MKBMX1,0:MFSTCK)
120 Int_t ispark[mfstck+1][mkbmx2]; //(MKBMX2,0:MFSTCK)
121 Int_t ilo[mfstck+1]; //(0:MFSTCK)
122 Int_t igroup[mfstck+1]; //(0:MFSTCK)
123 Int_t lo[mfstck+1]; //(0:MFSTCK)
124 Int_t louse[mfstck+1]; //(0:MFSTCK)
125 Int_t nreg[mfstck+1]; //(0:MFSTCK)
126 Int_t nlattc[mfstck+1]; //(0:MFSTCK)
127 Int_t nhspnt[mfstck+1]; //(0:MFSTCK)
128 Int_t nevent[mfstck+1]; //(0:MFSTCK)
129 Int_t numpar[mfstck+1]; //(0:MFSTCK)
130 Int_t lraddc[mfstck+1]; //(0:MFSTCK)
138 #define STACK COMMON_BLOCK(STACK,stack)
139 COMMON_BLOCK_DEF(stackCommon,STACK);