This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (ELSSCT)
1 *$ CREATE ELSSCT.ADD
2 *COPY ELSSCT
3 *
4 *=== elssct ===========================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     p/n ELaStic SCaTtering informations:                             *
9 *                                                                      *
10 *     Created on 15-september-1993 by   Alfredo Ferrari & Paola Sala   *
11 *                                              INFN - MIlan            *
12 *                                                                      *
13 *     Last change  on  16-sep-93   by   Alfredo Ferrari, INFN-Milan    *
14 *                                                                      *
15 *----------------------------------------------------------------------*
16 *
17       PARAMETER ( R0ELNE = 1.4 D+00 )
18       PARAMETER ( R0ELPI = 1.3 D+00 )
19       PARAMETER ( N0ELSC = 152 )
20       PARAMETER ( D0ELSC = 0.005D+00 )
21       PARAMETER ( ELSI0M = ZERZER )
22       PARAMETER ( ELSI0X = ( N0ELSC - 2 ) * D0ELSC )
23       PARAMETER ( N1ELSC = 153 )
24       PARAMETER ( D1ELSC = 0.0015D+00 )
25       PARAMETER ( ELSI1M = ELSI0X - D1ELSC )
26       PARAMETER ( ELSI1X = ( N1ELSC - 2 ) * D1ELSC + ELSI1M )
27       PARAMETER ( N2ELSC = 152 )
28       PARAMETER ( D2ELSC = 0.000166D+00 )
29       PARAMETER ( ELSI2M = ELSI1X - D2ELSC )
30       PARAMETER ( ELSI2X = ( N2ELSC - 1 ) * D2ELSC + ELSI2M )
31       PARAMETER ( ELSIMX = ONEONE - 0.01D+00 * ELSI2X )
32       COMMON / ELSSCT / R0ELSC (NALLWP), XELJ00 (N0ELSC),
33      &                  XELJ01 (N1ELSC), XELJ02 (N2ELSC),
34      &                  XELJ10 (N0ELSC), XELJ11 (N1ELSC),
35      &                  XELJ12 (N2ELSC), ANRMJ0, AJ0DMP,
36      &                  XJ0MAX
37