14 #define CBLAS_INDEX size_t
21 #define CBLAS_INT int64_t
23 #define CBLAS_INT int32_t
27 typedef enum CBLAS_LAYOUT {CblasRowMajor=101, CblasColMajor=102} CBLAS_LAYOUT;
28 typedef enum CBLAS_TRANSPOSE {CblasNoTrans=111, CblasTrans=112, CblasConjTrans=113} CBLAS_TRANSPOSE;
29 typedef enum CBLAS_UPLO {CblasUpper=121, CblasLower=122} CBLAS_UPLO;
30 typedef enum CBLAS_DIAG {CblasNonUnit=131, CblasUnit=132} CBLAS_DIAG;
31 typedef enum CBLAS_SIDE {CblasLeft=141, CblasRight=142} CBLAS_SIDE;
33 #define CBLAS_ORDER CBLAS_LAYOUT
35 #include "cblas_mangling.h"
43 double cblas_dcabs1(
const void *z);
44 float cblas_scabs1(
const void *c);
46 float cblas_sdsdot(
const CBLAS_INT N,
const float alpha,
const float *X,
47 const CBLAS_INT incX,
const float *Y,
const CBLAS_INT incY);
48 double cblas_dsdot(
const CBLAS_INT N,
const float *X,
const CBLAS_INT incX,
const float *Y,
49 const CBLAS_INT incY);
50 float cblas_sdot(
const CBLAS_INT N,
const float *X,
const CBLAS_INT incX,
51 const float *Y,
const CBLAS_INT incY);
52 double cblas_ddot(
const CBLAS_INT N,
const double *X,
const CBLAS_INT incX,
53 const double *Y,
const CBLAS_INT incY);
58 void cblas_cdotu_sub(
const CBLAS_INT N,
const void *X,
const CBLAS_INT incX,
59 const void *Y,
const CBLAS_INT incY,
void *dotu);
60 void cblas_cdotc_sub(
const CBLAS_INT N,
const void *X,
const CBLAS_INT incX,
61 const void *Y,
const CBLAS_INT incY,
void *dotc);
63 void cblas_zdotu_sub(
const CBLAS_INT N,
const void *X,
const CBLAS_INT incX,
64 const void *Y,
const CBLAS_INT incY,
void *dotu);
65 void cblas_zdotc_sub(
const CBLAS_INT N,
const void *X,
const CBLAS_INT incX,
66 const void *Y,
const CBLAS_INT incY,
void *dotc);
72 float cblas_snrm2(
const CBLAS_INT N,
const float *X,
const CBLAS_INT incX);
73 float cblas_sasum(
const CBLAS_INT N,
const float *X,
const CBLAS_INT incX);
75 double cblas_dnrm2(
const CBLAS_INT N,
const double *X,
const CBLAS_INT incX);
76 double cblas_dasum(
const CBLAS_INT N,
const double *X,
const CBLAS_INT incX);
78 float cblas_scnrm2(
const CBLAS_INT N,
const void *X,
const CBLAS_INT incX);
79 float cblas_scasum(
const CBLAS_INT N,
const void *X,
const CBLAS_INT incX);
81 double cblas_dznrm2(
const CBLAS_INT N,
const void *X,
const CBLAS_INT incX);
82 double cblas_dzasum(
const CBLAS_INT N,
const void *X,
const CBLAS_INT incX);
88 CBLAS_INDEX cblas_isamax(
const CBLAS_INT N,
const float *X,
const CBLAS_INT incX);
89 CBLAS_INDEX cblas_idamax(
const CBLAS_INT N,
const double *X,
const CBLAS_INT incX);
90 CBLAS_INDEX cblas_icamax(
const CBLAS_INT N,
const void *X,
const CBLAS_INT incX);
91 CBLAS_INDEX cblas_izamax(
const CBLAS_INT N,
const void *X,
const CBLAS_INT incX);
102 void cblas_sswap(
const CBLAS_INT N,
float *X,
const CBLAS_INT incX,
103 float *Y,
const CBLAS_INT incY);
104 void cblas_scopy(
const CBLAS_INT N,
const float *X,
const CBLAS_INT incX,
105 float *Y,
const CBLAS_INT incY);
106 void cblas_saxpy(
const CBLAS_INT N,
const float alpha,
const float *X,
107 const CBLAS_INT incX,
float *Y,
const CBLAS_INT incY);
109 void cblas_dswap(
const CBLAS_INT N,
double *X,
const CBLAS_INT incX,
110 double *Y,
const CBLAS_INT incY);
111 void cblas_dcopy(
const CBLAS_INT N,
const double *X,
const CBLAS_INT incX,
112 double *Y,
const CBLAS_INT incY);
113 void cblas_daxpy(
const CBLAS_INT N,
const double alpha,
const double *X,
114 const CBLAS_INT incX,
double *Y,
const CBLAS_INT incY);
116 void cblas_cswap(
const CBLAS_INT N,
void *X,
const CBLAS_INT incX,
117 void *Y,
const CBLAS_INT incY);
118 void cblas_ccopy(
const CBLAS_INT N,
const void *X,
const CBLAS_INT incX,
119 void *Y,
const CBLAS_INT incY);
120 void cblas_caxpy(
const CBLAS_INT N,
const void *alpha,
const void *X,
121 const CBLAS_INT incX,
void *Y,
const CBLAS_INT incY);
123 void cblas_zswap(
const CBLAS_INT N,
void *X,
const CBLAS_INT incX,
124 void *Y,
const CBLAS_INT incY);
125 void cblas_zcopy(
const CBLAS_INT N,
const void *X,
const CBLAS_INT incX,
126 void *Y,
const CBLAS_INT incY);
127 void cblas_zaxpy(
const CBLAS_INT N,
const void *alpha,
const void *X,
128 const CBLAS_INT incX,
void *Y,
const CBLAS_INT incY);
134 void cblas_srotg(
float *a,
float *b,
float *c,
float *s);
135 void cblas_srotmg(
float *d1,
float *d2,
float *b1,
const float b2,
float *P);
136 void cblas_srot(
const CBLAS_INT N,
float *X,
const CBLAS_INT incX,
137 float *Y,
const CBLAS_INT incY,
const float c,
const float s);
138 void cblas_srotm(
const CBLAS_INT N,
float *X,
const CBLAS_INT incX,
139 float *Y,
const CBLAS_INT incY,
const float *P);
141 void cblas_drotg(
double *a,
double *b,
double *c,
double *s);
142 void cblas_drotmg(
double *d1,
double *d2,
double *b1,
const double b2,
double *P);
143 void cblas_drot(
const CBLAS_INT N,
double *X,
const CBLAS_INT incX,
144 double *Y,
const CBLAS_INT incY,
const double c,
const double s);
145 void cblas_drotm(
const CBLAS_INT N,
double *X,
const CBLAS_INT incX,
146 double *Y,
const CBLAS_INT incY,
const double *P);
152 void cblas_sscal(
const CBLAS_INT N,
const float alpha,
float *X,
const CBLAS_INT incX);
153 void cblas_dscal(
const CBLAS_INT N,
const double alpha,
double *X,
const CBLAS_INT incX);
154 void cblas_cscal(
const CBLAS_INT N,
const void *alpha,
void *X,
const CBLAS_INT incX);
155 void cblas_zscal(
const CBLAS_INT N,
const void *alpha,
void *X,
const CBLAS_INT incX);
156 void cblas_csscal(
const CBLAS_INT N,
const float alpha,
void *X,
const CBLAS_INT incX);
157 void cblas_zdscal(
const CBLAS_INT N,
const double alpha,
void *X,
const CBLAS_INT incX);
168 void cblas_sgemv(
const CBLAS_LAYOUT layout,
169 const CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
170 const float alpha,
const float *A,
const CBLAS_INT lda,
171 const float *X,
const CBLAS_INT incX,
const float beta,
172 float *Y,
const CBLAS_INT incY);
173 void cblas_sgbmv(CBLAS_LAYOUT layout,
174 CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
175 const CBLAS_INT KL,
const CBLAS_INT KU,
const float alpha,
176 const float *A,
const CBLAS_INT lda,
const float *X,
177 const CBLAS_INT incX,
const float beta,
float *Y,
const CBLAS_INT incY);
178 void cblas_strmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
179 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
180 const CBLAS_INT N,
const float *A,
const CBLAS_INT lda,
181 float *X,
const CBLAS_INT incX);
182 void cblas_stbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
183 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
184 const CBLAS_INT N,
const CBLAS_INT K,
const float *A,
const CBLAS_INT lda,
185 float *X,
const CBLAS_INT incX);
186 void cblas_stpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
187 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
188 const CBLAS_INT N,
const float *Ap,
float *X,
const CBLAS_INT incX);
189 void cblas_strsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
190 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
191 const CBLAS_INT N,
const float *A,
const CBLAS_INT lda,
float *X,
192 const CBLAS_INT incX);
193 void cblas_stbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
194 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
195 const CBLAS_INT N,
const CBLAS_INT K,
const float *A,
const CBLAS_INT lda,
196 float *X,
const CBLAS_INT incX);
197 void cblas_stpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
198 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
199 const CBLAS_INT N,
const float *Ap,
float *X,
const CBLAS_INT incX);
201 void cblas_dgemv(CBLAS_LAYOUT layout,
202 CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
203 const double alpha,
const double *A,
const CBLAS_INT lda,
204 const double *X,
const CBLAS_INT incX,
const double beta,
205 double *Y,
const CBLAS_INT incY);
206 void cblas_dgbmv(CBLAS_LAYOUT layout,
207 CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
208 const CBLAS_INT KL,
const CBLAS_INT KU,
const double alpha,
209 const double *A,
const CBLAS_INT lda,
const double *X,
210 const CBLAS_INT incX,
const double beta,
double *Y,
const CBLAS_INT incY);
211 void cblas_dtrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
212 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
213 const CBLAS_INT N,
const double *A,
const CBLAS_INT lda,
214 double *X,
const CBLAS_INT incX);
215 void cblas_dtbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
216 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
217 const CBLAS_INT N,
const CBLAS_INT K,
const double *A,
const CBLAS_INT lda,
218 double *X,
const CBLAS_INT incX);
219 void cblas_dtpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
220 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
221 const CBLAS_INT N,
const double *Ap,
double *X,
const CBLAS_INT incX);
222 void cblas_dtrsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
223 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
224 const CBLAS_INT N,
const double *A,
const CBLAS_INT lda,
double *X,
225 const CBLAS_INT incX);
226 void cblas_dtbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
227 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
228 const CBLAS_INT N,
const CBLAS_INT K,
const double *A,
const CBLAS_INT lda,
229 double *X,
const CBLAS_INT incX);
230 void cblas_dtpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
231 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
232 const CBLAS_INT N,
const double *Ap,
double *X,
const CBLAS_INT incX);
234 void cblas_cgemv(CBLAS_LAYOUT layout,
235 CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
236 const void *alpha,
const void *A,
const CBLAS_INT lda,
237 const void *X,
const CBLAS_INT incX,
const void *beta,
238 void *Y,
const CBLAS_INT incY);
239 void cblas_cgbmv(CBLAS_LAYOUT layout,
240 CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
241 const CBLAS_INT KL,
const CBLAS_INT KU,
const void *alpha,
242 const void *A,
const CBLAS_INT lda,
const void *X,
243 const CBLAS_INT incX,
const void *beta,
void *Y,
const CBLAS_INT incY);
244 void cblas_ctrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
245 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
246 const CBLAS_INT N,
const void *A,
const CBLAS_INT lda,
247 void *X,
const CBLAS_INT incX);
248 void cblas_ctbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
249 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
250 const CBLAS_INT N,
const CBLAS_INT K,
const void *A,
const CBLAS_INT lda,
251 void *X,
const CBLAS_INT incX);
252 void cblas_ctpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
253 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
254 const CBLAS_INT N,
const void *Ap,
void *X,
const CBLAS_INT incX);
255 void cblas_ctrsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
256 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
257 const CBLAS_INT N,
const void *A,
const CBLAS_INT lda,
void *X,
258 const CBLAS_INT incX);
259 void cblas_ctbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
260 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
261 const CBLAS_INT N,
const CBLAS_INT K,
const void *A,
const CBLAS_INT lda,
262 void *X,
const CBLAS_INT incX);
263 void cblas_ctpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
264 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
265 const CBLAS_INT N,
const void *Ap,
void *X,
const CBLAS_INT incX);
267 void cblas_zgemv(CBLAS_LAYOUT layout,
268 CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
269 const void *alpha,
const void *A,
const CBLAS_INT lda,
270 const void *X,
const CBLAS_INT incX,
const void *beta,
271 void *Y,
const CBLAS_INT incY);
272 void cblas_zgbmv(CBLAS_LAYOUT layout,
273 CBLAS_TRANSPOSE TransA,
const CBLAS_INT M,
const CBLAS_INT N,
274 const CBLAS_INT KL,
const CBLAS_INT KU,
const void *alpha,
275 const void *A,
const CBLAS_INT lda,
const void *X,
276 const CBLAS_INT incX,
const void *beta,
void *Y,
const CBLAS_INT incY);
277 void cblas_ztrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
278 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
279 const CBLAS_INT N,
const void *A,
const CBLAS_INT lda,
280 void *X,
const CBLAS_INT incX);
281 void cblas_ztbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
282 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
283 const CBLAS_INT N,
const CBLAS_INT K,
const void *A,
const CBLAS_INT lda,
284 void *X,
const CBLAS_INT incX);
285 void cblas_ztpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
286 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
287 const CBLAS_INT N,
const void *Ap,
void *X,
const CBLAS_INT incX);
288 void cblas_ztrsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
289 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
290 const CBLAS_INT N,
const void *A,
const CBLAS_INT lda,
void *X,
291 const CBLAS_INT incX);
292 void cblas_ztbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
293 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
294 const CBLAS_INT N,
const CBLAS_INT K,
const void *A,
const CBLAS_INT lda,
295 void *X,
const CBLAS_INT incX);
296 void cblas_ztpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
297 CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
298 const CBLAS_INT N,
const void *Ap,
void *X,
const CBLAS_INT incX);
304 void cblas_ssymv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
305 const CBLAS_INT N,
const float alpha,
const float *A,
306 const CBLAS_INT lda,
const float *X,
const CBLAS_INT incX,
307 const float beta,
float *Y,
const CBLAS_INT incY);
308 void cblas_ssbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
309 const CBLAS_INT N,
const CBLAS_INT K,
const float alpha,
const float *A,
310 const CBLAS_INT lda,
const float *X,
const CBLAS_INT incX,
311 const float beta,
float *Y,
const CBLAS_INT incY);
312 void cblas_sspmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
313 const CBLAS_INT N,
const float alpha,
const float *Ap,
314 const float *X,
const CBLAS_INT incX,
315 const float beta,
float *Y,
const CBLAS_INT incY);
316 void cblas_sger(CBLAS_LAYOUT layout,
const CBLAS_INT M,
const CBLAS_INT N,
317 const float alpha,
const float *X,
const CBLAS_INT incX,
318 const float *Y,
const CBLAS_INT incY,
float *A,
const CBLAS_INT lda);
319 void cblas_ssyr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
320 const CBLAS_INT N,
const float alpha,
const float *X,
321 const CBLAS_INT incX,
float *A,
const CBLAS_INT lda);
322 void cblas_sspr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
323 const CBLAS_INT N,
const float alpha,
const float *X,
324 const CBLAS_INT incX,
float *Ap);
325 void cblas_ssyr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
326 const CBLAS_INT N,
const float alpha,
const float *X,
327 const CBLAS_INT incX,
const float *Y,
const CBLAS_INT incY,
float *A,
328 const CBLAS_INT lda);
329 void cblas_sspr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
330 const CBLAS_INT N,
const float alpha,
const float *X,
331 const CBLAS_INT incX,
const float *Y,
const CBLAS_INT incY,
float *A);
333 void cblas_dsymv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
334 const CBLAS_INT N,
const double alpha,
const double *A,
335 const CBLAS_INT lda,
const double *X,
const CBLAS_INT incX,
336 const double beta,
double *Y,
const CBLAS_INT incY);
337 void cblas_dsbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
338 const CBLAS_INT N,
const CBLAS_INT K,
const double alpha,
const double *A,
339 const CBLAS_INT lda,
const double *X,
const CBLAS_INT incX,
340 const double beta,
double *Y,
const CBLAS_INT incY);
341 void cblas_dspmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
342 const CBLAS_INT N,
const double alpha,
const double *Ap,
343 const double *X,
const CBLAS_INT incX,
344 const double beta,
double *Y,
const CBLAS_INT incY);
345 void cblas_dger(CBLAS_LAYOUT layout,
const CBLAS_INT M,
const CBLAS_INT N,
346 const double alpha,
const double *X,
const CBLAS_INT incX,
347 const double *Y,
const CBLAS_INT incY,
double *A,
const CBLAS_INT lda);
348 void cblas_dsyr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
349 const CBLAS_INT N,
const double alpha,
const double *X,
350 const CBLAS_INT incX,
double *A,
const CBLAS_INT lda);
351 void cblas_dspr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
352 const CBLAS_INT N,
const double alpha,
const double *X,
353 const CBLAS_INT incX,
double *Ap);
354 void cblas_dsyr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
355 const CBLAS_INT N,
const double alpha,
const double *X,
356 const CBLAS_INT incX,
const double *Y,
const CBLAS_INT incY,
double *A,
357 const CBLAS_INT lda);
358 void cblas_dspr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
359 const CBLAS_INT N,
const double alpha,
const double *X,
360 const CBLAS_INT incX,
const double *Y,
const CBLAS_INT incY,
double *A);
366 void cblas_chemv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
367 const CBLAS_INT N,
const void *alpha,
const void *A,
368 const CBLAS_INT lda,
const void *X,
const CBLAS_INT incX,
369 const void *beta,
void *Y,
const CBLAS_INT incY);
370 void cblas_chbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
371 const CBLAS_INT N,
const CBLAS_INT K,
const void *alpha,
const void *A,
372 const CBLAS_INT lda,
const void *X,
const CBLAS_INT incX,
373 const void *beta,
void *Y,
const CBLAS_INT incY);
374 void cblas_chpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
375 const CBLAS_INT N,
const void *alpha,
const void *Ap,
376 const void *X,
const CBLAS_INT incX,
377 const void *beta,
void *Y,
const CBLAS_INT incY);
378 void cblas_cgeru(CBLAS_LAYOUT layout,
const CBLAS_INT M,
const CBLAS_INT N,
379 const void *alpha,
const void *X,
const CBLAS_INT incX,
380 const void *Y,
const CBLAS_INT incY,
void *A,
const CBLAS_INT lda);
381 void cblas_cgerc(CBLAS_LAYOUT layout,
const CBLAS_INT M,
const CBLAS_INT N,
382 const void *alpha,
const void *X,
const CBLAS_INT incX,
383 const void *Y,
const CBLAS_INT incY,
void *A,
const CBLAS_INT lda);
384 void cblas_cher(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
385 const CBLAS_INT N,
const float alpha,
const void *X,
const CBLAS_INT incX,
386 void *A,
const CBLAS_INT lda);
387 void cblas_chpr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
388 const CBLAS_INT N,
const float alpha,
const void *X,
389 const CBLAS_INT incX,
void *A);
390 void cblas_cher2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
const CBLAS_INT N,
391 const void *alpha,
const void *X,
const CBLAS_INT incX,
392 const void *Y,
const CBLAS_INT incY,
void *A,
const CBLAS_INT lda);
393 void cblas_chpr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
const CBLAS_INT N,
394 const void *alpha,
const void *X,
const CBLAS_INT incX,
395 const void *Y,
const CBLAS_INT incY,
void *Ap);
397 void cblas_zhemv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
398 const CBLAS_INT N,
const void *alpha,
const void *A,
399 const CBLAS_INT lda,
const void *X,
const CBLAS_INT incX,
400 const void *beta,
void *Y,
const CBLAS_INT incY);
401 void cblas_zhbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
402 const CBLAS_INT N,
const CBLAS_INT K,
const void *alpha,
const void *A,
403 const CBLAS_INT lda,
const void *X,
const CBLAS_INT incX,
404 const void *beta,
void *Y,
const CBLAS_INT incY);
405 void cblas_zhpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
406 const CBLAS_INT N,
const void *alpha,
const void *Ap,
407 const void *X,
const CBLAS_INT incX,
408 const void *beta,
void *Y,
const CBLAS_INT incY);
409 void cblas_zgeru(CBLAS_LAYOUT layout,
const CBLAS_INT M,
const CBLAS_INT N,
410 const void *alpha,
const void *X,
const CBLAS_INT incX,
411 const void *Y,
const CBLAS_INT incY,
void *A,
const CBLAS_INT lda);
412 void cblas_zgerc(CBLAS_LAYOUT layout,
const CBLAS_INT M,
const CBLAS_INT N,
413 const void *alpha,
const void *X,
const CBLAS_INT incX,
414 const void *Y,
const CBLAS_INT incY,
void *A,
const CBLAS_INT lda);
415 void cblas_zher(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
416 const CBLAS_INT N,
const double alpha,
const void *X,
const CBLAS_INT incX,
417 void *A,
const CBLAS_INT lda);
418 void cblas_zhpr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
419 const CBLAS_INT N,
const double alpha,
const void *X,
420 const CBLAS_INT incX,
void *A);
421 void cblas_zher2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
const CBLAS_INT N,
422 const void *alpha,
const void *X,
const CBLAS_INT incX,
423 const void *Y,
const CBLAS_INT incY,
void *A,
const CBLAS_INT lda);
424 void cblas_zhpr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
const CBLAS_INT N,
425 const void *alpha,
const void *X,
const CBLAS_INT incX,
426 const void *Y,
const CBLAS_INT incY,
void *Ap);
437 void cblas_sgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
438 CBLAS_TRANSPOSE TransB,
const CBLAS_INT M,
const CBLAS_INT N,
439 const CBLAS_INT K,
const float alpha,
const float *A,
440 const CBLAS_INT lda,
const float *B,
const CBLAS_INT ldb,
441 const float beta,
float *C,
const CBLAS_INT ldc);
442 void cblas_ssymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
443 CBLAS_UPLO Uplo,
const CBLAS_INT M,
const CBLAS_INT N,
444 const float alpha,
const float *A,
const CBLAS_INT lda,
445 const float *B,
const CBLAS_INT ldb,
const float beta,
446 float *C,
const CBLAS_INT ldc);
447 void cblas_ssyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
448 CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
449 const float alpha,
const float *A,
const CBLAS_INT lda,
450 const float beta,
float *C,
const CBLAS_INT ldc);
451 void cblas_ssyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
452 CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
453 const float alpha,
const float *A,
const CBLAS_INT lda,
454 const float *B,
const CBLAS_INT ldb,
const float beta,
455 float *C,
const CBLAS_INT ldc);
456 void cblas_strmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
457 CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
458 CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
459 const float alpha,
const float *A,
const CBLAS_INT lda,
460 float *B,
const CBLAS_INT ldb);
461 void cblas_strsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
462 CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
463 CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
464 const float alpha,
const float *A,
const CBLAS_INT lda,
465 float *B,
const CBLAS_INT ldb);
467 void cblas_dgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
468 CBLAS_TRANSPOSE TransB,
const CBLAS_INT M,
const CBLAS_INT N,
469 const CBLAS_INT K,
const double alpha,
const double *A,
470 const CBLAS_INT lda,
const double *B,
const CBLAS_INT ldb,
471 const double beta,
double *C,
const CBLAS_INT ldc);
472 void cblas_dsymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
473 CBLAS_UPLO Uplo,
const CBLAS_INT M,
const CBLAS_INT N,
474 const double alpha,
const double *A,
const CBLAS_INT lda,
475 const double *B,
const CBLAS_INT ldb,
const double beta,
476 double *C,
const CBLAS_INT ldc);
477 void cblas_dsyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
478 CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
479 const double alpha,
const double *A,
const CBLAS_INT lda,
480 const double beta,
double *C,
const CBLAS_INT ldc);
481 void cblas_dsyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
482 CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
483 const double alpha,
const double *A,
const CBLAS_INT lda,
484 const double *B,
const CBLAS_INT ldb,
const double beta,
485 double *C,
const CBLAS_INT ldc);
486 void cblas_dtrmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
487 CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
488 CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
489 const double alpha,
const double *A,
const CBLAS_INT lda,
490 double *B,
const CBLAS_INT ldb);
491 void cblas_dtrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
492 CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
493 CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
494 const double alpha,
const double *A,
const CBLAS_INT lda,
495 double *B,
const CBLAS_INT ldb);
497 void cblas_cgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
498 CBLAS_TRANSPOSE TransB,
const CBLAS_INT M,
const CBLAS_INT N,
499 const CBLAS_INT K,
const void *alpha,
const void *A,
500 const CBLAS_INT lda,
const void *B,
const CBLAS_INT ldb,
501 const void *beta,
void *C,
const CBLAS_INT ldc);
502 void cblas_csymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
503 CBLAS_UPLO Uplo,
const CBLAS_INT M,
const CBLAS_INT N,
504 const void *alpha,
const void *A,
const CBLAS_INT lda,
505 const void *B,
const CBLAS_INT ldb,
const void *beta,
506 void *C,
const CBLAS_INT ldc);
507 void cblas_csyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
508 CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
509 const void *alpha,
const void *A,
const CBLAS_INT lda,
510 const void *beta,
void *C,
const CBLAS_INT ldc);
511 void cblas_csyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
512 CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
513 const void *alpha,
const void *A,
const CBLAS_INT lda,
514 const void *B,
const CBLAS_INT ldb,
const void *beta,
515 void *C,
const CBLAS_INT ldc);
516 void cblas_ctrmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
517 CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
518 CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
519 const void *alpha,
const void *A,
const CBLAS_INT lda,
520 void *B,
const CBLAS_INT ldb);
521 void cblas_ctrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
522 CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
523 CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
524 const void *alpha,
const void *A,
const CBLAS_INT lda,
525 void *B,
const CBLAS_INT ldb);
527 void cblas_zgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
528 CBLAS_TRANSPOSE TransB,
const CBLAS_INT M,
const CBLAS_INT N,
529 const CBLAS_INT K,
const void *alpha,
const void *A,
530 const CBLAS_INT lda,
const void *B,
const CBLAS_INT ldb,
531 const void *beta,
void *C,
const CBLAS_INT ldc);
532 void cblas_zsymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
533 CBLAS_UPLO Uplo,
const CBLAS_INT M,
const CBLAS_INT N,
534 const void *alpha,
const void *A,
const CBLAS_INT lda,
535 const void *B,
const CBLAS_INT ldb,
const void *beta,
536 void *C,
const CBLAS_INT ldc);
537 void cblas_zsyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
538 CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
539 const void *alpha,
const void *A,
const CBLAS_INT lda,
540 const void *beta,
void *C,
const CBLAS_INT ldc);
541 void cblas_zsyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
542 CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
543 const void *alpha,
const void *A,
const CBLAS_INT lda,
544 const void *B,
const CBLAS_INT ldb,
const void *beta,
545 void *C,
const CBLAS_INT ldc);
546 void cblas_ztrmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
547 CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
548 CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
549 const void *alpha,
const void *A,
const CBLAS_INT lda,
550 void *B,
const CBLAS_INT ldb);
551 void cblas_ztrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
552 CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
553 CBLAS_DIAG Diag,
const CBLAS_INT M,
const CBLAS_INT N,
554 const void *alpha,
const void *A,
const CBLAS_INT lda,
555 void *B,
const CBLAS_INT ldb);
561 void cblas_chemm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
562 CBLAS_UPLO Uplo,
const CBLAS_INT M,
const CBLAS_INT N,
563 const void *alpha,
const void *A,
const CBLAS_INT lda,
564 const void *B,
const CBLAS_INT ldb,
const void *beta,
565 void *C,
const CBLAS_INT ldc);
566 void cblas_cherk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
567 CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
568 const float alpha,
const void *A,
const CBLAS_INT lda,
569 const float beta,
void *C,
const CBLAS_INT ldc);
570 void cblas_cher2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
571 CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
572 const void *alpha,
const void *A,
const CBLAS_INT lda,
573 const void *B,
const CBLAS_INT ldb,
const float beta,
574 void *C,
const CBLAS_INT ldc);
576 void cblas_zhemm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
577 CBLAS_UPLO Uplo,
const CBLAS_INT M,
const CBLAS_INT N,
578 const void *alpha,
const void *A,
const CBLAS_INT lda,
579 const void *B,
const CBLAS_INT ldb,
const void *beta,
580 void *C,
const CBLAS_INT ldc);
581 void cblas_zherk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
582 CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
583 const double alpha,
const void *A,
const CBLAS_INT lda,
584 const double beta,
void *C,
const CBLAS_INT ldc);
585 void cblas_zher2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
586 CBLAS_TRANSPOSE Trans,
const CBLAS_INT N,
const CBLAS_INT K,
587 const void *alpha,
const void *A,
const CBLAS_INT lda,
588 const void *B,
const CBLAS_INT ldb,
const double beta,
589 void *C,
const CBLAS_INT ldc);
591 void cblas_xerbla(CBLAS_INT p,
const char *rout,
const char *form, ...);