This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (NUCPAR)
1 *$ CREATE NUCPAR.ADD
2 *COPY NUCPAR
3 *
4 *=== Nucpar ===========================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     New version of Nucpar:                                           *
9 *                                                                      *
10 *     Created on  20-january-1996  by    Alfredo Ferrari & Paola Sala  *
11 *                                                   Infn - Milan       *
12 *                                                                      *
13 *     Last change on 20-dec-97     by    Alfredo Ferrari               *
14 *                                                                      *
15 *     Included in the following subroutines or functions: not updated  *
16 *                                                                      *
17 *                          distnu                                      *
18 *                          eventv                                      *
19 *                          evxtes                                      *
20 *                          nucevv                                      *
21 *                                                                      *
22 *     Description of the common block(s) and variable(s)               *
23 *                                                                      *
24 *       Pxnu(i) = X-component of the momentum of the i_th produced     *
25 *                 particle                                             *
26 *       Pynu(i) = Y-component of the momentum of the i_th produced     *
27 *                 particle                                             *
28 *       Pznu(i) = Z-component of the momentum of the i_th produced     *
29 *                 particle                                             *
30 *      Hepnu(i) = Total energy of the i_th produced particle           *
31 *       Amnu(i) = Mass   of the i_th produced particle                 *
32 *      Ichnu(i) = Charge of the i_th produced particle                 *
33 *     Ibarnu(i) = Baryon number of the i_th produced particle          *
34 *      Nrenu(i) = Identity (part scheme) of the i_th produced particle *
35 *     Infonu(i) = chain # of the i_th produced particle                *
36 *   Ichnnu(3,i) = Several informations about production vertex, rank-  *
37 *                 ing, decay generation etc.                           *
38 *       Annu(i) = Literal name of the i_th produced particle           *
39 *                                                                      *
40 *----------------------------------------------------------------------*
41 *
42       CHARACTER*8 ANNU
43       COMMON / NUCPAR / PXNU  (MXPDPM), PYNU  (MXPDPM), PZNU  (MXPDPM),
44      &                  HEPNU (MXPDPM), AMNU  (MXPDPM), ICHNU (MXPDPM),
45      &                  IBARNU(MXPDPM), NRENU (MXPDPM), INFONU(MXPDPM),
46      &                  ICHNNU(3,MXPDPM)
47       COMMON / CHNCPR / ANNU  (MXPDPM)
48