flexiblesusy is hosted by Hepforge, IPPP Durham
FlexibleSUSY
lt.h
Go to the documentation of this file.
1* lt.h
2* internal common blocks for the LoopTools routines
3* this file is part of LoopTools
4* last modified 30 Jan 14 th
5
6
7#include "ff.h"
8
9* the cache-pointer structure is (see cache.c):
10* 1. int valid
11* 2. Node *last
12* 3. Node *first
13* 4. (not used)
14
15 integer ncaches
16 parameter (ncaches = 10)
17
18 integer*8 cacheptr(4,KIND,ncaches)
19 integer*8 savedptr(2,ncaches)
20 RealType maxdev
21 integer epsi, warndigits, errdigits
22 integer serial, versionkey
23 integer debugkey, debugfrom, debugto
24
25 common /ltvars/
26 & cacheptr, savedptr,
27 & maxdev,
28 & epsi, warndigits, errdigits,
29 & serial, versionkey,
30 & debugkey, debugfrom, debugto
31
32 integer cmpbits
33
34 common /ltcache/ cmpbits
35
36 ComplexType cache(2,ncaches)
37 equivalence (cacheptr, cache)
38
39#ifndef sig
40#define sig(c) int(sign(1D0,Re(r))
41#define DEBUGLEVEL ibits(debugkey,8,2)
42#endif
43
#define KIND
Definition: defs.h:641
without even the implied warranty of !MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE See the GNU !General Public License for more details !You should have received a copy of the GNU General Public License !along with FlexibleSUSY If not
#define sig(c)
#define DEBUGLEVEL
double D0(double m1, double m2, double m3, double m4) noexcept
(arguments are interpreted as unsquared)
#define Re
Definition: types.h:12
#define ComplexType
Definition: types.h:11
#define RealType
Definition: types.h:10