11void F77_xerbla(F77_Char F77_srname,
void *vinfo);
21 printf(
"***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n",
cblas_info,
cblas_rout);
29 float A[2] = {0.0,0.0},
39#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
50 if (strncmp( sf,
"cblas_cgemv",11)==0) {
54 ALPHA, A, 1, X, 1, BETA, Y, 1 );
58 ALPHA, A, 1, X, 1, BETA, Y, 1 );
62 ALPHA, A, 1, X, 1, BETA, Y, 1 );
66 ALPHA, A, 1, X, 1, BETA, Y, 1 );
70 ALPHA, A, 1, X, 1, BETA, Y, 1 );
74 ALPHA, A, 1, X, 0, BETA, Y, 1 );
78 ALPHA, A, 1, X, 1, BETA, Y, 0 );
83 ALPHA, A, 1, X, 1, BETA, Y, 1 );
87 ALPHA, A, 1, X, 1, BETA, Y, 1 );
91 ALPHA, A, 1, X, 1, BETA, Y, 1 );
95 ALPHA, A, 1, X, 1, BETA, Y, 1 );
99 ALPHA, A, 1, X, 0, BETA, Y, 1 );
103 ALPHA, A, 1, X, 1, BETA, Y, 0 );
105 }
else if (strncmp( sf,
"cblas_cgbmv",11)==0) {
109 ALPHA, A, 1, X, 1, BETA, Y, 1 );
113 ALPHA, A, 1, X, 1, BETA, Y, 1 );
117 ALPHA, A, 1, X, 1, BETA, Y, 1 );
121 ALPHA, A, 1, X, 1, BETA, Y, 1 );
125 ALPHA, A, 1, X, 1, BETA, Y, 1 );
129 ALPHA, A, 1, X, 1, BETA, Y, 1 );
133 ALPHA, A, 1, X, 1, BETA, Y, 1 );
137 ALPHA, A, 1, X, 0, BETA, Y, 1 );
141 ALPHA, A, 1, X, 1, BETA, Y, 0 );
145 ALPHA, A, 1, X, 1, BETA, Y, 1 );
149 ALPHA, A, 1, X, 1, BETA, Y, 1 );
153 ALPHA, A, 1, X, 1, BETA, Y, 1 );
157 ALPHA, A, 1, X, 1, BETA, Y, 1 );
161 ALPHA, A, 1, X, 1, BETA, Y, 1 );
165 ALPHA, A, 1, X, 1, BETA, Y, 1 );
169 ALPHA, A, 1, X, 0, BETA, Y, 1 );
173 ALPHA, A, 1, X, 1, BETA, Y, 0 );
175 }
else if (strncmp( sf,
"cblas_chemv",11)==0) {
179 ALPHA, A, 1, X, 1, BETA, Y, 1 );
183 ALPHA, A, 1, X, 1, BETA, Y, 1 );
187 ALPHA, A, 1, X, 1, BETA, Y, 1 );
191 ALPHA, A, 1, X, 1, BETA, Y, 1 );
195 ALPHA, A, 1, X, 0, BETA, Y, 1 );
199 ALPHA, A, 1, X, 1, BETA, Y, 0 );
203 ALPHA, A, 1, X, 1, BETA, Y, 1 );
207 ALPHA, A, 1, X, 1, BETA, Y, 1 );
211 ALPHA, A, 1, X, 1, BETA, Y, 1 );
215 ALPHA, A, 1, X, 0, BETA, Y, 1 );
219 ALPHA, A, 1, X, 1, BETA, Y, 0 );
221 }
else if (strncmp( sf,
"cblas_chbmv",11)==0) {
225 ALPHA, A, 1, X, 1, BETA, Y, 1 );
229 ALPHA, A, 1, X, 1, BETA, Y, 1 );
233 ALPHA, A, 1, X, 1, BETA, Y, 1 );
237 ALPHA, A, 1, X, 1, BETA, Y, 1 );
241 ALPHA, A, 1, X, 1, BETA, Y, 1 );
245 ALPHA, A, 1, X, 0, BETA, Y, 1 );
249 ALPHA, A, 1, X, 1, BETA, Y, 0 );
253 ALPHA, A, 1, X, 1, BETA, Y, 1 );
257 ALPHA, A, 1, X, 1, BETA, Y, 1 );
261 ALPHA, A, 1, X, 1, BETA, Y, 1 );
265 ALPHA, A, 1, X, 1, BETA, Y, 1 );
269 ALPHA, A, 1, X, 0, BETA, Y, 1 );
273 ALPHA, A, 1, X, 1, BETA, Y, 0 );
275 }
else if (strncmp( sf,
"cblas_chpmv",11)==0) {
279 ALPHA, A, X, 1, BETA, Y, 1 );
283 ALPHA, A, X, 1, BETA, Y, 1 );
287 ALPHA, A, X, 1, BETA, Y, 1 );
291 ALPHA, A, X, 0, BETA, Y, 1 );
295 ALPHA, A, X, 1, BETA, Y, 0 );
299 ALPHA, A, X, 1, BETA, Y, 1 );
303 ALPHA, A, X, 1, BETA, Y, 1 );
307 ALPHA, A, X, 0, BETA, Y, 1 );
311 ALPHA, A, X, 1, BETA, Y, 0 );
313 }
else if (strncmp( sf,
"cblas_ctrmv",11)==0) {
367 }
else if (strncmp( sf,
"cblas_ctbmv",11)==0) {
429 }
else if (strncmp( sf,
"cblas_ctpmv",11)==0) {
475 }
else if (strncmp( sf,
"cblas_ctrsv",11)==0) {
529 }
else if (strncmp( sf,
"cblas_ctbsv",11)==0) {
591 }
else if (strncmp( sf,
"cblas_ctpsv",11)==0) {
637 }
else if (strncmp( sf,
"cblas_cgeru",10)==0) {
672 }
else if (strncmp( sf,
"cblas_cgerc",10)==0) {
707 }
else if (strncmp( sf,
"cblas_cher2",11)==0) {
742 }
else if (strncmp( sf,
"cblas_chpr2",11)==0) {
771 }
else if (strncmp( sf,
"cblas_cher",10)==0) {
800 }
else if (strncmp( sf,
"cblas_chpr",10)==0) {
825 printf(
" %-12s PASSED THE TESTS OF ERROR-EXITS\n",
cblas_rout);
827 printf(
"******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",
cblas_rout);
void cblas_cher(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const void *X, const CBLAS_INT incX, void *A, const CBLAS_INT lda)
void cblas_chpr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const void *X, const CBLAS_INT incX, void *A)
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
void cblas_ctbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
void cblas_cgeru(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
void cblas_ctrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
void cblas_ctpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX)
void cblas_ctrsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
void cblas_chbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_chpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *Ap, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_ctbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
void cblas_cgbmv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_cgerc(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
void cblas_chpr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *Ap)
void cblas_ctpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX)
void cblas_chemv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
void cblas_cher2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
void cblas_cgemv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)