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

#ifndef __FINPAR__
#define __FINPAR__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== Finpar ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     Partial (the additions wrt the original one)                     *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//     Mofified version of Finpar (Leipzig group):                      *
//                                                                      *
//     W A R N I N G !!!! HEP --> HEF on 28-nov-97 and Finpar2 module   *
//                                eliminated                            *
//                                                                      *
//     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)               *
//                                                                      *
//        Pxf(i) = X-component of the momentum of the i_th produced     *
//                 particle                                             *
//        Pyf(i) = Y-component of the momentum of the i_th produced     *
//                 particle                                             *
//        Pzf(i) = Z-component of the momentum of the i_th produced     *
//                 particle                                             *
//        Hef(i) = Total energy of the i_th produced particle           *
//        Amf(i) = Mass   of the i_th produced particle                 *
//       Ichf(i) = Charge of the i_th produced particle                 *
//      Ibarf(i) = Baryon number of the i_th produced particle          *
//       Nref(i) = Identity (part scheme) of the i_th produced particle *
//       Ipzf(i) = Auxiliary array                                      *
//      Noqrk(i) = Array counting the number of (anti)quark of the ori- *
//                 ginal chain ends making up this hadron               *
//    Ichnf(3,i) = Array containing additional informations about prod- *
//                 uction verteces, ranking etc                         *
//                 Ichnf(1,i) = Ivx + 100 * Irank                       *
//                              Ivx = Bamjet production vertex id, or   *
//                                    -10 for a parjet,                 *
//                                    10+Ivx for the last normally cre- *
//                                        ated hadron used together with*
//                                        the residual quark hadron of  *
//                                        a q-qbar, qbar-qbarqbar or    *
//                                        q-qq final jet joining        *
//                                    +30 for the last antibaryon of a  *
//                                        final qbar-qbarqbar jet join- *
//                                        ing                           *
//                                    +40 for the last meson of a final *
//                                        q-qbar jet joining            *
//                                    +50 for the last baryon of a final*
//                                        q-qq jet joining              *
//                                    +60 for both mesons of a final    *
//                                        qq-qbarqbar jet joining       *
//                              Irank = rank order of production in the *
//                                      corresponding jet               *
//                 Ichnf(2,i) = Noqrk + 10 x Idcyg + 1000 x Idori       *
//                              Noqrk = Number of chain end quarks in   *
//                                      the mother resonance            *
//                              Idcyg = decay generation (1,2,...), if  *
//                                      any                             *
//                              Idori = id of the mother resonance, if  *
//                                      any                             *
//                 Ichnf(3,i) = Nresn                                   *
//                              Nresn = number of the mother resonance  *
//                                      recorded in Cmsres              *
//        Anf(i) = Literal name of the i_th produced particle           *
//                                                                      *
//----------------------------------------------------------------------*
//
extern struct {
	double	pxf[MXPDPM];
	double	pyf[MXPDPM];
	double	pzf[MXPDPM];
	double	hef[MXPDPM];
	double	amf[MXPDPM];
	int	ichf[MXPDPM];
	int	ibarf[MXPDPM];
	int	nref[MXPDPM];
	int	ipzf[MXPDPM];
	int	noqrk[MXPDPM];
	int	ichnf[MXPDPM][3];
} finpar_;

extern struct {
	char	anf[MXPDPM][8];
} chfnpr_;


#ifdef __cplusplus
}
#endif
#endif