10 //*=== Sumcou ===========================================================*
12 //*----------------------------------------------------------------------*
14 //* All additions wrt the original one are: *
15 //* Copyright (C) 2005-2005 by Alfredo Ferrari & Paola Sala *
16 //* All Rights Reserved. *
19 //* SUMmary COUnters common for FLUKA9x/200x: *
21 //* (New version of the original STARS comon) *
24 //* Created on 15 may 1990 by Alfredo Ferrari & Paola Sala *
27 //* Last change on 09-jul-05 by Alfredo Ferrari *
30 //* Variable description: *
32 //* Ntstar = total number of stars generated (modulo 1000000000) *
33 //* Neulow = total number of low energy neutron interactions *
34 //* (modulo 1000000000) *
35 //* Numdec = total number of decays (modulo 1000000000) *
36 //* Numoph = total number of optical photons generated *
37 //* (modulo 1000000000) *
38 //* Mtstar = total number of stars generated / 100000000 *
39 //* Meulow = total number of low energy neutron interactions *
41 //* Mumdec = total number of decays / 1000000000 *
42 //* Mumoph = total number of optical photons generated /1000000000*
43 //* Wneulw(k,j) = total weight of the low energy neutron interactions *
44 //* Woptph(k,j) = total weight of generated optical photons *
45 //* Westar(k,j) = weight of the stars generated by *
46 //* different particle types *
47 //* Westop(k,j) = weight of particles of different types stopped *
48 //* Wedaug(k,j) = weight of the decay products *
49 //* Wekill(k,j) = weight of the time-killed particles *
50 //* Wedecy(k,j) = weight of the particles decayed *
51 //* Weifis(k,j) = weight of high energy fissions generated by particles*
52 //* of different kind *
53 //* Deccts(k,j) = decay c tau scoring *
54 //* Wdecct(k,j) = weight of the particles decayed for which a c tau *
56 //* Weprdc(k,j) = weight of produced particles of different kind *
57 //* Wlwnsc(k,j) = weight of the low energy neutrons interaction secon- *
59 //* Wophsc(k,j) = weight of optical photons production/interaction *
61 //* Weipri = total weight of the primaries handled *
62 //* Edpsco(i,j) = energy deposition scoring (j = 1: prompt particles, *
63 //* j = 2: decay particles) *
64 //* Edpsco(1,j) = by ionisation *
65 //* Edpsco(2,j) = by pi-zeros and/or EM cascade *
66 //* Edpsco(3,j) = by nuclear excitation (or nuclear recoil *
67 //* and heavies if the evaporation module is *
69 //* Edpsco(4,j) = by stopped particles *
70 //* Edpsco(5,j) = energy leaving the system *
71 //* Edpsco(6,j) = energy carried by discarded particles *
72 //* Edpsco(7,j) = by residual excitation energy (only if the *
73 //* evaporation module is activated) *
74 //* Edpsco(8,j) = by low energy neutrons (kerma due to low *
75 //* energy neutrons transport is in effect) *
76 //* Edpsco(9,j) = energy carried by time killed particles *
77 //* Edpsco(10,j)= energy wasted for nuclear binding energy *
78 //* effects for (low energy neutrons excluded) *
79 //* Edpsco(11,j)= energy wasted for nuclear binding energy *
80 //* effects for low energy neutrons *
82 //*----------------------------------------------------------------------*
86 Double_t westar[2][nallwp+7];
87 Double_t westop[2][nallwp+7];
88 Double_t wedaug[2][nallwp+7];
89 Double_t wekill[2][nallwp+7];
90 Double_t wedecy[2][nallwp+7];
91 Double_t weifis[2][nallwp+7];
92 Double_t deccts[2][nallwp+7];
93 Double_t wdecct[2][nallwp+7];
94 Double_t weprdc[2][nallwp+7];
95 Double_t wlwnsc[2][4];
96 Double_t wophsc[2][4];
97 Double_t edpsco[2][11];
110 #define SUMCOU COMMON_BLOCK(SUMCOU,sumcou)
111 COMMON_BLOCK_DEF(sumcouCommon,SUMCOU);