*$ CREATE FINLSP.ADD
*COPY FINLSP
*
*=== Finlsp ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     New version of the original FINLSP (Leipzig group):              *
*                                                                      *
*     W A R N I N G !!!! check also Finlsp2/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               *
*        Elr(i) = Total energy of the i_th produced particle           *
*        Plr(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),
     &                  ELR   (MXPRSN), PLR   (MXPRSN), ITR   (MXPRSN),
     &                  IR
      SAVE / FINLSP /