Lines Matching refs:uplo
68 enum CBLAS_UPLO uplo; in F77_strmv() local
72 get_uplo_type(uplow,&uplo); in F77_strmv()
81 cblas_strmv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx); in F77_strmv()
85 cblas_strmv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx); in F77_strmv()
87 cblas_strmv(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx); in F77_strmv()
96 enum CBLAS_UPLO uplo; in F77_strsv() local
100 get_uplo_type(uplow,&uplo); in F77_strsv()
109 cblas_strsv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx ); in F77_strsv()
113 cblas_strsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); in F77_strsv()
120 enum CBLAS_UPLO uplo; in F77_ssymv() local
122 get_uplo_type(uplow,&uplo); in F77_ssymv()
130 cblas_ssymv(CblasRowMajor, uplo, *n, *alpha, A, LDA, x, *incx, in F77_ssymv()
135 cblas_ssymv(CblasColMajor, uplo, *n, *alpha, a, *lda, x, *incx, in F77_ssymv()
143 enum CBLAS_UPLO uplo; in F77_ssyr() local
145 get_uplo_type(uplow,&uplo); in F77_ssyr()
153 cblas_ssyr(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA); in F77_ssyr()
160 cblas_ssyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda); in F77_ssyr()
167 enum CBLAS_UPLO uplo; in F77_ssyr2() local
169 get_uplo_type(uplow,&uplo); in F77_ssyr2()
177 cblas_ssyr2(CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, A, LDA); in F77_ssyr2()
184 cblas_ssyr2(CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, a, *lda); in F77_ssyr2()
230 enum CBLAS_UPLO uplo; in F77_stbmv() local
234 get_uplo_type(uplow,&uplo); in F77_stbmv()
240 if (uplo == CblasUpper) { in F77_stbmv()
264 cblas_stbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); in F77_stbmv()
268 cblas_stbmv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); in F77_stbmv()
276 enum CBLAS_UPLO uplo; in F77_stbsv() local
280 get_uplo_type(uplow,&uplo); in F77_stbsv()
286 if (uplo == CblasUpper) { in F77_stbsv()
310 cblas_stbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); in F77_stbsv()
314 cblas_stbsv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); in F77_stbsv()
322 enum CBLAS_UPLO uplo; in F77_ssbmv() local
324 get_uplo_type(uplow,&uplo); in F77_ssbmv()
329 if (uplo == CblasUpper) { in F77_ssbmv()
353 cblas_ssbmv(CblasRowMajor, uplo, *n, *k, *alpha, A, LDA, x, *incx, in F77_ssbmv()
358 cblas_ssbmv(CblasColMajor, uplo, *n, *k, *alpha, a, *lda, x, *incx, in F77_ssbmv()
366 enum CBLAS_UPLO uplo; in F77_sspmv() local
368 get_uplo_type(uplow,&uplo); in F77_sspmv()
374 if (uplo == CblasUpper) { in F77_sspmv()
390 cblas_sspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y, in F77_sspmv()
395 cblas_sspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y, in F77_sspmv()
404 enum CBLAS_UPLO uplo; in F77_stpmv() local
408 get_uplo_type(uplow,&uplo); in F77_stpmv()
415 if (uplo == CblasUpper) { in F77_stpmv()
431 cblas_stpmv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx ); in F77_stpmv()
435 cblas_stpmv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx ); in F77_stpmv()
443 enum CBLAS_UPLO uplo; in F77_stpsv() local
447 get_uplo_type(uplow,&uplo); in F77_stpsv()
454 if (uplo == CblasUpper) { in F77_stpsv()
471 cblas_stpsv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx ); in F77_stpsv()
475 cblas_stpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx ); in F77_stpsv()
482 enum CBLAS_UPLO uplo; in F77_sspr() local
484 get_uplo_type(uplow,&uplo); in F77_sspr()
490 if (uplo == CblasUpper) { in F77_sspr()
506 cblas_sspr( CblasRowMajor, uplo, *n, *alpha, x, *incx, AP ); in F77_sspr()
507 if (uplo == CblasUpper) { in F77_sspr()
526 cblas_sspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap ); in F77_sspr()
533 enum CBLAS_UPLO uplo; in F77_sspr2() local
535 get_uplo_type(uplow,&uplo); in F77_sspr2()
541 if (uplo == CblasUpper) { in F77_sspr2()
557 cblas_sspr2( CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, AP ); in F77_sspr2()
558 if (uplo == CblasUpper) { in F77_sspr2()
578 cblas_sspr2( CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, ap ); in F77_sspr2()