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

#ifndef __MULBOU__
#define __MULBOU__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== mulbou ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//     Module MULBOU:                                                   *
//                                                                      *
//          Created on 26-05-1991   by A. Ferrari, Infn-Milan           *
//                                                                      *
//          Included in:                                                *
//                               BDNOPT                                 *
//                               CRNKVP                                 *
//                               ELECTR                                 *
//                               EMFGEO                                 *
//                               EMFLNK                                 *
//                               EMFSCO                                 *
//                               FEEDER                                 *
//                               GEOFAR                                 *
//                               GEOMTR                                 *
//                               GEORST                                 *
//                               G1                                     *
//                               KASEMF                                 *
//                               KASHEA                                 *
//                               KASKAD                                 *
//                               KASNEU                                 *
//                               KASOPH                                 *
//                               KASRAY                                 *
//                               LBXRFL                                 *
//                               MAGEAS                                 *
//                               MAGNEW                                 *
//                               PGMPTH                                 *
//                               PHOTON                                 *
//                               PRTSTP                                 *
//                               SCNTLP                                 *
//                               STEPOP                                 *
//                                                                      *
//----------------------------------------------------------------------*
//
extern struct {
	double	xold;
	double	yold;
	double	zold;
	double	xmiddl;
	double	ymiddl;
	double	zmiddl;
	double	umiddl;
	double	vmiddl;
	double	wmiddl;
	double	pstep1;
	double	pstep2;
	double	uold;
	double	vold;
	double	wold;
	double	umag;
	double	vmag;
	double	wmag;
	double	unorml;
	double	vnorml;
	double	wnorml;
	double	usense;
	double	vsense;
	double	wsense;
	double	xnorml;
	double	ynorml;
	double	znorml;
	double	tsense;
	double	ddsens;
	double	dsmall;
	double	tslttc[2000+1];
	long long	multtc[2000+1];
	int	nssens;
	int	nulttc;
	int	iplgnl;
	int	nrgbef;
	int	nrgaft;
	logical	llda;
	logical	lagain;
	logical	lstnew;
	logical	lartef;
	logical	lnorml;
	logical	lsense;
	logical	lmgnor;
	logical	lsnsct;
	logical	lplgnl;
	logical	lnwghs;
	logical	lmagea;
	logical	lmgnmv;
	logical	lbndrx;
} mulbou_;
const int mulbou_tslttc_base = 0;
const int mulbou_multtc_base = 0;


#ifdef __cplusplus
}
#endif
#endif