beam replaced by beamcm
[u/mrichter/AliRoot.git] / TFluka / Fsumcou.h
CommitLineData
b9d0a01d 1#ifndef FSTARS_H
2#define FSTARS_H 1
3
4#include "cfortran.h"
5#include "Rtypes.h"
6
7#include "Fdimpar.h"
8
9extern "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
79typedef struct {
6177a6a6 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];
cd4c194d 92 Double_t woptph;
b9d0a01d 93 Double_t wneulw;
6177a6a6 94 Double_t weipri;
b9d0a01d 95 Int_t numdec;
96 Int_t ntstar;
97 Int_t neulow;
cd4c194d 98 Int_t numoph;
b9d0a01d 99 Int_t mumdec;
100 Int_t mtstar;
101 Int_t meulow;
cd4c194d 102 Int_t mumoph;
6177a6a6 103} sumcouCommon;
104#define SUMCOU COMMON_BLOCK(SUMCOU,sumcou)
105COMMON_BLOCK_DEF(sumcouCommon,SUMCOU);
b9d0a01d 106}
107
108#endif