10 #define QUL_INTEGRAL_H
25 ICache::Ival qlI1(
const Kinem1& k);
26 ICache::Ival qlI2(
const Kinem2& k);
27 ICache::Ival qlI3(
const Kinem3& k);
28 ICache::Ival qlI4(
const Kinem4& k);
31 #define qlprec F77_FUNC(ffprec,FFPREC)
32 #define qlflag F77_FUNC(ffflag,FFFLAG)
33 # ifdef HAVE_QCDLOOP1_H
34 # include <qcdloop1.h>
37 void F77_FUNC(qlinit, QLINIT)();
38 void F77_FUNC(ffexi, FFEXI)();
41 void F77_FUNC(qli1, QLI1)(std::complex<double>* rslt,
double* m1,
double* mu2,
int* ep);
42 void F77_FUNC(qli2, QLI2)(std::complex<double>* rslt,
double* p1,
double* m1,
double* m2,
double* mu2,
int* ep);
43 void F77_FUNC(qli3, QLI3)(std::complex<double>* rslt,
double* p1,
double* p2,
double* p3,
double* m1,
double* m2,
double* m3,
44 double* mu2,
int* ep);
45 void F77_FUNC(qli4, QLI4)(std::complex<double>* rslt,
double* p1,
double* p2,
double* p3,
double* p4,
double* s12,
double* s23,
46 double* m1,
double* m2,
double* m3,
double* m4,
double* mu2,
int* ep);
48 std::complex<double> F77_FUNC(qli1, QLI1)(
double* m1,
double* mu2,
int* ep);
49 std::complex<double> F77_FUNC(qli2, QLI2)(
double* p1,
double* m1,
double* m2,
double* mu2,
int* ep);
50 std::complex<double> F77_FUNC(qli3, QLI3)(
double* p1,
double* p2,
double* p3,
double* m1,
double* m2,
double* m3,
double* mu2,
52 std::complex<double> F77_FUNC(qli4, QLI4)(
double* p1,
double* p2,
double* p3,
double* p4,
double* s12,
double* s23,
double* m1,
53 double* m2,
double* m3,
double* m4,
double* mu2,
int* ep);
57 double xloss, precx, precc, xalogm, xclogm, xalog2, xclog2, reqprc;
60 int lwrite, ltest, l4also, ldc3c4, lmem, lwarn, ldot,
61 nevent, ner, id, idsub, nwidth, nschem, onshel, idot;
69 void F77_FUNC_(avh_olo_mu_set, AVH_OLO_MU_SET)(
double* mu);
70 void F77_FUNC_(avh_olo_onshell, AVH_OLO_ONSHELL)(
double* thrs);
71 void F77_FUNC_(avh_olo_a0m, AVH_OLO_A0M)(std::complex<double>* rslt,
double* m1);
72 void F77_FUNC_(avh_olo_b0m, AVH_OLO_B0M)(std::complex<double>* rslt,
double* p1,
double* m1,
double* m2);
73 void F77_FUNC_(avh_olo_c0m, AVH_OLO_C0M)(std::complex<double>* rslt,
double* p1,
double* p2,
double* p3,
double* m1,
double* m2,
75 void F77_FUNC_(avh_olo_d0m, AVH_OLO_D0M)(std::complex<double>* rslt,
double* p1,
double* p2,
double* p3,
double* p4,
double* p12,
76 double* p23,
double* m1,
double* m2,
double* m3,
double* m4);