This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / 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