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