*$ CREATE METLSP.ADD
*COPY METLSP
*
*=== Metlsp ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     New version of the original Metlsp (by the Leipzig group):       *
*                                                                      *
*     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)               *
*                                                                      *
*        Cxs(i) = X-cosine of the i_th produced particle               *
*        Cys(i) = Y-cosine of the i_th produced particle               *
*        Czs(i) = Z-cosine of the i_th produced particle               *
*        Els(i) = Total energy of the i_th produced particle           *
*        Pls(i) = Momentum of the i_th produced particle               *
*        Ams(i) = Mass     of the i_th produced particle               *
*        Its(i) = Identity (part scheme) of the i_th produced particle *
*    Ichns(3,i) = Array containing additional information about pro-   *
*                 duction verteces, ranking etc                        *
*        Is     = Number of produced particles                         *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / METLSP / CXS   (MXPDPM), CYS   (MXPDPM), CZS   (MXPDPM),
     &                  ELS   (MXPDPM), PLS   (MXPDPM), AMS   (MXPDPM),
     &                  ITS   (MXPDPM), ICHNS (3,MXPDPM), IS
      SAVE / METLSP /