Lines Matching refs:lda
13 CBLAS_TEST_COMPLEX *a, int *lda, const void *x, int *incx, in F77_cgemv() argument
26 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_cgemv()
27 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_cgemv()
35 *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); in F77_cgemv()
38 *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); in F77_cgemv()
42 CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, in F77_cgbmv() argument
58 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_cgbmv()
59 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_cgbmv()
65 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_cgbmv()
66 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_cgbmv()
72 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_cgbmv()
73 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; in F77_cgbmv()
81 cblas_cgbmv( CblasColMajor, trans, *m, *n, *kl, *ku, alpha, a, *lda, x, in F77_cgbmv()
84 cblas_cgbmv( UNDEFINED, trans, *m, *n, *kl, *ku, alpha, a, *lda, x, in F77_cgbmv()
90 CBLAS_TEST_COMPLEX *a, int *lda){ in F77_cgeru() argument
100 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_cgeru()
101 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_cgeru()
106 a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; in F77_cgeru()
107 a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag; in F77_cgeru()
112 cblas_cgeru( CblasColMajor, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); in F77_cgeru()
114 cblas_cgeru( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); in F77_cgeru()
119 CBLAS_TEST_COMPLEX *a, int *lda) { in F77_cgerc() argument
128 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_cgerc()
129 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_cgerc()
134 a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; in F77_cgerc()
135 a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag; in F77_cgerc()
140 cblas_cgerc( CblasColMajor, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); in F77_cgerc()
142 cblas_cgerc( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); in F77_cgerc()
146 CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *x, in F77_chemv() argument
160 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_chemv()
161 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; 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()
176 CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, in F77_chbmv() argument
189 cblas_chbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, in F77_chbmv()
199 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_chbmv()
200 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_chbmv()
206 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_chbmv()
207 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_chbmv()
214 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_chbmv()
215 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_chbmv()
221 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_chbmv()
222 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; 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()
296 int *n, int *k, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *x, in F77_ctbmv() argument
310 cblas_ctbmv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, in F77_ctbmv()
320 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_ctbmv()
321 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ctbmv()
327 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_ctbmv()
328 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ctbmv()
335 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_ctbmv()
336 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ctbmv()
342 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_ctbmv()
343 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; 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()
359 int *n, int *k, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *x, in F77_ctbsv() argument
374 cblas_ctbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, in F77_ctbsv()
384 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_ctbsv()
385 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ctbsv()
391 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_ctbsv()
392 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ctbsv()
399 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_ctbsv()
400 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ctbsv()
406 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_ctbsv()
407 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; 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()
533 int *n, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *x, in F77_ctrmv() argument
550 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_ctrmv()
551 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; 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()
562 int *n, CBLAS_TEST_COMPLEX *a, int *lda, CBLAS_TEST_COMPLEX *x, in F77_ctrsv() argument
579 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_ctrsv()
580 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; 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()
744 CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *a, int *lda) { in F77_cher() argument
757 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_cher()
758 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_cher()
764 a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; in F77_cher()
765 a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag; 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()
777 CBLAS_TEST_COMPLEX *a, int *lda) { in F77_cher2() argument
791 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_cher2()
792 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_cher2()
798 a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; in F77_cher2()
799 a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag; 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()