5 * Revision 1.1.1.1 1995/10/24 10:20:38 cernlib
9 #ifndef CERNLIB_GEANT321_FHEAVY_INC
10 #define CERNLIB_GEANT321_FHEAVY_INC
16 *=== fheavy ===========================================================*
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 *
22 * included in the following subroutines or functions: not updated *
24 * description of the common block(s) and variable(s) *
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 *
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 *
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 *----------------------------------------------------------------------*
56 PARAMETER ( MXHEAV = 100 )
58 COMMON / FKHEAV / CXHEAV (MXHEAV), CYHEAV (MXHEAV),
59 & CZHEAV (MXHEAV), TKHEAV (MXHEAV),
60 & PHEAVY (MXHEAV), WHEAVY (MXHEAV),
62 & KHEAVY (MXHEAV), ICHEAV ( 12 ) ,
63 & IBHEAV ( 12 ) , NPHEAV
64 COMMON / FKHEAC / ANHEAV ( 12 )