Lines Matching refs:uplo
151 enum CBLAS_UPLO uplo; in F77_chemv() local
153 get_uplo_type(uplow,&uplo); in F77_chemv()
163 cblas_chemv( CblasRowMajor, uplo, *n, alpha, A, LDA, x, *incx, in F77_chemv()
168 cblas_chemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, in F77_chemv()
171 cblas_chemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx, in F77_chemv()
183 enum CBLAS_UPLO uplo; in F77_chbmv() local
185 get_uplo_type(uplow,&uplo); in F77_chbmv()
188 if (uplo != CblasUpper && uplo != CblasLower ) in F77_chbmv()
194 if (uplo == CblasUpper) { in F77_chbmv()
226 cblas_chbmv( CblasRowMajor, uplo, *n, *k, alpha, A, LDA, x, *incx, in F77_chbmv()
232 cblas_chbmv(CblasColMajor, uplo, *n, *k, alpha, a, *lda, x, *incx, in F77_chbmv()
235 cblas_chbmv(UNDEFINED, uplo, *n, *k, alpha, a, *lda, x, *incx, in F77_chbmv()
245 enum CBLAS_UPLO uplo; in F77_chpmv() local
247 get_uplo_type(uplow,&uplo); in F77_chpmv()
249 if (uplo != CblasUpper && uplo != CblasLower ) in F77_chpmv()
257 if (uplo == CblasUpper) { in F77_chpmv()
281 cblas_chpmv( CblasRowMajor, uplo, *n, alpha, AP, x, *incx, beta, y, in F77_chpmv()
288 cblas_chpmv( CblasColMajor, uplo, *n, alpha, ap, x, *incx, beta, y, in F77_chpmv()
291 cblas_chpmv( UNDEFINED, uplo, *n, alpha, ap, x, *incx, beta, y, in F77_chpmv()
301 enum CBLAS_UPLO uplo; in F77_ctbmv() local
305 get_uplo_type(uplow,&uplo); in F77_ctbmv()
309 if (uplo != CblasUpper && uplo != CblasLower ) in F77_ctbmv()
315 if (uplo == CblasUpper) { in F77_ctbmv()
347 cblas_ctbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, in F77_ctbmv()
353 cblas_ctbmv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); in F77_ctbmv()
355 cblas_ctbmv(UNDEFINED, uplo, trans, diag, *n, *k, a, *lda, x, *incx); in F77_ctbmv()
365 enum CBLAS_UPLO uplo; in F77_ctbsv() local
369 get_uplo_type(uplow,&uplo); in F77_ctbsv()
373 if (uplo != CblasUpper && uplo != CblasLower ) in F77_ctbsv()
379 if (uplo == CblasUpper) { in F77_ctbsv()
411 cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, in F77_ctbsv()
417 cblas_ctbsv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); in F77_ctbsv()
419 cblas_ctbsv(UNDEFINED, uplo, trans, diag, *n, *k, a, *lda, x, *incx); in F77_ctbsv()
427 enum CBLAS_UPLO uplo; in F77_ctpmv() local
431 get_uplo_type(uplow,&uplo); in F77_ctpmv()
435 if (uplo != CblasUpper && uplo != CblasLower ) in F77_ctpmv()
442 if (uplo == CblasUpper) { in F77_ctpmv()
466 cblas_ctpmv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx ); in F77_ctpmv()
472 cblas_ctpmv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx ); in F77_ctpmv()
474 cblas_ctpmv( UNDEFINED, uplo, trans, diag, *n, ap, x, *incx ); in F77_ctpmv()
482 enum CBLAS_UPLO uplo; in F77_ctpsv() local
486 get_uplo_type(uplow,&uplo); in F77_ctpsv()
490 if (uplo != CblasUpper && uplo != CblasLower ) in F77_ctpsv()
497 if (uplo == CblasUpper) { in F77_ctpsv()
521 cblas_ctpsv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx ); in F77_ctpsv()
527 cblas_ctpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx ); in F77_ctpsv()
529 cblas_ctpsv( UNDEFINED, uplo, trans, diag, *n, ap, x, *incx ); in F77_ctpsv()
538 enum CBLAS_UPLO uplo; in F77_ctrmv() local
542 get_uplo_type(uplow,&uplo); in F77_ctrmv()
553 cblas_ctrmv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx); in F77_ctrmv()
557 cblas_ctrmv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx); in F77_ctrmv()
559 cblas_ctrmv(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx); in F77_ctrmv()
567 enum CBLAS_UPLO uplo; in F77_ctrsv() local
571 get_uplo_type(uplow,&uplo); in F77_ctrsv()
582 cblas_ctrsv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx ); in F77_ctrsv()
586 cblas_ctrsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); in F77_ctrsv()
588 cblas_ctrsv(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx ); in F77_ctrsv()
595 enum CBLAS_UPLO uplo; in F77_chpr() local
597 get_uplo_type(uplow,&uplo); in F77_chpr()
600 if (uplo != CblasUpper && uplo != CblasLower ) in F77_chpr()
607 if (uplo == CblasUpper) { in F77_chpr()
631 cblas_chpr(CblasRowMajor, uplo, *n, *alpha, x, *incx, AP ); in F77_chpr()
632 if (uplo == CblasUpper) { in F77_chpr()
661 cblas_chpr(CblasColMajor, uplo, *n, *alpha, x, *incx, ap ); in F77_chpr()
663 cblas_chpr(UNDEFINED, uplo, *n, *alpha, x, *incx, ap ); in F77_chpr()
671 enum CBLAS_UPLO uplo; in F77_chpr2() local
673 get_uplo_type(uplow,&uplo); in F77_chpr2()
676 if (uplo != CblasUpper && uplo != CblasLower ) in F77_chpr2()
684 if (uplo == CblasUpper) { in F77_chpr2()
708 cblas_chpr2( CblasRowMajor, uplo, *n, alpha, x, *incx, y, *incy, AP ); in F77_chpr2()
709 if (uplo == CblasUpper) { in F77_chpr2()
738 cblas_chpr2( CblasColMajor, uplo, *n, alpha, x, *incx, y, *incy, ap ); in F77_chpr2()
740 cblas_chpr2( UNDEFINED, uplo, *n, alpha, x, *incx, y, *incy, ap ); in F77_chpr2()
747 enum CBLAS_UPLO uplo; in F77_cher() local
749 get_uplo_type(uplow,&uplo); in F77_cher()
761 cblas_cher(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA ); in F77_cher()
770 cblas_cher( CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda ); in F77_cher()
772 cblas_cher( UNDEFINED, uplo, *n, *alpha, x, *incx, a, *lda ); in F77_cher()
781 enum CBLAS_UPLO uplo; in F77_cher2() local
783 get_uplo_type(uplow,&uplo); in F77_cher2()
795 cblas_cher2(CblasRowMajor, uplo, *n, alpha, x, *incx, y, *incy, A, LDA ); in F77_cher2()
804 cblas_cher2( CblasColMajor, uplo, *n, alpha, x, *incx, y, *incy, a, *lda); in F77_cher2()
806 cblas_cher2( UNDEFINED, uplo, *n, alpha, x, *incx, y, *incy, a, *lda); in F77_cher2()