DPMJET/flukapro/(RESNUC)

   1 *$ CREATE RESNUC.ADD
   2 *COPY RESNUC
   3 *                                                                     *
   4 *=== resnuc ==========================================================*
   5 *                                                                     *
   6 *---------------------------------------------------------------------*
   7 *                                                                     *
   8 *     Include file Resnuc                                             *
   9 *                                                                     *
  10 *     Created on 20 april 1990  by            Alfredo Ferrari         *
  11 *                                               INFN Milan            *
  12 *                                                                     *
  13 *     Last change on  09-nov-99 by  Alfredo Ferrari, INFN - Milan     *
  14 *                                                                     *
  15 *     Included in the following routines:                             *
  16 *                                                                     *
  17 *            BDNOPT                                                   *
  18 *            BIMSEL                                                   *
  19 *            BSELSC                                                   *
  20 *            COREVT                                                   *
  21 *            CORRIN                                                   *
  22 *            DISTNU                                                   *
  23 *            EVDEEX                                                   *
  24 *            EVENTV                                                   *
  25 *            EVEVAP                                                   *
  26 *            EVXTES                                                   *
  27 *            FEREVV                                                   *
  28 *            FERHAV                                                   *
  29 *            FKBIRK                                                   *
  30 *            FVCOUL                                                   *
  31 *            HDNCIN                                                   *
  32 *            KAONUC                                                   *
  33 *            KASKAD                                                   *
  34 *            KASHEA                                                   *
  35 *            KASNEU                                                   *
  36 *            LOWRES                                                   *
  37 *            MUOABS                                                   *
  38 *            MUPRAB                                                   *
  39 *            NUCDCY                                                   *
  40 *            NUCEVV                                                   *
  41 *            NUCNUC                                                   *
  42 *            NUCREL                                                   *
  43 *            NUCRIV                                                   *
  44 *            PEANUT                                                   *
  45 *            PHNCEV                                                   *
  46 *            PHNVEV                                                   *
  47 *            PIABTH                                                   *
  48 *            PIOABS                                                   *
  49 *            PIONUC                                                   *
  50 *            PMPRAB                                                   *
  51 *            PPHCHO                                                   *
  52 *            PREPRE                                                   *
  53 *            RAKEKV                                                   *
  54 *            RSTSEL                                                   *
  55 *            UMFNST                                                   *
  56 *            UMOFIN                                                   *
  57 *            USRSRN                                                   *
  58 *            WSTOAP                                                   *
  59 *            VPOKAO                                                   *
  60 *            VPOPIO                                                   *
  61 *                                                                     *
  62 *     Description of variables (incomplete):                          *
  63 *                                                                     *
  64 *             Icres = residual nucleus atomic number                  *
  65 *             Ibres = residual nucleus mass   number                  *
  66 *            Istres = residual nucleus stable   level index           *
  67 *            Ismres = residual nucleus isomeric state index           *
  68 *            Ihyres = residual nucleus hyperon number                 *
  69 *            Amnres = residual nucleus nuclear mass                   *
  70 *            Ammres = residual nucleus atomic  mass                   *
  71 *              Eres = residual nucleus total   energy                 *
  72 *             Ekres = residual nucleus kinetic energy                 *
  73 *         Px,y,zres = residual nucleus momentum components            *
  74 *            Ptres2 = residual nucleus squared momentum               *
  75 *            Angres = residual nucleus angular momentum (GeV/c fm)    *
  76 *        Anx,y,zres = residual nucleus angular momentum components    *
  77 *        Khyres(jp) = id of the jp_th hyperon in the residual nucleus *
  78 *        Bhyres(jp) = (nuclear) binding energy of the jp_th hyperon   *
  79 *                     in the residual nucleus                         *
  80 *                                                                     *
  81 *                                                                     *
  82 *                                                                     *
  83 *---------------------------------------------------------------------*
  84 *
  85       LOGICAL LRNFSS, LFRAGM
  86       COMMON /RESNUC/  AMNTAR, AMMTAR, AMNZM1, AMMZM1, AMNNM1, AMMNM1,
  87      &                   ANOW,   ZNOW, ANCOLL, ZNCOLL, AMMLFT, AMNLFT,
  88      &                   ERES,  EKRES, AMNRES, AMMRES,  PTRES,  PXRES,
  89      &                  PYRES,  PZRES, PTRES2, ANGRES, ANXRES, ANYRES,
  90      &                 ANZRES, BHYRES (IHYPMX),
  91      &                  KTARP,  KTARN, IGREYP, IGREYN, IPDPM0, IPDPM1,
  92      &                 IPREEH, IPRDEU, IPRTRI, IPR3HE, IPR4HE,  ICRES,
  93      &                  IBRES, ISTRES, ISMRES, IHYRES, IEVAPL, IEVAPH,
  94      &                 IEVPHO, IEVNEU, IEVPRO, IEVDEU, IEVTRI, IEV3HE,
  95      &                 IEV4HE, IDEEXG,  IBTAR, ICHTAR, IBLEFT, ICLEFT,
  96      &                 IOTHER, KHYRES (IHYPMX), LRNFSS, LFRAGM
  97