DPMJET/flukapro/(H1PWXS)

   1 *$ CREATE H1PWXS.ADD
   2 *COPY H1PWXS
   3 *
   4 *=== H1pwxs ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     H-1 Point-Wise XSec common:                                      *
   9 *                                                                      *
  10 *     Created on    27 may 1997    by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on  02-jun-97    by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *     Description of variables:                                        *
  16 *                                                                      *
  17 *           Ekei1h (i) = initial kinetic energy (GeV) of the i_th      *
  18 *                        tabulation range                              *
  19 *           Elni1h (i) = natural logarithm of the initial kinetic      *
  20 *                        energy (GeV) of the i_th tabulation range     *
  21 *           Dlni1h (i) = constant difference in the natural logarithm  *
  22 *                        of the initial kinetic energy (GeV) of the    *
  23 *                        i_th tabulation range                         *
  24 *           Seln1h (j) = natural logarithm of the n 1-H elastic cross  *
  25 *                        section at the j_th energy point              *
  26 *           Sabn1h (j) = natural logarithm of the n 1-H absorption     *
  27 *                        cross section at the j_th energy point        *
  28 *         Clg21h (k,l) = l_th Legendre coefficient for the n 1-H       *
  29 *                        elastic scattering angular distribution       *
  30 *                        at the k_th energy point of the 2nd tabulation*
  31 *                        range                                         *
  32 *         Clg31h (k,l) = l_th Legendre coefficient for the n 1-H       *
  33 *                        elastic scattering angular distribution       *
  34 *                        at the k_th energy point of the 3rd tabulation*
  35 *                        range                                         *
  36 *           Npoi1h (i) = number of energy points of the i_th tabulation*
  37 *                        range                                         *
  38 *           Nlgi1h (i) = number of Legendre coeff. of the i_th tabula- *
  39 *                        tion range                                    *
  40 *               Nene1h = number of tabulation energy ranges            *
  41 *                                                                      *
  42 *----------------------------------------------------------------------*
  43 *
  44       COMMON / H1PWXS / EKEI1H (3)    , ELNI1H (3)  , DLNI1H (3)    ,
  45      &                  SELN1H (230)  , SABN1H (230), CLG21H (101,6),
  46      &                  CLG31H (30,14), NPOI1H (3)  , NLGI1H (3)    ,
  47      &                  NENE1H
  48