Using TGeo to retrieve the mean material budget between two points (M.Ivanov)
[u/mrichter/AliRoot.git] / TFluka / Fdimpar.h
CommitLineData
b9d0a01d 1#ifndef FDIMPAR_H
5929ad29 2#define FDIMPAR_H
b9d0a01d 3
4#include "cfortran.h"
5#include "Rtypes.h"
6extern "C" {
7//*$ create dimpar.add
8//*copy dimpar
9//* *
10//*=== dimpar ===========================================================*
11//* *
12//*----------------------------------------------------------------------*
13//* *
14//* dimpar: included in any routine *
15//* *
16//* mxxrgn = maximum number of regions *
17//* mxxmdf = maximum number of media in fluka *
18//* mxxmde = maximum number of media in emf *
19//* mfstck = stack dimension in fluka *
20//* mestck = stack dimension in emf *
21//* mostck = stack dimension for optical photons *
22//* mxprsn = secondary stack dimension for resonance generator *
23//* mxpdpm = secondary stack dimension for dpm generators *
5929ad29 24//* Mxpscs = secondary stack dimension overall *
b9d0a01d 25//* mxoutu = maximum number of output units *
26//* nallwp = number of allowed particles *
27//* nelemx = number of maximum allowed elements of a compound *
28//* mpdpdx = number of particle types for which em de/dx pro- *
29//* cesses (ion,pair,bremss) have to be computed *
30//* mxhttr = maximum number of (hit) target nucleons for a *
31//* given collision generation *
32//* icomax = maximum number of materials for compounds (equal *
33//* to the sum of the number of materials for every *
34//* compound ) *
35//* ichmax = maximum number of harmonic oscillator levels for *
36//* compounds (equal to the sum of the number of har- *
37//* monic oscillator levels for every compound ) *
38//* nstbis = number of stable isotopes recorded in common iso- *
39//* top *
40//* mxpabl = number of resonances inside hadrin common blocks *
41//* idmaxp = number of particles/resonances defined in common *
42//* part *
43//* idmxdc = number of particles/resonances decay channels *
44//* defined in common decayc *
45//* ihypmx = maximum number of hyperons in a hypernucleus *
46//* mkbmx1 = dimension for kwb real spare array in fluka stack *
47//* mkbmx2 = dimension for kwb int. spare array in fluka stack *
48//* *
49//*----------------------------------------------------------------------*
50//* *
51const Int_t mxxrgn = 10000;
5929ad29 52const Int_t mxxmdf = 510;
53const Int_t mxxmde = 502;
2f0f2214 54const Int_t mfstck = 5500;
b9d0a01d 55const Int_t mestck = 100;
56const Int_t mostck = 2000;
57const Int_t mxprsn = 100;
58const Int_t mxpdpm = 800;
2f0f2214 59const Int_t mxpscs = 3999;
b9d0a01d 60const Int_t mxoutu = 50;
61const Int_t nallwp = 64;
62const Int_t nelemx = 80;
63const Int_t mpdpdx = 18;
d08bd346 64const Int_t mxhttr = 260;
b9d0a01d 65const Int_t icomax = 700;
66const Int_t ichmax = icomax+mxxmdf;
67const Int_t nstbis = 304;
68//* till 3-aug-99:
69//* const Int_t mxpabl = 110;
70const Int_t mxpabl = 120;
71const Int_t idmaxp = 450;
72const Int_t idmxdc = 2000;
73const Int_t mxmcin = 410;
74const Int_t ihypmx = 4;
75//* till 19-jul-2000:
76//* const Int_t mkbmx1 = 9;
77//* const Int_t mkbmx2 = 3;
78const Int_t mkbmx1 = 11;
79const Int_t mkbmx2 = 11;
80}
81
82#endif