1 #ifndef BLAS_H
2 #define BLAS_H
3 
4 #ifdef __cplusplus
5 extern "C"
6 {
7 #endif
8 
9 #define BLASFUNC(FUNC) FUNC##_
10 
11 #ifdef __WIN64__
12 typedef long long BLASLONG;
13 typedef unsigned long long BLASULONG;
14 #else
15 typedef long BLASLONG;
16 typedef unsigned long BLASULONG;
17 #endif
18 
19 int    BLASFUNC(xerbla)(const char *, int *info, int);
20 
21 float  BLASFUNC(sdot)  (int *, float  *, int *, float  *, int *);
22 float  BLASFUNC(sdsdot)(int *, float  *,        float  *, int *, float  *, int *);
23 
24 double BLASFUNC(dsdot) (int *, float  *, int *, float  *, int *);
25 double BLASFUNC(ddot)  (int *, double *, int *, double *, int *);
26 double BLASFUNC(qdot)  (int *, double *, int *, double *, int *);
27 
28 int  BLASFUNC(cdotuw)  (int *, float  *, int *, float  *, int *, float*);
29 int  BLASFUNC(cdotcw)  (int *, float  *, int *, float  *, int *, float*);
30 int  BLASFUNC(zdotuw)  (int *, double  *, int *, double  *, int *, double*);
31 int  BLASFUNC(zdotcw)  (int *, double  *, int *, double  *, int *, double*);
32 
33 int    BLASFUNC(saxpy) (int *, float  *, float  *, int *, float  *, int *);
34 int    BLASFUNC(daxpy) (int *, double *, double *, int *, double *, int *);
35 int    BLASFUNC(qaxpy) (int *, double *, double *, int *, double *, int *);
36 int    BLASFUNC(caxpy) (int *, float  *, float  *, int *, float  *, int *);
37 int    BLASFUNC(zaxpy) (int *, double *, double *, int *, double *, int *);
38 int    BLASFUNC(xaxpy) (int *, double *, double *, int *, double *, int *);
39 int    BLASFUNC(caxpyc)(int *, float  *, float  *, int *, float  *, int *);
40 int    BLASFUNC(zaxpyc)(int *, double *, double *, int *, double *, int *);
41 int    BLASFUNC(xaxpyc)(int *, double *, double *, int *, double *, int *);
42 
43 int    BLASFUNC(scopy) (int *, float  *, int *, float  *, int *);
44 int    BLASFUNC(dcopy) (int *, double *, int *, double *, int *);
45 int    BLASFUNC(qcopy) (int *, double *, int *, double *, int *);
46 int    BLASFUNC(ccopy) (int *, float  *, int *, float  *, int *);
47 int    BLASFUNC(zcopy) (int *, double *, int *, double *, int *);
48 int    BLASFUNC(xcopy) (int *, double *, int *, double *, int *);
49 
50 int    BLASFUNC(sswap) (int *, float  *, int *, float  *, int *);
51 int    BLASFUNC(dswap) (int *, double *, int *, double *, int *);
52 int    BLASFUNC(qswap) (int *, double *, int *, double *, int *);
53 int    BLASFUNC(cswap) (int *, float  *, int *, float  *, int *);
54 int    BLASFUNC(zswap) (int *, double *, int *, double *, int *);
55 int    BLASFUNC(xswap) (int *, double *, int *, double *, int *);
56 
57 float  BLASFUNC(sasum) (int *, float  *, int *);
58 float  BLASFUNC(scasum)(int *, float  *, int *);
59 double BLASFUNC(dasum) (int *, double *, int *);
60 double BLASFUNC(qasum) (int *, double *, int *);
61 double BLASFUNC(dzasum)(int *, double *, int *);
62 double BLASFUNC(qxasum)(int *, double *, int *);
63 
64 int    BLASFUNC(isamax)(int *, float  *, int *);
65 int    BLASFUNC(idamax)(int *, double *, int *);
66 int    BLASFUNC(iqamax)(int *, double *, int *);
67 int    BLASFUNC(icamax)(int *, float  *, int *);
68 int    BLASFUNC(izamax)(int *, double *, int *);
69 int    BLASFUNC(ixamax)(int *, double *, int *);
70 
71 int    BLASFUNC(ismax) (int *, float  *, int *);
72 int    BLASFUNC(idmax) (int *, double *, int *);
73 int    BLASFUNC(iqmax) (int *, double *, int *);
74 int    BLASFUNC(icmax) (int *, float  *, int *);
75 int    BLASFUNC(izmax) (int *, double *, int *);
76 int    BLASFUNC(ixmax) (int *, double *, int *);
77 
78 int    BLASFUNC(isamin)(int *, float  *, int *);
79 int    BLASFUNC(idamin)(int *, double *, int *);
80 int    BLASFUNC(iqamin)(int *, double *, int *);
81 int    BLASFUNC(icamin)(int *, float  *, int *);
82 int    BLASFUNC(izamin)(int *, double *, int *);
83 int    BLASFUNC(ixamin)(int *, double *, int *);
84 
85 int    BLASFUNC(ismin)(int *, float  *, int *);
86 int    BLASFUNC(idmin)(int *, double *, int *);
87 int    BLASFUNC(iqmin)(int *, double *, int *);
88 int    BLASFUNC(icmin)(int *, float  *, int *);
89 int    BLASFUNC(izmin)(int *, double *, int *);
90 int    BLASFUNC(ixmin)(int *, double *, int *);
91 
92 float  BLASFUNC(samax) (int *, float  *, int *);
93 double BLASFUNC(damax) (int *, double *, int *);
94 double BLASFUNC(qamax) (int *, double *, int *);
95 float  BLASFUNC(scamax)(int *, float  *, int *);
96 double BLASFUNC(dzamax)(int *, double *, int *);
97 double BLASFUNC(qxamax)(int *, double *, int *);
98 
99 float  BLASFUNC(samin) (int *, float  *, int *);
100 double BLASFUNC(damin) (int *, double *, int *);
101 double BLASFUNC(qamin) (int *, double *, int *);
102 float  BLASFUNC(scamin)(int *, float  *, int *);
103 double BLASFUNC(dzamin)(int *, double *, int *);
104 double BLASFUNC(qxamin)(int *, double *, int *);
105 
106 float  BLASFUNC(smax)  (int *, float  *, int *);
107 double BLASFUNC(dmax)  (int *, double *, int *);
108 double BLASFUNC(qmax)  (int *, double *, int *);
109 float  BLASFUNC(scmax) (int *, float  *, int *);
110 double BLASFUNC(dzmax) (int *, double *, int *);
111 double BLASFUNC(qxmax) (int *, double *, int *);
112 
113 float  BLASFUNC(smin)  (int *, float  *, int *);
114 double BLASFUNC(dmin)  (int *, double *, int *);
115 double BLASFUNC(qmin)  (int *, double *, int *);
116 float  BLASFUNC(scmin) (int *, float  *, int *);
117 double BLASFUNC(dzmin) (int *, double *, int *);
118 double BLASFUNC(qxmin) (int *, double *, int *);
119 
120 int    BLASFUNC(sscal) (int *,  float  *, float  *, int *);
121 int    BLASFUNC(dscal) (int *,  double *, double *, int *);
122 int    BLASFUNC(qscal) (int *,  double *, double *, int *);
123 int    BLASFUNC(cscal) (int *,  float  *, float  *, int *);
124 int    BLASFUNC(zscal) (int *,  double *, double *, int *);
125 int    BLASFUNC(xscal) (int *,  double *, double *, int *);
126 int    BLASFUNC(csscal)(int *,  float  *, float  *, int *);
127 int    BLASFUNC(zdscal)(int *,  double *, double *, int *);
128 int    BLASFUNC(xqscal)(int *,  double *, double *, int *);
129 
130 float  BLASFUNC(snrm2) (int *, float  *, int *);
131 float  BLASFUNC(scnrm2)(int *, float  *, int *);
132 
133 double BLASFUNC(dnrm2) (int *, double *, int *);
134 double BLASFUNC(qnrm2) (int *, double *, int *);
135 double BLASFUNC(dznrm2)(int *, double *, int *);
136 double BLASFUNC(qxnrm2)(int *, double *, int *);
137 
138 int    BLASFUNC(srot)  (int *, float  *, int *, float  *, int *, float  *, float  *);
139 int    BLASFUNC(drot)  (int *, double *, int *, double *, int *, double *, double *);
140 int    BLASFUNC(qrot)  (int *, double *, int *, double *, int *, double *, double *);
141 int    BLASFUNC(csrot) (int *, float  *, int *, float  *, int *, float  *, float  *);
142 int    BLASFUNC(zdrot) (int *, double *, int *, double *, int *, double *, double *);
143 int    BLASFUNC(xqrot) (int *, double *, int *, double *, int *, double *, double *);
144 
145 int    BLASFUNC(srotg) (float  *, float  *, float  *, float  *);
146 int    BLASFUNC(drotg) (double *, double *, double *, double *);
147 int    BLASFUNC(qrotg) (double *, double *, double *, double *);
148 int    BLASFUNC(crotg) (float  *, float  *, float  *, float  *);
149 int    BLASFUNC(zrotg) (double *, double *, double *, double *);
150 int    BLASFUNC(xrotg) (double *, double *, double *, double *);
151 
152 int    BLASFUNC(srotmg)(float  *, float  *, float  *, float  *, float  *);
153 int    BLASFUNC(drotmg)(double *, double *, double *, double *, double *);
154 
155 int    BLASFUNC(srotm) (int *, float  *, int *, float  *, int *, float  *);
156 int    BLASFUNC(drotm) (int *, double *, int *, double *, int *, double *);
157 int    BLASFUNC(qrotm) (int *, double *, int *, double *, int *, double *);
158 
159 /* Level 2 routines */
160 
161 int BLASFUNC(sger)(int *,    int *, float *,  float *, int *,
162 		   float *,  int *, float *,  int *);
163 int BLASFUNC(dger)(int *,    int *, double *, double *, int *,
164 		   double *, int *, double *, int *);
165 int BLASFUNC(qger)(int *,    int *, double *, double *, int *,
166 		   double *, int *, double *, int *);
167 int BLASFUNC(cgeru)(int *,    int *, float *,  float *, int *,
168 		    float *,  int *, float *,  int *);
169 int BLASFUNC(cgerc)(int *,    int *, float *,  float *, int *,
170 		    float *,  int *, float *,  int *);
171 int BLASFUNC(zgeru)(int *,    int *, double *, double *, int *,
172 		    double *, int *, double *, int *);
173 int BLASFUNC(zgerc)(int *,    int *, double *, double *, int *,
174 		    double *, int *, double *, int *);
175 int BLASFUNC(xgeru)(int *,    int *, double *, double *, int *,
176 		    double *, int *, double *, int *);
177 int BLASFUNC(xgerc)(int *,    int *, double *, double *, int *,
178 		    double *, int *, double *, int *);
179 
180 int BLASFUNC(sgemv)(char *, int *, int *, float  *, float  *, int *,
181 		    float  *, int *, float  *, float  *, int *);
182 int BLASFUNC(dgemv)(char *, int *, int *, double *, double *, int *,
183 		    double *, int *, double *, double *, int *);
184 int BLASFUNC(qgemv)(char *, int *, int *, double *, double *, int *,
185 		    double *, int *, double *, double *, int *);
186 int BLASFUNC(cgemv)(char *, int *, int *, float  *, float  *, int *,
187 		    float  *, int *, float  *, float  *, int *);
188 int BLASFUNC(zgemv)(char *, int *, int *, double *, double *, int *,
189 		    double *, int *, double *, double *, int *);
190 int BLASFUNC(xgemv)(char *, int *, int *, double *, double *, int *,
191 		    double *, int *, double *, double *, int *);
192 
193 int BLASFUNC(strsv) (char *, char *, char *, int *, float  *, int *,
194 		     float  *, int *);
195 int BLASFUNC(dtrsv) (char *, char *, char *, int *, double *, int *,
196 		     double *, int *);
197 int BLASFUNC(qtrsv) (char *, char *, char *, int *, double *, int *,
198 		     double *, int *);
199 int BLASFUNC(ctrsv) (char *, char *, char *, int *, float  *, int *,
200 		     float  *, int *);
201 int BLASFUNC(ztrsv) (char *, char *, char *, int *, double *, int *,
202 		     double *, int *);
203 int BLASFUNC(xtrsv) (char *, char *, char *, int *, double *, int *,
204 		     double *, int *);
205 
206 int BLASFUNC(stpsv) (char *, char *, char *, int *, float  *, float  *, int *);
207 int BLASFUNC(dtpsv) (char *, char *, char *, int *, double *, double *, int *);
208 int BLASFUNC(qtpsv) (char *, char *, char *, int *, double *, double *, int *);
209 int BLASFUNC(ctpsv) (char *, char *, char *, int *, float  *, float  *, int *);
210 int BLASFUNC(ztpsv) (char *, char *, char *, int *, double *, double *, int *);
211 int BLASFUNC(xtpsv) (char *, char *, char *, int *, double *, double *, int *);
212 
213 int BLASFUNC(strmv) (char *, char *, char *, int *, float  *, int *,
214 		     float  *, int *);
215 int BLASFUNC(dtrmv) (char *, char *, char *, int *, double *, int *,
216 		     double *, int *);
217 int BLASFUNC(qtrmv) (char *, char *, char *, int *, double *, int *,
218 		     double *, int *);
219 int BLASFUNC(ctrmv) (char *, char *, char *, int *, float  *, int *,
220 		     float  *, int *);
221 int BLASFUNC(ztrmv) (char *, char *, char *, int *, double *, int *,
222 		     double *, int *);
223 int BLASFUNC(xtrmv) (char *, char *, char *, int *, double *, int *,
224 		     double *, int *);
225 
226 int BLASFUNC(stpmv) (char *, char *, char *, int *, float  *, float  *, int *);
227 int BLASFUNC(dtpmv) (char *, char *, char *, int *, double *, double *, int *);
228 int BLASFUNC(qtpmv) (char *, char *, char *, int *, double *, double *, int *);
229 int BLASFUNC(ctpmv) (char *, char *, char *, int *, float  *, float  *, int *);
230 int BLASFUNC(ztpmv) (char *, char *, char *, int *, double *, double *, int *);
231 int BLASFUNC(xtpmv) (char *, char *, char *, int *, double *, double *, int *);
232 
233 int BLASFUNC(stbmv) (char *, char *, char *, int *, int *, float  *, int *, float  *, int *);
234 int BLASFUNC(dtbmv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
235 int BLASFUNC(qtbmv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
236 int BLASFUNC(ctbmv) (char *, char *, char *, int *, int *, float  *, int *, float  *, int *);
237 int BLASFUNC(ztbmv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
238 int BLASFUNC(xtbmv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
239 
240 int BLASFUNC(stbsv) (char *, char *, char *, int *, int *, float  *, int *, float  *, int *);
241 int BLASFUNC(dtbsv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
242 int BLASFUNC(qtbsv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
243 int BLASFUNC(ctbsv) (char *, char *, char *, int *, int *, float  *, int *, float  *, int *);
244 int BLASFUNC(ztbsv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
245 int BLASFUNC(xtbsv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
246 
247 int BLASFUNC(ssymv) (char *, int *, float  *, float *, int *,
248 		     float  *, int *, float *, float *, int *);
249 int BLASFUNC(dsymv) (char *, int *, double  *, double *, int *,
250 		     double  *, int *, double *, double *, int *);
251 int BLASFUNC(qsymv) (char *, int *, double  *, double *, int *,
252 		     double  *, int *, double *, double *, int *);
253 int BLASFUNC(csymv) (char *, int *, float  *, float *, int *,
254 		     float  *, int *, float *, float *, int *);
255 int BLASFUNC(zsymv) (char *, int *, double  *, double *, int *,
256 		     double  *, int *, double *, double *, int *);
257 int BLASFUNC(xsymv) (char *, int *, double  *, double *, int *,
258 		     double  *, int *, double *, double *, int *);
259 
260 int BLASFUNC(sspmv) (char *, int *, float  *, float *,
261 		     float  *, int *, float *, float *, int *);
262 int BLASFUNC(dspmv) (char *, int *, double  *, double *,
263 		     double  *, int *, double *, double *, int *);
264 int BLASFUNC(qspmv) (char *, int *, double  *, double *,
265 		     double  *, int *, double *, double *, int *);
266 int BLASFUNC(cspmv) (char *, int *, float  *, float *,
267 		     float  *, int *, float *, float *, int *);
268 int BLASFUNC(zspmv) (char *, int *, double  *, double *,
269 		     double  *, int *, double *, double *, int *);
270 int BLASFUNC(xspmv) (char *, int *, double  *, double *,
271 		     double  *, int *, double *, double *, int *);
272 
273 int BLASFUNC(ssyr) (char *, int *, float   *, float  *, int *,
274 		    float  *, int *);
275 int BLASFUNC(dsyr) (char *, int *, double  *, double *, int *,
276 		    double *, int *);
277 int BLASFUNC(qsyr) (char *, int *, double  *, double *, int *,
278 		    double *, int *);
279 int BLASFUNC(csyr) (char *, int *, float   *, float  *, int *,
280 		    float  *, int *);
281 int BLASFUNC(zsyr) (char *, int *, double  *, double *, int *,
282 		    double *, int *);
283 int BLASFUNC(xsyr) (char *, int *, double  *, double *, int *,
284 		    double *, int *);
285 
286 int BLASFUNC(ssyr2) (char *, int *, float   *,
287 		     float  *, int *, float  *, int *, float  *, int *);
288 int BLASFUNC(dsyr2) (char *, int *, double  *,
289 		     double *, int *, double *, int *, double *, int *);
290 int BLASFUNC(qsyr2) (char *, int *, double  *,
291 		     double *, int *, double *, int *, double *, int *);
292 int BLASFUNC(csyr2) (char *, int *, float   *,
293 		     float  *, int *, float  *, int *, float  *, int *);
294 int BLASFUNC(zsyr2) (char *, int *, double  *,
295 		     double *, int *, double *, int *, double *, int *);
296 int BLASFUNC(xsyr2) (char *, int *, double  *,
297 		     double *, int *, double *, int *, double *, int *);
298 
299 int BLASFUNC(sspr) (char *, int *, float   *, float  *, int *,
300 		    float  *);
301 int BLASFUNC(dspr) (char *, int *, double  *, double *, int *,
302 		    double *);
303 int BLASFUNC(qspr) (char *, int *, double  *, double *, int *,
304 		    double *);
305 int BLASFUNC(cspr) (char *, int *, float   *, float  *, int *,
306 		    float  *);
307 int BLASFUNC(zspr) (char *, int *, double  *, double *, int *,
308 		    double *);
309 int BLASFUNC(xspr) (char *, int *, double  *, double *, int *,
310 		    double *);
311 
312 int BLASFUNC(sspr2) (char *, int *, float   *,
313 		     float  *, int *, float  *, int *, float  *);
314 int BLASFUNC(dspr2) (char *, int *, double  *,
315 		     double *, int *, double *, int *, double *);
316 int BLASFUNC(qspr2) (char *, int *, double  *,
317 		     double *, int *, double *, int *, double *);
318 int BLASFUNC(cspr2) (char *, int *, float   *,
319 		     float  *, int *, float  *, int *, float  *);
320 int BLASFUNC(zspr2) (char *, int *, double  *,
321 		     double *, int *, double *, int *, double *);
322 int BLASFUNC(xspr2) (char *, int *, double  *,
323 		     double *, int *, double *, int *, double *);
324 
325 int BLASFUNC(cher) (char *, int *, float   *, float  *, int *,
326 		    float  *, int *);
327 int BLASFUNC(zher) (char *, int *, double  *, double *, int *,
328 		    double *, int *);
329 int BLASFUNC(xher) (char *, int *, double  *, double *, int *,
330 		    double *, int *);
331 
332 int BLASFUNC(chpr) (char *, int *, float   *, float  *, int *, float  *);
333 int BLASFUNC(zhpr) (char *, int *, double  *, double *, int *, double *);
334 int BLASFUNC(xhpr) (char *, int *, double  *, double *, int *, double *);
335 
336 int BLASFUNC(cher2) (char *, int *, float   *,
337 		     float  *, int *, float  *, int *, float  *, int *);
338 int BLASFUNC(zher2) (char *, int *, double  *,
339 		     double *, int *, double *, int *, double *, int *);
340 int BLASFUNC(xher2) (char *, int *, double  *,
341 		     double *, int *, double *, int *, double *, int *);
342 
343 int BLASFUNC(chpr2) (char *, int *, float   *,
344 		     float  *, int *, float  *, int *, float  *);
345 int BLASFUNC(zhpr2) (char *, int *, double  *,
346 		     double *, int *, double *, int *, double *);
347 int BLASFUNC(xhpr2) (char *, int *, double  *,
348 		     double *, int *, double *, int *, double *);
349 
350 int BLASFUNC(chemv) (char *, int *, float  *, float *, int *,
351 		     float  *, int *, float *, float *, int *);
352 int BLASFUNC(zhemv) (char *, int *, double  *, double *, int *,
353 		     double  *, int *, double *, double *, int *);
354 int BLASFUNC(xhemv) (char *, int *, double  *, double *, int *,
355 		     double  *, int *, double *, double *, int *);
356 
357 int BLASFUNC(chpmv) (char *, int *, float  *, float *,
358 		     float  *, int *, float *, float *, int *);
359 int BLASFUNC(zhpmv) (char *, int *, double  *, double *,
360 		     double  *, int *, double *, double *, int *);
361 int BLASFUNC(xhpmv) (char *, int *, double  *, double *,
362 		     double  *, int *, double *, double *, int *);
363 
364 int BLASFUNC(snorm)(char *, int *, int *, float  *, int *);
365 int BLASFUNC(dnorm)(char *, int *, int *, double *, int *);
366 int BLASFUNC(cnorm)(char *, int *, int *, float  *, int *);
367 int BLASFUNC(znorm)(char *, int *, int *, double *, int *);
368 
369 int BLASFUNC(sgbmv)(char *, int *, int *, int *, int *, float  *, float  *, int *,
370 		    float  *, int *, float  *, float  *, int *);
371 int BLASFUNC(dgbmv)(char *, int *, int *, int *, int *, double *, double *, int *,
372 		    double *, int *, double *, double *, int *);
373 int BLASFUNC(qgbmv)(char *, int *, int *, int *, int *, double *, double *, int *,
374 		    double *, int *, double *, double *, int *);
375 int BLASFUNC(cgbmv)(char *, int *, int *, int *, int *, float  *, float  *, int *,
376 		    float  *, int *, float  *, float  *, int *);
377 int BLASFUNC(zgbmv)(char *, int *, int *, int *, int *, double *, double *, int *,
378 		    double *, int *, double *, double *, int *);
379 int BLASFUNC(xgbmv)(char *, int *, int *, int *, int *, double *, double *, int *,
380 		    double *, int *, double *, double *, int *);
381 
382 int BLASFUNC(ssbmv)(char *, int *, int *, float  *, float  *, int *,
383 		    float  *, int *, float  *, float  *, int *);
384 int BLASFUNC(dsbmv)(char *, int *, int *, double *, double *, int *,
385 		    double *, int *, double *, double *, int *);
386 int BLASFUNC(qsbmv)(char *, int *, int *, double *, double *, int *,
387 		    double *, int *, double *, double *, int *);
388 int BLASFUNC(csbmv)(char *, int *, int *, float  *, float  *, int *,
389 		    float  *, int *, float  *, float  *, int *);
390 int BLASFUNC(zsbmv)(char *, int *, int *, double *, double *, int *,
391 		    double *, int *, double *, double *, int *);
392 int BLASFUNC(xsbmv)(char *, int *, int *, double *, double *, int *,
393 		    double *, int *, double *, double *, int *);
394 
395 int BLASFUNC(chbmv)(char *, int *, int *, float  *, float  *, int *,
396 		    float  *, int *, float  *, float  *, int *);
397 int BLASFUNC(zhbmv)(char *, int *, int *, double *, double *, int *,
398 		    double *, int *, double *, double *, int *);
399 int BLASFUNC(xhbmv)(char *, int *, int *, double *, double *, int *,
400 		    double *, int *, double *, double *, int *);
401 
402 /* Level 3 routines */
403 
404 int BLASFUNC(sgemm)(char *, char *, int *, int *, int *, float *,
405 	   float  *, int *, float  *, int *, float  *, float  *, int *);
406 int BLASFUNC(dgemm)(char *, char *, int *, int *, int *, double *,
407 	   double *, int *, double *, int *, double *, double *, int *);
408 int BLASFUNC(qgemm)(char *, char *, int *, int *, int *, double *,
409 	   double *, int *, double *, int *, double *, double *, int *);
410 int BLASFUNC(cgemm)(char *, char *, int *, int *, int *, float *,
411 	   float  *, int *, float  *, int *, float  *, float  *, int *);
412 int BLASFUNC(zgemm)(char *, char *, int *, int *, int *, double *,
413 	   double *, int *, double *, int *, double *, double *, int *);
414 int BLASFUNC(xgemm)(char *, char *, int *, int *, int *, double *,
415 	   double *, int *, double *, int *, double *, double *, int *);
416 
417 int BLASFUNC(cgemm3m)(char *, char *, int *, int *, int *, float *,
418 	   float  *, int *, float  *, int *, float  *, float  *, int *);
419 int BLASFUNC(zgemm3m)(char *, char *, int *, int *, int *, double *,
420 	   double *, int *, double *, int *, double *, double *, int *);
421 int BLASFUNC(xgemm3m)(char *, char *, int *, int *, int *, double *,
422 	   double *, int *, double *, int *, double *, double *, int *);
423 
424 int BLASFUNC(sge2mm)(char *, char *, char *, int *, int *,
425 		     float *, float  *, int *, float  *, int *,
426 		     float *, float  *, int *);
427 int BLASFUNC(dge2mm)(char *, char *, char *, int *, int *,
428 		     double *, double  *, int *, double  *, int *,
429 		     double *, double  *, int *);
430 int BLASFUNC(cge2mm)(char *, char *, char *, int *, int *,
431 		     float *, float  *, int *, float  *, int *,
432 		     float *, float  *, int *);
433 int BLASFUNC(zge2mm)(char *, char *, char *, int *, int *,
434 		     double *, double  *, int *, double  *, int *,
435 		     double *, double  *, int *);
436 
437 int BLASFUNC(strsm)(char *, char *, char *, char *, int *, int *,
438 	   float *,  float *, int *, float *, int *);
439 int BLASFUNC(dtrsm)(char *, char *, char *, char *, int *, int *,
440 	   double *,  double *, int *, double *, int *);
441 int BLASFUNC(qtrsm)(char *, char *, char *, char *, int *, int *,
442 	   double *,  double *, int *, double *, int *);
443 int BLASFUNC(ctrsm)(char *, char *, char *, char *, int *, int *,
444 	   float *,  float *, int *, float *, int *);
445 int BLASFUNC(ztrsm)(char *, char *, char *, char *, int *, int *,
446 	   double *,  double *, int *, double *, int *);
447 int BLASFUNC(xtrsm)(char *, char *, char *, char *, int *, int *,
448 	   double *,  double *, int *, double *, int *);
449 
450 int BLASFUNC(strmm)(char *, char *, char *, char *, int *, int *,
451 	   float *,  float *, int *, float *, int *);
452 int BLASFUNC(dtrmm)(char *, char *, char *, char *, int *, int *,
453 	   double *,  double *, int *, double *, int *);
454 int BLASFUNC(qtrmm)(char *, char *, char *, char *, int *, int *,
455 	   double *,  double *, int *, double *, int *);
456 int BLASFUNC(ctrmm)(char *, char *, char *, char *, int *, int *,
457 	   float *,  float *, int *, float *, int *);
458 int BLASFUNC(ztrmm)(char *, char *, char *, char *, int *, int *,
459 	   double *,  double *, int *, double *, int *);
460 int BLASFUNC(xtrmm)(char *, char *, char *, char *, int *, int *,
461 	   double *,  double *, int *, double *, int *);
462 
463 int BLASFUNC(ssymm)(char *, char *, int *, int *, float  *, float  *, int *,
464 	   float  *, int *, float  *, float  *, int *);
465 int BLASFUNC(dsymm)(char *, char *, int *, int *, double *, double *, int *,
466 	   double *, int *, double *, double *, int *);
467 int BLASFUNC(qsymm)(char *, char *, int *, int *, double *, double *, int *,
468 	   double *, int *, double *, double *, int *);
469 int BLASFUNC(csymm)(char *, char *, int *, int *, float  *, float  *, int *,
470 	   float  *, int *, float  *, float  *, int *);
471 int BLASFUNC(zsymm)(char *, char *, int *, int *, double *, double *, int *,
472 	   double *, int *, double *, double *, int *);
473 int BLASFUNC(xsymm)(char *, char *, int *, int *, double *, double *, int *,
474 	   double *, int *, double *, double *, int *);
475 
476 int BLASFUNC(csymm3m)(char *, char *, int *, int *, float  *, float  *, int *,
477 	   float  *, int *, float  *, float  *, int *);
478 int BLASFUNC(zsymm3m)(char *, char *, int *, int *, double *, double *, int *,
479 	   double *, int *, double *, double *, int *);
480 int BLASFUNC(xsymm3m)(char *, char *, int *, int *, double *, double *, int *,
481 	   double *, int *, double *, double *, int *);
482 
483 int BLASFUNC(ssyrk)(char *, char *, int *, int *, float  *, float  *, int *,
484 	   float  *, float  *, int *);
485 int BLASFUNC(dsyrk)(char *, char *, int *, int *, double *, double *, int *,
486 	   double *, double *, int *);
487 int BLASFUNC(qsyrk)(char *, char *, int *, int *, double *, double *, int *,
488 	   double *, double *, int *);
489 int BLASFUNC(csyrk)(char *, char *, int *, int *, float  *, float  *, int *,
490 	   float  *, float  *, int *);
491 int BLASFUNC(zsyrk)(char *, char *, int *, int *, double *, double *, int *,
492 	   double *, double *, int *);
493 int BLASFUNC(xsyrk)(char *, char *, int *, int *, double *, double *, int *,
494 	   double *, double *, int *);
495 
496 int BLASFUNC(ssyr2k)(char *, char *, int *, int *, float  *, float  *, int *,
497 	   float *, int *, float  *, float  *, int *);
498 int BLASFUNC(dsyr2k)(char *, char *, int *, int *, double *, double *, int *,
499 	   double*, int *, double *, double *, int *);
500 int BLASFUNC(qsyr2k)(char *, char *, int *, int *, double *, double *, int *,
501 	   double*, int *, double *, double *, int *);
502 int BLASFUNC(csyr2k)(char *, char *, int *, int *, float  *, float  *, int *,
503 	   float *, int *, float  *, float  *, int *);
504 int BLASFUNC(zsyr2k)(char *, char *, int *, int *, double *, double *, int *,
505 	   double*, int *, double *, double *, int *);
506 int BLASFUNC(xsyr2k)(char *, char *, int *, int *, double *, double *, int *,
507 	   double*, int *, double *, double *, int *);
508 
509 int BLASFUNC(chemm)(char *, char *, int *, int *, float  *, float  *, int *,
510 	   float  *, int *, float  *, float  *, int *);
511 int BLASFUNC(zhemm)(char *, char *, int *, int *, double *, double *, int *,
512 	   double *, int *, double *, double *, int *);
513 int BLASFUNC(xhemm)(char *, char *, int *, int *, double *, double *, int *,
514 	   double *, int *, double *, double *, int *);
515 
516 int BLASFUNC(chemm3m)(char *, char *, int *, int *, float  *, float  *, int *,
517 	   float  *, int *, float  *, float  *, int *);
518 int BLASFUNC(zhemm3m)(char *, char *, int *, int *, double *, double *, int *,
519 	   double *, int *, double *, double *, int *);
520 int BLASFUNC(xhemm3m)(char *, char *, int *, int *, double *, double *, int *,
521 	   double *, int *, double *, double *, int *);
522 
523 int BLASFUNC(cherk)(char *, char *, int *, int *, float  *, float  *, int *,
524 	   float  *, float  *, int *);
525 int BLASFUNC(zherk)(char *, char *, int *, int *, double *, double *, int *,
526 	   double *, double *, int *);
527 int BLASFUNC(xherk)(char *, char *, int *, int *, double *, double *, int *,
528 	   double *, double *, int *);
529 
530 int BLASFUNC(cher2k)(char *, char *, int *, int *, float  *, float  *, int *,
531 	   float *, int *, float  *, float  *, int *);
532 int BLASFUNC(zher2k)(char *, char *, int *, int *, double *, double *, int *,
533 	   double*, int *, double *, double *, int *);
534 int BLASFUNC(xher2k)(char *, char *, int *, int *, double *, double *, int *,
535 	   double*, int *, double *, double *, int *);
536 int BLASFUNC(cher2m)(char *, char *, char *, int *, int *, float  *, float  *, int *,
537 	   float *, int *, float  *, float  *, int *);
538 int BLASFUNC(zher2m)(char *, char *, char *, int *, int *, double *, double *, int *,
539 	   double*, int *, double *, double *, int *);
540 int BLASFUNC(xher2m)(char *, char *, char *, int *, int *, double *, double *, int *,
541 	   double*, int *, double *, double *, int *);
542 
543 int BLASFUNC(sgemt)(char *, int *, int *, float  *, float  *, int *,
544 		    float  *, int *);
545 int BLASFUNC(dgemt)(char *, int *, int *, double *, double *, int *,
546 		    double *, int *);
547 int BLASFUNC(cgemt)(char *, int *, int *, float  *, float  *, int *,
548 		    float  *, int *);
549 int BLASFUNC(zgemt)(char *, int *, int *, double *, double *, int *,
550 		    double *, int *);
551 
552 int BLASFUNC(sgema)(char *, char *, int *, int *, float  *,
553 		    float  *, int *, float *, float  *, int *, float *, int *);
554 int BLASFUNC(dgema)(char *, char *, int *, int *, double *,
555 		    double *, int *, double*, double *, int *, double*, int *);
556 int BLASFUNC(cgema)(char *, char *, int *, int *, float  *,
557 		    float  *, int *, float *, float  *, int *, float *, int *);
558 int BLASFUNC(zgema)(char *, char *, int *, int *, double *,
559 		    double *, int *, double*, double *, int *, double*, int *);
560 
561 int BLASFUNC(sgems)(char *, char *, int *, int *, float  *,
562 		    float  *, int *, float *, float  *, int *, float *, int *);
563 int BLASFUNC(dgems)(char *, char *, int *, int *, double *,
564 		    double *, int *, double*, double *, int *, double*, int *);
565 int BLASFUNC(cgems)(char *, char *, int *, int *, float  *,
566 		    float  *, int *, float *, float  *, int *, float *, int *);
567 int BLASFUNC(zgems)(char *, char *, int *, int *, double *,
568 		    double *, int *, double*, double *, int *, double*, int *);
569 
570 int BLASFUNC(sgetf2)(int *, int *, float  *, int *, int *, int *);
571 int BLASFUNC(dgetf2)(int *, int *, double *, int *, int *, int *);
572 int BLASFUNC(qgetf2)(int *, int *, double *, int *, int *, int *);
573 int BLASFUNC(cgetf2)(int *, int *, float  *, int *, int *, int *);
574 int BLASFUNC(zgetf2)(int *, int *, double *, int *, int *, int *);
575 int BLASFUNC(xgetf2)(int *, int *, double *, int *, int *, int *);
576 
577 int BLASFUNC(sgetrf)(int *, int *, float  *, int *, int *, int *);
578 int BLASFUNC(dgetrf)(int *, int *, double *, int *, int *, int *);
579 int BLASFUNC(qgetrf)(int *, int *, double *, int *, int *, int *);
580 int BLASFUNC(cgetrf)(int *, int *, float  *, int *, int *, int *);
581 int BLASFUNC(zgetrf)(int *, int *, double *, int *, int *, int *);
582 int BLASFUNC(xgetrf)(int *, int *, double *, int *, int *, int *);
583 
584 int BLASFUNC(slaswp)(int *, float  *, int *, int *, int *, int *, int *);
585 int BLASFUNC(dlaswp)(int *, double *, int *, int *, int *, int *, int *);
586 int BLASFUNC(qlaswp)(int *, double *, int *, int *, int *, int *, int *);
587 int BLASFUNC(claswp)(int *, float  *, int *, int *, int *, int *, int *);
588 int BLASFUNC(zlaswp)(int *, double *, int *, int *, int *, int *, int *);
589 int BLASFUNC(xlaswp)(int *, double *, int *, int *, int *, int *, int *);
590 
591 int BLASFUNC(sgetrs)(char *, int *, int *, float  *, int *, int *, float  *, int *, int *);
592 int BLASFUNC(dgetrs)(char *, int *, int *, double *, int *, int *, double *, int *, int *);
593 int BLASFUNC(qgetrs)(char *, int *, int *, double *, int *, int *, double *, int *, int *);
594 int BLASFUNC(cgetrs)(char *, int *, int *, float  *, int *, int *, float  *, int *, int *);
595 int BLASFUNC(zgetrs)(char *, int *, int *, double *, int *, int *, double *, int *, int *);
596 int BLASFUNC(xgetrs)(char *, int *, int *, double *, int *, int *, double *, int *, int *);
597 
598 int BLASFUNC(sgesv)(int *, int *, float  *, int *, int *, float *, int *, int *);
599 int BLASFUNC(dgesv)(int *, int *, double *, int *, int *, double*, int *, int *);
600 int BLASFUNC(qgesv)(int *, int *, double *, int *, int *, double*, int *, int *);
601 int BLASFUNC(cgesv)(int *, int *, float  *, int *, int *, float *, int *, int *);
602 int BLASFUNC(zgesv)(int *, int *, double *, int *, int *, double*, int *, int *);
603 int BLASFUNC(xgesv)(int *, int *, double *, int *, int *, double*, int *, int *);
604 
605 int BLASFUNC(spotf2)(char *, int *, float  *, int *, int *);
606 int BLASFUNC(dpotf2)(char *, int *, double *, int *, int *);
607 int BLASFUNC(qpotf2)(char *, int *, double *, int *, int *);
608 int BLASFUNC(cpotf2)(char *, int *, float  *, int *, int *);
609 int BLASFUNC(zpotf2)(char *, int *, double *, int *, int *);
610 int BLASFUNC(xpotf2)(char *, int *, double *, int *, int *);
611 
612 int BLASFUNC(spotrf)(char *, int *, float  *, int *, int *);
613 int BLASFUNC(dpotrf)(char *, int *, double *, int *, int *);
614 int BLASFUNC(qpotrf)(char *, int *, double *, int *, int *);
615 int BLASFUNC(cpotrf)(char *, int *, float  *, int *, int *);
616 int BLASFUNC(zpotrf)(char *, int *, double *, int *, int *);
617 int BLASFUNC(xpotrf)(char *, int *, double *, int *, int *);
618 
619 int BLASFUNC(slauu2)(char *, int *, float  *, int *, int *);
620 int BLASFUNC(dlauu2)(char *, int *, double *, int *, int *);
621 int BLASFUNC(qlauu2)(char *, int *, double *, int *, int *);
622 int BLASFUNC(clauu2)(char *, int *, float  *, int *, int *);
623 int BLASFUNC(zlauu2)(char *, int *, double *, int *, int *);
624 int BLASFUNC(xlauu2)(char *, int *, double *, int *, int *);
625 
626 int BLASFUNC(slauum)(char *, int *, float  *, int *, int *);
627 int BLASFUNC(dlauum)(char *, int *, double *, int *, int *);
628 int BLASFUNC(qlauum)(char *, int *, double *, int *, int *);
629 int BLASFUNC(clauum)(char *, int *, float  *, int *, int *);
630 int BLASFUNC(zlauum)(char *, int *, double *, int *, int *);
631 int BLASFUNC(xlauum)(char *, int *, double *, int *, int *);
632 
633 int BLASFUNC(strti2)(char *, char *, int *, float  *, int *, int *);
634 int BLASFUNC(dtrti2)(char *, char *, int *, double *, int *, int *);
635 int BLASFUNC(qtrti2)(char *, char *, int *, double *, int *, int *);
636 int BLASFUNC(ctrti2)(char *, char *, int *, float  *, int *, int *);
637 int BLASFUNC(ztrti2)(char *, char *, int *, double *, int *, int *);
638 int BLASFUNC(xtrti2)(char *, char *, int *, double *, int *, int *);
639 
640 int BLASFUNC(strtri)(char *, char *, int *, float  *, int *, int *);
641 int BLASFUNC(dtrtri)(char *, char *, int *, double *, int *, int *);
642 int BLASFUNC(qtrtri)(char *, char *, int *, double *, int *, int *);
643 int BLASFUNC(ctrtri)(char *, char *, int *, float  *, int *, int *);
644 int BLASFUNC(ztrtri)(char *, char *, int *, double *, int *, int *);
645 int BLASFUNC(xtrtri)(char *, char *, int *, double *, int *, int *);
646 
647 int BLASFUNC(spotri)(char *, int *, float  *, int *, int *);
648 int BLASFUNC(dpotri)(char *, int *, double *, int *, int *);
649 int BLASFUNC(qpotri)(char *, int *, double *, int *, int *);
650 int BLASFUNC(cpotri)(char *, int *, float  *, int *, int *);
651 int BLASFUNC(zpotri)(char *, int *, double *, int *, int *);
652 int BLASFUNC(xpotri)(char *, int *, double *, int *, int *);
653 
654 #ifdef __cplusplus
655 }
656 #endif
657 
658 #endif
659