This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / parevt.inc
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:41  cernlib
6 * Geant
7 *
8 *
9 #ifndef CERNLIB_GEANT321_PAREVT_INC
10 #define CERNLIB_GEANT321_PAREVT_INC
11 *
12 *
13 * parevt.inc
14 *
15 *                                                                      *
16 *=== parevt ===========================================================*
17 *                                                                      *
18 *----------------------------------------------------------------------*
19 *                                                                      *
20 *     Created on 28-3-90 by A. Ferrari, INFN - Milan                   *
21 *                                                                      *
22 *     Last change  on  20 april  1992    by    Alfredo Ferrari         *
23 *                                                                      *
24 *           included in:                                               *
25 *                          fluka                                       *
26 *                          bdnopt                                      *
27 *                          corevt                                      *
28 *                          distnu                                      *
29 *                          epilog                                      *
30 *                          eventv                                      *
31 *                          evevap                                      *
32 *                          evvini                                      *
33 *                          evxtes                                      *
34 *                          ferevv                                      *
35 *                          kaskad                                      *
36 *                          incini                                      *
37 *                          nucevv                                      *
38 *                          pmprab                                      *
39 *           and in     :                                               *
40 *                          prenuc                                      *
41 *                          umofin                                      *
42 *                          bimsel                                      *
43 *                          nucnuc                                      *
44 *                          nwisel                                      *
45 *                          pioabs                                      *
46 *                          prepre                                      *
47 *                          rstsel                                      *
48 *                                                                      *
49 *           frdiff = fraction of the total number of events which are  *
50 *                    diffractive ones                                  *
51 *           pthdff = momentum threshold for diffractive events         *
52 *                    diffractive ones                                  *
53 *           fsprd0 = asymptotic reduction factor for cascade particle  *
54 *                    energy slope parameter                            *
55 *           fshpfn = modifying factor for bamjet momentum sharing jet  *
56 *                    function                                          *
57 *           rn1gsc = correlation factor between shower and grey part-  *
58 *                    ticle multiplicities                              *
59 *           rn2gsc = correlation factor between shower and grey part-  *
60 *                    ticle multiplicities                              *
61 *           dpower = power exponent used in the binomial distributions *
62 *                    for grey particles                                *
63 *           lpower = flag to signal if dpower is different from the    *
64 *                    default option (dpower=2)                         *
65 *           ldiffr = flag for particles undergoing diffractive events  *
66 *           linctv = flag to switch on/off cascade nucleons and exci-  *
67 *                    tation energy (it is important for testing the    *
68 *                    generator                                         *
69 *           levprt = flag for nuclear evaporation                      *
70 *           ldeexg = flag for nuclear deexcitation gammas              *
71 *           lgdhpr = flag for geometry dependent calculations in the   *
72 *                    preequilibrium part                               *
73 *           lpreex = flag for explicit treatment of the first inte-    *
74 *                    ctions in the preequilibrium part                 *
75 *           lhlfix = flag for "freezing" the hole depth of the holes   *
76 *                    produced in the explicitly treated interactions   *
77 *                    in the preequilibrium part                        *
78 *           lprfix = flag for "freezing" the already sampled particle  *
79 *                    exciton energy in the preequilibrium part         *
80 *           lparwv = flag to apply the Heisenberg principle according  *
81 *                    to the reduced DeBroglie wavelength in the calcu- *
82 *                    lation of the impact parameter and in computing   *
83 *                    the particle position after interactions          *
84 *           ilvmod = flag to select the level density option           *
85 *                                                                      *
86 *----------------------------------------------------------------------*
87 *
88 *
89 *  30% of events, randomly choosen, are diffractive events!!
90 *  Now 20% (J. Ranft & A. Ferrari, 25-3-90)
91 *
92       PARAMETER ( FRDIFF = 0.2D+00 )
93       PARAMETER ( PTHDFF = 8.5D+00 )
94       PARAMETER ( ETHSEA = 1.0D+00 )
95  
96       LOGICAL LDIFFR, LINCTV, LEVPRT, LHEAVY, LDEEXG, LGDHPR, LPREEX,
97      &        LHLFIX, LPRFIX, LPARWV, LPOWER
98       COMMON / FKPARE / DPOWER, FSPRD0, FSHPFN, RN1GSC, RN2GSC,
99      &                  LDIFFR (39),    LPOWER, LINCTV, LEVPRT, LHEAVY,
100      &                  LDEEXG, LGDHPR, LPREEX, LHLFIX, LPRFIX, LPARWV,
101      &                  ILVMOD
102  
103
104 #endif