qcdloop1.h

Go to the documentation of this file.

/* 
 * qcdloop1.h - header file for QCDLoop1 library
 * 
 */
 
#ifndef QCDLOOP1_H
#define QCDLOOP1_H
 
/* NB endline spaces are significant */
#ifdef QL_BUILDSYMS
#   define QL_EXPORT(type) QL_EXPORT_MARK 
#else
#   define QL_EXPORT(type) type 
#endif
 
/* if language is C++ use standard complex template type */
#ifdef __cplusplus
#   include <complex>
#   define QL_DEFINE_COMPLEX(R, C) typedef std::complex<R> C
#else
/* if <complex.h> is included, use the C99 complex type.
 * else define a type bit-compatible with C99 complex */
#   if defined(_Complex_I) && defined(complex) && defined(I)
#       define QL_DEFINE_COMPLEX(R, C) typedef R _Complex C
#   else
#       define QL_DEFINE_COMPLEX(R, C) typedef struct { R re,im; } C
#   endif
#endif
 
QL_DEFINE_COMPLEX(double, ql_cmplx_dbl);
 
#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */
 
typedef struct ffprec_struct {
    double xloss;
    double precx;
    double precc;
    double xalogm;
    double xclogm;
    double xalog2;
    double xclog2;
    double reqprc;
} ffprec_type;
 
typedef struct ffflag_struct {
    int lwrite;
    int ltest;
    int l4also;
    int ldc3c4;
    int lmem;
    int lwarn;
    int ldot;
    int nevent;
    int ner;
    int id;
    int idsub;
    int nwidth;
    int nschem;
    int onshel;
    int idot;
} ffflag_type;
 
QL_EXPORT(void) qlinit_();
QL_EXPORT(void) ffexi_();
 
#ifdef USE_F2C
QL_EXPORT(void) qli1_(ql_cmplx_dbl *rslt, double *m1, double *mu2, int *ep);
QL_EXPORT(void) qli2_(ql_cmplx_dbl *rslt, double *p1, double *m1, double *m2, double *mu2, int *ep);
QL_EXPORT(void) qli3_(ql_cmplx_dbl *rslt, double *p1, double *p2, double *p3, double *m1, double *m2, double *m3, double *mu2, int *ep);
QL_EXPORT(void) qli4_(ql_cmplx_dbl *rslt, double *p1, double *p2, double *p3, double *p4, double *s12, double *s23, double *m1, double *m2, double *m3, double *m4, double *mu2, int *ep);
#else
QL_EXPORT(ql_cmplx_dbl) qli1_(double *m1, double *mu2, int *ep);
QL_EXPORT(ql_cmplx_dbl) qli2_(double *p1, double *m1, double *m2, double *mu2, int *ep);
QL_EXPORT(ql_cmplx_dbl) qli3_(double *p1, double *p2, double *p3, double *m1, double *m2, double *m3, double *mu2, int *ep);
QL_EXPORT(ql_cmplx_dbl) qli4_(double *p1, double *p2, double *p3, double *p4, double *s12, double *s23, double *m1, double *m2, double *m3, double *m4, double *mu2, int *ep);
#endif
 
extern QL_EXPORT(struct ffprec_struct) ffprec_;
extern QL_EXPORT(struct ffflag_struct) ffflag_;
 
#ifdef __cplusplus
}
#endif
 
#endif /* QCDLOOP1_H */