Lines Matching refs:LDA
17 int i,j,LDA; in F77_cgemv() local
22 LDA = *n+1; in F77_cgemv()
23 A = (CBLAS_TEST_COMPLEX *)malloc( (*m)*LDA*sizeof( CBLAS_TEST_COMPLEX) ); in F77_cgemv()
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()
29 cblas_cgemv( CblasRowMajor, trans, *m, *n, alpha, A, LDA, x, *incx, in F77_cgemv()
47 int i,j,irow,jcol,LDA; in F77_cgbmv() local
52 LDA = *ku+*kl+2; in F77_cgbmv()
53 A=( CBLAS_TEST_COMPLEX* )malloc((*n+*kl)*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_cgbmv()
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()
76 cblas_cgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, alpha, A, LDA, x, in F77_cgbmv()
93 int i,j,LDA; in F77_cgeru() local
96 LDA = *n+1; in F77_cgeru()
97 A=(CBLAS_TEST_COMPLEX*)malloc((*m)*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_cgeru()
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()
103 cblas_cgeru( CblasRowMajor, *m, *n, alpha, x, *incx, y, *incy, A, LDA ); 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()
121 int i,j,LDA; in F77_cgerc() local
124 LDA = *n+1; in F77_cgerc()
125 A=(CBLAS_TEST_COMPLEX* )malloc((*m)*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); in F77_cgerc()
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()
131 cblas_cgerc( CblasRowMajor, *m, *n, alpha, x, *incx, y, *incy, A, LDA ); 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()
150 int i,j,LDA; in F77_chemv() local
156 LDA = *n+1; in F77_chemv()
157 A = (CBLAS_TEST_COMPLEX *)malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_chemv()
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()
163 cblas_chemv( CblasRowMajor, uplo, *n, alpha, A, LDA, x, *incx, in F77_chemv()
181 int i,irow,j,jcol,LDA; in F77_chbmv() local
192 LDA = *k+2; in F77_chbmv()
193 A =(CBLAS_TEST_COMPLEX*)malloc((*n+*k)*LDA*sizeof(CBLAS_TEST_COMPLEX)); 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()
226 cblas_chbmv( CblasRowMajor, uplo, *n, *k, alpha, A, LDA, x, *incx, in F77_chbmv()
244 int i,j,k,LDA; in F77_chpmv() local
253 LDA = *n; in F77_chpmv()
254 A = (CBLAS_TEST_COMPLEX* )malloc(LDA*LDA*sizeof(CBLAS_TEST_COMPLEX )); in F77_chpmv()
255 AP = (CBLAS_TEST_COMPLEX* )malloc( (((LDA+1)*LDA)/2)* in F77_chpmv()
260 A[ LDA*i+j ].real=ap[ k ].real; in F77_chpmv()
261 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_chpmv()
265 AP[ k ].real=A[ LDA*i+j ].real; in F77_chpmv()
266 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_chpmv()
272 A[ LDA*i+j ].real=ap[ k ].real; in F77_chpmv()
273 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_chpmv()
277 AP[ k ].real=A[ LDA*i+j ].real; in F77_chpmv()
278 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_chpmv()
299 int irow, jcol, i, j, LDA; in F77_ctbmv() local
313 LDA = *k+2; in F77_ctbmv()
314 A=(CBLAS_TEST_COMPLEX *)malloc((*n+*k)*LDA*sizeof(CBLAS_TEST_COMPLEX)); 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()
347 cblas_ctbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, in F77_ctbmv()
363 int irow, jcol, i, j, LDA; in F77_ctbsv() local
377 LDA = *k+2; in F77_ctbsv()
378 A=(CBLAS_TEST_COMPLEX*)malloc((*n+*k)*LDA*sizeof(CBLAS_TEST_COMPLEX )); 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()
411 cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, in F77_ctbsv()
425 int i, j, k, LDA; in F77_ctpmv() local
438 LDA = *n; in F77_ctpmv()
439 A=(CBLAS_TEST_COMPLEX*)malloc(LDA*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_ctpmv()
440 AP=(CBLAS_TEST_COMPLEX*)malloc((((LDA+1)*LDA)/2)* in F77_ctpmv()
445 A[ LDA*i+j ].real=ap[ k ].real; in F77_ctpmv()
446 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_ctpmv()
450 AP[ k ].real=A[ LDA*i+j ].real; in F77_ctpmv()
451 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_ctpmv()
457 A[ LDA*i+j ].real=ap[ k ].real; in F77_ctpmv()
458 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_ctpmv()
462 AP[ k ].real=A[ LDA*i+j ].real; in F77_ctpmv()
463 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_ctpmv()
480 int i, j, k, LDA; in F77_ctpsv() local
493 LDA = *n; in F77_ctpsv()
494 A=(CBLAS_TEST_COMPLEX*)malloc(LDA*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_ctpsv()
495 AP=(CBLAS_TEST_COMPLEX*)malloc((((LDA+1)*LDA)/2)* in F77_ctpsv()
500 A[ LDA*i+j ].real=ap[ k ].real; in F77_ctpsv()
501 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_ctpsv()
505 AP[ k ].real=A[ LDA*i+j ].real; in F77_ctpsv()
506 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_ctpsv()
512 A[ LDA*i+j ].real=ap[ k ].real; in F77_ctpsv()
513 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_ctpsv()
517 AP[ k ].real=A[ LDA*i+j ].real; in F77_ctpsv()
518 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_ctpsv()
536 int i,j,LDA; in F77_ctrmv() local
546 LDA=*n+1; in F77_ctrmv()
547 A=(CBLAS_TEST_COMPLEX*)malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_ctrmv()
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()
553 cblas_ctrmv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx); in F77_ctrmv()
565 int i,j,LDA; in F77_ctrsv() local
575 LDA = *n+1; in F77_ctrsv()
576 A =(CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); in F77_ctrsv()
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()
582 cblas_ctrsv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx ); in F77_ctrsv()
594 int i,j,k,LDA; in F77_chpr() local
603 LDA = *n; in F77_chpr()
604 A = (CBLAS_TEST_COMPLEX* )malloc(LDA*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); in F77_chpr()
605 AP = ( CBLAS_TEST_COMPLEX* )malloc( (((LDA+1)*LDA)/2)* in F77_chpr()
610 A[ LDA*i+j ].real=ap[ k ].real; in F77_chpr()
611 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_chpr()
615 AP[ k ].real=A[ LDA*i+j ].real; in F77_chpr()
616 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr()
622 A[ LDA*i+j ].real=ap[ k ].real; in F77_chpr()
623 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_chpr()
627 AP[ k ].real=A[ LDA*i+j ].real; in F77_chpr()
628 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr()
635 A[ LDA*i+j ].real=AP[ k ].real; in F77_chpr()
636 A[ LDA*i+j ].imag=AP[ k ].imag; in F77_chpr()
640 ap[ k ].real=A[ LDA*i+j ].real; in F77_chpr()
641 ap[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr()
647 A[ LDA*i+j ].real=AP[ k ].real; in F77_chpr()
648 A[ LDA*i+j ].imag=AP[ k ].imag; in F77_chpr()
652 ap[ k ].real=A[ LDA*i+j ].real; in F77_chpr()
653 ap[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr()
670 int i,j,k,LDA; in F77_chpr2() local
680 LDA = *n; in F77_chpr2()
681 A=(CBLAS_TEST_COMPLEX*)malloc( LDA*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); in F77_chpr2()
682 AP=(CBLAS_TEST_COMPLEX*)malloc( (((LDA+1)*LDA)/2)* in F77_chpr2()
687 A[ LDA*i+j ].real=ap[ k ].real; in F77_chpr2()
688 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_chpr2()
692 AP[ k ].real=A[ LDA*i+j ].real; in F77_chpr2()
693 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr2()
699 A[ LDA*i+j ].real=ap[ k ].real; in F77_chpr2()
700 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_chpr2()
704 AP[ k ].real=A[ LDA*i+j ].real; in F77_chpr2()
705 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr2()
712 A[ LDA*i+j ].real=AP[ k ].real; in F77_chpr2()
713 A[ LDA*i+j ].imag=AP[ k ].imag; in F77_chpr2()
717 ap[ k ].real=A[ LDA*i+j ].real; in F77_chpr2()
718 ap[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr2()
724 A[ LDA*i+j ].real=AP[ k ].real; in F77_chpr2()
725 A[ LDA*i+j ].imag=AP[ k ].imag; in F77_chpr2()
729 ap[ k ].real=A[ LDA*i+j ].real; in F77_chpr2()
730 ap[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr2()
746 int i,j,LDA; in F77_cher() local
752 LDA = *n+1; in F77_cher()
753 A=(CBLAS_TEST_COMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_COMPLEX )); in F77_cher()
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()
761 cblas_cher(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA ); 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()
780 int i,j,LDA; in F77_cher2() local
786 LDA = *n+1; in F77_cher2()
787 A= ( CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); in F77_cher2()
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()
795 cblas_cher2(CblasRowMajor, uplo, *n, alpha, x, *incx, y, *incy, A, LDA ); 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()