Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / nucdat.inc
CommitLineData
fe4da5cc 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