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

#ifndef __RDPSTK__
#define __RDPSTK__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== Rdpstk ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//     FLUKA9x-200x RaDioactive Product STacK:                          *
//                                                                      *
//     /Rdpstk/ radioactive decay stack                                 *
//        T12rdp = T1/2 of the radioactive product (s)                  *
//        Exmrdp = (atomic) excess mass of the radioactive product      *
//        Wtrdpr = particle statistical weight                          *
//        Xrdprd = particle position  x-coordinate                      *
//        Yrdprd = particle position  y-coordinate                      *
//        Zrdprd = particle position  z-coordinate                      *
//        Dnrdpr = distance to the nearest boundary                     *
//        Agrdpr = age of the particle (seconds)                        *
//        Ekrdpr = originating particle kinetic energy                  *
//        Sprdpr = spare real variables available    for K.W.Burn       *
//        Isprdp = spare integer variables available for K.W.Burn       *
//        Iardpr = A of the radioactive product                         *
//        Izrdpr = Z of the radioactive product                         *
//        Imrdpr = Isomeric level of the radioactive product            *
//        Kgrdpr = possible originating particle (neutron) group number *
//        Iprdpr = originating particle Paprop id                       *
//        Lordpr = particle generation                                  *
//        Lourdp = user flag                                            *
//        Nrgrdp = particle region number                               *
//        Nltrdp = particle lattice cell number                         *
//        Nhsrdp = pointer to the history object (extra geometries)     *
//        Nevrdp = number of the event which created the particle       *
//        Numrdp = particle number                                      *
//        Indrdp = index in the ground state/isomer arrays              *
//        Nprdpr = Fluka stack pointer                                  *
//                                                                      *
//----------------------------------------------------------------------*
//
const int    MXRDPR = 1200;
//
extern struct {
	double	t12rdp[MXRDPR];
	double	exmrdp[MXRDPR];
	double	xrdprd[MXRDPR];
	double	yrdprd[MXRDPR];
	double	zrdprd[MXRDPR];
	double	wtrdpr[MXRDPR];
	double	dnrdpr[MXRDPR];
	double	agrdpr[MXRDPR];
	double	sprdpr[MXRDPR][MKBMX1];
	double	ekrdpr[MXRDPR];
	int	isprdp[MXRDPR][MKBMX2];
	int	iprdpr[MXRDPR];
	int	iardpr[MXRDPR];
	int	izrdpr[MXRDPR];
	int	imrdpr[MXRDPR];
	int	kgrdpr[MXRDPR];
	int	lordpr[MXRDPR];
	int	lourdp[MXRDPR];
	int	nrgrdp[MXRDPR];
	long long	nltrdp[MXRDPR];
	long long	nhsrdp[MXRDPR];
	int	nevrdp[MXRDPR];
	int	numrdp[MXRDPR];
	int	indrdp[MXRDPR];
	int	nprdpr;
} rdpstk_;


#ifdef __cplusplus
}
#endif
#endif