2* real-based type declarations
3*
this file is part of LoopTools
4* last modified 9 Jul 12 th
10#define RealType double precision
11#define ComplexType double complex
14#define Conjugate DCONJG
15#define ToComplex DCMPLX
17#define Sq(c) Re((c)*Conjugate(c))
18#define Sqrtc(c) sqrt(ToComplex(c))