This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / finuc.inc
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:39  cernlib
6 * Geant
7 *
8 *
9 #ifndef CERNLIB_GEANT321_FINUC_INC
10 #define CERNLIB_GEANT321_FINUC_INC
11 *
12 *
13 * finuc.inc
14 *
15 *
16 *=== finuc ============================================================*
17 *
18 *----------------------------------------------------------------------*
19 *     Last change on 5 april 1990     by Alfredo Ferrari, INFN Milan   *
20 *     include file: finuc copy                   created 26/11/86 by pa*
21 *     note: if changed change finuc2 copy also                         *
22 *     changes: none                                                    *
23 *     included in the following subroutines or functions: not updated  *
24 *                                                                      *
25 *     description of the common block(s) and variable(s)               *
26 *                                                                      *
27 *     /finuc/ is the storage for secondaries created in event          *
28 *        np        = number of secondaries                             *
29 *        kpart(ip) = type of the secondary ip                          *
30 *        cxr(ip)   = direction cosine of the secondary ip              *
31 *                    with respect to x-axis                            *
32 *        cyr(ip)   = direction cosine of the secondary ip              *
33 *                    with respect to y-axis                            *
34 *        czr(ip)   = direction cosine of the secondary ip              *
35 *                    with respect to z-axis                            *
36 *        tki(ip)   = kinetic energy of secondary ip                    *
37 *        plr(ip)   = momentum of the secondary ip                      *
38 *        wei(ip)   = weight of the secondary ip                        *
39 *        tv        = excitation energy                                 *
40 *        tvcms     = actual excitation energy of the residual nucleus  *
41 *        tvrecl    = recoil kinetic energy of the residual nucleus     *
42 *        tvheav    = recoil kinetic energies of heavy (2-H, 3-H, 3-He, *
43 *                    4-He) fragments after evaporation                 *
44 *        tvbind    = approximate energy wasted in nuclear binding      *
45 *                    effects
46 *----------------------------------------------------------------------*
47 *
48       PARAMETER (MXP=999)
49       COMMON / FKFINU / CXR (MXP), CYR (MXP), CZR (MXP), TKI (MXP),
50      &                 PLR (MXP), WEI (MXP), TV, TVCMS, TVRECL, TVHEAV,
51      &                 TVBIND, NP0, NP, KPART (MXP)
52  
53
54 #endif