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

#ifndef __FINLSP__
#define __FINLSP__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== Finlsp ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     New version of the original FINLSP (Leipzig group):              *
//                                                                      *
//     W A R N I N G !!!! check also Finlsp2/3 modules for any change!!!*
//                                                                      *
//     Created on  20-January-1996  by    Alfredo Ferrari & Paola Sala  *
//                                                   Infn - Milan       *
//                                                                      *
//     Included in the following subroutines or functions: not updated  *
//                                                                      *
//     Description of the common block(s) and variable(s)               *
//                                                                      *
//        Cxr(i) = X-cosine of the i_th produced particle               *
//        Cyr(i) = Y-cosine of the i_th produced particle               *
//        Czr(i) = Z-cosine of the i_th produced particle               *
//        Elr(i) = Total energy of the i_th produced particle           *
//        Plr(i) = Momentum of the i_th produced particle               *
//        Itr(i) = Identity (part scheme) of the i_th produced particle *
//        Ir     = Number of produced particles                         *
//                                                                      *
//----------------------------------------------------------------------*
//
extern struct {
	double	cxr[MXPRSN];
	double	cyr[MXPRSN];
	double	czr[MXPRSN];
	double	elr[MXPRSN];
	double	plr[MXPRSN];
	int	itr[MXPRSN];
	int	ir;
} finlsp_;


#ifdef __cplusplus
}
#endif
#endif