This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / nucdat.inc
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:40  cernlib
6 * Geant
7 *
8 *
9 #ifndef CERNLIB_GEANT321_NUCDAT_INC
10 #define CERNLIB_GEANT321_NUCDAT_INC
11 *
12 *
13 * nucdat.inc
14 *
15 *                                                                     *
16 *=== nucdat ==========================================================*
17 *                                                                     *
18 *---------------------------------------------------------------------*
19 *                                                                     *
20 *     Include file Nucdat                                             *
21 *                                                                     *
22 *     Created on 20 april 1990  by            Alfredo Ferrari         *
23 *                                               INFN Milan            *
24 *                                                                     *
25 *     Last change on 09-jun-92                                        *
26 *                                                                     *
27 *     Included in the following routines:                             *
28 *                                                                     *
29 *            COREVT                                                   *
30 *            CORRIN                                                   *
31 *            DISTNU                                                   *
32 *            DRES                                                     *
33 *            EVDEEX                                                   *
34 *            EVENTV                                                   *
35 *            EVEVAP                                                   *
36 *            FEREVV                                                   *
37 *            FERHAV                                                   *
38 *            INCINI                                                   *
39 *            NUCEVV                                                   *
40 *            NUCRIV                                                   *
41 *            RAKEKV                                                   *
42 *            RBKEKV                                                   *
43 *            EVENTQ                                                   *
44 *            NUCRIN                                                   *
45 *                                                                     *
46 *---------------------------------------------------------------------*
47 *
48       PARAMETER ( AMUAMU = 0.93149432  D+00 )
49 *     PARAMETER ( AMPROT = 0.9382796   D+00 )
50       PARAMETER ( AMPROT = 0.93827231  D+00 )
51 *     PARAMETER ( AMNEUT = 0.9395731   D+00 )
52       PARAMETER ( AMNEUT = 0.93956563  D+00 )
53       PARAMETER ( AMELEC = AMELCT )
54       PARAMETER ( R0NUCL = 1.12        D+00 )
55       PARAMETER ( RCCOUL = 1.7         D+00 )
56       PARAMETER ( COULPR = 0.001439965 D+00 )
57 *     PARAMETER ( FERTHO = 15.73       D-09 )
58 *     PARAMETER ( EXPEBN = 7.D+00 / 3.D+00  )
59 *     PARAMETER ( BEXC12 = FERTHO * 65.41634134195703D+00 )
60       PARAMETER ( FERTHO = 14.33       D-09 )
61       PARAMETER ( EXPEBN = 2.39        D+00 )
62       PARAMETER ( BEXC12 = FERTHO * 72.40715579499394D+00 )
63       PARAMETER ( AMUC12 = AMUAMU - AMELEC / 2.D+00 - BEXC12 / 12.D+00 )
64       PARAMETER ( AMHYDR = AMPROT + AMELEC  )
65       PARAMETER ( AMHTON = AMHYDR - AMNEUT  )
66       PARAMETER ( AMNTOU = AMNEUT - AMUC12  )
67       PARAMETER ( AMUCSQ = AMUC12 * AMUC12 )
68       PARAMETER ( EBNDAV = 0.5D+00 * (AMPROT + AMNEUT) - AMUC12 )
69 *   Gammin : threshold for deexcitation gammas production, set to 1 keV
70 *   (this means that up to 1 keV of energy unbalancing can occur
71 *    during an event)
72       PARAMETER ( GAMMIN = 1.0D-06 )
73       PARAMETER ( GAMNSQ = 2.0D+00 * GAMMIN * GAMMIN )
74 *   Tvepsi : "epsilon" for excitation energy, set to gammin / 100
75       PARAMETER ( TVEPSI = GAMMIN / 100.D+00 )
76 *
77       COMMON /FKNUDA/ AV0WEL,     APFRMX,     AEFRMX,     AEFRMA,
78      &                RDSNUC,     V0WELL (2), PFRMMX (2), EFRMMX (2),
79      &                EFRMAV (2), AMNUCL (2), AMNUSQ (2), EBNDNG (2),
80      &                VEFFNU (2), ESLOPE (2), PKMNNU (2), EKMNNU (2),
81      &                PKMXNU (2), EKMXNU (2), EKMNAV (2), EKINAV (2),
82      &                EXMNAV (2), EKUPNU (2), EXMNNU (2), EXUPNU (2),
83      &                ERCLAV (2), ESWELL (2), FINCUP (2), AMRCAV    ,
84      &                AMRCSQ    , ATO1O3    , ZTO1O3    , ELBNDE (0:100)
85  
86
87 #endif