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

#ifndef __RDDGXB__
#define __RDDGXB__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== Rddgxb ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//     Radioactive Decay DauGhters X Beam weights:                      *
//                                                                      *
//     Created on 15-September-2005 by   Alfredo Ferrari & Paola Sala   *
//                                              INFN - MIlan            *
//                                                                      *
//          Wactxb(i) = Number of times the i_th matrix has been used   *
//          Kactxb(i) = Starting address (real*4, 0th element) of the   *
//                      i_th decay x intensity weight matrix. The matrix*
//                      occupies Kalgnm x (Ntrdcy x Mxidau) real*4 ele- *
//                      ments, followed by Mxidau i*4 elements correspo-*
//                      nding to A + 1000 x Z + 1000000 x m of the chain*
//                      daughters                                       *
//          Ndactx(i) = Ndaugh (n. of chain daughters) for the i_th     *
//                      matrix                                          *
//          Iiactx(i) = A + 1000 x Z + 1000000 x m (isomer level) of    *
//                      the ancestor for the i_th matrix                *
//          Nactxb    = number of matrices currently in use             *
//          Mactxb    = number of matrices actually allocated (<=Mxactx)*
//                                                                      *
//----------------------------------------------------------------------*
//
const int    MXACTX = 50;
extern struct {
	double	wactxb[MXACTX];
	double	wactmn;
	int	kactxb[MXACTX];
	int	ndactx[MXACTX];
	int	iiactx[MXACTX];
	int	nactxb;
	int	mactxb;
	int	iactmn;
} rddgxb_;


#ifdef __cplusplus
}
#endif
#endif