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

#ifndef FSOURCM_H
#define FSOURCM_H 1

#include "Rtypes.h"
#include "cfortran.h"
extern "C" {
//*$ create sourcm.add
//*copy sourcm
//*
//*=== Sourcm ===========================================================*
//*
//*----------------------------------------------------------------------*
//*                                                                      *
//*     Include file: sourcm                                             *
//*                                                                      *
//*     version       march 1996     by   Alfredo Ferrari, INFN - Milan  *
//*                                                                      *
//*     Last change on 09-mar-02     by    Alfredo Ferrari               *
//*                                                                      *
//*     Included in the following subroutines or functions:              *
//*                                                                      *
//*            BDNOPT                                                    *
//*            FLKEND                                                    *
//*            EVTDAT                                                    *
//*            FEEDER                                                    *
//*            FLUKAM                                                    *
//*            MGDRAW                                                    *
//*            SOURCE                                                    *
//*                                                                      *
//*                                                                      *
//*      Whasou(1-18) = user variables                                   *
//*            Tkesum = total kinetic energy of the primaries of the     *
//*                     user written source                              *
//*            Lussrc = flag to inform that the user written source was  *
//*                     used                                             *
//*            Sdusou = user character variable                          *
//*            Lsouit = source is called iteratively until it is .true.  *
//*                                                                      *
//*----------------------------------------------------------------------*
//*

typedef struct {
   Double_t whasou[18];
   Double_t tkesum;
   Int_t    lussrc;
   Int_t    lsouit;
} sourcmCommon;
#define SOURCM COMMON_BLOCK(SOURCM,sourcm)
COMMON_BLOCK_DEF(sourcmCommon,SOURCM);

typedef struct {
   Char_t   sdusou[8];
} chsocmCommon;
#define CHSOCM COMMON_BLOCK(CHSOCM,chsocm)
COMMON_BLOCK_DEF(chsocmCommon,CHSOCM);

typedef struct {
   Double_t xn[3];
   Double_t wn[3];
   Double_t distn;
   Int_t    irltno;
   Int_t    irrnor;
} norlatCommon;
#define NORLAT COMMON_BLOCK(NORLAT,norlat)
COMMON_BLOCK_DEF(norlatCommon,NORLAT);   

typedef struct {
   Double_t xb[3];
   Double_t wb[3];
   Double_t wp[3];
   Double_t xp[3];
   Double_t rin;
   Double_t rout;
   Double_t pinf;
   Double_t dist;
   Int_t    ir;
   Int_t    idbg;
   Int_t    irprim;
   Int_t    nasc;
   Int_t    lsurf;
   Int_t    nbo;
   Int_t    lri;
   Int_t    lro;
   Int_t    kloop;
   Int_t    loop;
   Int_t    itype;
   Int_t    n0a;
} paremCommon;
#define PAREM COMMON_BLOCK(PAREM,parem)
COMMON_BLOCK_DEF(paremCommon,PAREM);   
}

#endif
Commit	Line	Data
a879d0cc	1	#ifndef FSOURCM_H
a879d0cc	2	#define FSOURCM_H 1
b9d0a01d	3
	4	#include "Rtypes.h"
	5	#include "cfortran.h"
	6	extern "C" {
a879d0cc	7	//*$ create sourcm.add
a879d0cc	8	//*copy sourcm
b9d0a01d	9	//*
a879d0cc	10	//=== Sourcm ===========================================================
b9d0a01d	11	//*
	12	//----------------------------------------------------------------------
	13	//* *
a879d0cc	14	//* Include file: sourcm *
b9d0a01d	15	//* *
	16	//* version march 1996 by Alfredo Ferrari, INFN - Milan *
	17	//* *
	18	//* Last change on 09-mar-02 by Alfredo Ferrari *
	19	//* *
	20	//* Included in the following subroutines or functions: *
	21	//* *
	22	//* BDNOPT *
a879d0cc	23	//* FLKEND *
b9d0a01d	24	//* EVTDAT *
	25	//* FEEDER *
	26	//* FLUKAM *
	27	//* MGDRAW *
	28	//* SOURCE *
	29	//* *
b9d0a01d	30	//* *
	31	//* Whasou(1-18) = user variables *
	32	//* Tkesum = total kinetic energy of the primaries of the *
	33	//* user written source *
	34	//* Lussrc = flag to inform that the user written source was *
	35	//* used *
	36	//* Sdusou = user character variable *
	37	//* Lsouit = source is called iteratively until it is .true. *
	38	//* *
	39	//----------------------------------------------------------------------
	40	//*
	41
	42	typedef struct {
	43	Double_t whasou[18];
	44	Double_t tkesum;
	45	Int_t lussrc;
	46	Int_t lsouit;
a879d0cc	47	} sourcmCommon;
	48	#define SOURCM COMMON_BLOCK(SOURCM,sourcm)
	49	COMMON_BLOCK_DEF(sourcmCommon,SOURCM);
b9d0a01d	50
	51	typedef struct {
	52	Char_t sdusou[8];
a879d0cc	53	} chsocmCommon;
	54	#define CHSOCM COMMON_BLOCK(CHSOCM,chsocm)
	55	COMMON_BLOCK_DEF(chsocmCommon,CHSOCM);
641fc77f	56
	57	typedef struct {
	58	Double_t xn[3];
	59	Double_t wn[3];
	60	Double_t distn;
	61	Int_t irltno;
	62	Int_t irrnor;
	63	} norlatCommon;
	64	#define NORLAT COMMON_BLOCK(NORLAT,norlat)
	65	COMMON_BLOCK_DEF(norlatCommon,NORLAT);
a879d0cc	66
	67	typedef struct {
	68	Double_t xb[3];
	69	Double_t wb[3];
	70	Double_t wp[3];
	71	Double_t xp[3];
	72	Double_t rin;
	73	Double_t rout;
	74	Double_t pinf;
	75	Double_t dist;
	76	Int_t ir;
	77	Int_t idbg;
	78	Int_t irprim;
	79	Int_t nasc;
	80	Int_t lsurf;
	81	Int_t nbo;
	82	Int_t lri;
	83	Int_t lro;
	84	Int_t kloop;
	85	Int_t loop;
	86	Int_t itype;
	87	Int_t n0a;
	88	} paremCommon;
	89	#define PAREM COMMON_BLOCK(PAREM,parem)
	90	COMMON_BLOCK_DEF(paremCommon,PAREM);
b9d0a01d	91	}
	92
	93	#endif