*$ CREATE HADPAR.ADD
*COPY HADPAR
*
*=== Hadpar ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Partial (the additions wrt the Leipzig group original Hadpar)    *
*     Copyright (C) 1996-2005      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     New version of Hadpar:                                           *
*                                                                      *
*     Created on  20-january-1996  by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 19-dec-97     by    Alfredo Ferrari               *
*                                                                      *
*     Included in the following subroutines or functions: not updated  *
*                                                                      *
*     Description of the common block(s) and variable(s)               *
*                                                                      *
*        Pxh(i) = X-component of the momentum of the i_th produced     *
*                 particle                                             *
*        Pyh(i) = Y-component of the momentum of the i_th produced     *
*                 particle                                             *
*        Pzh(i) = Z-component of the momentum of the i_th produced     *
*                 particle                                             *
*       Heph(i) = Total energy of the i_th produced particle           *
*        Amh(i) = Mass   of the i_th produced particle                 *
*       Ichh(i) = Charge of the i_th produced particle                 *
*      Ibarh(i) = Baryon number of the i_th produced particle          *
*       Nreh(i) = Identity (part scheme) of the i_th produced particle *
*    Ichnh(3,i) = Array containing additional informations about prod- *
*                 uction verteces, ranking etc                         *
*      Infoh(i) = chain # of the i_th produced particle                *
*        Anh(i) = Literal name of the i_th produced particle           *
*                                                                      *
*----------------------------------------------------------------------*
*
      CHARACTER*8 ANH
      COMMON / HADPAR / PXH   (MXPDPM), PYH   (MXPDPM), PZH   (MXPDPM),
     &                  HEPH  (MXPDPM), AMH   (MXPDPM), ICHH  (MXPDPM),
     &                  IBARH (MXPDPM), NREH  (MXPDPM), INFOH (MXPDPM),
     &                  ICHNH (3,MXPDPM)
      COMMON / CHHDPR / ANH   (MXPDPM)
      SAVE / HADPAR /, / CHHDPR /