added stuff
[u/mrichter/AliRoot.git] / TFluka / Fsumcou.h
CommitLineData
380c2ff0 1#ifndef FSUMCOU_H
2#define FSUMCOU_H 1
b9d0a01d 3
4#include "cfortran.h"
5#include "Rtypes.h"
6
7#include "Fdimpar.h"
8
9extern "C" {
380c2ff0 10//*=== Sumcou ===========================================================*
b9d0a01d 11//*
12//*----------------------------------------------------------------------*
13//* *
380c2ff0 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: *
b9d0a01d 20//* *
380c2ff0 21//* (New version of the original STARS comon) *
b9d0a01d 22//* *
23//* *
380c2ff0 24//* Created on 15 may 1990 by Alfredo Ferrari & Paola Sala *
25//* Infn - Milan *
b9d0a01d 26//* *
380c2ff0 27//* Last change on 09-jul-05 by Alfredo Ferrari *
b9d0a01d 28//* *
29//* *
380c2ff0 30//* Variable description: *
b9d0a01d 31//* *
380c2ff0 32//* Ntstar = total number of stars generated (modulo 1000000000) *
33//* Neulow = total number of low energy neutron interactions *
b9d0a01d 34//* (modulo 1000000000) *
380c2ff0 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 *
b9d0a01d 40//* / 1000000000 *
380c2ff0 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 *
b9d0a01d 46//* different particle types *
380c2ff0 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 *
b9d0a01d 67//* and heavies if the evaporation module is *
68//* activated) *
380c2ff0 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 *
b9d0a01d 73//* evaporation module is activated) *
380c2ff0 74//* Edpsco(8,j) = by low energy neutrons (kerma due to low *
b9d0a01d 75//* energy neutrons transport is in effect) *
380c2ff0 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 *
b9d0a01d 80//* effects for low energy neutrons *
380c2ff0 81//* *
b9d0a01d 82//*----------------------------------------------------------------------*
83//*
84
85typedef struct {
6177a6a6 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];
cd4c194d 98 Double_t woptph;
b9d0a01d 99 Double_t wneulw;
380c2ff0 100 Double_t weipri;
b9d0a01d 101 Int_t numdec;
102 Int_t ntstar;
103 Int_t neulow;
cd4c194d 104 Int_t numoph;
b9d0a01d 105 Int_t mumdec;
106 Int_t mtstar;
107 Int_t meulow;
cd4c194d 108 Int_t mumoph;
6177a6a6 109} sumcouCommon;
110#define SUMCOU COMMON_BLOCK(SUMCOU,sumcou)
111COMMON_BLOCK_DEF(sumcouCommon,SUMCOU);
b9d0a01d 112}
113
114#endif