*$ CREATE FINLSP2.ADD
*COPY FINLSP2
*
*=== Finlsp2 ==========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     New version of the original FINLSP2 (Leipzig group):             *
*                                                                      *
*     W A R N I N G !!!! check also Finlsp/3 modules for any change!!! *
*                                                                      *
*     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)               *
*                                                                      *
*        Cxr(i) = X-cosine of the i_th produced particle               *
*        Cyr(i) = Y-cosine of the i_th produced particle               *
*        Czr(i) = Z-cosine of the i_th produced particle               *
*         El(i) = Total energy of the i_th produced particle           *
*         Pl(i) = Momentum of the i_th produced particle               *
*        Itr(i) = Identity (part scheme) of the i_th produced particle *
*        Ir     = Number of produced particles                         *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / FINLSP / CXR   (MXPRSN), CYR   (MXPRSN), CZR   (MXPRSN),
     &                  EL    (MXPRSN), PL    (MXPRSN), ITR   (MXPRSN),
     &                  IR
      SAVE / FINLSP /