*
*=== H1pwxs ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     H-1 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 / H1PWXS / EKEI1H (3)    , ELNI1H (3)  , DLNI1H (3)    ,
     &                  SELN1H (230)  , SABN1H (230), CLG21H (101,6),
     &                  CLG31H (30,14), NPOI1H (3)  , NLGI1H (3)    ,
     &                  NENE1H
      SAVE / H1PWXS /