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

#ifndef __ELSSCT__
#define __ELSSCT__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== elssct ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//     p/n ELaStic SCaTtering informations:                             *
//                                                                      *
//     Created on 15-September-1993 by   Alfredo Ferrari & Paola Sala   *
//                                              INFN - MIlan            *
//                                                                      *
//----------------------------------------------------------------------*
//
const double R0ELNE = 1.4E+00;
const double R0ELPI = 1.3E+00;
const int    N0ELSC = 152;
const double D0ELSC = 0.005E+00;
const double ELSI0M = ZERZER;
const double ELSI0X = (N0ELSC-2)*D0ELSC;
const int    N1ELSC = 153;
const double D1ELSC = 0.0015E+00;
const double ELSI1M = ELSI0X-D1ELSC;
const double ELSI1X = (N1ELSC-2)*D1ELSC+ELSI1M;
const int    N2ELSC = 152;
const double D2ELSC = 0.000166E+00;
const double ELSI2M = ELSI1X-D2ELSC;
const double ELSI2X = (N2ELSC-1)*D2ELSC+ELSI2M;
const double ELSIMX = ONEONE-0.01E+00*ELSI2X;
extern struct {
	double	r0elsc[NALLWP];
	double	xelj00[N0ELSC];
	double	xelj01[N1ELSC];
	double	xelj02[N2ELSC];
	double	xelj10[N0ELSC];
	double	xelj11[N1ELSC];
	double	xelj12[N2ELSC];
	double	anrmj0;
	double	aj0dmp;
	double	xj0max;
} elssct_;


#ifdef __cplusplus
}
#endif
#endif