*$ CREATE AUXPAR.ADD
*COPY AUXPAR
*
*=== Auxpar ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Partial (the additions wrt the original Auxpar)                  *
*     Copyright (C) 1996-2005      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     New version of Auxpar:                                           *
*                                                                      *
*     Created on  20-january-1996  by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 10-oct-96     by    Alfredo Ferrari               *
*                                                                      *
*     Included in the following subroutines or functions: not updated  *
*                                                                      *
*     Description of the common block(s) and variable(s)               *
*                                                                      *
*        Pxa(i) = X-component of the momentum of the i_th produced     *
*                 particle                                             *
*        Pya(i) = Y-component of the momentum of the i_th produced     *
*                 particle                                             *
*        Pza(i) = Z-component of the momentum of the i_th produced     *
*                 particle                                             *
*       Hepa(i) = Total energy of the i_th produced particle           *
*        Ama(i) = Mass   of the i_th produced particle                 *
*       Icha(i) = Charge of the i_th produced particle                 *
*      Ibara(i) = Baryon number of the i_th produced particle          *
*       Nrea(i) = Identity (part scheme) of the i_th produced particle *
*   Ichnfa(3,i) = Array containing additional information about pro-   *
*                 duction verteces, ranking etc                        *
*        Ana(i) = Literal name of the i_th produced particle           *
*                                                                      *
*----------------------------------------------------------------------*
*
      CHARACTER*8 ANA
      COMMON / AUXPAR / PXA   (MXPDPM), PYA   (MXPDPM), PZA   (MXPDPM),
     &                  HEPA  (MXPDPM), AMA   (MXPDPM), ICHA  (MXPDPM),
     &                  IBARA (MXPDPM), NREA  (MXPDPM),
     &                  ICHNFA(3,MXPDPM)
      COMMON / CHAXPR / ANA   (MXPDPM)
      SAVE / AUXPAR /, / CHAXPR /