This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (NUCDAT)
1 *$ CREATE NUCDAT.ADD
2 *COPY NUCDAT
3 *                                                                      *
4 *=== nucdat ===========================================================*
5 *                                                                      *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     Include file Nucdat                                              *
9 *                                                                      *
10 *     Created on 20 april 1990  by            Alfredo Ferrari          *
11 *                                               INFN Milan             *
12 *                                                                      *
13 *     Last change on 08-nov-96                                         *
14 *                                                                      *
15 *     Included in the following routines:                              *
16 *                                                                      *
17 *            COREVT                                                    *
18 *            CORRIN                                                    *
19 *            DISTNU                                                    *
20 *            DRES                                                      *
21 *            EVDEEX                                                    *
22 *            EVENTV                                                    *
23 *            EVEVAP                                                    *
24 *            FEREVV                                                    *
25 *            FERHAV                                                    *
26 *            FEFCAV                                                    *
27 *            FEKFAV                                                    *
28 *            FPFCAV                                                    *
29 *            FPFRAV                                                    *
30 *            FVCOUL                                                    *
31 *            FVPESF                                                    *
32 *            FVPOSF                                                    *
33 *            FRBKIN                                                    *
34 *            INCINI                                                    *
35 *            NUCEVV                                                    *
36 *            NUCRIV                                                    *
37 *            PEANUT                                                    *
38 *            RAKEKV                                                    *
39 *            RBKEKV                                                    *
40 *            WSTOAP                                                    *
41 *                                                                      *
42 *----------------------------------------------------------------------*
43 *
44       PARAMETER ( AMUAMU = AMUGEV )
45 *     PARAMETER ( AMPROT = 0.9382796   D+00 )
46       PARAMETER ( AMPROT = AMPRTN )
47 *     PARAMETER ( AMNEUT = 0.9395731   D+00 )
48       PARAMETER ( AMNEUT = AMNTRN )
49       PARAMETER ( AMELEC = AMELCT )
50       PARAMETER ( R0NUCL = 1.12        D+00 )
51       PARAMETER ( RCCOUL = 1.7         D+00 )
52       PARAMETER ( COULPR = COUGFM )
53       PARAMETER ( AMHYDR = AMPRTN + AMELCT  )
54       PARAMETER ( AMHTON = AMHYDR - AMNTRN  )
55       PARAMETER ( AMNTOU = AMNTRN - AMUC12  )
56       PARAMETER ( AMUCSQ = AMUC12 * AMUC12 )
57       PARAMETER ( EBNDAV = HLFHLF * (AMPRTN + AMNTRN) - AMUC12 )
58 *   Gammin : threshold for deexcitation gammas production, set to 1 keV
59 *   (this means that up to 1 keV of energy unbalancing can occur
60 *    during an event)
61       PARAMETER ( GAMMIN = 1.0D-06 )
62       PARAMETER ( GAMNSQ = 2.0D+00 * GAMMIN * GAMMIN )
63 *   Tvepsi : "epsilon" for excitation energy, set to gammin / 100
64       PARAMETER ( TVEPSI = GAMMIN / 100.D+00 )
65 *
66       COMMON /NUCDAT/ AV0WEL,     APFRMX,     AEFRMX,     AEFRMA,
67      &                RDSNUC,     V0WELL (2), PFRMMX (2), EFRMMX (2),
68      &                EFRMAV (2), AMNUCL (2), AMNUSQ (2), EBNDNG (2),
69      &                VEFFNU (2), ESLOPE (2), PKMNNU (2), EKMNNU (2),
70      &                PKMXNU (2), EKMXNU (2), EKMNAV (2), EKINAV (2),
71      &                EXMNAV (2), EKUPNU (2), EXMNNU (2), EXUPNU (2),
72      &                ERCLAV (2), ESWELL (2), FINCUP (2), AMRCAV    ,
73      &                AMRCSQ    , ATO1O3    , ZTO1O3    , FRMRFC    ,
74      &                ELBNDE (0:100)
75