herwig is hosted by Hepforge, IPPP Durham
Herwig  7.2.1
looptools.h
1 #if 0
2 looptools.h
3 the header file for Fortran with all definitions for LoopTools
4 this file is part of LoopTools
5 last modified 27 Feb 14 th
6 #endif
7 
8 
9 #ifndef LOOPTOOLS_H
10 #define LOOPTOOLS_H
11 
12 #define aa0 1
13 #define aa00 4
14 #define Naa 6
15 
16 #define bb0 1
17 #define bb1 4
18 #define bb00 7
19 #define bb11 10
20 #define bb001 13
21 #define bb111 16
22 #define dbb0 19
23 #define dbb1 22
24 #define dbb00 25
25 #define dbb11 28
26 #define dbb001 31
27 #define Nbb 33
28 
29 #define cc0 1
30 #define cc1 4
31 #define cc2 7
32 #define cc00 10
33 #define cc11 13
34 #define cc12 16
35 #define cc22 19
36 #define cc001 22
37 #define cc002 25
38 #define cc111 28
39 #define cc112 31
40 #define cc122 34
41 #define cc222 37
42 #define cc0000 40
43 #define cc0011 43
44 #define cc0012 46
45 #define cc0022 49
46 #define cc1111 52
47 #define cc1112 55
48 #define cc1122 58
49 #define cc1222 61
50 #define cc2222 64
51 #define Ncc 66
52 
53 #define dd0 1
54 #define dd1 4
55 #define dd2 7
56 #define dd3 10
57 #define dd00 13
58 #define dd11 16
59 #define dd12 19
60 #define dd13 22
61 #define dd22 25
62 #define dd23 28
63 #define dd33 31
64 #define dd001 34
65 #define dd002 37
66 #define dd003 40
67 #define dd111 43
68 #define dd112 46
69 #define dd113 49
70 #define dd122 52
71 #define dd123 55
72 #define dd133 58
73 #define dd222 61
74 #define dd223 64
75 #define dd233 67
76 #define dd333 70
77 #define dd0000 73
78 #define dd0011 76
79 #define dd0012 79
80 #define dd0013 82
81 #define dd0022 85
82 #define dd0023 88
83 #define dd0033 91
84 #define dd1111 94
85 #define dd1112 97
86 #define dd1113 100
87 #define dd1122 103
88 #define dd1123 106
89 #define dd1133 109
90 #define dd1222 112
91 #define dd1223 115
92 #define dd1233 118
93 #define dd1333 121
94 #define dd2222 124
95 #define dd2223 127
96 #define dd2233 130
97 #define dd2333 133
98 #define dd3333 136
99 #define dd00001 139
100 #define dd00002 142
101 #define dd00003 145
102 #define dd00111 148
103 #define dd00112 151
104 #define dd00113 154
105 #define dd00122 157
106 #define dd00123 160
107 #define dd00133 163
108 #define dd00222 166
109 #define dd00223 169
110 #define dd00233 172
111 #define dd00333 175
112 #define dd11111 178
113 #define dd11112 181
114 #define dd11113 184
115 #define dd11122 187
116 #define dd11123 190
117 #define dd11133 193
118 #define dd11222 196
119 #define dd11223 199
120 #define dd11233 202
121 #define dd11333 205
122 #define dd12222 208
123 #define dd12223 211
124 #define dd12233 214
125 #define dd12333 217
126 #define dd13333 220
127 #define dd22222 223
128 #define dd22223 226
129 #define dd22233 229
130 #define dd22333 232
131 #define dd23333 235
132 #define dd33333 238
133 #define Ndd 240
134 
135 #define ee0 1
136 #define ee1 4
137 #define ee2 7
138 #define ee3 10
139 #define ee4 13
140 #define ee00 16
141 #define ee11 19
142 #define ee12 22
143 #define ee13 25
144 #define ee14 28
145 #define ee22 31
146 #define ee23 34
147 #define ee24 37
148 #define ee33 40
149 #define ee34 43
150 #define ee44 46
151 #define ee001 49
152 #define ee002 52
153 #define ee003 55
154 #define ee004 58
155 #define ee111 61
156 #define ee112 64
157 #define ee113 67
158 #define ee114 70
159 #define ee122 73
160 #define ee123 76
161 #define ee124 79
162 #define ee133 82
163 #define ee134 85
164 #define ee144 88
165 #define ee222 91
166 #define ee223 94
167 #define ee224 97
168 #define ee233 100
169 #define ee234 103
170 #define ee244 106
171 #define ee333 109
172 #define ee334 112
173 #define ee344 115
174 #define ee444 118
175 #define ee0000 121
176 #define ee0011 124
177 #define ee0012 127
178 #define ee0013 130
179 #define ee0014 133
180 #define ee0022 136
181 #define ee0023 139
182 #define ee0024 142
183 #define ee0033 145
184 #define ee0034 148
185 #define ee0044 151
186 #define ee1111 154
187 #define ee1112 157
188 #define ee1113 160
189 #define ee1114 163
190 #define ee1122 166
191 #define ee1123 169
192 #define ee1124 172
193 #define ee1133 175
194 #define ee1134 178
195 #define ee1144 181
196 #define ee1222 184
197 #define ee1223 187
198 #define ee1224 190
199 #define ee1233 193
200 #define ee1234 196
201 #define ee1244 199
202 #define ee1333 202
203 #define ee1334 205
204 #define ee1344 208
205 #define ee1444 211
206 #define ee2222 214
207 #define ee2223 217
208 #define ee2224 220
209 #define ee2233 223
210 #define ee2234 226
211 #define ee2244 229
212 #define ee2333 232
213 #define ee2334 235
214 #define ee2344 238
215 #define ee2444 241
216 #define ee3333 244
217 #define ee3334 247
218 #define ee3344 250
219 #define ee3444 253
220 #define ee4444 256
221 #define Nee 258
222 
223 #define KeyA0 2**0
224 #define KeyBget 2**2
225 #define KeyC0 2**4
226 #define KeyD0 2**6
227 #define KeyD0C 2**8
228 #define KeyE0 2**10
229 #define KeyEget 2**12
230 #define KeyEgetC 2**14
231 #define KeyAll 21845
232 
233 #define DebugA 2**0
234 #define DebugB 2**1
235 #define DebugC 2**2
236 #define DebugD 2**3
237 #define DebugE 2**4
238 #define DebugAll 31
239 
240 #define memindex integer*8
241 #ifndef ComplexType
242 #define ComplexType double complex
243 #endif
244 #ifndef RealType
245 #define RealType double precision
246 #endif
247 
248 #define Aval(id,p) cache(p+id,1)
249 #define AvalC(id,p) cache(p+id,2)
250 #define Bval(id,p) cache(p+id,3)
251 #define BvalC(id,p) cache(p+id,4)
252 #define Cval(id,p) cache(p+id,5)
253 #define CvalC(id,p) cache(p+id,6)
254 #define Dval(id,p) cache(p+id,7)
255 #define DvalC(id,p) cache(p+id,8)
256 #define Eval(id,p) cache(p+id,9)
257 #define EvalC(id,p) cache(p+id,10)
258 
259 #define Ccache 0
260 #define Dcache 0
261 
262 #endif
263 
264  integer ncaches
265  parameter (ncaches = 10)
266 
267  ComplexType cache(2,ncaches)
268  common /ltvars/ cache
269 
270  ComplexType A0, A0C, A00, A00C, B0i, B0iC
271  ComplexType B0, B1, B00, B11, B001, B111
272  ComplexType B0C, B1C, B00C, B11C, B001C, B111C
273  ComplexType DB0, DB1, DB00, DB11, DB001
274  ComplexType DB0C, DB1C, DB00C, DB11C, DB001C
275  ComplexType C0, C0C, C0i, C0iC
276  ComplexType D0, D0C, D0i, D0iC
277  ComplexType E0, E0C, E0i, E0iC
278  ComplexType Li2, Li2C, Li2omx, Li2omxC
279  memindex Aget, AgetC, Bget, BgetC, Cget, CgetC
280  memindex Dget, DgetC, Eget, EgetC
281  RealType getmudim, getdelta, getlambda, getminmass
282  RealType getmaxdev
283  integer getepsi, getwarndigits, geterrdigits
284  integer getversionkey, getdebugkey
285  integer getcachelast
286 
287  external A0, A0C, A00, A00C, B0i, B0iC
288  external B0, B1, B00, B11, B001, B111
289  external B0C, B1C, B00C, B11C, B001C, B111C
290  external DB0, DB1, DB00, DB11, DB001
291  external DB0C, DB1C, DB00C, DB11C, DB001C
292  external C0, C0C, C0i, C0iC
293  external D0, D0C, D0i, D0iC
294  external E0, E0C, E0i, E0iC
295  external Li2, Li2C, Li2omx, Li2omxC
296  external Aget, AgetC, Bget, BgetC, Cget, CgetC
297  external Dget, DgetC, Eget, EgetC
298  external getmudim, getdelta, getlambda, getminmass
299  external getmaxdev
300  external getepsi, getwarndigits, geterrdigits
301  external getversionkey, getdebugkey
302  external getcachelast
303