*$ CREATE DECAYC.ADD
*COPY DECAYC
*
*=== Decayc ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Include file: Decayc (new version of the old Decayc by the       *
*                           Leipzig group)                             *
*                                                                      *
*     Created on 07 february 1997  by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 07-feb-97     by    Alfredo Ferrari               *
*                                                                      *
*     Included in the following routines:                              *
*                                                                      *
*                AMPART                                                *
*                BLPRDC                                                *
*                CGDCYC                                                *
*                CHANWT                                                *
*                DATEST                                                *
*                DECAY                                                 *
*                DIFEVV                                                *
*                IGDCYC                                                *
*                RGDCYC                                                *
*                                                                      *
*----------------------------------------------------------------------*
*
      CHARACTER*8 ZKNAME
      COMMON / DECAYC / WT     (-6:IDMXDC), NZK  (-6:IDMXDC,3)
      COMMON / DCYCCH / ZKNAME (-6:IDMXDC)
      SAVE / DECAYC /, / DCYCCH /