One constant corrected.
[u/mrichter/AliRoot.git] / TFluka / Fdimpar.h
CommitLineData
b9d0a01d 1#ifndef FDIMPAR_H
2#define FDIMPAR_H 1
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 *
24//* mxoutu = maximum number of output units *
25//* nallwp = number of allowed particles *
26//* nelemx = number of maximum allowed elements of a compound *
27//* mpdpdx = number of particle types for which em de/dx pro- *
28//* cesses (ion,pair,bremss) have to be computed *
29//* mxhttr = maximum number of (hit) target nucleons for a *
30//* given collision generation *
31//* icomax = maximum number of materials for compounds (equal *
32//* to the sum of the number of materials for every *
33//* compound ) *
34//* ichmax = maximum number of harmonic oscillator levels for *
35//* compounds (equal to the sum of the number of har- *
36//* monic oscillator levels for every compound ) *
37//* nstbis = number of stable isotopes recorded in common iso- *
38//* top *
39//* mxpabl = number of resonances inside hadrin common blocks *
40//* idmaxp = number of particles/resonances defined in common *
41//* part *
42//* idmxdc = number of particles/resonances decay channels *
43//* defined in common decayc *
44//* ihypmx = maximum number of hyperons in a hypernucleus *
45//* mkbmx1 = dimension for kwb real spare array in fluka stack *
46//* mkbmx2 = dimension for kwb int. spare array in fluka stack *
47//* *
48//*----------------------------------------------------------------------*
49//* *
50const Int_t mxxrgn = 10000;
51const Int_t mxxmdf = 210;
52const Int_t mxxmde = 202;
53const Int_t mfstck = 2500;
54const Int_t mestck = 100;
55const Int_t mostck = 2000;
56const Int_t mxprsn = 100;
57const Int_t mxpdpm = 800;
58const Int_t mxoutu = 50;
59const Int_t nallwp = 64;
60const Int_t nelemx = 80;
61const Int_t mpdpdx = 18;
d08bd346 62const Int_t mxhttr = 260;
b9d0a01d 63const Int_t icomax = 700;
64const Int_t ichmax = icomax+mxxmdf;
65const Int_t nstbis = 304;
66//* till 3-aug-99:
67//* const Int_t mxpabl = 110;
68const Int_t mxpabl = 120;
69const Int_t idmaxp = 450;
70const Int_t idmxdc = 2000;
71const Int_t mxmcin = 410;
72const Int_t ihypmx = 4;
73//* till 19-jul-2000:
74//* const Int_t mkbmx1 = 9;
75//* const Int_t mkbmx2 = 3;
76const Int_t mkbmx1 = 11;
77const Int_t mkbmx2 = 11;
78}
79
80#endif