Common blocks to access material properties and
[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" {
b9d0a01d 7//*----------------------------------------------------------------------*
8//* *
71dd9297 9//* DIMPAR: included in any routine *
b9d0a01d 10//* *
71dd9297 11//* Mxxrgn = maximum number of regions *
12//* Mxxmdf = maximum number of media in Fluka *
13//* Mxxmde = maximum number of media in Emf *
14//* Mfstck = stack dimension in Fluka *
15//* Mestck = stack dimension in Emf *
16//* Mostck = stack dimension for optical photons *
17//* Mxprsn = secondary stack dimension for resonance generator *
18//* Mxpdpm = secondary stack dimension for DPM generators *
5929ad29 19//* Mxpscs = secondary stack dimension overall *
71dd9297 20//* Mxoutu = maximum number of output units *
21//* Nallwp = number of allowed particles *
22//* Nelemx = number of maximum allowed elements of a compound *
23//* or mixture *
24//* Mpdpdx = number of particle types for which EM dE/dx pro- *
b9d0a01d 25//* cesses (ion,pair,bremss) have to be computed *
71dd9297 26//* Mxhttr = maximum number of (hit) target nucleons for a *
b9d0a01d 27//* given collision generation *
71dd9297 28//* Icomax = maximum number of materials for compounds/mixtures *
29//* (equal to the sum of the number of materials for *
30//* every compound/mixture) *
31//* Ichmax = maximum number of harmonic oscillator levels for *
32//* compounds/mixtures (equal to the sum of the number *
33//* of harmonic oscillator levels for every compound *
34//* /mixture) *
35//* Nstbis = number of stable isotopes recorded in common iso- *
b9d0a01d 36//* top *
71dd9297 37//* Nqstis = number of "quasi" stable isotopes which are not *
38//* in the standard isotopic composition of a given *
39//* element, but for which special data (like GDR data)*
40//* are anyway available *
41//* Ntstis = total number of stable ans "quasi" stable isotopes *
42//* Mxpabl = number of resonances inside Hadrin common blocks *
43//* Idmaxp = number of particles/resonances defined in common *
b9d0a01d 44//* part *
71dd9297 45//* Idmxdc = number of particles/resonances decay channels *
b9d0a01d 46//* defined in common decayc *
71dd9297 47//* Ihypmx = maximum number of hyperons in a hypernucleus *
48//* Mkbmx1 = dimension for KWB real spare array in Fluka Stack *
49//* Mkbmx2 = dimension for KWB int. spare array in Fluka Stack *
380c2ff0 50//* Mxirrd = maximum number of irradiation sub-intervals *
51//* Mxtrdc = maximum number of decay (cooling) times *
52//* Nktl = overall dimension parameter for EMF bremsstrahlung *
b9d0a01d 53//* *
71dd9297 54//*----------------------------------------------------------------------*
55
9dcaa1ee 56 const Int_t mxxrgn = 20000;
9ed1543d 57// const Int_t mxxmdf = 510;
58// const Int_t mxxmde = 502;
59 const Int_t mxxmdf = 710; // 2006.3
60 const Int_t mxxmde = 702; // 2006.3
61 const Int_t mfstck = 6500;
62 const Int_t mestck = 100;
63 const Int_t mostck = 2000;
64 const Int_t mxprsn = 100;
65 const Int_t mxpdpm = 800;
66 const Int_t mxpscs = 4999;
67 const Int_t mxoutu = 50;
68 const Int_t nallwp = 64;
69 const Int_t nelemx = 80;
70 const Int_t mpdpdx = 18;
71 const Int_t mxhttr = 260;
72 const Int_t mxseax = 20; // 2006.3
73 const Int_t mxhtnc = mxseax + 1; // 2006.3
74// const Int_t icomax = 1000;
75 const Int_t icomax = 2400; // 2006.3
76 const Int_t ichmax = icomax+mxxmdf;
77 const Int_t nstbis = 304;
78 const Int_t nqstis = 46;
79 const Int_t ntstis = nstbis + nqstis;
71dd9297 80
b9d0a01d 81//* till 3-aug-99:
82//* const Int_t mxpabl = 110;
9ed1543d 83 const Int_t mxpabl = 120;
84 const Int_t idmaxp = 450;
85 const Int_t idmxdc = 2000;
86 const Int_t mxmcin = 410;
87 const Int_t ihypmx = 4;
b9d0a01d 88//* till 19-jul-2000:
89//* const Int_t mkbmx1 = 9;
90//* const Int_t mkbmx2 = 3;
9ed1543d 91 const Int_t mkbmx1 = 11;
92 const Int_t mkbmx2 = 11;
9dcaa1ee 93 const Int_t mxirrd = 100;
94 const Int_t mxtrdc = 120;
9ed1543d 95 const Int_t nktl = 17;
b9d0a01d 96}
97
98#endif