]>
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 { | |
32846b63 | 129 | Double_t xmp; |
130 | Double_t xmu; | |
131 | Double_t alpha; | |
132 | Double_t rscut2; | |
133 | Double_t cutof2; | |
0119ef9a | 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 | ||
357ee314 | 173 | //#undef _MAXNPARTICLE_ |
0119ef9a | 174 | |
175 | } /*extern*/ | |
176 | #endif | |
177 |