68   enum CBLAS_UPLO uplo;  in F77_dtrmv()  local
72   get_uplo_type(uplow,&uplo);   in F77_dtrmv()
81      cblas_dtrmv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx);  in F77_dtrmv()
85      cblas_dtrmv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx);  in F77_dtrmv()
87      cblas_dtrmv(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx);  in F77_dtrmv()
96   enum CBLAS_UPLO uplo;  in F77_dtrsv()  local
100   get_uplo_type(uplow,&uplo);  in F77_dtrsv()
109      cblas_dtrsv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx );  in F77_dtrsv()
113      cblas_dtrsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx );  in F77_dtrsv()
120   enum CBLAS_UPLO uplo;  in F77_dsymv()  local
122   get_uplo_type(uplow,&uplo);  in F77_dsymv()
130      cblas_dsymv(CblasRowMajor, uplo, *n, *alpha, A, LDA, x, *incx,  in F77_dsymv()
135      cblas_dsymv(CblasColMajor, uplo, *n, *alpha, a, *lda, x, *incx,  in F77_dsymv()
143   enum CBLAS_UPLO uplo;  in F77_dsyr()  local
145   get_uplo_type(uplow,&uplo);  in F77_dsyr()
153      cblas_dsyr(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA);  in F77_dsyr()
160      cblas_dsyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda);  in F77_dsyr()
167   enum CBLAS_UPLO uplo;  in F77_dsyr2()  local
169   get_uplo_type(uplow,&uplo);  in F77_dsyr2()
177      cblas_dsyr2(CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, A, LDA);  in F77_dsyr2()
184      cblas_dsyr2(CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, a, *lda);  in F77_dsyr2()
230   enum CBLAS_UPLO uplo;  in F77_dtbmv()  local
234   get_uplo_type(uplow,&uplo);   in F77_dtbmv()
240      if (uplo == CblasUpper) {  in F77_dtbmv()
264      cblas_dtbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx);  in F77_dtbmv()
268      cblas_dtbmv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx);  in F77_dtbmv()
276   enum CBLAS_UPLO uplo;  in F77_dtbsv()  local
280   get_uplo_type(uplow,&uplo);   in F77_dtbsv()
286      if (uplo == CblasUpper) {  in F77_dtbsv()
310      cblas_dtbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx);  in F77_dtbsv()
314      cblas_dtbsv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx);  in F77_dtbsv()
322   enum CBLAS_UPLO uplo;  in F77_dsbmv()  local
324   get_uplo_type(uplow,&uplo);  in F77_dsbmv()
329      if (uplo == CblasUpper) {  in F77_dsbmv()
353      cblas_dsbmv(CblasRowMajor, uplo, *n, *k, *alpha, A, LDA, x, *incx,  in F77_dsbmv()
358      cblas_dsbmv(CblasColMajor, uplo, *n, *k, *alpha, a, *lda, x, *incx,  in F77_dsbmv()
366   enum CBLAS_UPLO uplo;  in F77_dspmv()  local
368   get_uplo_type(uplow,&uplo);  in F77_dspmv()
374      if (uplo == CblasUpper) {  in F77_dspmv()
390      cblas_dspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y,   in F77_dspmv()
396      cblas_dspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y,   in F77_dspmv()
405   enum CBLAS_UPLO uplo;  in F77_dtpmv()  local
409   get_uplo_type(uplow,&uplo);   in F77_dtpmv()
416      if (uplo == CblasUpper) {  in F77_dtpmv()
432      cblas_dtpmv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx );  in F77_dtpmv()
437      cblas_dtpmv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );  in F77_dtpmv()
445   enum CBLAS_UPLO uplo;  in F77_dtpsv()  local
449   get_uplo_type(uplow,&uplo);   in F77_dtpsv()
456      if (uplo == CblasUpper) {  in F77_dtpsv()
473      cblas_dtpsv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx );  in F77_dtpsv()
478      cblas_dtpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );  in F77_dtpsv()
485   enum CBLAS_UPLO uplo;  in F77_dspr()  local
487   get_uplo_type(uplow,&uplo);  in F77_dspr()
493      if (uplo == CblasUpper) {  in F77_dspr()
509      cblas_dspr( CblasRowMajor, uplo, *n, *alpha, x, *incx, AP );  in F77_dspr()
510      if (uplo == CblasUpper) {  in F77_dspr()
530      cblas_dspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap );  in F77_dspr()
537   enum CBLAS_UPLO uplo;  in F77_dspr2()  local
539   get_uplo_type(uplow,&uplo);  in F77_dspr2()
545      if (uplo == CblasUpper) {  in F77_dspr2()
561      cblas_dspr2( CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, AP );  in F77_dspr2()
562      if (uplo == CblasUpper) {  in F77_dspr2()
582      cblas_dspr2( CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, ap );  in F77_dspr2()