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

#ifndef __CMPAIR__
#define __CMPAIR__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== cmpair ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//     CoMmon for e+/e- PAIR production by heavy charged particles      *
//                                                                      *
//     Created on  03  March 1992   by    Alfredo Ferrari & Paola Sala  *
//                                                   Infn - Milan       *
//                                                                      *
//     Included in the following routines:                              *
//                                                                      *
//              ALPHE                                                   *
//              ALPHP                                                   *
//              DESIMP                                                  *
//              DETRAP                                                  *
//              DKSBDV                                                  *
//              DSBRDV                                                  *
//              DSDVDR                                                  *
//              DSDVFX                                                  *
//              DSDVRR                                                  *
//              DSDVVT                                                  *
//              DSDVVV                                                  *
//              DSDVZZ                                                  *
//              DSDVHI                                                  *
//              DSDVHL                                                  *
//              DSSVFX                                                  *
//              HEABRE                                                  *
//              HEAPAI                                                  *
//              HVPAIR                                                  *
//              PHEPAI                                                  *
//              PHPPAI                                                  *
//              YPAIRE                                                  *
//              YPAIRP                                                  *
//                                                                      *
//----------------------------------------------------------------------*
//
const double FELPAI = 1.0E+00;
const double RADLOG = 184.15E+00;
//2    PARAMETER ( XRACH0 = 0.681085D+00 / AMELCT / GEVMEV )
const double COSPAI = FSCTO4*TWOTWO/PIPIPI/THRTHR*PLABRC*PLABRC/AMELCT/AMELCT*AVOGAD*1.E-26;
const double XRACH0 = 0.681085E+00;
extern struct {
	double	amproj;
	double	eproj;
	double	vthres;
	double	z;
	double	z2;
	double	z13;
	double	dens;
	double	atomw;
	double	cost;
	double	vv;
	double	rr;
	double	rrsq;
	double	bbeta;
	double	xxsi;
	double	amsqrt;
	double	xracah;
	double	sgpslw;
	double	sgpfst;
	int	ichrg2;
	int	ipproj;
	int	matbre;
} cmpair_;


#ifdef __cplusplus
}
#endif
#endif