flexiblesusy is hosted by Hepforge, IPPP Durham
FlexibleSUSY
defs.h
Go to the documentation of this file.
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