Lines Matching refs:LDA
20 int i,j,LDA, LDB, LDC; in F77_cgemm() local
28 LDA = *k+1; in F77_cgemm()
29 A=(CBLAS_TEST_COMPLEX*)malloc((*m)*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_cgemm()
32 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_cgemm()
33 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_cgemm()
37 LDA = *m+1; in F77_cgemm()
38 A=(CBLAS_TEST_COMPLEX* )malloc(LDA*(*k)*sizeof(CBLAS_TEST_COMPLEX)); in F77_cgemm()
41 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_cgemm()
42 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_cgemm()
72 cblas_cgemm( CblasRowMajor, transa, transb, *m, *n, *k, alpha, A, LDA, in F77_cgemm()
96 int i,j,LDA, LDB, LDC; in F77_chemm() local
105 LDA = *m+1; in F77_chemm()
106 A= (CBLAS_TEST_COMPLEX* )malloc((*m)*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_chemm()
109 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_chemm()
110 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_chemm()
114 LDA = *n+1; in F77_chemm()
115 A=(CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); in F77_chemm()
118 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_chemm()
119 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_chemm()
136 cblas_chemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, in F77_chemm()
160 int i,j,LDA, LDB, LDC; in F77_csymm() local
169 LDA = *m+1; in F77_csymm()
170 A=(CBLAS_TEST_COMPLEX* )malloc((*m)*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_csymm()
173 A[i*LDA+j]=a[j*(*lda)+i]; in F77_csymm()
176 LDA = *n+1; in F77_csymm()
177 A=(CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); in F77_csymm()
180 A[i*LDA+j]=a[j*(*lda)+i]; in F77_csymm()
192 cblas_csymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, in F77_csymm()
213 int i,j,LDA,LDC; in F77_cherk() local
223 LDA = *k+1; in F77_cherk()
224 A=(CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); in F77_cherk()
227 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_cherk()
228 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_cherk()
232 LDA = *n+1; in F77_cherk()
233 A=(CBLAS_TEST_COMPLEX* )malloc((*k)*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); in F77_cherk()
236 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_cherk()
237 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_cherk()
247 cblas_cherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, in F77_cherk()
269 int i,j,LDA,LDC; in F77_csyrk() local
279 LDA = *k+1; in F77_csyrk()
280 A=(CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_csyrk()
283 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_csyrk()
284 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_csyrk()
288 LDA = *n+1; in F77_csyrk()
289 A=(CBLAS_TEST_COMPLEX* )malloc((*k)*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); in F77_csyrk()
292 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_csyrk()
293 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_csyrk()
303 cblas_csyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, in F77_csyrk()
324 int i,j,LDA,LDB,LDC; in F77_cher2k() local
334 LDA = *k+1; in F77_cher2k()
336 A=(CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX )); in F77_cher2k()
340 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_cher2k()
341 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_cher2k()
347 LDA = *n+1; in F77_cher2k()
349 A=(CBLAS_TEST_COMPLEX* )malloc( LDA*(*k)*sizeof(CBLAS_TEST_COMPLEX ) ); in F77_cher2k()
353 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_cher2k()
354 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_cher2k()
366 cblas_cher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, in F77_cher2k()
388 int i,j,LDA,LDB,LDC; in F77_csyr2k() local
398 LDA = *k+1; in F77_csyr2k()
400 A=(CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_csyr2k()
404 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_csyr2k()
405 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_csyr2k()
411 LDA = *n+1; in F77_csyr2k()
413 A=(CBLAS_TEST_COMPLEX* )malloc(LDA*(*k)*sizeof(CBLAS_TEST_COMPLEX)); in F77_csyr2k()
417 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_csyr2k()
418 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_csyr2k()
430 cblas_csyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, in F77_csyr2k()
451 int i,j,LDA,LDB; in F77_ctrmm() local
465 LDA = *m+1; in F77_ctrmm()
466 A=(CBLAS_TEST_COMPLEX* )malloc((*m)*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_ctrmm()
469 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_ctrmm()
470 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_ctrmm()
474 LDA = *n+1; in F77_ctrmm()
475 A=(CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_ctrmm()
478 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_ctrmm()
479 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_ctrmm()
490 A, LDA, B, LDB ); in F77_ctrmm()
510 int i,j,LDA,LDB; in F77_ctrsm() local
524 LDA = *m+1; in F77_ctrsm()
525 A=(CBLAS_TEST_COMPLEX* )malloc( (*m)*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); in F77_ctrsm()
528 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_ctrsm()
529 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_ctrsm()
533 LDA = *n+1; in F77_ctrsm()
534 A=(CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX)); in F77_ctrsm()
537 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_ctrsm()
538 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_ctrsm()
549 A, LDA, B, LDB ); in F77_ctrsm()