[u/mrichter/AliRoot.git] / TAmpt / Acommon.h

#ifndef ROOT_ACommon
#define ROOT_ACommon

#ifndef __CFORTRAN_LOADED
//*KEEP,cfortran.
#include "cfortran.h"
//*KEND.
#endif

#define _MAXNPARTICLE_ 150001

extern "C" {

typedef struct {
   Float_t    hipr1[100];
   Int_t      ihpr2[50];
   Float_t    hint1[100];
   Int_t      ihnt2[50];
} HparntCommon;
#define HPARNT COMMON_BLOCK(HPARNT,hparnt)
COMMON_BLOCK_DEF(HparntCommon,HPARNT);

typedef struct {
  Int_t      natt;
  Float_t    eatt;
  Int_t      jatt;
  Int_t      nt;
  Int_t      np;
  Int_t      n0;
  Int_t      n01;
  Int_t      n10;
  Int_t      n11;
} Hmain1Common;
#define HMAIN1 COMMON_BLOCK(HMAIN1,hmain1)
COMMON_BLOCK_DEF(Hmain1Common,HMAIN1);

typedef struct {
  Float_t    bb;   
} ExtraCentCommon;
#define EXTRACENT COMMON_BLOCK(EXTRACENT,extracent)
COMMON_BLOCK_DEF(ExtraCentCommon,EXTRACENT);

typedef struct {
   Int_t    katt[4][_MAXNPARTICLE_];
   Float_t  patt[4][_MAXNPARTICLE_];
   Float_t  vatt[4][_MAXNPARTICLE_];    
} Hmain2Common;
#define HMAIN2 COMMON_BLOCK(HMAIN2,hmain2)
COMMON_BLOCK_DEF(Hmain2Common,HMAIN2);

typedef struct {
   Int_t    npj[300];
   Int_t    kfpj[500][300];
   Float_t  pjpx[500][300];
   Float_t  pjpy[500][300];
   Float_t  pjpz[500][300];
   Float_t  pjpe[500][300];
   Float_t  pjpm[500][300];
   Int_t    ntj[300];
   Int_t    kftj[500][300];
   Float_t  pjtx[500][300];
   Float_t  pjty[500][300];
   Float_t  pjtz[500][300];
   Float_t  pjte[500][300];
   Float_t  pjtm[500][300];
} Hjjet1Common;
#define HJJET1 COMMON_BLOCK(HJJET1,hjjet1)
COMMON_BLOCK_DEF(Hjjet1Common,HJJET1);

typedef struct {
   Int_t      nsg;
   Int_t      njsg[_MAXNPARTICLE_];
   Int_t      iasg[3][_MAXNPARTICLE_];
   Int_t      k1sg[100][_MAXNPARTICLE_];
   Int_t      k2sg[100][_MAXNPARTICLE_];
   Float_t    pxsg[100][_MAXNPARTICLE_];
   Float_t    pysg[100][_MAXNPARTICLE_];
   Float_t    pzsg[100][_MAXNPARTICLE_];
   Float_t    pesg[100][_MAXNPARTICLE_];
   Float_t    pmsg[100][_MAXNPARTICLE_];
} Hjjet2Common;
#define HJJET2 COMMON_BLOCK(HJJET2,hjjet2)
COMMON_BLOCK_DEF(Hjjet2Common,HJJET2);

typedef struct {
   Int_t    nfp[15][300];
   Float_t  pp[15][300];
   Int_t    nft[15][300];
   Float_t  pt[15][300];
} HstrngCommon;
#define HSTRNG COMMON_BLOCK(HSTRNG,hstrng)
COMMON_BLOCK_DEF(HstrngCommon,HSTRNG);

typedef struct {
   Float_t  yp[300][3];
   Float_t  yt[300][3];
} HjcrdnCommon;
#define HJCRDN COMMON_BLOCK(HJCRDN,hjcrdn)
COMMON_BLOCK_DEF(HjcrdnCommon,HJCRDN);

typedef struct {
  Int_t    mstu[200];
  Float_t  paru[200];
  Int_t    mstj[200];
  Float_t  parj[200];
} Ludat1Common;
#define LUDAT1 COMMON_BLOCK(LUDAT1A,ludat1a)
COMMON_BLOCK_DEF(Ludat1Common,LUDAT1);

typedef struct {
  Int_t   lblast[_MAXNPARTICLE_];
  Float_t xlast[_MAXNPARTICLE_][4];
  Float_t plast[_MAXNPARTICLE_][4];
  Int_t   nlast;
} HBTCommon;
#define HBT COMMON_BLOCK(HBT,hbt)
COMMON_BLOCK_DEF(HBTCommon,HBT);

typedef struct {
  Int_t nevent;
  Int_t isoft;
  Int_t isflag;
  Int_t izpc;
} AnimCommon;
#define ANIM COMMON_BLOCK(ANIM,anim)
COMMON_BLOCK_DEF(AnimCommon,ANIM);

typedef struct {
  Float_t xmp; 
  Float_t xmu; 
  Float_t alpha;
  Float_t rscut2;
  Float_t cutof2;
} Para2Common;
#define PARA2 COMMON_BLOCK(PARA2,para2)
COMMON_BLOCK_DEF(Para2Common,PARA2);

typedef struct {
  Float_t masspr;
  Float_t massta;
  Int_t iseed;
  Int_t iavoid;
  Float_t dt;
} Input1Common;
#define INPUT1 COMMON_BLOCK(INPUT1,input1)
COMMON_BLOCK_DEF(Input1Common,INPUT1);

typedef struct {
  Int_t ilab;
  Int_t manyb;
  Int_t ntmax;
  Int_t icoll;
  Int_t insys;
  Int_t ipot;
  Int_t mode; 
  Int_t imomen;
  Int_t nfreq;
  Int_t icflow;
  Int_t icrho;
  Int_t icou;
  Int_t kpoten;
  Int_t kmul; 
} Input2Common;
#define INPUT2 COMMON_BLOCK(INPUT2,input2)
COMMON_BLOCK_DEF(Input2Common,INPUT2);

typedef struct {
  Int_t ipop;
} PopcornCommon;
#define POPCORN COMMON_BLOCK(POPCORN,popcorn)
COMMON_BLOCK_DEF(PopcornCommon,POPCORN);

#undef _MAXNPARTICLE_ 

} /*extern*/
#endif
Commit	Line	Data
0119ef9a	1	#ifndef ROOT_ACommon
	2	#define ROOT_ACommon
	3
	4	#ifndef __CFORTRAN_LOADED
	5	//*KEEP,cfortran.
	6	#include "cfortran.h"
	7	//*KEND.
	8	#endif
	9
d12123e8	10	#define _MAXNPARTICLE_ 150001
0119ef9a	11
	12	extern "C" {
	13
	14	typedef struct {
	15	Float_t hipr1[100];
	16	Int_t ihpr2[50];
	17	Float_t hint1[100];
	18	Int_t ihnt2[50];
	19	} HparntCommon;
	20	#define HPARNT COMMON_BLOCK(HPARNT,hparnt)
	21	COMMON_BLOCK_DEF(HparntCommon,HPARNT);
	22
	23	typedef struct {
	24	Int_t natt;
	25	Float_t eatt;
	26	Int_t jatt;
	27	Int_t nt;
	28	Int_t np;
	29	Int_t n0;
	30	Int_t n01;
	31	Int_t n10;
	32	Int_t n11;
	33	} Hmain1Common;
	34	#define HMAIN1 COMMON_BLOCK(HMAIN1,hmain1)
	35	COMMON_BLOCK_DEF(Hmain1Common,HMAIN1);
	36
	37	typedef struct {
	38	Float_t bb;
	39	} ExtraCentCommon;
	40	#define EXTRACENT COMMON_BLOCK(EXTRACENT,extracent)
	41	COMMON_BLOCK_DEF(ExtraCentCommon,EXTRACENT);
	42
	43	typedef struct {
	44	Int_t katt[4][_MAXNPARTICLE_];
	45	Float_t patt[4][_MAXNPARTICLE_];
	46	Float_t vatt[4][_MAXNPARTICLE_];
	47	} Hmain2Common;
	48	#define HMAIN2 COMMON_BLOCK(HMAIN2,hmain2)
	49	COMMON_BLOCK_DEF(Hmain2Common,HMAIN2);
	50
	51	typedef struct {
	52	Int_t npj[300];
	53	Int_t kfpj[500][300];
	54	Float_t pjpx[500][300];
	55	Float_t pjpy[500][300];
	56	Float_t pjpz[500][300];
	57	Float_t pjpe[500][300];
	58	Float_t pjpm[500][300];
	59	Int_t ntj[300];
	60	Int_t kftj[500][300];
	61	Float_t pjtx[500][300];
	62	Float_t pjty[500][300];
	63	Float_t pjtz[500][300];
	64	Float_t pjte[500][300];
	65	Float_t pjtm[500][300];
	66	} Hjjet1Common;
	67	#define HJJET1 COMMON_BLOCK(HJJET1,hjjet1)
	68	COMMON_BLOCK_DEF(Hjjet1Common,HJJET1);
	69
	70	typedef struct {
	71	Int_t nsg;
	72	Int_t njsg[_MAXNPARTICLE_];
	73	Int_t iasg[3][_MAXNPARTICLE_];
	74	Int_t k1sg[100][_MAXNPARTICLE_];
75	Int_t k2sg[100][_MAXNPARTICLE_];
76	Float_t pxsg[100][_MAXNPARTICLE_];
77	Float_t pysg[100][_MAXNPARTICLE_];
78	Float_t pzsg[100][_MAXNPARTICLE_];
79	Float_t pesg[100][_MAXNPARTICLE_];
80	Float_t pmsg[100][_MAXNPARTICLE_];
81	} Hjjet2Common;
82	#define HJJET2 COMMON_BLOCK(HJJET2,hjjet2)
83	COMMON_BLOCK_DEF(Hjjet2Common,HJJET2);
84
85	typedef struct {
86	Int_t nfp[15][300];
87	Float_t pp[15][300];
88	Int_t nft[15][300];
89	Float_t pt[15][300];
90	} HstrngCommon;
91	#define HSTRNG COMMON_BLOCK(HSTRNG,hstrng)
92	COMMON_BLOCK_DEF(HstrngCommon,HSTRNG);
93
94	typedef struct {
95	Float_t yp[300][3];
96	Float_t yt[300][3];
97	} HjcrdnCommon;
98	#define HJCRDN COMMON_BLOCK(HJCRDN,hjcrdn)
99	COMMON_BLOCK_DEF(HjcrdnCommon,HJCRDN);
100
101	typedef struct {
102	Int_t mstu[200];
103	Float_t paru[200];
104	Int_t mstj[200];
105	Float_t parj[200];
106	} Ludat1Common;
107	#define LUDAT1 COMMON_BLOCK(LUDAT1A,ludat1a)
108	COMMON_BLOCK_DEF(Ludat1Common,LUDAT1);
109
110	typedef struct {
111	Int_t lblast[_MAXNPARTICLE_];
112	Float_t xlast[_MAXNPARTICLE_][4];
113	Float_t plast[_MAXNPARTICLE_][4];
114	Int_t nlast;
115	} HBTCommon;
116	#define HBT COMMON_BLOCK(HBT,hbt)
117	COMMON_BLOCK_DEF(HBTCommon,HBT);
118
119	typedef struct {
120	Int_t nevent;
121	Int_t isoft;
122	Int_t isflag;
123	Int_t izpc;
124	} AnimCommon;
125	#define ANIM COMMON_BLOCK(ANIM,anim)
126	COMMON_BLOCK_DEF(AnimCommon,ANIM);
127
128	typedef struct {
129	Float_t xmp;
130	Float_t xmu;
131	Float_t alpha;
132	Float_t rscut2;
133	Float_t cutof2;
134	} Para2Common;
135	#define PARA2 COMMON_BLOCK(PARA2,para2)
136	COMMON_BLOCK_DEF(Para2Common,PARA2);
137
138	typedef struct {
139	Float_t masspr;
140	Float_t massta;
141	Int_t iseed;
142	Int_t iavoid;
143	Float_t dt;
144	} Input1Common;
145	#define INPUT1 COMMON_BLOCK(INPUT1,input1)
146	COMMON_BLOCK_DEF(Input1Common,INPUT1);
147
148	typedef struct {
149	Int_t ilab;
150	Int_t manyb;
151	Int_t ntmax;
152	Int_t icoll;
153	Int_t insys;
154	Int_t ipot;
155	Int_t mode;
156	Int_t imomen;
157	Int_t nfreq;
158	Int_t icflow;
159	Int_t icrho;
160	Int_t icou;
161	Int_t kpoten;
162	Int_t kmul;
163	} Input2Common;
164	#define INPUT2 COMMON_BLOCK(INPUT2,input2)
165	COMMON_BLOCK_DEF(Input2Common,INPUT2);
166
167	typedef struct {
168	Int_t ipop;
169	} PopcornCommon;
170	#define POPCORN COMMON_BLOCK(POPCORN,popcorn)
171	COMMON_BLOCK_DEF(PopcornCommon,POPCORN);
172
173	#undef _MAXNPARTICLE_
174
175	} /extern/
176	#endif
177