libflame  revision_anchor
blis_prototypes_blas.h
Go to the documentation of this file.
1 /*
2 
3  Copyright (C) 2014, The University of Texas at Austin
4 
5  This file is part of libflame and is available under the 3-Clause
6  BSD license, which can be found in the LICENSE file at the top-level
7  directory, or at http://opensource.org/licenses/BSD-3-Clause
8 
9 */
10 
11 // --- Name-mangling macro definitions -----------------------------------------
12 
13 // --- Name-mangle level-1 BLAS routines ---------------------------
14 
15 #define F77_isamax F77_FUNC( isamax , ISAMAX )
16 #define F77_idamax F77_FUNC( idamax , IDAMAX )
17 #define F77_icamax F77_FUNC( icamax , ICAMAX )
18 #define F77_izamax F77_FUNC( izamax , IZAMAX )
19 #define F77_sasum F77_FUNC( sasum , SASUM )
20 #define F77_dasum F77_FUNC( dasum , DASUM )
21 #define F77_scasum F77_FUNC( scasum , SCASUM )
22 #define F77_dzasum F77_FUNC( dzasum , DZASUM )
23 #define F77_saxpy F77_FUNC( saxpy , SAXPY )
24 #define F77_daxpy F77_FUNC( daxpy , DAXPY )
25 #define F77_caxpy F77_FUNC( caxpy , CAXPY )
26 #define F77_zaxpy F77_FUNC( zaxpy , ZAXPY )
27 #define F77_scopy F77_FUNC( scopy , SCOPY )
28 #define F77_dcopy F77_FUNC( dcopy , DCOPY )
29 #define F77_ccopy F77_FUNC( ccopy , CCOPY )
30 #define F77_zcopy F77_FUNC( zcopy , ZCOPY )
31 #define F77_sdot F77_FUNC( sdot , SDOT )
32 #define F77_ddot F77_FUNC( ddot , DDOT )
33 #define F77_cdotu F77_FUNC( cdotu , CDOTU )
34 #define F77_cdotc F77_FUNC( cdotc , CDOTC )
35 #define F77_zdotu F77_FUNC( zdotu , ZDOTU )
36 #define F77_zdotc F77_FUNC( zdotc , ZDOTC )
37 #define F77_snrm2 F77_FUNC( snrm2 , SNRM2 )
38 #define F77_dnrm2 F77_FUNC( dnrm2 , DNRM2 )
39 #define F77_scnrm2 F77_FUNC( scnrm2 , SCNRM2 )
40 #define F77_dznrm2 F77_FUNC( dznrm2 , DZNRM2 )
41 #define F77_sscal F77_FUNC( sscal , SSCAL )
42 #define F77_dscal F77_FUNC( dscal , DSCAL )
43 #define F77_cscal F77_FUNC( cscal , CSCAL )
44 #define F77_csscal F77_FUNC( csscal , CSSCAL )
45 #define F77_zscal F77_FUNC( zscal , ZSCAL )
46 #define F77_zdscal F77_FUNC( zdscal , ZDSCAL )
47 #define F77_sswap F77_FUNC( sswap , SSWAP )
48 #define F77_dswap F77_FUNC( dswap , DSWAP )
49 #define F77_cswap F77_FUNC( cswap , CSWAP )
50 #define F77_zswap F77_FUNC( zswap , ZSWAP )
51 
52 // --- Name-mangle level-2 BLAS routines ---------------------------
53 
54 #define F77_sgemv F77_FUNC( sgemv , SGEMV )
55 #define F77_dgemv F77_FUNC( dgemv , DGEMV )
56 #define F77_cgemv F77_FUNC( cgemv , CGEMV )
57 #define F77_zgemv F77_FUNC( zgemv , ZGEMV )
58 #define F77_sger F77_FUNC( sger , SGER )
59 #define F77_dger F77_FUNC( dger , DGER )
60 #define F77_cgerc F77_FUNC( cgerc , CGERC )
61 #define F77_cgeru F77_FUNC( cgeru , CGERU )
62 #define F77_zgerc F77_FUNC( zgerc , ZGERC )
63 #define F77_zgeru F77_FUNC( zgeru , ZGERU )
64 #define F77_chemv F77_FUNC( chemv , CHEMV )
65 #define F77_zhemv F77_FUNC( zhemv , ZHEMV )
66 #define F77_cher F77_FUNC( cher , CHER )
67 #define F77_zher F77_FUNC( zher , ZHER )
68 #define F77_cher2 F77_FUNC( cher2 , CHER2 )
69 #define F77_zher2 F77_FUNC( zher2 , ZHER2 )
70 #define F77_ssymv F77_FUNC( ssymv , SSYMV )
71 #define F77_dsymv F77_FUNC( dsymv , DSYMV )
72 #define F77_ssyr F77_FUNC( ssyr , SSYR )
73 #define F77_dsyr F77_FUNC( dsyr , DSYR )
74 #define F77_ssyr2 F77_FUNC( ssyr2 , SSYR2 )
75 #define F77_dsyr2 F77_FUNC( dsyr2 , DSYR2 )
76 #define F77_strmv F77_FUNC( strmv , STRMV )
77 #define F77_dtrmv F77_FUNC( dtrmv , DTRMV )
78 #define F77_ctrmv F77_FUNC( ctrmv , CTRMV )
79 #define F77_ztrmv F77_FUNC( ztrmv , ZTRMV )
80 #define F77_strsv F77_FUNC( strsv , STRSV )
81 #define F77_dtrsv F77_FUNC( dtrsv , DTRSV )
82 #define F77_ctrsv F77_FUNC( ctrsv , CTRSV )
83 #define F77_ztrsv F77_FUNC( ztrsv , ZTRSV )
84 
85 // --- Name-mangle level-3 BLAS routines ---------------------------
86 
87 #define F77_sgemm F77_FUNC( sgemm , SGEMM )
88 #define F77_dgemm F77_FUNC( dgemm , DGEMM )
89 #define F77_cgemm F77_FUNC( cgemm , CGEMM )
90 #define F77_zgemm F77_FUNC( zgemm , ZGEMM )
91 #define F77_chemm F77_FUNC( chemm , CHEMM )
92 #define F77_zhemm F77_FUNC( zhemm , ZHEMM )
93 #define F77_cherk F77_FUNC( cherk , CHERK )
94 #define F77_zherk F77_FUNC( zherk , ZHERK )
95 #define F77_cher2k F77_FUNC( cher2k , CHER2K )
96 #define F77_zher2k F77_FUNC( zher2k , ZHER2K )
97 #define F77_ssymm F77_FUNC( ssymm , SSYMM )
98 #define F77_dsymm F77_FUNC( dsymm , DSYMM )
99 #define F77_csymm F77_FUNC( csymm , CSYMM )
100 #define F77_zsymm F77_FUNC( zsymm , ZSYMM )
101 #define F77_ssyrk F77_FUNC( ssyrk , SSYRK )
102 #define F77_dsyrk F77_FUNC( dsyrk , DSYRK )
103 #define F77_csyrk F77_FUNC( csyrk , CSYRK )
104 #define F77_zsyrk F77_FUNC( zsyrk , ZSYRK )
105 #define F77_ssyr2k F77_FUNC( ssyr2k , SSYR2K )
106 #define F77_dsyr2k F77_FUNC( dsyr2k , DSYR2K )
107 #define F77_csyr2k F77_FUNC( csyr2k , CSYR2K )
108 #define F77_zsyr2k F77_FUNC( zsyr2k , ZSYR2K )
109 #define F77_strmm F77_FUNC( strmm , STRMM )
110 #define F77_dtrmm F77_FUNC( dtrmm , DTRMM )
111 #define F77_ctrmm F77_FUNC( ctrmm , CTRMM )
112 #define F77_ztrmm F77_FUNC( ztrmm , ZTRMM )
113 #define F77_strsm F77_FUNC( strsm , STRSM )
114 #define F77_dtrsm F77_FUNC( dtrsm , DTRSM )
115 #define F77_ctrsm F77_FUNC( ctrsm , CTRSM )
116 #define F77_ztrsm F77_FUNC( ztrsm , ZTRSM )
117 
118 
119 // --- Prototypes --------------------------------------------------------------
120 
121 // --- Level-1 BLAS prototypes -------------------
122 
123 // --- amax ---
124 int F77_isamax ( int* n, float* x, int* incx );
125 int F77_idamax ( int* n, double* x, int* incx );
126 int F77_icamax ( int* n, scomplex* x, int* incx );
127 int F77_izamax ( int* n, dcomplex* x, int* incx );
128 // --- asum ---
129 float F77_sasum ( int* n, float* x, int* incx );
130 double F77_dasum ( int* n, double* x, int* incx );
131 float F77_scasum ( int* n, scomplex* x, int* incx );
132 double F77_dzasum ( int* n, dcomplex* x, int* incx );
133 // --- axpy ---
134 void F77_saxpy ( int* n, float* alpha, float* x, int* incx, float* y, int* incy );
135 void F77_daxpy ( int* n, double* alpha, double* x, int* incx, double* y, int* incy );
136 void F77_caxpy ( int* n, scomplex* alpha, scomplex* x, int* incx, scomplex* y, int* incy );
137 void F77_zaxpy ( int* n, dcomplex* alpha, dcomplex* x, int* incx, dcomplex* y, int* incy );
138 // --- copy ---
139 void F77_scopy ( int* n, float* x, int* incx, float* y, int* incy );
140 void F77_dcopy ( int* n, double* x, int* incx, double* y, int* incy );
141 void F77_ccopy ( int* n, scomplex* x, int* incx, scomplex* y, int* incy );
142 void F77_zcopy ( int* n, dcomplex* x, int* incx, dcomplex* y, int* incy );
143 // --- dot ---
144 float F77_sdot ( int* n, float* x, int* incx, float* y, int* incy );
145 double F77_ddot ( int* n, double* x, int* incx, double* y, int* incy );
146 scomplex F77_cdotu ( int* n, scomplex* x, int* incx, scomplex* y, int* incy );
147 scomplex F77_cdotc ( int* n, scomplex* x, int* incx, scomplex* y, int* incy );
148 dcomplex F77_zdotu ( int* n, dcomplex* x, int* incx, dcomplex* y, int* incy );
149 dcomplex F77_zdotc ( int* n, dcomplex* x, int* incx, dcomplex* y, int* incy );
150 // --- nrm2 ---
151 float F77_snrm2 ( int* n, float* x, int* incx );
152 double F77_dnrm2 ( int* n, double* x, int* incx );
153 float F77_scnrm2 ( int* n, scomplex* x, int* incx );
154 double F77_dznrm2 ( int* n, dcomplex* x, int* incx );
155 // --- scal ---
156 void F77_sscal ( int* n, float* alpha, float* y, int* incy );
157 void F77_dscal ( int* n, double* alpha, double* y, int* incy );
158 void F77_cscal ( int* n, scomplex* alpha, scomplex* y, int* incy );
159 void F77_csscal ( int* n, float* alpha, scomplex* y, int* incy );
160 void F77_zscal ( int* n, dcomplex* alpha, dcomplex* y, int* incy );
161 void F77_zdscal ( int* n, double* alpha, dcomplex* y, int* incy );
162 // --- swap ---
163 void F77_sswap ( int* n, float* x, int* incx, float* y, int* incy );
164 void F77_dswap ( int* n, double* x, int* incx, double* y, int* incy );
165 void F77_cswap ( int* n, scomplex* x, int* incx, scomplex* y, int* incy );
166 void F77_zswap ( int* n, dcomplex* x, int* incx, dcomplex* y, int* incy );
167 
168 // --- Level-2 BLAS prototypes -------------------
169 
170 // --- gemv ---
171 void F77_sgemv ( char* transa, int* m, int* n, float* alpha, float* a, int* lda, float* x, int* incx, float* beta, float* y, int* incy );
172 void F77_dgemv ( char* transa, int* m, int* n, double* alpha, double* a, int* lda, double* x, int* incx, double* beta, double* y, int* incy );
173 void F77_cgemv ( char* transa, int* m, int* n, scomplex* alpha, scomplex* a, int* lda, scomplex* x, int* incx, scomplex* beta, scomplex* y, int* incy );
174 void F77_zgemv ( char* transa, int* m, int* n, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* x, int* incx, dcomplex* beta, dcomplex* y, int* incy );
175 // --- ger ---
176 void F77_sger ( int* m, int* n, float* alpha, float* x, int* incx, float* y, int* incy, float* a, int* lda );
177 void F77_dger ( int* m, int* n, double* alpha, double* x, int* incx, double* y, int* incy, double* a, int* lda );
178 void F77_cgerc ( int* m, int* n, scomplex* alpha, scomplex* x, int* incx, scomplex* y, int* incy, scomplex* a, int* lda );
179 void F77_cgeru ( int* m, int* n, scomplex* alpha, scomplex* x, int* incx, scomplex* y, int* incy, scomplex* a, int* lda );
180 void F77_zgerc ( int* m, int* n, dcomplex* alpha, dcomplex* x, int* incx, dcomplex* y, int* incy, dcomplex* a, int* lda );
181 void F77_zgeru ( int* m, int* n, dcomplex* alpha, dcomplex* x, int* incx, dcomplex* y, int* incy, dcomplex* a, int* lda );
182 // --- hemv ---
183 void F77_chemv ( char* uplo, int* n, scomplex* alpha, scomplex* a, int* lda, scomplex* x, int* incx, scomplex* beta, scomplex* y, int* incy );
184 void F77_zhemv ( char* uplo, int* n, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* x, int* incx, dcomplex* beta, dcomplex* y, int* incy );
185 // --- her ---
186 void F77_cher ( char* uplo, int* n, float* alpha, scomplex* x, int* incx, scomplex* a, int* lda );
187 void F77_zher ( char* uplo, int* n, double* alpha, dcomplex* x, int* incx, dcomplex* a, int* lda );
188 // --- her2 ---
189 void F77_cher2 ( char* uplo, int* n, scomplex* alpha, scomplex* x, int* incx, scomplex* y, int* incy, scomplex* a, int* lda );
190 void F77_zher2 ( char* uplo, int* n, dcomplex* alpha, dcomplex* x, int* incx, dcomplex* y, int* incy, dcomplex* a, int* lda );
191 // --- symv ---
192 void F77_ssymv ( char* uplo, int* n, float* alpha, float* a, int* lda, float* x, int* incx, float* beta, float* y, int* incy );
193 void F77_dsymv ( char* uplo, int* n, double* alpha, double* a, int* lda, double* x, int* incx, double* beta, double* y, int* incy );
194 // --- syr ---
195 void F77_ssyr ( char* uplo, int* n, float* alpha, float* x, int* incx, float* a, int* lda );
196 void F77_dsyr ( char* uplo, int* n, double* alpha, double* x, int* incx, double* a, int* lda );
197 // --- syr2 ---
198 void F77_ssyr2 ( char* uplo, int* n, float* alpha, float* x, int* incx, float* y, int* incy, float* a, int* lda );
199 void F77_dsyr2 ( char* uplo, int* n, double* alpha, double* x, int* incx, double* y, int* incy, double* a, int* lda );
200 // --- trmv ---
201 void F77_strmv ( char* uplo, char* transa, char* diag, int* n, float* a, int* lda, float* y, int* incy );
202 void F77_dtrmv ( char* uplo, char* transa, char* diag, int* n, double* a, int* lda, double* y, int* incy );
203 void F77_ctrmv ( char* uplo, char* transa, char* diag, int* n, scomplex* a, int* lda, scomplex* y, int* incy );
204 void F77_ztrmv ( char* uplo, char* transa, char* diag, int* n, dcomplex* a, int* lda, dcomplex* y, int* incy );
205 // --- trsv ---
206 void F77_strsv ( char* uplo, char* transa, char* diag, int* n, float* a, int* lda, float* y, int* incy );
207 void F77_dtrsv ( char* uplo, char* transa, char* diag, int* n, double* a, int* lda, double* y, int* incy );
208 void F77_ctrsv ( char* uplo, char* transa, char* diag, int* n, scomplex* a, int* lda, scomplex* y, int* incy );
209 void F77_ztrsv ( char* uplo, char* transa, char* diag, int* n, dcomplex* a, int* lda, dcomplex* y, int* incy );
210 
211 // --- Level-3 BLAS prototypes -------------------
212 
213 // --- gemm ---
214 void F77_sgemm ( char* transa, char* transb, int* m, int* n, int* k, float* alpha, float* a, int* lda, float* b, int* ldb, float* beta, float* c, int* ldc );
215 void F77_dgemm ( char* transa, char* transb, int* m, int* n, int* k, double* alpha, double* a, int* lda, double* b, int* ldb, double* beta, double* c, int* ldc );
216 void F77_cgemm ( char* transa, char* transb, int* m, int* n, int* k, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb, scomplex* beta, scomplex* c, int* ldc );
217 void F77_zgemm ( char* transa, char* transb, int* m, int* n, int* k, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb, dcomplex* beta, dcomplex* c, int* ldc );
218 // --- hemm ---
219 void F77_chemm ( char* side, char* uplo, int* m, int* n, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb, scomplex* beta, scomplex* c, int* ldc );
220 void F77_zhemm ( char* side, char* uplo, int* m, int* n, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb, dcomplex* beta, dcomplex* c, int* ldc );
221 // --- herk ---
222 void F77_cherk ( char* uplo, char* transa, int* n, int* k, float* alpha, scomplex* a, int* lda, float* beta, scomplex* c, int* ldc );
223 void F77_zherk ( char* uplo, char* transa, int* n, int* k, double* alpha, dcomplex* a, int* lda, double* beta, dcomplex* c, int* ldc );
224 // --- her2k ---
225 void F77_cher2k ( char* uplo, char* transa, int* n, int* k, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb, float* beta, scomplex* c, int* ldc );
226 void F77_zher2k ( char* uplo, char* transa, int* n, int* k, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb, double* beta, dcomplex* c, int* ldc );
227 // --- symm ---
228 void F77_ssymm ( char* side, char* uplo, int* m, int* n, float* alpha, float* a, int* lda, float* b, int* ldb, float* beta, float* c, int* ldc );
229 void F77_dsymm ( char* side, char* uplo, int* m, int* n, double* alpha, double* a, int* lda, double* b, int* ldb, double* beta, double* c, int* ldc );
230 void F77_csymm ( char* side, char* uplo, int* m, int* n, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb, scomplex* beta, scomplex* c, int* ldc );
231 void F77_zsymm ( char* side, char* uplo, int* m, int* n, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb, dcomplex* beta, dcomplex* c, int* ldc );
232 // --- syrk ---
233 void F77_ssyrk ( char* uplo, char* transa, int* n, int* k, float* alpha, float* a, int* lda, float* beta, float* c, int* ldc );
234 void F77_dsyrk ( char* uplo, char* transa, int* n, int* k, double* alpha, double* a, int* lda, double* beta, double* c, int* ldc );
235 void F77_csyrk ( char* uplo, char* transa, int* n, int* k, scomplex* alpha, scomplex* a, int* lda, scomplex* beta, scomplex* c, int* ldc );
236 void F77_zsyrk ( char* uplo, char* transa, int* n, int* k, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* beta, dcomplex* c, int* ldc );
237 // --- syr2k ---
238 void F77_ssyr2k ( char* uplo, char* transa, int* n, int* k, float* alpha, float* a, int* lda, float* b, int* ldb, float* beta, float* c, int* ldc );
239 void F77_dsyr2k ( char* uplo, char* transa, int* n, int* k, double* alpha, double* a, int* lda, double* b, int* ldb, double* beta, double* c, int* ldc );
240 void F77_csyr2k ( char* uplo, char* transa, int* n, int* k, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb, scomplex* beta, scomplex* c, int* ldc );
241 void F77_zsyr2k ( char* uplo, char* transa, int* n, int* k, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb, dcomplex* beta, dcomplex* c, int* ldc );
242 // --- trmm ---
243 void F77_strmm ( char* side, char* uplo, char* transa, char* diag, int* m, int* n, float* alpha, float* a, int* lda, float* b, int* ldb );
244 void F77_dtrmm ( char* side, char* uplo, char* transa, char* diag, int* m, int* n, double* alpha, double* a, int* lda, double* b, int* ldb );
245 void F77_ctrmm ( char* side, char* uplo, char* transa, char* diag, int* m, int* n, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb );
246 void F77_ztrmm ( char* side, char* uplo, char* transa, char* diag, int* m, int* n, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb );
247 // --- trsm ---
248 void F77_strsm ( char* side, char* uplo, char* transa, char* diag, int* m, int* n, float* alpha, float* a, int* lda, float* b, int* ldb );
249 void F77_dtrsm ( char* side, char* uplo, char* transa, char* diag, int* m, int* n, double* alpha, double* a, int* lda, double* b, int* ldb );
250 void F77_ctrsm ( char* side, char* uplo, char* transa, char* diag, int* m, int* n, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb );
251 void F77_ztrsm ( char* side, char* uplo, char* transa, char* diag, int* m, int* n, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb );
252 
void F77_caxpy(int *n, scomplex *alpha, scomplex *x, int *incx, scomplex *y, int *incy)
void F77_cswap(int *n, scomplex *x, int *incx, scomplex *y, int *incy)
void F77_zgemm(char *transa, char *transb, int *m, int *n, int *k, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb, dcomplex *beta, dcomplex *c, int *ldc)
void F77_ztrmv(char *uplo, char *transa, char *diag, int *n, dcomplex *a, int *lda, dcomplex *y, int *incy)
void F77_sger(int *m, int *n, float *alpha, float *x, int *incx, float *y, int *incy, float *a, int *lda)
void F77_dcopy(int *n, double *x, int *incx, double *y, int *incy)
void F77_ssyr2k(char *uplo, char *transa, int *n, int *k, float *alpha, float *a, int *lda, float *b, int *ldb, float *beta, float *c, int *ldc)
void F77_scopy(int *n, float *x, int *incx, float *y, int *incy)
void F77_dscal(int *n, double *alpha, double *y, int *incy)
void F77_dsymm(char *side, char *uplo, int *m, int *n, double *alpha, double *a, int *lda, double *b, int *ldb, double *beta, double *c, int *ldc)
void F77_ctrsm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb)
void F77_zher2(char *uplo, int *n, dcomplex *alpha, dcomplex *x, int *incx, dcomplex *y, int *incy, dcomplex *a, int *lda)
float F77_scnrm2(int *n, scomplex *x, int *incx)
int F77_idamax(int *n, double *x, int *incx)
void F77_strmm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, float *alpha, float *a, int *lda, float *b, int *ldb)
void F77_zcopy(int *n, dcomplex *x, int *incx, dcomplex *y, int *incy)
void F77_dsyrk(char *uplo, char *transa, int *n, int *k, double *alpha, double *a, int *lda, double *beta, double *c, int *ldc)
void F77_zgeru(int *m, int *n, dcomplex *alpha, dcomplex *x, int *incx, dcomplex *y, int *incy, dcomplex *a, int *lda)
void F77_dtrsv(char *uplo, char *transa, char *diag, int *n, double *a, int *lda, double *y, int *incy)
void F77_dger(int *m, int *n, double *alpha, double *x, int *incx, double *y, int *incy, double *a, int *lda)
void F77_cgeru(int *m, int *n, scomplex *alpha, scomplex *x, int *incx, scomplex *y, int *incy, scomplex *a, int *lda)
void F77_cgemv(char *transa, int *m, int *n, scomplex *alpha, scomplex *a, int *lda, scomplex *x, int *incx, scomplex *beta, scomplex *y, int *incy)
int F77_isamax(int *n, float *x, int *incx)
void F77_cgerc(int *m, int *n, scomplex *alpha, scomplex *x, int *incx, scomplex *y, int *incy, scomplex *a, int *lda)
void F77_saxpy(int *n, float *alpha, float *x, int *incx, float *y, int *incy)
void F77_csyrk(char *uplo, char *transa, int *n, int *k, scomplex *alpha, scomplex *a, int *lda, scomplex *beta, scomplex *c, int *ldc)
void F77_dtrsm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, double *alpha, double *a, int *lda, double *b, int *ldb)
void F77_zher2k(char *uplo, char *transa, int *n, int *k, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb, double *beta, dcomplex *c, int *ldc)
void F77_csscal(int *n, float *alpha, scomplex *y, int *incy)
void F77_ccopy(int *n, scomplex *x, int *incx, scomplex *y, int *incy)
void F77_ztrsv(char *uplo, char *transa, char *diag, int *n, dcomplex *a, int *lda, dcomplex *y, int *incy)
void F77_zsyrk(char *uplo, char *transa, int *n, int *k, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *beta, dcomplex *c, int *ldc)
void F77_csyr2k(char *uplo, char *transa, int *n, int *k, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb, scomplex *beta, scomplex *c, int *ldc)
double F77_ddot(int *n, double *x, int *incx, double *y, int *incy)
void F77_ctrmv(char *uplo, char *transa, char *diag, int *n, scomplex *a, int *lda, scomplex *y, int *incy)
void F77_ctrsv(char *uplo, char *transa, char *diag, int *n, scomplex *a, int *lda, scomplex *y, int *incy)
void F77_ssyrk(char *uplo, char *transa, int *n, int *k, float *alpha, float *a, int *lda, float *beta, float *c, int *ldc)
double F77_dznrm2(int *n, dcomplex *x, int *incx)
void F77_dgemm(char *transa, char *transb, int *m, int *n, int *k, double *alpha, double *a, int *lda, double *b, int *ldb, double *beta, double *c, int *ldc)
void F77_dswap(int *n, double *x, int *incx, double *y, int *incy)
float F77_sdot(int *n, float *x, int *incx, float *y, int *incy)
void F77_ssymv(char *uplo, int *n, float *alpha, float *a, int *lda, float *x, int *incx, float *beta, float *y, int *incy)
float F77_sasum(int *n, float *x, int *incx)
void F77_sscal(int *n, float *alpha, float *y, int *incy)
void F77_ztrmm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb)
void F77_cherk(char *uplo, char *transa, int *n, int *k, float *alpha, scomplex *a, int *lda, float *beta, scomplex *c, int *ldc)
void F77_zaxpy(int *n, dcomplex *alpha, dcomplex *x, int *incx, dcomplex *y, int *incy)
int F77_izamax(int *n, dcomplex *x, int *incx)
double F77_dnrm2(int *n, double *x, int *incx)
void F77_cher(char *uplo, int *n, float *alpha, scomplex *x, int *incx, scomplex *a, int *lda)
double F77_dasum(int *n, double *x, int *incx)
scomplex F77_cdotu(int *n, scomplex *x, int *incx, scomplex *y, int *incy)
void F77_zscal(int *n, dcomplex *alpha, dcomplex *y, int *incy)
void F77_zher(char *uplo, int *n, double *alpha, dcomplex *x, int *incx, dcomplex *a, int *lda)
void F77_strsm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, float *alpha, float *a, int *lda, float *b, int *ldb)
void F77_zhemv(char *uplo, int *n, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *x, int *incx, dcomplex *beta, dcomplex *y, int *incy)
void F77_zgemv(char *transa, int *m, int *n, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *x, int *incx, dcomplex *beta, dcomplex *y, int *incy)
void F77_daxpy(int *n, double *alpha, double *x, int *incx, double *y, int *incy)
void F77_zsymm(char *side, char *uplo, int *m, int *n, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb, dcomplex *beta, dcomplex *c, int *ldc)
void F77_zgerc(int *m, int *n, dcomplex *alpha, dcomplex *x, int *incx, dcomplex *y, int *incy, dcomplex *a, int *lda)
void F77_cgemm(char *transa, char *transb, int *m, int *n, int *k, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb, scomplex *beta, scomplex *c, int *ldc)
dcomplex F77_zdotc(int *n, dcomplex *x, int *incx, dcomplex *y, int *incy)
void F77_csymm(char *side, char *uplo, int *m, int *n, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb, scomplex *beta, scomplex *c, int *ldc)
void F77_cher2k(char *uplo, char *transa, int *n, int *k, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb, float *beta, scomplex *c, int *ldc)
void F77_zsyr2k(char *uplo, char *transa, int *n, int *k, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb, dcomplex *beta, dcomplex *c, int *ldc)
void F77_strsv(char *uplo, char *transa, char *diag, int *n, float *a, int *lda, float *y, int *incy)
void F77_dsyr(char *uplo, int *n, double *alpha, double *x, int *incx, double *a, int *lda)
void F77_dtrmv(char *uplo, char *transa, char *diag, int *n, double *a, int *lda, double *y, int *incy)
void F77_ssyr2(char *uplo, int *n, float *alpha, float *x, int *incx, float *y, int *incy, float *a, int *lda)
float F77_snrm2(int *n, float *x, int *incx)
void F77_zherk(char *uplo, char *transa, int *n, int *k, double *alpha, dcomplex *a, int *lda, double *beta, dcomplex *c, int *ldc)
double F77_dzasum(int *n, dcomplex *x, int *incx)
void F77_ssyr(char *uplo, int *n, float *alpha, float *x, int *incx, float *a, int *lda)
void F77_sgemv(char *transa, int *m, int *n, float *alpha, float *a, int *lda, float *x, int *incx, float *beta, float *y, int *incy)
void F77_dsyr2(char *uplo, int *n, double *alpha, double *x, int *incx, double *y, int *incy, double *a, int *lda)
void F77_cher2(char *uplo, int *n, scomplex *alpha, scomplex *x, int *incx, scomplex *y, int *incy, scomplex *a, int *lda)
scomplex F77_cdotc(int *n, scomplex *x, int *incx, scomplex *y, int *incy)
dcomplex F77_zdotu(int *n, dcomplex *x, int *incx, dcomplex *y, int *incy)
void F77_dtrmm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, double *alpha, double *a, int *lda, double *b, int *ldb)
void F77_sswap(int *n, float *x, int *incx, float *y, int *incy)
void F77_strmv(char *uplo, char *transa, char *diag, int *n, float *a, int *lda, float *y, int *incy)
void F77_cscal(int *n, scomplex *alpha, scomplex *y, int *incy)
void F77_chemm(char *side, char *uplo, int *m, int *n, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb, scomplex *beta, scomplex *c, int *ldc)
void F77_ztrsm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb)
void F77_zswap(int *n, dcomplex *x, int *incx, dcomplex *y, int *incy)
void F77_dsymv(char *uplo, int *n, double *alpha, double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy)
void F77_zhemm(char *side, char *uplo, int *m, int *n, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb, dcomplex *beta, dcomplex *c, int *ldc)
void F77_sgemm(char *transa, char *transb, int *m, int *n, int *k, float *alpha, float *a, int *lda, float *b, int *ldb, float *beta, float *c, int *ldc)
void F77_dsyr2k(char *uplo, char *transa, int *n, int *k, double *alpha, double *a, int *lda, double *b, int *ldb, double *beta, double *c, int *ldc)
int F77_icamax(int *n, scomplex *x, int *incx)
void F77_ctrmm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb)
void F77_dgemv(char *transa, int *m, int *n, double *alpha, double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy)
float F77_scasum(int *n, scomplex *x, int *incx)
void F77_chemv(char *uplo, int *n, scomplex *alpha, scomplex *a, int *lda, scomplex *x, int *incx, scomplex *beta, scomplex *y, int *incy)
void F77_ssymm(char *side, char *uplo, int *m, int *n, float *alpha, float *a, int *lda, float *b, int *ldb, float *beta, float *c, int *ldc)
void F77_zdscal(int *n, double *alpha, dcomplex *y, int *incy)
Definition: blis_type_defs.h:138
Definition: blis_type_defs.h:133