herwig is hosted by Hepforge, IPPP Durham
Herwig  7.2.1
defs.h
1 * defs.h
2 * internal definitions for the LoopTools routines
3 * this file is part of LoopTools
4 * last modified 28 Feb 14 th
5 
6 
7 #ifdef COMPLEXPARA
8 
9 #define XAget AgetC
10 #define XAput AputC
11 #define XAputnocache AputnocacheC
12 #define XA0i A0iC
13 #define XA0 A0C
14 #define XA00 A00C
15 #define XAcoeff AcoeffC
16 #define XBpara BparaC
17 #define XBget BgetC
18 #define XBput BputC
19 #define XBputnocache BputnocacheC
20 #define XB0i B0iC
21 #define XB0 B0C
22 #define XB1 B1C
23 #define XB00 B00C
24 #define XB11 B11C
25 #define XB001 B001C
26 #define XB111 B111C
27 #define XDB0 DB0C
28 #define XDB1 DB1C
29 #define XDB00 DB00C
30 #define XDB11 DB11C
31 #define XDB001 DB001C
32 #define XBcoeff BcoeffC
33 #define XBcoeffFF BcoeffFFC
34 #define XC0func C0funcC
35 #define XCpara CparaC
36 #define XCget CgetC
37 #define XCput CputC
38 #define XC0nocache C0nocacheC
39 #define XC0i C0iC
40 #define XC0 C0C
41 #define XCcoefx CcoefxC
42 #define XCcoeff CcoeffC
43 #define XD0func D0funcC
44 #define XDpara DparaC
45 #define XDget DgetC
46 #define XDput DputC
47 #define XD0nocache D0nocacheC
48 #define XD0i D0iC
49 #define XD0 D0C
50 #define XDcoefx DcoefxC
51 #define XDcoeff DcoeffC
52 #define XE0func E0funcC
53 #define XEpara EparaC
54 #define XEget EgetC
55 #define XEput EputC
56 #define XE0nocache E0nocacheC
57 #define XE0i E0iC
58 #define XE0 E0C
59 #define XEcoefx EcoefxC
60 #define XEcoeff EcoeffC
61 #define XEcoeffa EcoeffaC
62 #define XEcoeffb EcoeffbC
63 #define XEcheck EcheckC
64 #define XInvGramE InvGramEC
65 #define XSolve SolveC
66 #define XEigen EigenC
67 #define XDecomp DecompC
68 #define XDet DetmC
69 #define XInverse InverseC
70 #define XDumpPara DumpParaC
71 #define XDumpCoeff DumpCoeffC
72 #define XLi2 Li2C
73 #define XLi2sub li2csub
74 #define XLi2omx Li2omxC
75 #define XLi2omxsub li2omxcsub
76 #define Xfpij2 cfpij2
77 #define Xffa0 ffca0
78 #define Xffb0 ffcb0
79 #define Xffb1 ffcb1
80 #define Xffb2p ffcb2p
81 #define Xffdb0 ffcdb0
82 
83 #define RC 2
84 #define DVAR ComplexType
85 #define QVAR ComplexType
86 #define QREAL RealType
87 #define QPREC(x) x
88 #define QCC(x) Conjugate(x)
89 #define QRE(x) Re(x)
90 
91 #else
92 
93 #define XAget Aget
94 #define XAput Aput
95 #define XAputnocache Aputnocache
96 #define XA0i A0i
97 #define XA0 A0
98 #define XA00 A00
99 #define XAcoeff Acoeff
100 #define XBpara Bpara
101 #define XBget Bget
102 #define XBput Bput
103 #define XBputnocache Bputnocache
104 #define XB0i B0i
105 #define XB0 B0
106 #define XB1 B1
107 #define XB00 B00
108 #define XB11 B11
109 #define XB001 B001
110 #define XB111 B111
111 #define XDB0 DB0
112 #define XDB1 DB1
113 #define XDB00 DB00
114 #define XDB11 DB11
115 #define XDB001 DB001
116 #define XBcoeff Bcoeff
117 #define XBcoeffFF BcoeffFF
118 #define XC0func C0func
119 #define XCpara Cpara
120 #define XCget Cget
121 #define XCput Cput
122 #define XC0nocache C0nocache
123 #define XC0i C0i
124 #define XC0 C0
125 #define XCcoefx Ccoefx
126 #define XCcoeff Ccoeff
127 #define XD0func D0func
128 #define XDpara Dpara
129 #define XDget Dget
130 #define XDput Dput
131 #define XD0nocache D0nocache
132 #define XD0i D0i
133 #define XD0 D0
134 #define XDcoefx Dcoefx
135 #define XDcoeff Dcoeff
136 #define XE0func E0func
137 #define XEpara Epara
138 #define XEget Eget
139 #define XEput Eput
140 #define XE0nocache E0nocache
141 #define XE0i E0i
142 #define XE0 E0
143 #define XEcoefx Ecoefx
144 #define XEcoeff Ecoeff
145 #define XEcoeffa Ecoeffa
146 #define XEcoeffb Ecoeffb
147 #define XEcheck Echeck
148 #define XInvGramE InvGramE
149 #define XSolve Solve
150 #define XEigen Eigen
151 #define XDecomp Decomp
152 #define XDet Detm
153 #define XInverse Inverse
154 #define XDumpPara DumpPara
155 #define XDumpCoeff DumpCoeff
156 #define XLi2 Li2
157 #define XLi2sub li2sub
158 #define XLi2omx Li2omx
159 #define XLi2omxsub li2omxsub
160 #define Xfpij2 fpij2
161 #define Xffa0 ffxa0
162 #define Xffb0 ffxb0
163 #define Xffb1 ffxb1
164 #define Xffb2p ffxb2p
165 #define Xffdb0 ffxdb0
166 
167 #define RC 1
168 #define DVAR RealType
169 #if QUAD
170 #define QVAR real*16
171 #define QPREC(x) QEXT(x)
172 #else
173 #define QVAR RealType
174 #define QPREC(x) x
175 #endif
176 #define QREAL QVAR
177 #define QCC(x) x
178 #define QRE(x) x
179 
180 #endif
181 
182 #define Paa 1
183 #define Pbb 3
184 #define Pcc 6
185 #define Pdd 10
186 #define Pee 15
187 
188 #define aa0 1
189 #define AA0 1:3
190 #define aa00 4
191 #define AA00 4:6
192 #define Naa 6
193 
194 #define bb0 1
195 #define BB0 1:3
196 #define bb1 4
197 #define BB1 4:6
198 #define bb00 7
199 #define BB00 7:9
200 #define bb11 10
201 #define BB11 10:12
202 #define bb001 13
203 #define BB001 13:15
204 #define bb111 16
205 #define BB111 16:18
206 #define dbb0 19
207 #define DBB0 19:21
208 #define dbb1 22
209 #define DBB1 22:24
210 #define dbb00 25
211 #define DBB00 25:27
212 #define dbb11 28
213 #define DBB11 28:30
214 #define dbb001 31
215 #define DBB001 31:33
216 #define Nbb 33
217 
218 #define cc0 1
219 #define CC0 1:3
220 #define cc1 4
221 #define CC1 4:6
222 #define cc2 7
223 #define CC2 7:9
224 #define cc00 10
225 #define CC00 10:12
226 #define cc11 13
227 #define CC11 13:15
228 #define cc12 16
229 #define CC12 16:18
230 #define cc22 19
231 #define CC22 19:21
232 #define cc001 22
233 #define CC001 22:24
234 #define cc002 25
235 #define CC002 25:27
236 #define cc111 28
237 #define CC111 28:30
238 #define cc112 31
239 #define CC112 31:33
240 #define cc122 34
241 #define CC122 34:36
242 #define cc222 37
243 #define CC222 37:39
244 #define cc0000 40
245 #define CC0000 40:42
246 #define cc0011 43
247 #define CC0011 43:45
248 #define cc0012 46
249 #define CC0012 46:48
250 #define cc0022 49
251 #define CC0022 49:51
252 #define cc1111 52
253 #define CC1111 52:54
254 #define cc1112 55
255 #define CC1112 55:57
256 #define cc1122 58
257 #define CC1122 58:60
258 #define cc1222 61
259 #define CC1222 61:63
260 #define cc2222 64
261 #define CC2222 64:66
262 #define Ncc 66
263 
264 #define dd0 1
265 #define DD0 1:3
266 #define dd1 4
267 #define DD1 4:6
268 #define dd2 7
269 #define DD2 7:9
270 #define dd3 10
271 #define DD3 10:12
272 #define dd00 13
273 #define DD00 13:15
274 #define dd11 16
275 #define DD11 16:18
276 #define dd12 19
277 #define DD12 19:21
278 #define dd13 22
279 #define DD13 22:24
280 #define dd22 25
281 #define DD22 25:27
282 #define dd23 28
283 #define DD23 28:30
284 #define dd33 31
285 #define DD33 31:33
286 #define dd001 34
287 #define DD001 34:36
288 #define dd002 37
289 #define DD002 37:39
290 #define dd003 40
291 #define DD003 40:42
292 #define dd111 43
293 #define DD111 43:45
294 #define dd112 46
295 #define DD112 46:48
296 #define dd113 49
297 #define DD113 49:51
298 #define dd122 52
299 #define DD122 52:54
300 #define dd123 55
301 #define DD123 55:57
302 #define dd133 58
303 #define DD133 58:60
304 #define dd222 61
305 #define DD222 61:63
306 #define dd223 64
307 #define DD223 64:66
308 #define dd233 67
309 #define DD233 67:69
310 #define dd333 70
311 #define DD333 70:72
312 #define dd0000 73
313 #define DD0000 73:75
314 #define dd0011 76
315 #define DD0011 76:78
316 #define dd0012 79
317 #define DD0012 79:81
318 #define dd0013 82
319 #define DD0013 82:84
320 #define dd0022 85
321 #define DD0022 85:87
322 #define dd0023 88
323 #define DD0023 88:90
324 #define dd0033 91
325 #define DD0033 91:93
326 #define dd1111 94
327 #define DD1111 94:96
328 #define dd1112 97
329 #define DD1112 97:99
330 #define dd1113 100
331 #define DD1113 100:102
332 #define dd1122 103
333 #define DD1122 103:105
334 #define dd1123 106
335 #define DD1123 106:108
336 #define dd1133 109
337 #define DD1133 109:111
338 #define dd1222 112
339 #define DD1222 112:114
340 #define dd1223 115
341 #define DD1223 115:117
342 #define dd1233 118
343 #define DD1233 118:120
344 #define dd1333 121
345 #define DD1333 121:123
346 #define dd2222 124
347 #define DD2222 124:126
348 #define dd2223 127
349 #define DD2223 127:129
350 #define dd2233 130
351 #define DD2233 130:132
352 #define dd2333 133
353 #define DD2333 133:135
354 #define dd3333 136
355 #define DD3333 136:138
356 #define dd00001 139
357 #define DD00001 139:141
358 #define dd00002 142
359 #define DD00002 142:144
360 #define dd00003 145
361 #define DD00003 145:147
362 #define dd00111 148
363 #define DD00111 148:150
364 #define dd00112 151
365 #define DD00112 151:153
366 #define dd00113 154
367 #define DD00113 154:156
368 #define dd00122 157
369 #define DD00122 157:159
370 #define dd00123 160
371 #define DD00123 160:162
372 #define dd00133 163
373 #define DD00133 163:165
374 #define dd00222 166
375 #define DD00222 166:168
376 #define dd00223 169
377 #define DD00223 169:171
378 #define dd00233 172
379 #define DD00233 172:174
380 #define dd00333 175
381 #define DD00333 175:177
382 #define dd11111 178
383 #define DD11111 178:180
384 #define dd11112 181
385 #define DD11112 181:183
386 #define dd11113 184
387 #define DD11113 184:186
388 #define dd11122 187
389 #define DD11122 187:189
390 #define dd11123 190
391 #define DD11123 190:192
392 #define dd11133 193
393 #define DD11133 193:195
394 #define dd11222 196
395 #define DD11222 196:198
396 #define dd11223 199
397 #define DD11223 199:201
398 #define dd11233 202
399 #define DD11233 202:204
400 #define dd11333 205
401 #define DD11333 205:207
402 #define dd12222 208
403 #define DD12222 208:210
404 #define dd12223 211
405 #define DD12223 211:213
406 #define dd12233 214
407 #define DD12233 214:216
408 #define dd12333 217
409 #define DD12333 217:219
410 #define dd13333 220
411 #define DD13333 220:222
412 #define dd22222 223
413 #define DD22222 223:225
414 #define dd22223 226
415 #define DD22223 226:228
416 #define dd22233 229
417 #define DD22233 229:231
418 #define dd22333 232
419 #define DD22333 232:234
420 #define dd23333 235
421 #define DD23333 235:237
422 #define dd33333 238
423 #define DD33333 238:240
424 #define Ndd 240
425 
426 #define ee0 1
427 #define EE0 1:3
428 #define ee1 4
429 #define EE1 4:6
430 #define ee2 7
431 #define EE2 7:9
432 #define ee3 10
433 #define EE3 10:12
434 #define ee4 13
435 #define EE4 13:15
436 #define ee00 16
437 #define EE00 16:18
438 #define ee11 19
439 #define EE11 19:21
440 #define ee12 22
441 #define EE12 22:24
442 #define ee13 25
443 #define EE13 25:27
444 #define ee14 28
445 #define EE14 28:30
446 #define ee22 31
447 #define EE22 31:33
448 #define ee23 34
449 #define EE23 34:36
450 #define ee24 37
451 #define EE24 37:39
452 #define ee33 40
453 #define EE33 40:42
454 #define ee34 43
455 #define EE34 43:45
456 #define ee44 46
457 #define EE44 46:48
458 #define ee001 49
459 #define EE001 49:51
460 #define ee002 52
461 #define EE002 52:54
462 #define ee003 55
463 #define EE003 55:57
464 #define ee004 58
465 #define EE004 58:60
466 #define ee111 61
467 #define EE111 61:63
468 #define ee112 64
469 #define EE112 64:66
470 #define ee113 67
471 #define EE113 67:69
472 #define ee114 70
473 #define EE114 70:72
474 #define ee122 73
475 #define EE122 73:75
476 #define ee123 76
477 #define EE123 76:78
478 #define ee124 79
479 #define EE124 79:81
480 #define ee133 82
481 #define EE133 82:84
482 #define ee134 85
483 #define EE134 85:87
484 #define ee144 88
485 #define EE144 88:90
486 #define ee222 91
487 #define EE222 91:93
488 #define ee223 94
489 #define EE223 94:96
490 #define ee224 97
491 #define EE224 97:99
492 #define ee233 100
493 #define EE233 100:102
494 #define ee234 103
495 #define EE234 103:105
496 #define ee244 106
497 #define EE244 106:108
498 #define ee333 109
499 #define EE333 109:111
500 #define ee334 112
501 #define EE334 112:114
502 #define ee344 115
503 #define EE344 115:117
504 #define ee444 118
505 #define EE444 118:120
506 #define ee0000 121
507 #define EE0000 121:123
508 #define ee0011 124
509 #define EE0011 124:126
510 #define ee0012 127
511 #define EE0012 127:129
512 #define ee0013 130
513 #define EE0013 130:132
514 #define ee0014 133
515 #define EE0014 133:135
516 #define ee0022 136
517 #define EE0022 136:138
518 #define ee0023 139
519 #define EE0023 139:141
520 #define ee0024 142
521 #define EE0024 142:144
522 #define ee0033 145
523 #define EE0033 145:147
524 #define ee0034 148
525 #define EE0034 148:150
526 #define ee0044 151
527 #define EE0044 151:153
528 #define ee1111 154
529 #define EE1111 154:156
530 #define ee1112 157
531 #define EE1112 157:159
532 #define ee1113 160
533 #define EE1113 160:162
534 #define ee1114 163
535 #define EE1114 163:165
536 #define ee1122 166
537 #define EE1122 166:168
538 #define ee1123 169
539 #define EE1123 169:171
540 #define ee1124 172
541 #define EE1124 172:174
542 #define ee1133 175
543 #define EE1133 175:177
544 #define ee1134 178
545 #define EE1134 178:180
546 #define ee1144 181
547 #define EE1144 181:183
548 #define ee1222 184
549 #define EE1222 184:186
550 #define ee1223 187
551 #define EE1223 187:189
552 #define ee1224 190
553 #define EE1224 190:192
554 #define ee1233 193
555 #define EE1233 193:195
556 #define ee1234 196
557 #define EE1234 196:198
558 #define ee1244 199
559 #define EE1244 199:201
560 #define ee1333 202
561 #define EE1333 202:204
562 #define ee1334 205
563 #define EE1334 205:207
564 #define ee1344 208
565 #define EE1344 208:210
566 #define ee1444 211
567 #define EE1444 211:213
568 #define ee2222 214
569 #define EE2222 214:216
570 #define ee2223 217
571 #define EE2223 217:219
572 #define ee2224 220
573 #define EE2224 220:222
574 #define ee2233 223
575 #define EE2233 223:225
576 #define ee2234 226
577 #define EE2234 226:228
578 #define ee2244 229
579 #define EE2244 229:231
580 #define ee2333 232
581 #define EE2333 232:234
582 #define ee2334 235
583 #define EE2334 235:237
584 #define ee2344 238
585 #define EE2344 238:240
586 #define ee2444 241
587 #define EE2444 241:243
588 #define ee3333 244
589 #define EE3333 244:246
590 #define ee3334 247
591 #define EE3334 247:249
592 #define ee3344 250
593 #define EE3344 250:252
594 #define ee3444 253
595 #define EE3444 253:255
596 #define ee4444 256
597 #define EE4444 256:258
598 #define Nee 258
599 
600 #define KeyA0 0
601 #define KeyBget 2
602 #define KeyC0 4
603 #define KeyD0 6
604 #define KeyD0C 8
605 #define KeyE0 10
606 #define KeyEget 12
607 #define KeyEgetC 14
608 
609 #define DebugA 0
610 #define DebugB 1
611 #define DebugC 2
612 #define DebugD 3
613 #define DebugE 4
614 
615 #define memindex integer*8
616 
617 #define Ano RC
618 #define Bno RC+2
619 #define Cno RC+4
620 #define Dno RC+6
621 #define Eno RC+8
622 #define Aval(id,p) cache(p+id,Ano)
623 #define Bval(id,p) cache(p+id,Bno)
624 #define Cval(id,p) cache(p+id,Cno)
625 #define Dval(id,p) cache(p+id,Dno)
626 #define Eval(id,p) cache(p+id,Eno)
627 #define offsetC 2
628 
629 #define M(i) para(1,i)
630 #define P(i) para(1,i+npoint)
631 
632 #define Sgn(i) (1-2*iand(i,1))
633 
634 #define ln(x,s) log(x+(s)*cIeps)
635 
636 #define lnrat(x,y) log((x-cIeps)/(y-cIeps))
637 
638 #define MAXDIM 8
639 
640 #ifndef KIND
641 #define KIND 1
642 #endif
643 
644 *#define WARNINGS
645