Cross Reference: /external/cblas/testing/c

Lines Matching defs:LDA
17   int i,j,LDA;
22      LDA = *n+1;
23      A  = (CBLAS_TEST_ZOMPLEX *)malloc( (*m)*LDA*sizeof( CBLAS_TEST_ZOMPLEX) );
26            A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
27            A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
29      cblas_zgemv( CblasRowMajor, trans, *m, *n, alpha, A, LDA, x, *incx,
47   int i,j,irow,jcol,LDA;
52      LDA = *ku+*kl+2;
53      A=( CBLAS_TEST_ZOMPLEX* )malloc((*n+*kl)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));
58            A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real;
59            A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag;
65         A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;
66         A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;
72            A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real;
73            A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag;
76      cblas_zgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, alpha, A, LDA, x,
93   int i,j,LDA;
96      LDA = *n+1;
97      A=(CBLAS_TEST_ZOMPLEX*)malloc((*m)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));
100            A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
101            A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
103      cblas_zgeru( CblasRowMajor, *m, *n, alpha, x, *incx, y, *incy, A, LDA );
106            a[ (*lda)*j+i ].real=A[ LDA*i+j ].real;
107            a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag;
121   int i,j,LDA;
124      LDA = *n+1;
125      A=(CBLAS_TEST_ZOMPLEX* )malloc((*m)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );
128            A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
129            A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
131      cblas_zgerc( CblasRowMajor, *m, *n, alpha, x, *incx, y, *incy, A, LDA );
134            a[ (*lda)*j+i ].real=A[ LDA*i+j ].real;
135            a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag;
150   int i,j,LDA;
156      LDA = *n+1;
157      A = (CBLAS_TEST_ZOMPLEX *)malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));
160            A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
161            A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
163      cblas_zhemv( CblasRowMajor, uplo, *n, alpha, A, LDA, x, *incx,
181 int i,irow,j,jcol,LDA;
192         LDA = *k+2;
193         A =(CBLAS_TEST_ZOMPLEX*)malloc((*n+*k)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));
199                  A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real;
200                  A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag;
206               A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;
207               A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;
214               A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;
215               A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;
221                  A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real;
222                  A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag;
226         cblas_zhbmv( CblasRowMajor, uplo, *n, *k, alpha, A, LDA, x, *incx,
244   int i,j,k,LDA;
253         LDA = *n;
254         A = (CBLAS_TEST_ZOMPLEX* )malloc(LDA*LDA*sizeof(CBLAS_TEST_ZOMPLEX ));
255         AP = (CBLAS_TEST_ZOMPLEX* )malloc( (((LDA+1)*LDA)/2)*
260                  A[ LDA*i+j ].real=ap[ k ].real;
261                  A[ LDA*i+j ].imag=ap[ k ].imag;
265                  AP[ k ].real=A[ LDA*i+j ].real;
266                  AP[ k ].imag=A[ LDA*i+j ].imag;
272                  A[ LDA*i+j ].real=ap[ k ].real;
273                  A[ LDA*i+j ].imag=ap[ k ].imag;
277 	         AP[ k ].real=A[ LDA*i+j ].real;
278 	         AP[ k ].imag=A[ LDA*i+j ].imag;
299   int irow, jcol, i, j, LDA;
313         LDA = *k+2;
314         A=(CBLAS_TEST_ZOMPLEX *)malloc((*n+*k)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));
320                  A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real;
321                  A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag;
327               A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;
328               A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;
335              A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;
336              A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;
342                 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real;
343                 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag;
347         cblas_ztbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, 
363   int irow, jcol, i, j, LDA;
377         LDA = *k+2;
378         A=(CBLAS_TEST_ZOMPLEX*)malloc((*n+*k)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ));
384                  A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real;
385                  A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag;
391               A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;
392               A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;
399              A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real;
400              A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag;
406 	         A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real;
407                  A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag;
411         cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, 
425   int i, j, k, LDA;
438         LDA = *n;
439         A=(CBLAS_TEST_ZOMPLEX*)malloc(LDA*LDA*sizeof(CBLAS_TEST_ZOMPLEX));
440         AP=(CBLAS_TEST_ZOMPLEX*)malloc((((LDA+1)*LDA)/2)*
445                  A[ LDA*i+j ].real=ap[ k ].real;
446                  A[ LDA*i+j ].imag=ap[ k ].imag;
450                  AP[ k ].real=A[ LDA*i+j ].real;
451                  AP[ k ].imag=A[ LDA*i+j ].imag;
457                  A[ LDA*i+j ].real=ap[ k ].real;
458 	         A[ LDA*i+j ].imag=ap[ k ].imag;
462                  AP[ k ].real=A[ LDA*i+j ].real;
463 	         AP[ k ].imag=A[ LDA*i+j ].imag;
480   int i, j, k, LDA;
493         LDA = *n;
494         A=(CBLAS_TEST_ZOMPLEX*)malloc(LDA*LDA*sizeof(CBLAS_TEST_ZOMPLEX));
495         AP=(CBLAS_TEST_ZOMPLEX*)malloc((((LDA+1)*LDA)/2)*
500                  A[ LDA*i+j ].real=ap[ k ].real;
501        	         A[ LDA*i+j ].imag=ap[ k ].imag;
505                  AP[ k ].real=A[ LDA*i+j ].real;
506 	         AP[ k ].imag=A[ LDA*i+j ].imag;
512                  A[ LDA*i+j ].real=ap[ k ].real;
513                  A[ LDA*i+j ].imag=ap[ k ].imag;
517                  AP[ k ].real=A[ LDA*i+j ].real;
518 	         AP[ k ].imag=A[ LDA*i+j ].imag;
536   int i,j,LDA;
546      LDA=*n+1;
547      A=(CBLAS_TEST_ZOMPLEX*)malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));
550 	  A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
551           A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
553      cblas_ztrmv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx);
565   int i,j,LDA;
575      LDA = *n+1;
576      A =(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );
579            A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
580 	   A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
582      cblas_ztrsv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx );
594   int i,j,k,LDA;
603         LDA = *n;
604         A = (CBLAS_TEST_ZOMPLEX* )malloc(LDA*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );
605         AP = ( CBLAS_TEST_ZOMPLEX* )malloc( (((LDA+1)*LDA)/2)*
610                  A[ LDA*i+j ].real=ap[ k ].real;
611                  A[ LDA*i+j ].imag=ap[ k ].imag;
615                  AP[ k ].real=A[ LDA*i+j ].real;
616                  AP[ k ].imag=A[ LDA*i+j ].imag;
622                  A[ LDA*i+j ].real=ap[ k ].real;
623        	         A[ LDA*i+j ].imag=ap[ k ].imag;
627                  AP[ k ].real=A[ LDA*i+j ].real;
628                  AP[ k ].imag=A[ LDA*i+j ].imag;
635                  A[ LDA*i+j ].real=AP[ k ].real;
636                  A[ LDA*i+j ].imag=AP[ k ].imag;
640                  ap[ k ].real=A[ LDA*i+j ].real;
641                  ap[ k ].imag=A[ LDA*i+j ].imag;
647                  A[ LDA*i+j ].real=AP[ k ].real;
648                  A[ LDA*i+j ].imag=AP[ k ].imag;
652                  ap[ k ].real=A[ LDA*i+j ].real;
653                  ap[ k ].imag=A[ LDA*i+j ].imag;
670   int i,j,k,LDA;
680         LDA = *n;
681         A=(CBLAS_TEST_ZOMPLEX*)malloc( LDA*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );
682         AP=(CBLAS_TEST_ZOMPLEX*)malloc( (((LDA+1)*LDA)/2)*
687                  A[ LDA*i+j ].real=ap[ k ].real;
688 	         A[ LDA*i+j ].imag=ap[ k ].imag;
692                  AP[ k ].real=A[ LDA*i+j ].real;
693 	         AP[ k ].imag=A[ LDA*i+j ].imag;
699 	         A[ LDA*i+j ].real=ap[ k ].real;
700 	         A[ LDA*i+j ].imag=ap[ k ].imag;
704                  AP[ k ].real=A[ LDA*i+j ].real;
705 	         AP[ k ].imag=A[ LDA*i+j ].imag;
712                  A[ LDA*i+j ].real=AP[ k ].real;
713                  A[ LDA*i+j ].imag=AP[ k ].imag;
717                  ap[ k ].real=A[ LDA*i+j ].real;
718 	         ap[ k ].imag=A[ LDA*i+j ].imag;
724                  A[ LDA*i+j ].real=AP[ k ].real;
725 	         A[ LDA*i+j ].imag=AP[ k ].imag;
729                  ap[ k ].real=A[ LDA*i+j ].real;
730 	         ap[ k ].imag=A[ LDA*i+j ].imag;
746   int i,j,LDA;
752      LDA = *n+1;
753      A=(CBLAS_TEST_ZOMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_ZOMPLEX ));
757 	  A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
758           A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
761      cblas_zher(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA );
764 	  a[ (*lda)*j+i ].real=A[ LDA*i+j ].real;
765           a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag;
780   int i,j,LDA;
786      LDA = *n+1;
787      A= ( CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );
791 	  A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
792           A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
795      cblas_zher2(CblasRowMajor, uplo, *n, alpha, x, *incx, y, *incy, A, LDA );
798 	  a[ (*lda)*j+i ].real=A[ LDA*i+j ].real;
799           a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag;