This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (CMSRES)
1 *$ CREATE CMSRES.ADD
2 *COPY CMSRES
3 *
4 *=== cmsres ===========================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     New version of CMSRES:                                           *
9 *                                                                      *
10 *     Created on  20-january-1996  by    Alfredo Ferrari & Paola Sala  *
11 *                                                                      *
12 *     Last change on 06-dec-97     by    Alfredo Ferrari               *
13 *                                                                      *
14 *     Included in the following subroutines or functions: not updated  *
15 *                                                                      *
16 *     Description of the common block(s) and variable(s)               *
17 *                                                                      *
18 *        Pxr(i) = X-component of the momentum of the i_th produced     *
19 *                 resonance                                            *
20 *        Pyr(i) = Y-component of the momentum of the i_th produced     *
21 *                 resonance                                            *
22 *        Pzr(i) = Z-component of the momentum of the i_th produced     *
23 *                 resonance                                            *
24 *        Her(i) = Total energy of the i_th produced resonance          *
25 *        Amr(i) = Mass   of the i_th produced resonance                *
26 *       Ichr(i) = Charge of the i_th produced resonance                *
27 *      Ibarr(i) = Baryon number of the i_th produced resonance         *
28 *       Nrer(i) = Identity (part scheme) of the i_th produced resonance*
29 *    Ichnr(3,i) = Array containing additional informations about pro-  *
30 *                 duction verteces, ranking etc.                       *
31 *          Nres = Number of produced resonances                        *
32 *         Nres1 = Number of produced resonances from the first  chain  *
33 *         Nres2 = Number of produced resonances from the second chain  *
34 *        Anr(i) = Literal name of the i_th produced resonance          *
35 *                                                                      *
36 *----------------------------------------------------------------------*
37 *
38       CHARACTER*8 ANR
39       COMMON / CMSRES / PXR   (MXPDPM), PYR   (MXPDPM), PZR   (MXPDPM),
40      &                  HER   (MXPDPM), AMR   (MXPDPM), ICHR  (MXPDPM),
41      &                  IBARR (MXPDPM), NRER  (MXPDPM), ICHNR(3,MXPDPM),
42      &                  NRES, NRES1, NRES2
43       COMMON / CHCMSR / ANR   (MXPDPM)
44