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

#ifndef __TMPNUC__
#define __TMPNUC__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== tmpnuc ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//     TeMPorary storage for NUClear interaction secondaries:           *
//                                                                      *
//     Created on   25 June 1995    by    Alfredo Ferrari & Paola Sala  *
//                                                   Infn - Milan       *
//                                                                      *
//     This is just a mirror copy of parnuc common, to temporarily save *
//     secondaries coming out from interactions while waiting for       *
//     formation time checks                                            *
//                                                                      *
//               Nsavin = number of the stored interaction (=nuscin)    *
//               Icycsv = Icycl                                         *
//               Nholsv = Nhole                                         *
//               Iabcsv = Iabcou                                        *
//               Ininsv = Inindx                                        *
//               Nhlxsv = Nhlexp                                        *
//               Rhexsv = Rhoexp                                        *
//               Pfexsv = Pfrexp                                        *
//               Dfshsv = Defshe                                        *
//               Hlexsv = Holexp                                        *
//               Hlensv = Holenm                                        *
//               Ekexsv = Ekfexp                                        *
//               Amcrsv = Amcrea                                        *
//               Rhmesv = Rhomem                                        *
//               Ekmesv = Ekfmem                                        *
//               Bimesv = Bimmem                                        *
//               Llacsv = Lllact                                        *
//               Nprnsv = Nprnuc                                        *
//               Iprnsv = Iprnuc                                        *
//               Jprnsv = Jprnuc                                        *
//               Nlvlsv = Nlevel                                        *
//               Nmshsv = Nmshll                                        *
//               Rdscsv = Radscb                                        *
//               Nefasv = Nefab0                                        *
//                                                                      *
//               Agtrgt = "age" for materialization of the currently    *
//                        saved interaction                             *
//               Agscnd = "age" for materialization of secondaries of   *
//                        the currently saved interaction               *
//               Dtausv = dTau for projectile according to q^2          *
//               Crrftp = proton  correlation variable for the currently*
//                        saved interaction                             *
//               Crrftn = neutron correlation variable for the currently*
//                        saved interaction                             *
//               Pafrft = hard core radius for the currently saved      *
//                        interaction                                   *
//               Rhexft = Rhoexi for hard core radius for the currently *
//                        saved interaction                             *
//               Rhcmft = Rhocmp for hard core radius for the currently *
//                        saved interaction                             *
//               Rhmnft = Rhomin for hard core radius for the currently *
//                        saved interaction                             *
//                                                                      *
//----------------------------------------------------------------------*
//
const int    NCTMX = 500;
extern struct {
	double	enctm[NCTMX];
	double	pnctm[NCTMX];
	double	ekfntm[NCTMX];
	double	xstntm[NCTMX];
	double	ystntm[NCTMX];
	double	zstntm[NCTMX];
	double	pxnctm[NCTMX];
	double	pynctm[NCTMX];
	double	pznctm[NCTMX];
	double	rstntm[NCTMX];
	double	frpntm[NCTMX];
	double	crnntm[NCTMX];
	double	crpntm[NCTMX];
	double	bstntm[NCTMX];
	double	agnctm[NCTMX];
	double	tfpntm[NCTMX];
	double	slcntm[NCTMX];
	double	rhnctm[2][NCTMX];
	double	rhexsv[2];
	double	rdscsv[MXHTTR];
	double	pfexsv[3];
	double	dfshsv[2];
	double	hlexsv;
	double	hlensv;
	double	ekexsv;
	double	amcrsv;
	double	rhmesv;
	double	ekmesv;
	double	bimesv;
	double	agtrgt;
	double	agscnd;
	double	crrftp;
	double	crrftn;
	double	pafrft;
	double	rhcmft;
	double	rhexft;
	double	rhmnft;
	double	dtausv;
	double	angxtm;
	double	angytm;
	double	angztm;
	int	kpnctm[NCTMX];
	int	krfntm[NCTMX];
	int	ilintm[NCTMX];
	int	intntm[NCTMX];
	int	isfntm[NCTMX];
	int	kiontm[NCTMX];
	int	krsntm[NCTMX];
	int	npntm;
	int	nsavin;
	int	icycsv;
	int	nholsv;
	int	iabcsv;
	int	nhlxsv;
	int	llacsv;
	int	ininsv;
	int	jprnsv[MXHTTR];
	int	iprnsv[MXHTTR];
	int	nmshsv[MXHTTR];
	int	nprnsv;
	int	nlvlsv;
	int	iptcsv;
	int	npansv;
	int	nefasv;
	logical	latatm[NCTMX];
} tmpnuc_;

extern struct {
	double	radscb[2][MXHTNC];
	int	nmshll[2][MXHTNC];
	int	nlevel[2];
} tmplev_;

#ifdef __cplusplus
}
#endif
#endif