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