Lines Matching refs:uplo
151 enum CBLAS_UPLO uplo; in F77_zhemv() local
153 get_uplo_type(uplow,&uplo); in F77_zhemv()
163 cblas_zhemv( CblasRowMajor, uplo, *n, alpha, A, LDA, x, *incx, in F77_zhemv()
168 cblas_zhemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, in F77_zhemv()
171 cblas_zhemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx, in F77_zhemv()
183 enum CBLAS_UPLO uplo; in F77_zhbmv() local
185 get_uplo_type(uplow,&uplo); in F77_zhbmv()
188 if (uplo != CblasUpper && uplo != CblasLower ) in F77_zhbmv()
194 if (uplo == CblasUpper) { in F77_zhbmv()
226 cblas_zhbmv( CblasRowMajor, uplo, *n, *k, alpha, A, LDA, x, *incx, in F77_zhbmv()
232 cblas_zhbmv(CblasColMajor, uplo, *n, *k, alpha, a, *lda, x, *incx, in F77_zhbmv()
235 cblas_zhbmv(UNDEFINED, uplo, *n, *k, alpha, a, *lda, x, *incx, in F77_zhbmv()
245 enum CBLAS_UPLO uplo; in F77_zhpmv() local
247 get_uplo_type(uplow,&uplo); in F77_zhpmv()
249 if (uplo != CblasUpper && uplo != CblasLower ) in F77_zhpmv()
257 if (uplo == CblasUpper) { in F77_zhpmv()
281 cblas_zhpmv( CblasRowMajor, uplo, *n, alpha, AP, x, *incx, beta, y, in F77_zhpmv()
288 cblas_zhpmv( CblasColMajor, uplo, *n, alpha, ap, x, *incx, beta, y, in F77_zhpmv()
291 cblas_zhpmv( UNDEFINED, uplo, *n, alpha, ap, x, *incx, beta, y, in F77_zhpmv()
301 enum CBLAS_UPLO uplo; in F77_ztbmv() local
305 get_uplo_type(uplow,&uplo); in F77_ztbmv()
309 if (uplo != CblasUpper && uplo != CblasLower ) in F77_ztbmv()
315 if (uplo == CblasUpper) { in F77_ztbmv()
347 cblas_ztbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, in F77_ztbmv()
353 cblas_ztbmv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); in F77_ztbmv()
355 cblas_ztbmv(UNDEFINED, uplo, trans, diag, *n, *k, a, *lda, x, *incx); in F77_ztbmv()
365 enum CBLAS_UPLO uplo; in F77_ztbsv() local
369 get_uplo_type(uplow,&uplo); in F77_ztbsv()
373 if (uplo != CblasUpper && uplo != CblasLower ) in F77_ztbsv()
379 if (uplo == CblasUpper) { in F77_ztbsv()
411 cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, in F77_ztbsv()
417 cblas_ztbsv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); in F77_ztbsv()
419 cblas_ztbsv(UNDEFINED, uplo, trans, diag, *n, *k, a, *lda, x, *incx); in F77_ztbsv()
427 enum CBLAS_UPLO uplo; in F77_ztpmv() local
431 get_uplo_type(uplow,&uplo); in F77_ztpmv()
435 if (uplo != CblasUpper && uplo != CblasLower ) in F77_ztpmv()
442 if (uplo == CblasUpper) { in F77_ztpmv()
466 cblas_ztpmv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx ); in F77_ztpmv()
472 cblas_ztpmv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx ); in F77_ztpmv()
474 cblas_ztpmv( UNDEFINED, uplo, trans, diag, *n, ap, x, *incx ); in F77_ztpmv()
482 enum CBLAS_UPLO uplo; in F77_ztpsv() local
486 get_uplo_type(uplow,&uplo); in F77_ztpsv()
490 if (uplo != CblasUpper && uplo != CblasLower ) in F77_ztpsv()
497 if (uplo == CblasUpper) { in F77_ztpsv()
521 cblas_ztpsv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx ); in F77_ztpsv()
527 cblas_ztpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx ); in F77_ztpsv()
529 cblas_ztpsv( UNDEFINED, uplo, trans, diag, *n, ap, x, *incx ); in F77_ztpsv()
538 enum CBLAS_UPLO uplo; in F77_ztrmv() local
542 get_uplo_type(uplow,&uplo); in F77_ztrmv()
553 cblas_ztrmv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx); in F77_ztrmv()
557 cblas_ztrmv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx); in F77_ztrmv()
559 cblas_ztrmv(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx); in F77_ztrmv()
567 enum CBLAS_UPLO uplo; in F77_ztrsv() local
571 get_uplo_type(uplow,&uplo); in F77_ztrsv()
582 cblas_ztrsv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx ); in F77_ztrsv()
586 cblas_ztrsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); in F77_ztrsv()
588 cblas_ztrsv(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx ); in F77_ztrsv()
595 enum CBLAS_UPLO uplo; in F77_zhpr() local
597 get_uplo_type(uplow,&uplo); in F77_zhpr()
600 if (uplo != CblasUpper && uplo != CblasLower ) in F77_zhpr()
607 if (uplo == CblasUpper) { in F77_zhpr()
631 cblas_zhpr(CblasRowMajor, uplo, *n, *alpha, x, *incx, AP ); in F77_zhpr()
632 if (uplo == CblasUpper) { in F77_zhpr()
661 cblas_zhpr(CblasColMajor, uplo, *n, *alpha, x, *incx, ap ); in F77_zhpr()
663 cblas_zhpr(UNDEFINED, uplo, *n, *alpha, x, *incx, ap ); in F77_zhpr()
671 enum CBLAS_UPLO uplo; in F77_zhpr2() local
673 get_uplo_type(uplow,&uplo); in F77_zhpr2()
676 if (uplo != CblasUpper && uplo != CblasLower ) in F77_zhpr2()
684 if (uplo == CblasUpper) { in F77_zhpr2()
708 cblas_zhpr2( CblasRowMajor, uplo, *n, alpha, x, *incx, y, *incy, AP ); in F77_zhpr2()
709 if (uplo == CblasUpper) { in F77_zhpr2()
738 cblas_zhpr2( CblasColMajor, uplo, *n, alpha, x, *incx, y, *incy, ap ); in F77_zhpr2()
740 cblas_zhpr2( UNDEFINED, uplo, *n, alpha, x, *incx, y, *incy, ap ); in F77_zhpr2()
747 enum CBLAS_UPLO uplo; in F77_zher() local
749 get_uplo_type(uplow,&uplo); in F77_zher()
761 cblas_zher(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA ); in F77_zher()
770 cblas_zher( CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda ); in F77_zher()
772 cblas_zher( UNDEFINED, uplo, *n, *alpha, x, *incx, a, *lda ); in F77_zher()
781 enum CBLAS_UPLO uplo; in F77_zher2() local
783 get_uplo_type(uplow,&uplo); in F77_zher2()
795 cblas_zher2(CblasRowMajor, uplo, *n, alpha, x, *incx, y, *incy, A, LDA ); in F77_zher2()
804 cblas_zher2( CblasColMajor, uplo, *n, alpha, x, *incx, y, *incy, a, *lda); in F77_zher2()
806 cblas_zher2( UNDEFINED, uplo, *n, alpha, x, *incx, y, *incy, a, *lda); in F77_zher2()