]>
Commit | Line | Data |
---|---|---|
1 | #ifndef FSUMCOU_H | |
2 | #define FSUMCOU_H 1 | |
3 | ||
4 | #include "cfortran.h" | |
5 | #include "Rtypes.h" | |
6 | ||
7 | #include "Fdimpar.h" | |
8 | ||
9 | extern "C" { | |
10 | //*=== Sumcou ===========================================================* | |
11 | //* | |
12 | //*----------------------------------------------------------------------* | |
13 | //* * | |
14 | //* All additions wrt the original one are: * | |
15 | //* Copyright (C) 2005-2005 by Alfredo Ferrari & Paola Sala * | |
16 | //* All Rights Reserved. * | |
17 | //* * | |
18 | //* * | |
19 | //* SUMmary COUnters common for FLUKA9x/200x: * | |
20 | //* * | |
21 | //* (New version of the original STARS comon) * | |
22 | //* * | |
23 | //* * | |
24 | //* Created on 15 may 1990 by Alfredo Ferrari & Paola Sala * | |
25 | //* Infn - Milan * | |
26 | //* * | |
27 | //* Last change on 09-jul-05 by Alfredo Ferrari * | |
28 | //* * | |
29 | //* * | |
30 | //* Variable description: * | |
31 | //* * | |
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 * | |
40 | //* / 1000000000 * | |
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 * | |
55 | //* scoring is done * | |
56 | //* Weprdc(k,j) = weight of produced particles of different kind * | |
57 | //* Wlwnsc(k,j) = weight of the low energy neutrons interaction secon- * | |
58 | //* daries * | |
59 | //* Wophsc(k,j) = weight of optical photons production/interaction * | |
60 | //* secondaries * | |
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 * | |
68 | //* activated) * | |
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 * | |
81 | //* * | |
82 | //*----------------------------------------------------------------------* | |
83 | //* | |
84 | ||
85 | typedef struct { | |
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]; | |
98 | Double_t woptph; | |
99 | Double_t wneulw; | |
100 | Double_t weipri; | |
101 | Int_t numdec; | |
102 | Int_t ntstar; | |
103 | Int_t neulow; | |
104 | Int_t numoph; | |
105 | Int_t mumdec; | |
106 | Int_t mtstar; | |
107 | Int_t meulow; | |
108 | Int_t mumoph; | |
109 | } sumcouCommon; | |
110 | #define SUMCOU COMMON_BLOCK(SUMCOU,sumcou) | |
111 | COMMON_BLOCK_DEF(sumcouCommon,SUMCOU); | |
112 | } | |
113 | ||
114 | #endif |