Lines Matching refs:lda
13 CBLAS_TEST_ZOMPLEX *a, int *lda, const void *x, int *incx, in F77_zgemv() argument
26 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_zgemv()
27 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_zgemv()
35 *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); in F77_zgemv()
38 *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); in F77_zgemv()
42 CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, in F77_zgbmv() argument
58 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_zgbmv()
59 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_zgbmv()
65 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_zgbmv()
66 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_zgbmv()
72 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_zgbmv()
73 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; in F77_zgbmv()
81 cblas_zgbmv( CblasColMajor, trans, *m, *n, *kl, *ku, alpha, a, *lda, x, in F77_zgbmv()
84 cblas_zgbmv( UNDEFINED, trans, *m, *n, *kl, *ku, alpha, a, *lda, x, in F77_zgbmv()
90 CBLAS_TEST_ZOMPLEX *a, int *lda){ in F77_zgeru() argument
100 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_zgeru()
101 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_zgeru()
106 a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; in F77_zgeru()
107 a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag; in F77_zgeru()
112 cblas_zgeru( CblasColMajor, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); in F77_zgeru()
114 cblas_zgeru( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); in F77_zgeru()
119 CBLAS_TEST_ZOMPLEX *a, int *lda) { in F77_zgerc() argument
128 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_zgerc()
129 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_zgerc()
134 a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; in F77_zgerc()
135 a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag; in F77_zgerc()
140 cblas_zgerc( CblasColMajor, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); in F77_zgerc()
142 cblas_zgerc( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); in F77_zgerc()
146 CBLAS_TEST_ZOMPLEX *a, int *lda, CBLAS_TEST_ZOMPLEX *x, in F77_zhemv() argument
160 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_zhemv()
161 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; 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()
176 CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, in F77_zhbmv() argument
189 cblas_zhbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, in F77_zhbmv()
199 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_zhbmv()
200 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_zhbmv()
206 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_zhbmv()
207 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_zhbmv()
214 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_zhbmv()
215 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_zhbmv()
221 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_zhbmv()
222 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; 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()
296 int *n, int *k, CBLAS_TEST_ZOMPLEX *a, int *lda, CBLAS_TEST_ZOMPLEX *x, in F77_ztbmv() argument
310 cblas_ztbmv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, in F77_ztbmv()
320 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_ztbmv()
321 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ztbmv()
327 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_ztbmv()
328 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ztbmv()
335 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_ztbmv()
336 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ztbmv()
342 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_ztbmv()
343 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; 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()
359 int *n, int *k, CBLAS_TEST_ZOMPLEX *a, int *lda, CBLAS_TEST_ZOMPLEX *x, in F77_ztbsv() argument
374 cblas_ztbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, in F77_ztbsv()
384 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_ztbsv()
385 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ztbsv()
391 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_ztbsv()
392 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ztbsv()
399 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_ztbsv()
400 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ztbsv()
406 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_ztbsv()
407 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; 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()
533 int *n, CBLAS_TEST_ZOMPLEX *a, int *lda, CBLAS_TEST_ZOMPLEX *x, in F77_ztrmv() argument
550 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_ztrmv()
551 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; 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()
562 int *n, CBLAS_TEST_ZOMPLEX *a, int *lda, CBLAS_TEST_ZOMPLEX *x, in F77_ztrsv() argument
579 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_ztrsv()
580 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; 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()
744 CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *a, int *lda) { in F77_zher() argument
757 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_zher()
758 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_zher()
764 a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; in F77_zher()
765 a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag; 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()
777 CBLAS_TEST_ZOMPLEX *a, int *lda) { in F77_zher2() argument
791 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_zher2()
792 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_zher2()
798 a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; in F77_zher2()
799 a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag; 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()