stars replaced by sumcou common.
[u/mrichter/AliRoot.git] / TFluka / Fsumcou.h
1 #ifndef FSTARS_H
2 #define FSTARS_H 1
3
4 #include "cfortran.h"
5 #include "Rtypes.h"
6
7 #include "Fdimpar.h"
8
9 extern "C" {
10 //*$ create stars.add
11 //*copy stars
12 //*
13 //*=== stars ============================================================*
14 //*
15 //*----------------------------------------------------------------------*
16 //*                                                                      *
17 //*     stars common for fluka:                                          *
18 //*                                                                      *
19 //*     version for fluka90/99/... of the original one of fluka86        *
20 //*                                                                      *
21 //*                                                                      *
22 //*     created on    15 may 1990    by    alfredo ferrari & paola sala  *
23 //*                                                   infn - milan       *
24 //*                                                                      *
25 //*     last change on  07-oct-99    by    alfredo ferrari               *
26 //*                                                                      *
27 //*                                                                      *
28 //*     description of the common variable(s):                           *
29 //*                                                                      *
30 //*        ntstar = total number of stars generated (modulo 1000000000)  *
31 //*        neulow = total number of low energy neutron interactions      *
32 //*                (modulo 1000000000)                                   *
33 //*        numdec = total number of decays (modulo 1000000000)           *
34 //*        mtstar = total number of stars generated / 100000000          *
35 //*        meulow = total number of low energy neutron interactions      *
36 //*               / 1000000000                                           *
37 //*        mumdec = total number of decays (modulo 1000000000)           *
38 //*        wstars = total weight of the stars generated                  *
39 //*        wneulw = total weight of the low energy neutron interactions  *
40 //*        westar = weight of the stars generated by                     *
41 //*                 different particle types                             *
42 //*        westop = total weight of the particles stopped                *
43 //*        wstop  = weight of particles of different types stopped       *
44 //*        weisec = total weight of the secondaries created              *
45 //*        weifis = total weight of high energy fissions                 *
46 //*        weipri = total weight of the primaries handled                *
47 //*        edi    = deposited energy                                     *
48 //*                 edi(1) = by ionisation                               *
49 //*                 edi(2) = by pi-zeros and/or em cascade               *
50 //*                 edi(3) = by nuclear excitation (or nuclear recoil    *
51 //*                          and heavies if the evaporation module is    *
52 //*                          activated)                                  *
53 //*                 edi(4) = by stopped particles                        *
54 //*                 edi(5) = energy leaving the system                   *
55 //*                 edi(6) = energy carried by discarded particles       *
56 //*                 edi(7) = by residual excitation energy (only if the  *
57 //*                          evaporation module is activated)            *
58 //*                 edi(8) = by low energy neutrons (kerma due to low    *
59 //*                          energy neutrons transport is in effect)     *
60 //*                 edi(9) = energy carried by time killed particles     *
61 //*                 edi(10)= energy wasted for nuclear binding energy    *
62 //*                          effects for e > 50 mev                      *
63 //*                 edi(11)= energy wasted for nuclear binding energy    *
64 //*                          effects for low energy neutrons             *
65 //*        wdec   = weight of the particles decayed                      *
66 //*        wdau   = weight of the decay-products                         *
67 //*        wtkll  = weight of the time-killed particles                  *
68 //*        wtdec  = total weight of the particles decayed                *
69 //*        wtdau  = total weight of the decay products                   *
70 //*        wttkll = total weight of the time killed particles            *
71 //*        wlwnsc = weight of the low energy neutrons interaction secon- *
72 //*                 daries                                               *
73 //*        wdecct = weight of the particles decayed for which a c tau    *
74 //*                 scoring is done                                      *
75 //*        deccts = decay c tau scoring                                  *
76 //*----------------------------------------------------------------------*
77 //*
78
79 typedef struct {
80    Double_t westar[2][nallwp+7];
81    Double_t westop[2][nallwp+7];
82    Double_t wedaug[2][nallwp+7];
83    Double_t wekill[2][nallwp+7];
84    Double_t wedecy[2][nallwp+7];
85    Double_t weifis[2][nallwp+7];
86    Double_t deccts[2][nallwp+7];
87    Double_t wdecct[2][nallwp+7];
88    Double_t weprdc[2][nallwp+7];
89    Double_t wlwnsc[2][4];
90    Double_t wophsc[2][4];
91    Double_t edpsco[2][11];
92    Double_t woptph;
93    Double_t wneulw;
94     Double_t weipri;
95    Int_t    numdec;
96    Int_t    ntstar;
97    Int_t    neulow;
98    Int_t    numoph;
99    Int_t    mumdec;
100    Int_t    mtstar;
101    Int_t    meulow;
102    Int_t    mumoph;
103 } sumcouCommon;
104 #define SUMCOU COMMON_BLOCK(SUMCOU,sumcou)
105 COMMON_BLOCK_DEF(sumcouCommon,SUMCOU);
106 }
107
108 #endif