DPMJET/flukapro/(DECAYC2)

   1 *$ CREATE DECAYC2.ADD
   2 *COPY DECAYC2
   3 *
   4 *=== Decayc2 ==========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     Include file: Decayc2 (new version of old Decayc2)               *
   9 *                                                                      *
  10 *     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!      *
  11 *     !!!!     S E E   A L S O   I N C L U D E   F I L E     !!!!      *
  12 *     !!!!                 D E C A Y C                       !!!!      *
  13 *     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!      *
  14 *                                                                      *
  15 *     Created on 07 february 1997  by    Alfredo Ferrari & Paola Sala  *
  16 *                                                   Infn - Milan       *
  17 *                                                                      *
  18 *     Last change on 07-feb-97     by    Alfredo Ferrari               *
  19 *                                                                      *
  20 *     Included in the following routines:                              *
  21 *                                                                      *
  22 *                AMPART                                                *
  23 *                BLKDT7                                                *
  24 *                CHANWT                                                *
  25 *                DATEST                                                *
  26 *                DECAY                                                 *
  27 *                DIFEVV                                                *
  28 *                HADDEN                                                *
  29 *                                                                      *
  30 *----------------------------------------------------------------------*
  31 *
  32       CHARACTER*8 ZKNAMC
  33       COMMON / DECAYC / WTC    (-6:IDMXDC), NZKC (-6:IDMXDC,3)
  34       COMMON / DCYCCH / ZKNAMC (-6:IDMXDC)
  35