1/* blas/gsl_cblas.h
2 *
3 * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
4 *
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 3 of the License, or (at
8 * your option) any later version.
9 *
10 * This program is distributed in the hope that it will be useful, but
11 * WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * General Public License for more details.
14 *
15 * You should have received a copy of the GNU General Public License
16 * along with this program; if not, write to the Free Software
17 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
18 */
19
20/* This is a copy of the CBLAS standard header.
21 * We carry this around so we do not have to
22 * break our model for flexible BLAS functionality.
23 */
24
25#ifndef __GSL_CBLAS_H__
26#define __GSL_CBLAS_H__
27#include <stddef.h>
28
29#undef __BEGIN_DECLS
30#undef __END_DECLS
31#ifdef __cplusplus
32#define __BEGIN_DECLS extern "C" {
33#define __END_DECLS }
34#else
35#define __BEGIN_DECLS /* empty */
36#define __END_DECLS /* empty */
37#endif
38
39__BEGIN_DECLS
40
41/*
42 * Enumerated and derived types
43 */
44#define CBLAS_INDEX size_t /* this may vary between platforms */
45
46enum CBLAS_ORDER {CblasRowMajor=101, CblasColMajor=102};
47enum CBLAS_TRANSPOSE {CblasNoTrans=111, CblasTrans=112, CblasConjTrans=113};
48enum CBLAS_UPLO {CblasUpper=121, CblasLower=122};
49enum CBLAS_DIAG {CblasNonUnit=131, CblasUnit=132};
50enum CBLAS_SIDE {CblasLeft=141, CblasRight=142};
51
52/*
53 * ===========================================================================
54 * Prototypes for level 1 BLAS functions (complex are recast as routines)
55 * ===========================================================================
56 */
57float cblas_sdsdot(const int N, const float alpha, const float *X,
58 const int incX, const float *Y, const int incY);
59double cblas_dsdot(const int N, const float *X, const int incX, const float *Y,
60 const int incY);
61float cblas_sdot(const int N, const float *X, const int incX,
62 const float *Y, const int incY);
63double cblas_ddot(const int N, const double *X, const int incX,
64 const double *Y, const int incY);
65
66/*
67 * Functions having prefixes Z and C only
68 */
69void cblas_cdotu_sub(const int N, const void *X, const int incX,
70 const void *Y, const int incY, void *dotu);
71void cblas_cdotc_sub(const int N, const void *X, const int incX,
72 const void *Y, const int incY, void *dotc);
73
74void cblas_zdotu_sub(const int N, const void *X, const int incX,
75 const void *Y, const int incY, void *dotu);
76void cblas_zdotc_sub(const int N, const void *X, const int incX,
77 const void *Y, const int incY, void *dotc);
78
79
80/*
81 * Functions having prefixes S D SC DZ
82 */
83float cblas_snrm2(const int N, const float *X, const int incX);
84float cblas_sasum(const int N, const float *X, const int incX);
85
86double cblas_dnrm2(const int N, const double *X, const int incX);
87double cblas_dasum(const int N, const double *X, const int incX);
88
89float cblas_scnrm2(const int N, const void *X, const int incX);
90float cblas_scasum(const int N, const void *X, const int incX);
91
92double cblas_dznrm2(const int N, const void *X, const int incX);
93double cblas_dzasum(const int N, const void *X, const int incX);
94
95
96/*
97 * Functions having standard 4 prefixes (S D C Z)
98 */
99CBLAS_INDEX cblas_isamax(const int N, const float *X, const int incX);
100CBLAS_INDEX cblas_idamax(const int N, const double *X, const int incX);
101CBLAS_INDEX cblas_icamax(const int N, const void *X, const int incX);
102CBLAS_INDEX cblas_izamax(const int N, const void *X, const int incX);
103
104/*
105 * ===========================================================================
106 * Prototypes for level 1 BLAS routines
107 * ===========================================================================
108 */
109
110/*
111 * Routines with standard 4 prefixes (s, d, c, z)
112 */
113void cblas_sswap(const int N, float *X, const int incX,
114 float *Y, const int incY);
115void cblas_scopy(const int N, const float *X, const int incX,
116 float *Y, const int incY);
117void cblas_saxpy(const int N, const float alpha, const float *X,
118 const int incX, float *Y, const int incY);
119
120void cblas_dswap(const int N, double *X, const int incX,
121 double *Y, const int incY);
122void cblas_dcopy(const int N, const double *X, const int incX,
123 double *Y, const int incY);
124void cblas_daxpy(const int N, const double alpha, const double *X,
125 const int incX, double *Y, const int incY);
126
127void cblas_cswap(const int N, void *X, const int incX,
128 void *Y, const int incY);
129void cblas_ccopy(const int N, const void *X, const int incX,
130 void *Y, const int incY);
131void cblas_caxpy(const int N, const void *alpha, const void *X,
132 const int incX, void *Y, const int incY);
133
134void cblas_zswap(const int N, void *X, const int incX,
135 void *Y, const int incY);
136void cblas_zcopy(const int N, const void *X, const int incX,
137 void *Y, const int incY);
138void cblas_zaxpy(const int N, const void *alpha, const void *X,
139 const int incX, void *Y, const int incY);
140
141
142/*
143 * Routines with S and D prefix only
144 */
145void cblas_srotg(float *a, float *b, float *c, float *s);
146void cblas_srotmg(float *d1, float *d2, float *b1, const float b2, float *P);
147void cblas_srot(const int N, float *X, const int incX,
148 float *Y, const int incY, const float c, const float s);
149void cblas_srotm(const int N, float *X, const int incX,
150 float *Y, const int incY, const float *P);
151
152void cblas_drotg(double *a, double *b, double *c, double *s);
153void cblas_drotmg(double *d1, double *d2, double *b1, const double b2, double *P);
154void cblas_drot(const int N, double *X, const int incX,
155 double *Y, const int incY, const double c, const double s);
156void cblas_drotm(const int N, double *X, const int incX,
157 double *Y, const int incY, const double *P);
158
159
160/*
161 * Routines with S D C Z CS and ZD prefixes
162 */
163void cblas_sscal(const int N, const float alpha, float *X, const int incX);
164void cblas_dscal(const int N, const double alpha, double *X, const int incX);
165void cblas_cscal(const int N, const void *alpha, void *X, const int incX);
166void cblas_zscal(const int N, const void *alpha, void *X, const int incX);
167void cblas_csscal(const int N, const float alpha, void *X, const int incX);
168void cblas_zdscal(const int N, const double alpha, void *X, const int incX);
169
170/*
171 * ===========================================================================
172 * Prototypes for level 2 BLAS
173 * ===========================================================================
174 */
175
176/*
177 * Routines with standard 4 prefixes (S, D, C, Z)
178 */
179void cblas_sgemv(const enum CBLAS_ORDER order,
180 const enum CBLAS_TRANSPOSE TransA, const int M, const int N,
181 const float alpha, const float *A, const int lda,
182 const float *X, const int incX, const float beta,
183 float *Y, const int incY);
184void cblas_sgbmv(const enum CBLAS_ORDER order,
185 const enum CBLAS_TRANSPOSE TransA, const int M, const int N,
186 const int KL, const int KU, const float alpha,
187 const float *A, const int lda, const float *X,
188 const int incX, const float beta, float *Y, const int incY);
189void cblas_strmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
190 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
191 const int N, const float *A, const int lda,
192 float *X, const int incX);
193void cblas_stbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
194 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
195 const int N, const int K, const float *A, const int lda,
196 float *X, const int incX);
197void cblas_stpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
198 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
199 const int N, const float *Ap, float *X, const int incX);
200void cblas_strsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
201 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
202 const int N, const float *A, const int lda, float *X,
203 const int incX);
204void cblas_stbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
205 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
206 const int N, const int K, const float *A, const int lda,
207 float *X, const int incX);
208void cblas_stpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
209 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
210 const int N, const float *Ap, float *X, const int incX);
211
212void cblas_dgemv(const enum CBLAS_ORDER order,
213 const enum CBLAS_TRANSPOSE TransA, const int M, const int N,
214 const double alpha, const double *A, const int lda,
215 const double *X, const int incX, const double beta,
216 double *Y, const int incY);
217void cblas_dgbmv(const enum CBLAS_ORDER order,
218 const enum CBLAS_TRANSPOSE TransA, const int M, const int N,
219 const int KL, const int KU, const double alpha,
220 const double *A, const int lda, const double *X,
221 const int incX, const double beta, double *Y, const int incY);
222void cblas_dtrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
223 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
224 const int N, const double *A, const int lda,
225 double *X, const int incX);
226void cblas_dtbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
227 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
228 const int N, const int K, const double *A, const int lda,
229 double *X, const int incX);
230void cblas_dtpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
231 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
232 const int N, const double *Ap, double *X, const int incX);
233void cblas_dtrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
234 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
235 const int N, const double *A, const int lda, double *X,
236 const int incX);
237void cblas_dtbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
238 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
239 const int N, const int K, const double *A, const int lda,
240 double *X, const int incX);
241void cblas_dtpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
242 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
243 const int N, const double *Ap, double *X, const int incX);
244
245void cblas_cgemv(const enum CBLAS_ORDER order,
246 const enum CBLAS_TRANSPOSE TransA, const int M, const int N,
247 const void *alpha, const void *A, const int lda,
248 const void *X, const int incX, const void *beta,
249 void *Y, const int incY);
250void cblas_cgbmv(const enum CBLAS_ORDER order,
251 const enum CBLAS_TRANSPOSE TransA, const int M, const int N,
252 const int KL, const int KU, const void *alpha,
253 const void *A, const int lda, const void *X,
254 const int incX, const void *beta, void *Y, const int incY);
255void cblas_ctrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
256 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
257 const int N, const void *A, const int lda,
258 void *X, const int incX);
259void cblas_ctbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
260 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
261 const int N, const int K, const void *A, const int lda,
262 void *X, const int incX);
263void cblas_ctpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
264 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
265 const int N, const void *Ap, void *X, const int incX);
266void cblas_ctrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
267 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
268 const int N, const void *A, const int lda, void *X,
269 const int incX);
270void cblas_ctbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
271 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
272 const int N, const int K, const void *A, const int lda,
273 void *X, const int incX);
274void cblas_ctpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
275 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
276 const int N, const void *Ap, void *X, const int incX);
277
278void cblas_zgemv(const enum CBLAS_ORDER order,
279 const enum CBLAS_TRANSPOSE TransA, const int M, const int N,
280 const void *alpha, const void *A, const int lda,
281 const void *X, const int incX, const void *beta,
282 void *Y, const int incY);
283void cblas_zgbmv(const enum CBLAS_ORDER order,
284 const enum CBLAS_TRANSPOSE TransA, const int M, const int N,
285 const int KL, const int KU, const void *alpha,
286 const void *A, const int lda, const void *X,
287 const int incX, const void *beta, void *Y, const int incY);
288void cblas_ztrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
289 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
290 const int N, const void *A, const int lda,
291 void *X, const int incX);
292void cblas_ztbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
293 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
294 const int N, const int K, const void *A, const int lda,
295 void *X, const int incX);
296void cblas_ztpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
297 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
298 const int N, const void *Ap, void *X, const int incX);
299void cblas_ztrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
300 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
301 const int N, const void *A, const int lda, void *X,
302 const int incX);
303void cblas_ztbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
304 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
305 const int N, const int K, const void *A, const int lda,
306 void *X, const int incX);
307void cblas_ztpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
308 const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
309 const int N, const void *Ap, void *X, const int incX);
310
311
312/*
313 * Routines with S and D prefixes only
314 */
315void cblas_ssymv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
316 const int N, const float alpha, const float *A,
317 const int lda, const float *X, const int incX,
318 const float beta, float *Y, const int incY);
319void cblas_ssbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
320 const int N, const int K, const float alpha, const float *A,
321 const int lda, const float *X, const int incX,
322 const float beta, float *Y, const int incY);
323void cblas_sspmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
324 const int N, const float alpha, const float *Ap,
325 const float *X, const int incX,
326 const float beta, float *Y, const int incY);
327void cblas_sger(const enum CBLAS_ORDER order, const int M, const int N,
328 const float alpha, const float *X, const int incX,
329 const float *Y, const int incY, float *A, const int lda);
330void cblas_ssyr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
331 const int N, const float alpha, const float *X,
332 const int incX, float *A, const int lda);
333void cblas_sspr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
334 const int N, const float alpha, const float *X,
335 const int incX, float *Ap);
336void cblas_ssyr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
337 const int N, const float alpha, const float *X,
338 const int incX, const float *Y, const int incY, float *A,
339 const int lda);
340void cblas_sspr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
341 const int N, const float alpha, const float *X,
342 const int incX, const float *Y, const int incY, float *A);
343
344void cblas_dsymv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
345 const int N, const double alpha, const double *A,
346 const int lda, const double *X, const int incX,
347 const double beta, double *Y, const int incY);
348void cblas_dsbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
349 const int N, const int K, const double alpha, const double *A,
350 const int lda, const double *X, const int incX,
351 const double beta, double *Y, const int incY);
352void cblas_dspmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
353 const int N, const double alpha, const double *Ap,
354 const double *X, const int incX,
355 const double beta, double *Y, const int incY);
356void cblas_dger(const enum CBLAS_ORDER order, const int M, const int N,
357 const double alpha, const double *X, const int incX,
358 const double *Y, const int incY, double *A, const int lda);
359void cblas_dsyr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
360 const int N, const double alpha, const double *X,
361 const int incX, double *A, const int lda);
362void cblas_dspr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
363 const int N, const double alpha, const double *X,
364 const int incX, double *Ap);
365void cblas_dsyr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
366 const int N, const double alpha, const double *X,
367 const int incX, const double *Y, const int incY, double *A,
368 const int lda);
369void cblas_dspr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
370 const int N, const double alpha, const double *X,
371 const int incX, const double *Y, const int incY, double *A);
372
373
374/*
375 * Routines with C and Z prefixes only
376 */
377void cblas_chemv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
378 const int N, const void *alpha, const void *A,
379 const int lda, const void *X, const int incX,
380 const void *beta, void *Y, const int incY);
381void cblas_chbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
382 const int N, const int K, const void *alpha, const void *A,
383 const int lda, const void *X, const int incX,
384 const void *beta, void *Y, const int incY);
385void cblas_chpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
386 const int N, const void *alpha, const void *Ap,
387 const void *X, const int incX,
388 const void *beta, void *Y, const int incY);
389void cblas_cgeru(const enum CBLAS_ORDER order, const int M, const int N,
390 const void *alpha, const void *X, const int incX,
391 const void *Y, const int incY, void *A, const int lda);
392void cblas_cgerc(const enum CBLAS_ORDER order, const int M, const int N,
393 const void *alpha, const void *X, const int incX,
394 const void *Y, const int incY, void *A, const int lda);
395void cblas_cher(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
396 const int N, const float alpha, const void *X, const int incX,
397 void *A, const int lda);
398void cblas_chpr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
399 const int N, const float alpha, const void *X,
400 const int incX, void *A);
401void cblas_cher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, const int N,
402 const void *alpha, const void *X, const int incX,
403 const void *Y, const int incY, void *A, const int lda);
404void cblas_chpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, const int N,
405 const void *alpha, const void *X, const int incX,
406 const void *Y, const int incY, void *Ap);
407
408void cblas_zhemv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
409 const int N, const void *alpha, const void *A,
410 const int lda, const void *X, const int incX,
411 const void *beta, void *Y, const int incY);
412void cblas_zhbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
413 const int N, const int K, const void *alpha, const void *A,
414 const int lda, const void *X, const int incX,
415 const void *beta, void *Y, const int incY);
416void cblas_zhpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
417 const int N, const void *alpha, const void *Ap,
418 const void *X, const int incX,
419 const void *beta, void *Y, const int incY);
420void cblas_zgeru(const enum CBLAS_ORDER order, const int M, const int N,
421 const void *alpha, const void *X, const int incX,
422 const void *Y, const int incY, void *A, const int lda);
423void cblas_zgerc(const enum CBLAS_ORDER order, const int M, const int N,
424 const void *alpha, const void *X, const int incX,
425 const void *Y, const int incY, void *A, const int lda);
426void cblas_zher(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
427 const int N, const double alpha, const void *X, const int incX,
428 void *A, const int lda);
429void cblas_zhpr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
430 const int N, const double alpha, const void *X,
431 const int incX, void *A);
432void cblas_zher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, const int N,
433 const void *alpha, const void *X, const int incX,
434 const void *Y, const int incY, void *A, const int lda);
435void cblas_zhpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, const int N,
436 const void *alpha, const void *X, const int incX,
437 const void *Y, const int incY, void *Ap);
438
439/*
440 * ===========================================================================
441 * Prototypes for level 3 BLAS
442 * ===========================================================================
443 */
444
445/*
446 * Routines with standard 4 prefixes (S, D, C, Z)
447 */
448void cblas_sgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA,
449 const enum CBLAS_TRANSPOSE TransB, const int M, const int N,
450 const int K, const float alpha, const float *A,
451 const int lda, const float *B, const int ldb,
452 const float beta, float *C, const int ldc);
453void cblas_ssymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
454 const enum CBLAS_UPLO Uplo, const int M, const int N,
455 const float alpha, const float *A, const int lda,
456 const float *B, const int ldb, const float beta,
457 float *C, const int ldc);
458void cblas_ssyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
459 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
460 const float alpha, const float *A, const int lda,
461 const float beta, float *C, const int ldc);
462void cblas_ssyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
463 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
464 const float alpha, const float *A, const int lda,
465 const float *B, const int ldb, const float beta,
466 float *C, const int ldc);
467void cblas_strmm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
468 const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
469 const enum CBLAS_DIAG Diag, const int M, const int N,
470 const float alpha, const float *A, const int lda,
471 float *B, const int ldb);
472void cblas_strsm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
473 const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
474 const enum CBLAS_DIAG Diag, const int M, const int N,
475 const float alpha, const float *A, const int lda,
476 float *B, const int ldb);
477
478void cblas_dgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA,
479 const enum CBLAS_TRANSPOSE TransB, const int M, const int N,
480 const int K, const double alpha, const double *A,
481 const int lda, const double *B, const int ldb,
482 const double beta, double *C, const int ldc);
483void cblas_dsymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
484 const enum CBLAS_UPLO Uplo, const int M, const int N,
485 const double alpha, const double *A, const int lda,
486 const double *B, const int ldb, const double beta,
487 double *C, const int ldc);
488void cblas_dsyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
489 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
490 const double alpha, const double *A, const int lda,
491 const double beta, double *C, const int ldc);
492void cblas_dsyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
493 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
494 const double alpha, const double *A, const int lda,
495 const double *B, const int ldb, const double beta,
496 double *C, const int ldc);
497void cblas_dtrmm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
498 const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
499 const enum CBLAS_DIAG Diag, const int M, const int N,
500 const double alpha, const double *A, const int lda,
501 double *B, const int ldb);
502void cblas_dtrsm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
503 const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
504 const enum CBLAS_DIAG Diag, const int M, const int N,
505 const double alpha, const double *A, const int lda,
506 double *B, const int ldb);
507
508void cblas_cgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA,
509 const enum CBLAS_TRANSPOSE TransB, const int M, const int N,
510 const int K, const void *alpha, const void *A,
511 const int lda, const void *B, const int ldb,
512 const void *beta, void *C, const int ldc);
513void cblas_csymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
514 const enum CBLAS_UPLO Uplo, const int M, const int N,
515 const void *alpha, const void *A, const int lda,
516 const void *B, const int ldb, const void *beta,
517 void *C, const int ldc);
518void cblas_csyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
519 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
520 const void *alpha, const void *A, const int lda,
521 const void *beta, void *C, const int ldc);
522void cblas_csyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
523 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
524 const void *alpha, const void *A, const int lda,
525 const void *B, const int ldb, const void *beta,
526 void *C, const int ldc);
527void cblas_ctrmm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
528 const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
529 const enum CBLAS_DIAG Diag, const int M, const int N,
530 const void *alpha, const void *A, const int lda,
531 void *B, const int ldb);
532void cblas_ctrsm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
533 const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
534 const enum CBLAS_DIAG Diag, const int M, const int N,
535 const void *alpha, const void *A, const int lda,
536 void *B, const int ldb);
537
538void cblas_zgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA,
539 const enum CBLAS_TRANSPOSE TransB, const int M, const int N,
540 const int K, const void *alpha, const void *A,
541 const int lda, const void *B, const int ldb,
542 const void *beta, void *C, const int ldc);
543void cblas_zsymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
544 const enum CBLAS_UPLO Uplo, const int M, const int N,
545 const void *alpha, const void *A, const int lda,
546 const void *B, const int ldb, const void *beta,
547 void *C, const int ldc);
548void cblas_zsyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
549 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
550 const void *alpha, const void *A, const int lda,
551 const void *beta, void *C, const int ldc);
552void cblas_zsyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
553 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
554 const void *alpha, const void *A, const int lda,
555 const void *B, const int ldb, const void *beta,
556 void *C, const int ldc);
557void cblas_ztrmm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
558 const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
559 const enum CBLAS_DIAG Diag, const int M, const int N,
560 const void *alpha, const void *A, const int lda,
561 void *B, const int ldb);
562void cblas_ztrsm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
563 const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
564 const enum CBLAS_DIAG Diag, const int M, const int N,
565 const void *alpha, const void *A, const int lda,
566 void *B, const int ldb);
567
568
569/*
570 * Routines with prefixes C and Z only
571 */
572void cblas_chemm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
573 const enum CBLAS_UPLO Uplo, const int M, const int N,
574 const void *alpha, const void *A, const int lda,
575 const void *B, const int ldb, const void *beta,
576 void *C, const int ldc);
577void cblas_cherk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
578 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
579 const float alpha, const void *A, const int lda,
580 const float beta, void *C, const int ldc);
581void cblas_cher2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
582 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
583 const void *alpha, const void *A, const int lda,
584 const void *B, const int ldb, const float beta,
585 void *C, const int ldc);
586
587void cblas_zhemm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
588 const enum CBLAS_UPLO Uplo, const int M, const int N,
589 const void *alpha, const void *A, const int lda,
590 const void *B, const int ldb, const void *beta,
591 void *C, const int ldc);
592void cblas_zherk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
593 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
594 const double alpha, const void *A, const int lda,
595 const double beta, void *C, const int ldc);
596void cblas_zher2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
597 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
598 const void *alpha, const void *A, const int lda,
599 const void *B, const int ldb, const double beta,
600 void *C, const int ldc);
601
602void cblas_xerbla(int p, const char *rout, const char *form, ...);
603
604__END_DECLS
605
606#endif /* __GSL_CBLAS_H__ */
607