*$ CREATE FINPAR.ADD
*COPY FINPAR
*
*=== Finpar ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Partial (the additions wrt the original one)                     *
*     Copyright (C) 1996-2005      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     Mofified version of Finpar (Leipzig group):                      *
*                                                                      *
*     W A R N I N G !!!! HEP --> HEF on 28-nov-97 and Finpar2 module   *
*                                eliminated                            *
*                                                                      *
*     Created on  20-january-1996  by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 06-dec-97     by    Alfredo Ferrari               *
*                                                                      *
*     Included in the following subroutines or functions: not updated  *
*                                                                      *
*     Description of the common block(s) and variable(s)               *
*                                                                      *
*        Pxf(i) = X-component of the momentum of the i_th produced     *
*                 particle                                             *
*        Pyf(i) = Y-component of the momentum of the i_th produced     *
*                 particle                                             *
*        Pzf(i) = Z-component of the momentum of the i_th produced     *
*                 particle                                             *
*        Hef(i) = Total energy of the i_th produced particle           *
*        Amf(i) = Mass   of the i_th produced particle                 *
*       Ichf(i) = Charge of the i_th produced particle                 *
*      Ibarf(i) = Baryon number of the i_th produced particle          *
*       Nref(i) = Identity (part scheme) of the i_th produced particle *
*       Ipzf(i) = Auxiliary array                                      *
*      Noqrk(i) = Array counting the number of (anti)quark of the ori- *
*                 ginal chain ends making up this hadron               *
*    Ichnf(3,i) = Array containing additional informations about prod- *
*                 uction verteces, ranking etc                         *
*                 Ichnf(1,i) = Ivx + 100 * Irank                       *
*                              Ivx = Bamjet production vertex id, or   *
*                                    -10 for a parjet,                 *
*                                    10+Ivx for the last normally cre- *
*                                        ated hadron used together with*
*                                        the residual quark hadron of  *
*                                        a q-qbar, qbar-qbarqbar or    *
*                                        q-qq final jet joining        *
*                                    +30 for the last antibaryon of a  *
*                                        final qbar-qbarqbar jet join- *
*                                        ing                           *
*                                    +40 for the last meson of a final *
*                                        q-qbar jet joining            *
*                                    +50 for the last baryon of a final*
*                                        q-qq jet joining              *
*                                    +60 for both mesons of a final    *
*                                        qq-qbarqbar jet joining       *
*                              Irank = rank order of production in the *
*                                      corresponding jet               *
*                 Ichnf(2,i) = Noqrk + 10 x Idcyg + 1000 x Idori       *
*                              Noqrk = Number of chain end quarks in   *
*                                      the mother resonance            *
*                              Idcyg = decay generation (1,2,...), if  *
*                                      any                             *
*                              Idori = id of the mother resonance, if  *
*                                      any                             *
*                 Ichnf(3,i) = Nresn                                   *
*                              Nresn = number of the mother resonance  *
*                                      recorded in Cmsres              *
*        Anf(i) = Literal name of the i_th produced particle           *
*                                                                      *
*----------------------------------------------------------------------*
*
      CHARACTER*8 ANF
      COMMON / FINPAR / PXF   (MXPDPM), PYF   (MXPDPM), PZF   (MXPDPM),
     &                  HEF   (MXPDPM), AMF   (MXPDPM), ICHF  (MXPDPM),
     &                  IBARF (MXPDPM), NREF  (MXPDPM), IPZF  (MXPDPM),
     &                  NOQRK (MXPDPM), ICHNF (3,MXPDPM)
      COMMON / CHFNPR / ANF   (MXPDPM)
      SAVE / FINPAR /, / CHFNPR /