*$ CREATE NUCPAR.ADD
*COPY NUCPAR
*
*=== Nucpar ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     New version of the original Nucpar (by the Leipzig group):       *
*                                                                      *
*     Created on  20-january-1996  by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 20-dec-97     by    Alfredo Ferrari               *
*                                                                      *
*     Included in the following subroutines or functions: not updated  *
*                                                                      *
*                          distnu                                      *
*                          eventv                                      *
*                          evxtes                                      *
*                          nucevv                                      *
*                                                                      *
*     Description of the common block(s) and variable(s)               *
*                                                                      *
*       Pxnu(i) = X-component of the momentum of the i_th produced     *
*                 particle                                             *
*       Pynu(i) = Y-component of the momentum of the i_th produced     *
*                 particle                                             *
*       Pznu(i) = Z-component of the momentum of the i_th produced     *
*                 particle                                             *
*      Hepnu(i) = Total energy of the i_th produced particle           *
*       Amnu(i) = Mass   of the i_th produced particle                 *
*      Ichnu(i) = Charge of the i_th produced particle                 *
*     Ibarnu(i) = Baryon number of the i_th produced particle          *
*      Nrenu(i) = Identity (part scheme) of the i_th produced particle *
*     Infonu(i) = chain # of the i_th produced particle                *
*   Ichnnu(3,i) = Several informations about production vertex, rank-  *
*                 ing, decay generation etc.                           *
*       Annu(i) = Literal name of the i_th produced particle           *
*                                                                      *
*----------------------------------------------------------------------*
*
      CHARACTER*8 ANNU
      COMMON / NUCPAR / PXNU  (MXPDPM), PYNU  (MXPDPM), PZNU  (MXPDPM),
     &                  HEPNU (MXPDPM), AMNU  (MXPDPM), ICHNU (MXPDPM),
     &                  IBARNU(MXPDPM), NRENU (MXPDPM), INFONU(MXPDPM),
     &                  ICHNNU(3,MXPDPM)
      COMMON / CHNCPR / ANNU  (MXPDPM)
      SAVE / NUCPAR /
      SAVE / CHNCPR /