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},
37#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
48 if (strncmp( sf,
"cblas_sgemv",11)==0) {
52 ALPHA, A, 1, X, 1, BETA, Y, 1 );
56 ALPHA, A, 1, X, 1, BETA, Y, 1 );
60 ALPHA, A, 1, X, 1, BETA, Y, 1 );
64 ALPHA, A, 1, X, 1, BETA, Y, 1 );
68 ALPHA, A, 1, X, 1, BETA, Y, 1 );
72 ALPHA, A, 1, X, 0, BETA, Y, 1 );
76 ALPHA, A, 1, X, 1, BETA, Y, 0 );
81 ALPHA, A, 1, X, 1, BETA, Y, 1 );
85 ALPHA, A, 1, X, 1, BETA, Y, 1 );
89 ALPHA, A, 1, X, 1, BETA, Y, 1 );
93 ALPHA, A, 1, X, 1, BETA, Y, 1 );
97 ALPHA, A, 1, X, 0, BETA, Y, 1 );
101 ALPHA, A, 1, X, 1, BETA, Y, 0 );
103 }
else if (strncmp( sf,
"cblas_sgbmv",11)==0) {
107 ALPHA, A, 1, X, 1, BETA, Y, 1 );
111 ALPHA, A, 1, X, 1, BETA, Y, 1 );
115 ALPHA, A, 1, X, 1, BETA, Y, 1 );
119 ALPHA, A, 1, X, 1, BETA, Y, 1 );
123 ALPHA, A, 1, X, 1, BETA, Y, 1 );
127 ALPHA, A, 1, X, 1, BETA, Y, 1 );
131 ALPHA, A, 1, X, 1, BETA, Y, 1 );
135 ALPHA, A, 1, X, 0, BETA, Y, 1 );
139 ALPHA, A, 1, X, 1, BETA, Y, 0 );
143 ALPHA, A, 1, X, 1, BETA, Y, 1 );
147 ALPHA, A, 1, X, 1, BETA, Y, 1 );
151 ALPHA, A, 1, X, 1, BETA, Y, 1 );
155 ALPHA, A, 1, X, 1, BETA, Y, 1 );
159 ALPHA, A, 1, X, 1, BETA, Y, 1 );
163 ALPHA, A, 1, X, 1, BETA, Y, 1 );
167 ALPHA, A, 1, X, 0, BETA, Y, 1 );
171 ALPHA, A, 1, X, 1, BETA, Y, 0 );
173 }
else if (strncmp( sf,
"cblas_ssymv",11)==0) {
177 ALPHA, A, 1, X, 1, BETA, Y, 1 );
181 ALPHA, A, 1, X, 1, BETA, Y, 1 );
185 ALPHA, A, 1, X, 1, BETA, Y, 1 );
189 ALPHA, A, 1, X, 1, BETA, Y, 1 );
193 ALPHA, A, 1, X, 0, BETA, Y, 1 );
197 ALPHA, A, 1, X, 1, BETA, Y, 0 );
201 ALPHA, A, 1, X, 1, BETA, Y, 1 );
205 ALPHA, A, 1, X, 1, BETA, Y, 1 );
209 ALPHA, A, 1, X, 1, BETA, Y, 1 );
213 ALPHA, A, 1, X, 0, BETA, Y, 1 );
217 ALPHA, A, 1, X, 1, BETA, Y, 0 );
219 }
else if (strncmp( sf,
"cblas_ssbmv",11)==0) {
223 ALPHA, A, 1, X, 1, BETA, Y, 1 );
227 ALPHA, A, 1, X, 1, BETA, Y, 1 );
231 ALPHA, A, 1, X, 1, BETA, Y, 1 );
235 ALPHA, A, 1, X, 1, BETA, Y, 1 );
239 ALPHA, A, 1, X, 1, BETA, Y, 1 );
243 ALPHA, A, 1, X, 0, BETA, Y, 1 );
247 ALPHA, A, 1, X, 1, BETA, Y, 0 );
251 ALPHA, A, 1, X, 1, BETA, Y, 1 );
255 ALPHA, A, 1, X, 1, BETA, Y, 1 );
259 ALPHA, A, 1, X, 1, BETA, Y, 1 );
263 ALPHA, A, 1, X, 1, BETA, Y, 1 );
267 ALPHA, A, 1, X, 0, BETA, Y, 1 );
271 ALPHA, A, 1, X, 1, BETA, Y, 0 );
273 }
else if (strncmp( sf,
"cblas_sspmv",11)==0) {
277 ALPHA, A, X, 1, BETA, Y, 1 );
281 ALPHA, A, X, 1, BETA, Y, 1 );
285 ALPHA, A, X, 1, BETA, Y, 1 );
289 ALPHA, A, X, 0, BETA, Y, 1 );
293 ALPHA, A, X, 1, BETA, Y, 0 );
297 ALPHA, A, X, 1, BETA, Y, 1 );
301 ALPHA, A, X, 1, BETA, Y, 1 );
305 ALPHA, A, X, 0, BETA, Y, 1 );
309 ALPHA, A, X, 1, BETA, Y, 0 );
311 }
else if (strncmp( sf,
"cblas_strmv",11)==0) {
365 }
else if (strncmp( sf,
"cblas_stbmv",11)==0) {
427 }
else if (strncmp( sf,
"cblas_stpmv",11)==0) {
473 }
else if (strncmp( sf,
"cblas_strsv",11)==0) {
527 }
else if (strncmp( sf,
"cblas_stbsv",11)==0) {
589 }
else if (strncmp( sf,
"cblas_stpsv",11)==0) {
635 }
else if (strncmp( sf,
"cblas_sger",10)==0) {
670 }
else if (strncmp( sf,
"cblas_ssyr2",11)==0) {
705 }
else if (strncmp( sf,
"cblas_sspr2",11)==0) {
734 }
else if (strncmp( sf,
"cblas_ssyr",10)==0) {
763 }
else if (strncmp( sf,
"cblas_sspr",10)==0) {
788 printf(
" %-12s PASSED THE TESTS OF ERROR-EXITS\n",
cblas_rout);
790 printf(
"******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",
cblas_rout);
void cblas_sspmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *Ap, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
void cblas_ssymv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
void cblas_sgemv(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
void cblas_strsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
void cblas_sspr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, float *Ap)
void cblas_sgbmv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
void cblas_strmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
void cblas_ssyr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A, const CBLAS_INT lda)
void cblas_stbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
void cblas_sger(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A, const CBLAS_INT lda)
void cblas_stpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX)
void cblas_ssbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
void cblas_stbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
void cblas_ssyr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, float *A, const CBLAS_INT lda)
void cblas_stpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX)
void cblas_sspr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A)