This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (HADPAR)
1 *$ CREATE HADPAR.ADD
2 *COPY HADPAR
3 *
4 *=== Hadpar ===========================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     New version of Hadpar:                                           *
9 *                                                                      *
10 *     Created on  20-january-1996  by    Alfredo Ferrari & Paola Sala  *
11 *                                                   Infn - Milan       *
12 *                                                                      *
13 *     Last change on 19-dec-97     by    Alfredo Ferrari               *
14 *                                                                      *
15 *     Included in the following subroutines or functions: not updated  *
16 *                                                                      *
17 *     Description of the common block(s) and variable(s)               *
18 *                                                                      *
19 *        Pxh(i) = X-component of the momentum of the i_th produced     *
20 *                 particle                                             *
21 *        Pyh(i) = Y-component of the momentum of the i_th produced     *
22 *                 particle                                             *
23 *        Pzh(i) = Z-component of the momentum of the i_th produced     *
24 *                 particle                                             *
25 *       Heph(i) = Total energy of the i_th produced particle           *
26 *        Amh(i) = Mass   of the i_th produced particle                 *
27 *       Ichh(i) = Charge of the i_th produced particle                 *
28 *      Ibarh(i) = Baryon number of the i_th produced particle          *
29 *       Nreh(i) = Identity (part scheme) of the i_th produced particle *
30 *    Ichnh(3,i) = Array containing additional informations about prod- *
31 *                 uction verteces, ranking etc                         *
32 *      Infoh(i) = chain # of the i_th produced particle                *
33 *        Anh(i) = Literal name of the i_th produced particle           *
34 *                                                                      *
35 *----------------------------------------------------------------------*
36 *
37       CHARACTER*8 ANH
38       COMMON / HADPAR / PXH   (MXPDPM), PYH   (MXPDPM), PZH   (MXPDPM),
39      &                  HEPH  (MXPDPM), AMH   (MXPDPM), ICHH  (MXPDPM),
40      &                  IBARH (MXPDPM), NREH  (MXPDPM), INFOH (MXPDPM),
41      &                  ICHNH (3,MXPDPM)
42       COMMON / CHHDPR / ANH   (MXPDPM)
43