This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (MULHD)
1 *$ CREATE MULHD.ADD
2 *COPY MULHD
3 *
4 *=== mulhd ============================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *   Common mulhd for the new multiple scattering in Fluka              *
9 *                  created by A. Ferrari & P. Sala on 23-oct-1989      *
10 *                                                                      *
11 *   Last change   on  18-jun-97  by  Alfredo Ferrari, INFN-Milan       *
12 *          included in:                                                *
13 *                        bdnopt                                        *
14 *                        epilog                                        *
15 *                        flukam                                        *
16 *                        hmulrt                                        *
17 *                        kaskad                                        *
18 *                        mulhad                                        *
19 *                        mulmix                                        *
20 *                        stepop                                        *
21 *                                                                      *
22 *                        Mxxmdf = maximum number of media              *
23 *                                                                      *
24 *----------------------------------------------------------------------*
25 *
26       PARAMETER ( MXXPT1 = 1 )
27 *     PARAMETER ( TIMESS = 3.00D+00 )
28       PARAMETER ( TIMESS = 2.00D+00 )
29 *  Tmsrlx: times "relaxed" if the nuclear finite size correction must
30 *  not be taken into account
31 *     PARAMETER ( TMSRLX = 2.00D+00 )
32       PARAMETER ( TMSRLX = 1.50D+00 )
33 *     PARAMETER ( EPSINS = 0.10D+00 )
34       PARAMETER ( EPSINS = 0.15D+00 )
35 *  Epsrlx: epsins "relaxed" if the nuclear finite size correction must
36 *  not be taken into account
37 *     PARAMETER ( EPSRLX = 0.15D+00 )
38       PARAMETER ( EPSRLX = 0.50D+00 )
39 *  Sqepsn = sqrt (epsins)
40 *     PARAMETER ( SQEPSN = 0.3162277660168379 D+00 )
41       PARAMETER ( SQEPSN = 0.3872983346207417 D+00 )
42 *  Sqepsr = sqrt (epsrlx)
43 *     PARAMETER ( SQEPSR = 0.3872983346207417 D+00 )
44       PARAMETER ( SQEPSR = 0.7071067811865475 D+00 )
45       PARAMETER ( PARNSI = 1.732050807568877 D+00 * SQEPSN )
46       PARAMETER ( PRNSR0 = 1.732050807568877 D+00 * SQEPSR )
47 *     PARAMETER ( R0NCMS = 1.12 D+00 )
48       PARAMETER ( R0NCMS = 1.20 D+00 )
49       LOGICAL LTOPT, LSRCRH, LNSCRH, LHFANO, LMLRGH
50 *
51       COMMON / MULHD / BLCC   ( MXXMDF ), BLCCRA ( MXXMDF ),
52      &                 FANOLC ( MXXMDF ), ZDFANO ( MXXMDF ),
53      &                 XCC    ( MXXMDF ), ZTILDE ( MXXMDF, 0:MXXPT1 ),
54      &                 ALPZTL ( MXXMDF, 0:MXXPT1 ), RLDU   ( MXXMDF ),
55      &                 ALPZT2 ( MXXMDF, 0:MXXPT1 ), TEFF0  ( MXXMDF ),
56      &                 XR0    ( MXXMDF ), ECUTM  ( MXXMDF, -6:NALLWP,2),
57      &                 ESTEPF ( MXXMDF ), HTHNSZ ( MXXMDF, -6:NALLWP ),
58      &                 AE1O3  ( MXXMDF ), PARNSR ( MXXMDF ),
59      &                 HEESLI ( MXXMDF ), THMSPR, THMSSC, HMSAMP,
60      &                 HMREJE, HMSNGL,
61      &                 LSRCRH ( MXXMDF ), LNSCRH ( MXXMDF ),
62      &                 LTOPT  ( MXXMDF ), LHFANO ( MXXMDF ),
63      &                 NFSCAT, NFLLDA, LMLRGH, MULPRI, MULSEC
64