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

#ifndef __CORINC__
#define __CORINC__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//                                                                      *
//=== corinc ===========================================================*
//                                                                      *
//----------------------------------------------------------------------*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//     Created on    02 February 1990    by       Alfredo Ferrari       *
//                                                 Infn - Milan         *
//                                                                      *
//     Be sure that the parameter Inmax is >=  than the same parameter  *
//     in the function Nudisv                                           *
//                                                                      *
//          Xquark = projectile (anti)quark X fraction for mesons and   *
//                   (anti)baryons                                      *
//          Xqbdiq = projectile qbar/(anti)diquark X fraction for       *
//                   mesons/(anti)baryons                               *
//          Xequar = lab energy   associated with Xquark                *
//          Xpquar = lab momentum associated with Xquark                *
//          Xeqbdq = lab energy   associated with Xqbdiq                *
//          Xpqbdq = lab momentum associated with Xqbdiq                *
//         Xsea(i) = X fraction of the quark of the i_th sea qqbar      *
//                   couple                                             *
//        Xasea(i) = X fraction of the qbar  of the i_th sea qqbar      *
//                   couple                                             *
//      Xesea(1,i) = lab energy   associated with Xsea(i)               *
//      Xesea(2,i) = lab energy   associated with Xasea(i)              *
//      Xpsea(1,i) = lab momentum associated with Xsea(i)               *
//      Xpsea(2,i) = lab momentum associated with Xasea(i)              *
//          Frainc = reduction factor for intranuclear cascade energy,  *
//                   including correlations                             *
//           Anuav = expected asymptotic (E_cms>>m_pro) average number  *
//                   of primary collisions, before threshold effects    *
//          Sgivmd = Vector meson - A inelastic sigma                   *
//          Sivmdp = Vector meson - p inelastic sigma                   *
//          Sivmdn = Vector meson - n inelastic sigma                   *
//          Sgtvmd = Vector meson - A total sigma                       *
//          Stvmdp = Vector meson - p total sigma                       *
//          Stvmdn = Vector meson - n total sigma                       *
//        Iqsea(i) = quark id of the i_th sea qqbar couple              *
//     Ijtarg(i+1) = target nucleon id of the i_th sea-valence intera-  *
//                   ction (i=0 --> valence-valence)                    *
//            Nsea = number of sea-valence interactions                 *
//          Nsebdf = number of sea-valence interactions before possible *
//                   reductions due to diffraction exclusion            *
//          Nseald = asymptotic (no en. threshold) number of sea-valence*
//                   interactions                                       *
//                                                                      *
//----------------------------------------------------------------------*
//
const int    INMAX = 30;
extern struct {
	double	xquark;
	double	xqbdiq;
	double	xequar;
	double	xpquar;
	double	xeqbdq;
	double	xpqbdq;
	double	xsea[INMAX];
	double	xasea[INMAX];
	double	xesea[INMAX][2];
	double	xpsea[INMAX][2];
	double	frainc;
	double	anuav;
	double	sgivmd;
	double	sivmdp;
	double	sivmdn;
	double	sgtvmd;
	double	stvmdp;
	double	stvmdn;
	int	iqsea[INMAX];
	int	ijtarg[INMAX+1];
	int	nsea;
	int	nsebdf;
	int	nseald;
} corinc_;


#ifdef __cplusplus
}
#endif
#endif