Lines Matching refs:LDA
17 int i,j,LDA; in F77_zgemv() local
22 LDA = *n+1; in F77_zgemv()
23 A = (CBLAS_TEST_ZOMPLEX *)malloc( (*m)*LDA*sizeof( CBLAS_TEST_ZOMPLEX) ); in F77_zgemv()
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()
29 cblas_zgemv( CblasRowMajor, trans, *m, *n, alpha, A, LDA, x, *incx, in F77_zgemv()
47 int i,j,irow,jcol,LDA; in F77_zgbmv() local
52 LDA = *ku+*kl+2; in F77_zgbmv()
53 A=( CBLAS_TEST_ZOMPLEX* )malloc((*n+*kl)*LDA*sizeof(CBLAS_TEST_ZOMPLEX)); in F77_zgbmv()
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()
76 cblas_zgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, alpha, A, LDA, x, in F77_zgbmv()
93 int i,j,LDA; in F77_zgeru() local
96 LDA = *n+1; in F77_zgeru()
97 A=(CBLAS_TEST_ZOMPLEX*)malloc((*m)*LDA*sizeof(CBLAS_TEST_ZOMPLEX)); in F77_zgeru()
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()
103 cblas_zgeru( CblasRowMajor, *m, *n, alpha, x, *incx, y, *incy, A, LDA ); 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()
121 int i,j,LDA; in F77_zgerc() local
124 LDA = *n+1; in F77_zgerc()
125 A=(CBLAS_TEST_ZOMPLEX* )malloc((*m)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) ); in F77_zgerc()
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()
131 cblas_zgerc( CblasRowMajor, *m, *n, alpha, x, *incx, y, *incy, A, LDA ); 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()
150 int i,j,LDA; in F77_zhemv() local
156 LDA = *n+1; in F77_zhemv()
157 A = (CBLAS_TEST_ZOMPLEX *)malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX)); in F77_zhemv()
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()
163 cblas_zhemv( CblasRowMajor, uplo, *n, alpha, A, LDA, x, *incx, in F77_zhemv()
181 int i,irow,j,jcol,LDA; in F77_zhbmv() local
192 LDA = *k+2; in F77_zhbmv()
193 A =(CBLAS_TEST_ZOMPLEX*)malloc((*n+*k)*LDA*sizeof(CBLAS_TEST_ZOMPLEX)); 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()
226 cblas_zhbmv( CblasRowMajor, uplo, *n, *k, alpha, A, LDA, x, *incx, in F77_zhbmv()
244 int i,j,k,LDA; in F77_zhpmv() local
253 LDA = *n; in F77_zhpmv()
254 A = (CBLAS_TEST_ZOMPLEX* )malloc(LDA*LDA*sizeof(CBLAS_TEST_ZOMPLEX )); in F77_zhpmv()
255 AP = (CBLAS_TEST_ZOMPLEX* )malloc( (((LDA+1)*LDA)/2)* in F77_zhpmv()
260 A[ LDA*i+j ].real=ap[ k ].real; in F77_zhpmv()
261 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_zhpmv()
265 AP[ k ].real=A[ LDA*i+j ].real; in F77_zhpmv()
266 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_zhpmv()
272 A[ LDA*i+j ].real=ap[ k ].real; in F77_zhpmv()
273 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_zhpmv()
277 AP[ k ].real=A[ LDA*i+j ].real; in F77_zhpmv()
278 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_zhpmv()
299 int irow, jcol, i, j, LDA; in F77_ztbmv() local
313 LDA = *k+2; in F77_ztbmv()
314 A=(CBLAS_TEST_ZOMPLEX *)malloc((*n+*k)*LDA*sizeof(CBLAS_TEST_ZOMPLEX)); 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()
347 cblas_ztbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, in F77_ztbmv()
363 int irow, jcol, i, j, LDA; in F77_ztbsv() local
377 LDA = *k+2; in F77_ztbsv()
378 A=(CBLAS_TEST_ZOMPLEX*)malloc((*n+*k)*LDA*sizeof(CBLAS_TEST_ZOMPLEX )); 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()
411 cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, in F77_ztbsv()
425 int i, j, k, LDA; in F77_ztpmv() local
438 LDA = *n; in F77_ztpmv()
439 A=(CBLAS_TEST_ZOMPLEX*)malloc(LDA*LDA*sizeof(CBLAS_TEST_ZOMPLEX)); in F77_ztpmv()
440 AP=(CBLAS_TEST_ZOMPLEX*)malloc((((LDA+1)*LDA)/2)* in F77_ztpmv()
445 A[ LDA*i+j ].real=ap[ k ].real; in F77_ztpmv()
446 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_ztpmv()
450 AP[ k ].real=A[ LDA*i+j ].real; in F77_ztpmv()
451 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_ztpmv()
457 A[ LDA*i+j ].real=ap[ k ].real; in F77_ztpmv()
458 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_ztpmv()
462 AP[ k ].real=A[ LDA*i+j ].real; in F77_ztpmv()
463 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_ztpmv()
480 int i, j, k, LDA; in F77_ztpsv() local
493 LDA = *n; in F77_ztpsv()
494 A=(CBLAS_TEST_ZOMPLEX*)malloc(LDA*LDA*sizeof(CBLAS_TEST_ZOMPLEX)); in F77_ztpsv()
495 AP=(CBLAS_TEST_ZOMPLEX*)malloc((((LDA+1)*LDA)/2)* in F77_ztpsv()
500 A[ LDA*i+j ].real=ap[ k ].real; in F77_ztpsv()
501 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_ztpsv()
505 AP[ k ].real=A[ LDA*i+j ].real; in F77_ztpsv()
506 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_ztpsv()
512 A[ LDA*i+j ].real=ap[ k ].real; in F77_ztpsv()
513 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_ztpsv()
517 AP[ k ].real=A[ LDA*i+j ].real; in F77_ztpsv()
518 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_ztpsv()
536 int i,j,LDA; in F77_ztrmv() local
546 LDA=*n+1; in F77_ztrmv()
547 A=(CBLAS_TEST_ZOMPLEX*)malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX)); in F77_ztrmv()
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()
553 cblas_ztrmv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx); in F77_ztrmv()
565 int i,j,LDA; in F77_ztrsv() local
575 LDA = *n+1; in F77_ztrsv()
576 A =(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) ); in F77_ztrsv()
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()
582 cblas_ztrsv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx ); in F77_ztrsv()
594 int i,j,k,LDA; in F77_zhpr() local
603 LDA = *n; in F77_zhpr()
604 A = (CBLAS_TEST_ZOMPLEX* )malloc(LDA*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) ); in F77_zhpr()
605 AP = ( CBLAS_TEST_ZOMPLEX* )malloc( (((LDA+1)*LDA)/2)* in F77_zhpr()
610 A[ LDA*i+j ].real=ap[ k ].real; in F77_zhpr()
611 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_zhpr()
615 AP[ k ].real=A[ LDA*i+j ].real; in F77_zhpr()
616 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_zhpr()
622 A[ LDA*i+j ].real=ap[ k ].real; in F77_zhpr()
623 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_zhpr()
627 AP[ k ].real=A[ LDA*i+j ].real; in F77_zhpr()
628 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_zhpr()
635 A[ LDA*i+j ].real=AP[ k ].real; in F77_zhpr()
636 A[ LDA*i+j ].imag=AP[ k ].imag; in F77_zhpr()
640 ap[ k ].real=A[ LDA*i+j ].real; in F77_zhpr()
641 ap[ k ].imag=A[ LDA*i+j ].imag; in F77_zhpr()
647 A[ LDA*i+j ].real=AP[ k ].real; in F77_zhpr()
648 A[ LDA*i+j ].imag=AP[ k ].imag; in F77_zhpr()
652 ap[ k ].real=A[ LDA*i+j ].real; in F77_zhpr()
653 ap[ k ].imag=A[ LDA*i+j ].imag; in F77_zhpr()
670 int i,j,k,LDA; in F77_zhpr2() local
680 LDA = *n; in F77_zhpr2()
681 A=(CBLAS_TEST_ZOMPLEX*)malloc( LDA*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) ); in F77_zhpr2()
682 AP=(CBLAS_TEST_ZOMPLEX*)malloc( (((LDA+1)*LDA)/2)* in F77_zhpr2()
687 A[ LDA*i+j ].real=ap[ k ].real; in F77_zhpr2()
688 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_zhpr2()
692 AP[ k ].real=A[ LDA*i+j ].real; in F77_zhpr2()
693 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_zhpr2()
699 A[ LDA*i+j ].real=ap[ k ].real; in F77_zhpr2()
700 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_zhpr2()
704 AP[ k ].real=A[ LDA*i+j ].real; in F77_zhpr2()
705 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_zhpr2()
712 A[ LDA*i+j ].real=AP[ k ].real; in F77_zhpr2()
713 A[ LDA*i+j ].imag=AP[ k ].imag; in F77_zhpr2()
717 ap[ k ].real=A[ LDA*i+j ].real; in F77_zhpr2()
718 ap[ k ].imag=A[ LDA*i+j ].imag; in F77_zhpr2()
724 A[ LDA*i+j ].real=AP[ k ].real; in F77_zhpr2()
725 A[ LDA*i+j ].imag=AP[ k ].imag; in F77_zhpr2()
729 ap[ k ].real=A[ LDA*i+j ].real; in F77_zhpr2()
730 ap[ k ].imag=A[ LDA*i+j ].imag; in F77_zhpr2()
746 int i,j,LDA; in F77_zher() local
752 LDA = *n+1; in F77_zher()
753 A=(CBLAS_TEST_ZOMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_ZOMPLEX )); in F77_zher()
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()
761 cblas_zher(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA ); 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()
780 int i,j,LDA; in F77_zher2() local
786 LDA = *n+1; in F77_zher2()
787 A= ( CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) ); in F77_zher2()
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()
795 cblas_zher2(CblasRowMajor, uplo, *n, alpha, x, *incx, y, *incy, A, LDA ); 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()