*
*=== Finlsp3 ==========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     New version of the original FINLSP3 (Leipzig group):             *
*                                                                      *
*     W A R N I N G !!!! check also Finlsp/2 modules for any change!!! *
*                                                                      *
*     Created on  20-January-1996  by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Included in the following subroutines or functions: not updated  *
*                                                                      *
*     Description of the common block(s) and variable(s)               *
*                                                                      *
*        Cxh(i) = X-cosine of the i_th produced particle               *
*        Cyh(i) = Y-cosine of the i_th produced particle               *
*        Czh(i) = Z-cosine of the i_th produced particle               *
*        Elh(i) = Total energy of the i_th produced particle           *
*        Plh(i) = Momentum of the i_th produced particle               *
*        Ith(i) = Identity (part scheme) of the i_th produced particle *
*        Ih     = Number of produced particles                         *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / FINLSP / CXH   (MXPRSN), CYH   (MXPRSN), CZH   (MXPRSN),
     &                  ELH   (MXPRSN), PLH   (MXPRSN), ITH   (MXPRSN),
     &                  IH
      SAVE / FINLSP /