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

#ifndef __BALANC__
#define __BALANC__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//                                                                      *
//=== balanc ===========================================================*
//                                                                      *
//----------------------------------------------------------------------*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//     Include file Balanc                                              *
//                                                                      *
//     Created on 20 April 1990     by         Alfredo Ferrari          *
//                                               INFN Milan             *
//                                                                      *
//     Actual common name changed from BALANC to CMBLNC on 22-Jan-01    *
//     to get around a bug in the Linux compiler/linker                 *
//                                                                      *
//     Included in the following routines: not updated                  *
//                                                                      *
//        Kpprct = Id (Part) of the projectile of the current interac.  *
//        Ptprct = Momentum  of the projectile of the current interac.  *
//    Px,y,zprct = Mom.comp. of the projectile of the current interac.  *
//    Ax,y,zprct = Orb.Ang.Mom.comp. of the projectile of the current   *
//                 interac.                                             *
//        Ekprct = Kin.ener. of the projectile of the current interac.  *
//        Amprct = mass      of the projectile of the current interac.  *
//                 not always filled/consistent! It is ok for Bme/Rqmd  *
//        Umoini = (initial and ... possibly final) invariant mass      *
//        Acmini = initial compound nucleus mass                        *
//        Uthinl = invariant mass threshold for inelastic scattering    *
//                 (h,h'X)                                              *
//        Uthinl = invariant mass threshold for inelastic scattering    *
//                 (h,h'X)                                              *
//        Uthcxp = threshold for charge exchange (h0,h-X)/(h-,h0X)      *
//        Uthcxm = threshold for charge exchange (h-,h0X)/(h0,h+X)      *
//        Jsprct = projectile spin (in hbar/2 units)                    *
//        Ipprct = projectile parity                                    *
//        Llprct = Proj-target orbital angular momentum (hbar units)    *
//        Jstrgt = target spin (in hbar/2 units)                        *
//        Iptrgt = target parity                                        *
//        Jspcmp = original compound nucleus spin (in hbar/2 units)     *
//        Iprcmp = original compound nucleus parity                     *
//        Lresmp = logical flag for resampling the whole event          *
//        Lnupau = logical flag for resampling the target nucleus       *
//                 after a Pauli rejected neutrino interaction          *
//                                                                      *
//----------------------------------------------------------------------*
//
extern struct {
	double	ekprct;
	double	amprct;
	double	ptprct;
	double	pxprct;
	double	pyprct;
	double	pzprct;
	double	axprct;
	double	ayprct;
	double	azprct;
	double	ettot;
	double	pttot;
	double	pxttot;
	double	pyttot;
	double	pzttot;
	double	enucr;
	double	pxnucr;
	double	pynucr;
	double	pznucr;
	double	axnucr;
	double	aynucr;
	double	aznucr;
	double	eintr;
	double	pxintr;
	double	pyintr;
	double	pzintr;
	double	axintr;
	double	ayintr;
	double	azintr;
	double	etexpr;
	double	pxexpr;
	double	pyexpr;
	double	pzexpr;
	double	eincp;
	double	eincn;
	double	tvgrey;
	double	tvgre0;
	double	tveuz;
	double	euz;
	double	pux;
	double	puy;
	double	puz;
	double	efrm;
	double	pxfrm;
	double	pyfrm;
	double	pzfrm;
	double	psea;
	double	umoini;
	double	acmini;
	double	uthinl;
	double	uthcxp;
	double	uthcxm;
	int	ngreyp;
	int	ngreyn;
	int	icu;
	int	ibu;
	int	icnucr;
	int	ibnucr;
	int	icintr;
	int	ibintr;
	int	icexpr;
	int	ibexpr;
	int	kpprct;
	int	jsprct;
	int	ipprct;
	int	llprct;
	int	jstrgt;
	int	iptrgt;
	int	jspcmp;
	int	iprcmp;
	logical	lresmp;
	logical	lnupau;
	logical	levdif;
	logical	lprdif;
	logical	lschai;
} cmblnc_;

#ifdef __cplusplus
}
#endif
#endif