DPMJET/flukapro/(FINUC)

   1 *$ CREATE FINUC.ADD
   2 *COPY FINUC
   3 *
   4 *=== finuc ============================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     Include file: Finuc (new version of old Finuc of FLUKA86)        *
   9 *                                                                      *
  10 *     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!      *
  11 *     !!!!     S E E   A L S O   I N C L U D E   F I L E     !!!!      *
  12 *     !!!!                 F I N U C 2                       !!!!      *
  13 *     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!      *
  14 *                                                                      *
  15 *     Created on  20 january 1996  by    Alfredo Ferrari & Paola Sala  *
  16 *                                                   Infn - Milan       *
  17 *                                                                      *
  18 *     Last change on 26-jul-97     by    Alfredo Ferrari               *
  19 *                                                                      *
  20 *     included in the following subroutines or functions: not updated  *
  21 *                                                                      *
  22 *     description of the common block(s) and variable(s)               *
  23 *                                                                      *
  24 *     /finuc/ is the storage for secondaries created in event          *
  25 *        np        = number of secondaries                             *
  26 *       kpart (ip) = type of the secondary ip                          *
  27 *         cxr (ip) = direction cosine of the secondary ip              *
  28 *                    with respect to x-axis                            *
  29 *         cyr (ip) = direction cosine of the secondary ip              *
  30 *                    with respect to y-axis                            *
  31 *         czr (ip) = direction cosine of the secondary ip              *
  32 *                    with respect to z-axis                            *
  33 *      cxrpol (ip) = direction cosine of the secondary ip polarization *
  34 *                    with respect to x-axis                            *
  35 *      cyrpol (ip) = direction cosine of the secondary ip polarization *
  36 *                    with respect to y-axis                            *
  37 *      czrpol (ip) = direction cosine of the secondary ip polarization *
  38 *                    with respect to z-axis                            *
  39 *         tki (ip) = kinetic energy of secondary ip                    *
  40 *         plr (ip) = momentum of the secondary ip                      *
  41 *         wei (ip) = weight of the secondary ip                        *
  42 *      agesec (ip) = "age" of the secondary ip with respect to the     *
  43 *                    interaction time                                  *
  44 *        tv        = excitation energy                                 *
  45 *        tvcms     = actual excitation energy of the residual nucleus  *
  46 *        tvrecl    = recoil kinetic energy of the residual nucleus     *
  47 *        tvheav    = recoil kinetic energies of heavy (2-H, 3-H, 3-He, *
  48 *                    4-He) fragments after evaporation                 *
  49 *        tvbind    = approximate energy wasted in nuclear binding      *
  50 *                    effects (not yet operational)                     *
  51 *                                                                      *
  52 *----------------------------------------------------------------------*
  53 *
  54       PARAMETER (MXP=999)
  55 *
  56       COMMON / FINUC / CXR    (MXP), CYR    (MXP), CZR    (MXP),
  57      &                 CXRPOL (MXP), CYRPOL (MXP), CZRPOL (MXP),
  58      &                 TKI    (MXP), PLR    (MXP), WEI    (MXP),
  59      &                 AGESEC (MXP), TV, TVCMS, TVRECL, TVHEAV, TVBIND,
  60      &                 NP0, NP, KPART  (MXP)
  61