herwig is hosted by Hepforge, IPPP Durham
Herwig  7.2.1
lt.h
1 * lt.h
2 * internal common blocks for the LoopTools routines
3 * this file is part of LoopTools
4 * last modified 6 Mar 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 DEBUGLEVEL
40 #define DEBUGLEVEL ibits(debugkey,8,2)
41 #endif
42 
const Complex epsi
Epsilon parameter.