/*
 * DO NOT MANUALLY UPDATE THIS FILE.
 * If needed: make cpp_headers
 *
 * fortran2c.py - automatic conversion
 *       li6pwx.inc -> li6pwx.h
 */

#ifndef __LI6PWX__
#define __LI6PWX__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== 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            *
//                                                                      *
//----------------------------------------------------------------------*
//
extern struct {
	double	eke6li[2];
	double	eln6li[2];
	double	dln6li[2];
	double	stt6li[201];
	double	str6li[201];
	double	spr6li[201];
	double	sel6li[201];
	double	sab6li[201];
	double	cle6li[6][101];
	double	clt6li[6][101];
	double	bli671;
	double	eli6np;
	int	npo6li[2];
	int	nlg6li[2];
	int	nen6li;
} li6pwx_;


#ifdef __cplusplus
}
#endif
#endif