StRoot  1
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Groups Pages
ltproto.h
1 /*
2  ltproto.h.in
3  provides all low-level prototypes for linking a C++ program
4  that uses clooptools.h with the (Fortran) LoopTools library
5  this file is part of LoopTools
6  last modified 28 Jun 04 th
7 */
8 
9 
10 #define A0 a0sub_
11 #define CA0 ca0sub_
12 
13 #define B0 b0sub_
14 #define CB0 cb0sub_
15 #define DB0 db0sub_
16 #define CDB0 cdb0sub_
17 #define B1 b1sub_
18 #define CB1 cb1sub_
19 #define DB1 db1sub_
20 #define CDB1 cdb1sub_
21 #define B00 b00sub_
22 #define CB00 cb00sub_
23 #define DB00 db00sub_
24 #define CDB00 cdb00sub_
25 #define B11 b11sub_
26 #define CB11 cb11sub_
27 #define DB11 db11sub_
28 #define CDB11 cdb11sub_
29 
30 #define C0 c0sub_
31 #define CC0 cc0sub_
32 #define C0i c0isub_
33 #define CC0i cc0isub_
34 #define Cget cget_
35 #define CCget ccget_
36 
37 #define D0 d0sub_
38 #define CD0 cd0sub_
39 #define D0i d0isub_
40 #define CD0i cd0isub_
41 #define Dget dget_
42 #define CDget cdget_
43 
44 #define ffini ffini_
45 #define ffexi ffexi_
46 
47 #define setmudim setmudim_
48 #define getmudim getmudim_
49 #define setdelta setdelta_
50 #define getdelta getdelta_
51 #define setlambda setlambda_
52 #define getlambda getlambda_
53 
54 #define cachelookup cachelookup_
55 #define setcachelast setcachelast_
56 #define getcachelast getcachelast_
57 
58 #define Ccache cbase_
59 #define cbase_(pos) double_complex(cbase_[pos - 1].r, cbase_[pos - 1].i)
60 #define CCcache ccbase_
61 #define ccbase_(pos) double_complex(ccbase_[pos - 1].r, ccbase_[pos - 1].i)
62 #define Dcache dbase_
63 #define dbase_(pos) double_complex(dbase_[pos - 1].r, dbase_[pos - 1].i)
64 #define CDcache cdbase_
65 #define cdbase_(pos) double_complex(cdbase_[pos - 1].r, cdbase_[pos - 1].i)
66 
67 typedef struct { double re, im; } dcomplex;
68 
69 
70 #ifdef __cplusplus
71 extern "C" {
72 #endif
73 
74 void A0(dcomplex *, const double *);
75 void CA0(dcomplex *, const dcomplex *);
76 
77 void B0(dcomplex *, const double *, const double *, const double *);
78 void CB0(dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *);
79 void DB0(dcomplex *, const double *, const double *, const double *);
80 void CDB0(dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *);
81 void B1(dcomplex *, const double *, const double *, const double *);
82 void CB1(dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *);
83 void DB1(dcomplex *, const double *, const double *, const double *);
84 void CDB1(dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *);
85 void B00(dcomplex *, const double *, const double *, const double *);
86 void CB00(dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *);
87 void DB00(dcomplex *, const double *, const double *, const double *);
88 void CDB00(dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *);
89 void B11(dcomplex *, const double *, const double *, const double *);
90 void CB11(dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *);
91 void DB11(dcomplex *, const double *, const double *, const double *);
92 void CDB11(dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *);
93 
94 void C0(dcomplex *,
95  const double *, const double *, const double *,
96  const double *, const double *, const double *);
97 void CC0(dcomplex *,
98  const dcomplex *, const dcomplex *, const dcomplex *,
99  const dcomplex *, const dcomplex *, const dcomplex *);
100 void C0i(dcomplex *, const int *,
101  const double *, const double *, const double *,
102  const double *, const double *, const double *);
103 void CC0i(dcomplex *, const int *,
104  const dcomplex *, const dcomplex *, const dcomplex *,
105  const dcomplex *, const dcomplex *, const dcomplex *);
106 int Cget(
107  const double *, const double *, const double *,
108  const double *, const double *, const double *);
109 int CCget(
110  const dcomplex *, const dcomplex *, const dcomplex *,
111  const dcomplex *, const dcomplex *, const dcomplex *);
112 
113 void D0(dcomplex *,
114  const double *, const double *, const double *, const double *,
115  const double *, const double *,
116  const double *, const double *, const double *, const double *);
117 void CD0(dcomplex *,
118  const dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *,
119  const dcomplex *, const dcomplex *,
120  const dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *);
121 void D0i(dcomplex *, const int *,
122  const double *, const double *, const double *, const double *,
123  const double *, const double *,
124  const double *, const double *, const double *, const double *);
125 void CD0i(dcomplex *, const int *,
126  const dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *,
127  const dcomplex *, const dcomplex *,
128  const dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *);
129 int Dget(
130  const double *, const double *, const double *, const double *,
131  const double *, const double *,
132  const double *, const double *, const double *, const double *);
133 int CDget(
134  const dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *,
135  const dcomplex *, const dcomplex *,
136  const dcomplex *, const dcomplex *, const dcomplex *, const dcomplex *);
137 
138 void ffini();
139 
140 void ffexi();
141 
142 void setmudim(const double *);
143 double getmudim();
144 void setdelta(const double *);
145 double getdelta();
146 void setlambda(const double *);
147 double getlambda();
148 
149 void setcachelast(const dcomplex *, const int *);
150 int getcachelast(const dcomplex *);
151 
152 extern dcomplex Ccache[], CCcache[], Dcache[], CDcache[];
153 
154 #ifdef __cplusplus
155 }
156 #endif
157