*
*=== Li6pwx ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     Li-6 Point-Wise Xsec common:                                     *
*                                                                      *
*     Created on    27 May 1997    by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Description of variables:                                        *
*                                                                      *
*           Ekei1h (i) = initial kinetic energy (GeV) of the i_th      *
*                        tabulation range                              *
*           Elni1h (i) = natural logarithm of the initial kinetic      *
*                        energy (GeV) of the i_th tabulation range     *
*           Dlni1h (i) = constant difference in the natural logarithm  *
*                        of the initial kinetic energy (GeV) of the    *
*                        i_th tabulation range                         *
*           Seln1h (j) = natural logarithm of the n 1-H elastic cross  *
*                        section at the j_th energy point              *
*           Sabn1h (j) = natural logarithm of the n 1-H absorption     *
*                        cross section at the j_th energy point        *
*         Clg21h (k,l) = l_th Legendre coefficient for the n 1-H       *
*                        elastic scattering angular distribution       *
*                        at the k_th energy point of the 2nd tabulation*
*                        range                                         *
*         Clg31h (k,l) = l_th Legendre coefficient for the n 1-H       *
*                        elastic scattering angular distribution       *
*                        at the k_th energy point of the 3rd tabulation*
*                        range                                         *
*           Npoi1h (i) = number of energy points of the i_th tabulation*
*                        range                                         *
*           Nlgi1h (i) = number of Legendre coeff. of the i_th tabula- *
*                        tion range                                    *
*               Nene1h = number of tabulation energy ranges            *
*                                                                      *
*----------------------------------------------------------------------*
*
      COMMON / LI6PWX / EKE6LI (2)    , ELN6LI (2)    , DLN6LI (2)    ,
     &                  STT6LI (201)  , STR6LI (201)  , SPR6LI (201)  ,
     &                  SEL6LI (201)  , SAB6LI (201)  , CLE6LI (101,6),
     &                  CLT6LI (101,6), BLI671        , ELI6NP        ,
     &                  NPO6LI (2)    , NLG6LI (2)    , NEN6LI
      SAVE / LI6PWX /