[u/mrichter/AliRoot.git] / TFluka / Fstepsz.h

#include "Fdimpar.h"
extern "C" {
/*
*$ CREATE STEPSZ.ADD
*COPY STEPSZ
*
*=== stepsz ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*   Common stepsz for setting the minimum and maximum step sizes on a  *
*                 a region by region basis: very useful for vacuum re- *
*                 gions with magnetic filed and for saving time ( and  *
*                 accuracy ) with the new plc and lca algorithm in     *
*                 Emf and Fluka                                        *
*                                                                      *
*          W A R N I N G !!!!! At the moment implemented only for      *
*          electron and positron transport in Emf and for charged      *
*          particles transport in Fluka with the new multiple scat-    *
*          tering module!!!!!!                                         *
*                                                                      *
*                  created by A. Ferrari & P. Sala on 14-jan-1990      *
*                                                                      *
*          included in:                                                *
*                        fiprou                                        *
*                        flukam (main)                                 *
*                        kashea                                        *
*                        kaskad                                        *
*                        electr (new version)                          *
*                        mageas                                        *
*                        magnew                                        *
*                        zeroin                                        *
*                                                                      *
*                        Stepmn  = minimum step size (cm)              *
*                        Stepmx  = maximum step size (cm)              *
*                        Mxxrgn = maximum number of regions            *
*                                                                      *
*----------------------------------------------------------------------*
*/

//      COMMON / STEPSZ / STEPMN ( MXXRGN ), STEPMX ( MXXRGN )
typedef struct {
    Double_t stepmn[mxxrgn];
    Double_t stepmx[mxxrgn];
} stepszCommon;

#define STEPSZ COMMON_BLOCK(STEPSZ,stepsz)
COMMON_BLOCK_DEF(stepszCommon,STEPSZ);
 
}
Commit	Line	Data
2690d4bd	1	#include "Fdimpar.h"
	2	extern "C" {
	3	/*
	4	*$ CREATE STEPSZ.ADD
	5	*COPY STEPSZ
	6	*
	7	=== stepsz ===========================================================
	8	*
	9	----------------------------------------------------------------------
	10	* *
	11	* Common stepsz for setting the minimum and maximum step sizes on a *
	12	* a region by region basis: very useful for vacuum re- *
	13	* gions with magnetic filed and for saving time ( and *
	14	* accuracy ) with the new plc and lca algorithm in *
	15	* Emf and Fluka *
	16	* *
	17	* W A R N I N G !!!!! At the moment implemented only for *
	18	* electron and positron transport in Emf and for charged *
	19	* particles transport in Fluka with the new multiple scat- *
	20	* tering module!!!!!! *
	21	* *
	22	* created by A. Ferrari & P. Sala on 14-jan-1990 *
	23	* *
	24	* included in: *
	25	* fiprou *
	26	* flukam (main) *
	27	* kashea *
	28	* kaskad *
	29	* electr (new version) *
	30	* mageas *
	31	* magnew *
	32	* zeroin *
	33	* *
	34	* Stepmn = minimum step size (cm) *
	35	* Stepmx = maximum step size (cm) *
	36	* Mxxrgn = maximum number of regions *
	37	* *
	38	----------------------------------------------------------------------
	39	*/
	40
	41	// COMMON / STEPSZ / STEPMN ( MXXRGN ), STEPMX ( MXXRGN )
	42	typedef struct {
	43	Double_t stepmn[mxxrgn];
	44	Double_t stepmx[mxxrgn];
	45	} stepszCommon;
	46
	47	#define STEPSZ COMMON_BLOCK(STEPSZ,stepsz)
	48	COMMON_BLOCK_DEF(stepszCommon,STEPSZ);
	49
	50	}
	51