This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / fheavy.inc
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:38  cernlib
6 * Geant
7 *
8 *
9 #ifndef CERNLIB_GEANT321_FHEAVY_INC
10 #define CERNLIB_GEANT321_FHEAVY_INC
11 *
12 *
13 * fheavy.inc
14 *
15 *
16 *=== fheavy ===========================================================*
17 *
18 *----------------------------------------------------------------------*
19 *     Last change on 9 March 1993     by Alfredo Ferrari, INFN Milan   *
20 *     include file: fheavy copy       created 5/4/90 by A. Ferrari     *
21 *     changes: none                                                    *
22 *     included in the following subroutines or functions: not updated  *
23 *                                                                      *
24 *     description of the common block(s) and variable(s)               *
25 *                                                                      *
26 *     /fheavy/ is the storage for heavy secondaries created in the     *
27 *              nuclear evaporation                                     *
28 *        npheav     = number of secondaries                            *
29 *        kheavy(ip) = type of the secondary ip                         *
30 *                   ( 3 = deuteron, 4 = 3-H, 5 = 3-He, 6 = 4-He,       *
31 *                     7-12 = "Heavy" fragment specified by Ibheav and  *
32 *                     Icheav )                                         *
33 *        cxheav(ip) = direction cosine of the secondary ip             *
34 *                     with respect to x-axis                           *
35 *        cyheav(ip) = direction cosine of the secondary ip             *
36 *                     with respect to y-axis                           *
37 *        czheav(ip) = direction cosine of the secondary ip             *
38 *                     with respect to z-axis                           *
39 *        tkheav(ip) = kinetic energy of secondary ip                   *
40 *        pheavy(ip) = momentum of the secondary ip                     *
41 *        wheavy(ip) = weight of the secondary ip                       *
42 *        amheav(ip) = atomic masses of the six types of evaporated     *
43 *                     particles                                        *
44 *        anheav(kp) = name of the kp-type heavy particle               *
45 *        icheav(kp) = charge of the kp-type heavy particle             *
46 *        ibheav(kp) = mass number of the kp-type heavy particle        *
47 *   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   *
48 *   !!! There is now the possibility to produce up to 6 "heavy" !!!!   *
49 *   !!! fragments besides the residual nucleus recorded in      !!!!   *
50 *   !!! Resnuc: they are identified by indeces 7-12, of course  !!!!   *
51 *   !!! the corresponding physical properties (Z,A,m..) must be !!!!   *
52 *   !!! updated every time they are produced                    !!!!   *
53 *   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   *
54 *----------------------------------------------------------------------*
55 *
56       PARAMETER ( MXHEAV = 100 )
57       CHARACTER*8 ANHEAV
58       COMMON / FKHEAV / CXHEAV (MXHEAV), CYHEAV (MXHEAV),
59      &                  CZHEAV (MXHEAV), TKHEAV (MXHEAV),
60      &                  PHEAVY (MXHEAV), WHEAVY (MXHEAV),
61      &                  AMHEAV  ( 12 ) ,
62      &                  KHEAVY (MXHEAV), ICHEAV  ( 12 ) ,
63      &                  IBHEAV  ( 12 ) , NPHEAV
64       COMMON / FKHEAC / ANHEAV  ( 12 )
65  
66
67 #endif