DPMJET/flukapro/(PART3)

   1 *$ CREATE PART3.ADD
   2 *COPY PART3
   3 *
   4 *=== part3 ============================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     Include file: part3 copy       Revised on 20-08-96 by A. Ferrari *
   9 *                                                                      *
  10 *     Last change   on   14-oct-00     by       Alfredo Ferrari        *
  11 *                                                                      *
  12 *     Included in the following subroutines or functions:              *
  13 *                                                                      *
  14 *     W A R N I N G !!!! check also part and part2 for any change!!!   *
  15 *                                                                      *
  16 *     Description of the common block(s) and variable(s)               *
  17 *                                                                      *
  18 *            Amc = particle mass (GeV/c^2)                             *
  19 *            Gac = particle width (GeV)                                *
  20 *           Tauc = particle mean life (s)                              *
  21 *         Amdcsc = "effective" particle mass for energy balance (GeV)  *
  22 *         Zmnabs = lower width (adimensional unit) to be used during   *
  23 *                  particle decay to assure that at least one decay    *
  24 *                  channel is physically open                          *
  25 *         Atnmna = atan (Zmnabs)                                       *
  26 *           Ichc = particle electric charge                            *
  27 *          Ibarc = particle baryon number                              *
  28 *         Isosym = index of the isospin reversed (T_z --> -T_z)        *
  29 *                  particle (if any, if 0 no such particle is available*
  30 *                  in the part listing)                                *
  31 *         Ichcon = index of the charge conjugated (antiparticle)       *
  32 *                  particle (if any, if 0 no such particle is available*
  33 *                  in the part listing)                                *
  34 *            K1c = index of first decay channel                        *
  35 *            K2c = index of last  decay channel                        *
  36 *         Kptoip = conversion from part to paprop numbering            *
  37 *         Iptokp = conversion from paprop to part numbering            *
  38 *         Kptoia = conversion from part to abltis numbering            *
  39 *         Iatokp = conversion from abltis to part numbering            *
  40 *         Idcflg = decay flag                                          *
  41 *         Iptype = particle type                                       *
  42 *                  -1: heavy fragments                                 *
  43 *                   0: unknown particle or lepton                      *
  44 *                   1: nucleon                                         *
  45 *                   2: antinucleon                                     *
  46 *                   3: pion                                            *
  47 *                   4: K+/K0                                           *
  48 *                  -4: Kshrt/Klong                                     *
  49 *                   5: K-/K0bar                                        *
  50 *                   6: Lamda/Sigma   (strangeness -1 hyperon)          *
  51 *                   7: Xsi           (strangeness -2 hyperon)          *
  52 *                   8: Omega         (strangeness -3 hyperon)          *
  53 *                   9: ALamda/ASigma (strangeness +1 antihyperon)      *
  54 *                  10: AXsi          (strangeness +2 antihyperon)      *
  55 *                  11: AOmega        (strangeness +3 antihyperon)      *
  56 *                  12: D+/D0                                           *
  57 *                  13: D-/D0bar                                        *
  58 *                  14: D_s+/D_s-                                       *
  59 *                  15: Lambda_c+                                       *
  60 *                  16: Xsi_c+/Xsi_c0                                   *
  61 *                  17: Xsi'_c+/Xsi'_c0                                 *
  62 *                  18: Omega_c                                         *
  63 *                  19: ALambda_c+                                      *
  64 *                  20: AXsi_c-/AXsi_c0                                 *
  65 *                  21: AXsi'_c-/AXsi'_c0                               *
  66 *                  22: AOmega_c                                        *
  67 *          Aname = particle literal name                               *
  68 *                                                                      *
  69 *----------------------------------------------------------------------*
  70 *
  71       CHARACTER*8  ANAMC
  72       COMMON / PART /  AMC    (-6:IDMAXP), GAC    (-6:IDMAXP),
  73      &                 TAUC   (-6:IDMAXP), AMCDSC (-6:IDMAXP),
  74      &                 ZMNABS (-6:IDMAXP), ATNMNA (-6:IDMAXP),
  75      &                 ICHC   (-6:IDMAXP), IBARC  (-6:IDMAXP),
  76      &                 ISOSYM (-6:IDMAXP), ICHCON (-6:IDMAXP),
  77      &                 K1C    (-6:IDMAXP), K2C    (-6:IDMAXP),
  78      &                 KPTOIP (-6:IDMAXP), IPTOKP (-6:NALLWP),
  79      &                 KPTOIA (-6:IDMAXP), IATOKP (-6:MXPABL),
  80      &                 IDCFLG (-6:NALLWP), IPTYPE (-6:NALLWP)
  81       COMMON / CHPART / ANAMC (-6:IDMAXP)
  82