Home
last modified time | relevance | path

Searched refs:LDA (Results 1 – 25 of 45) sorted by relevance

12

/external/cblas/testing/
Dc_dblas2.c16 int i,j,LDA; in F77_dgemv() local
21 LDA = *n+1; in F77_dgemv()
22 A = ( double* )malloc( (*m)*LDA*sizeof( double ) ); in F77_dgemv()
25 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dgemv()
27 *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy ); in F77_dgemv()
42 int i,j,LDA; in F77_dger() local
45 LDA = *n+1; in F77_dger()
46 A = ( double* )malloc( (*m)*LDA*sizeof( double ) ); in F77_dger()
50 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dger()
53 cblas_dger(CblasRowMajor, *m, *n, *alpha, x, *incx, y, *incy, A, LDA ); in F77_dger()
[all …]
Dc_sblas2.c16 int i,j,LDA; in F77_sgemv() local
21 LDA = *n+1; in F77_sgemv()
22 A = ( float* )malloc( (*m)*LDA*sizeof( float ) ); in F77_sgemv()
25 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_sgemv()
27 *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy ); in F77_sgemv()
42 int i,j,LDA; in F77_sger() local
45 LDA = *n+1; in F77_sger()
46 A = ( float* )malloc( (*m)*LDA*sizeof( float ) ); in F77_sger()
50 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_sger()
53 cblas_sger(CblasRowMajor, *m, *n, *alpha, x, *incx, y, *incy, A, LDA ); in F77_sger()
[all …]
Dc_zblas2.c17 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()
[all …]
Dc_cblas2.c17 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()
[all …]
Dc_cblas3.c20 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()
[all …]
Dc_zblas3.c20 int i,j,LDA, LDB, LDC; in F77_zgemm() local
28 LDA = *k+1; in F77_zgemm()
29 A=(CBLAS_TEST_ZOMPLEX*)malloc((*m)*LDA*sizeof(CBLAS_TEST_ZOMPLEX)); in F77_zgemm()
32 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zgemm()
33 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zgemm()
37 LDA = *m+1; in F77_zgemm()
38 A=(CBLAS_TEST_ZOMPLEX* )malloc(LDA*(*k)*sizeof(CBLAS_TEST_ZOMPLEX)); in F77_zgemm()
41 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zgemm()
42 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zgemm()
72 cblas_zgemm( CblasRowMajor, transa, transb, *m, *n, *k, alpha, A, LDA, in F77_zgemm()
[all …]
Dc_sblas3.c17 int i,j,LDA, LDB, LDC; in F77_sgemm() local
25 LDA = *k+1; in F77_sgemm()
26 A = (float *)malloc( (*m)*LDA*sizeof( float ) ); in F77_sgemm()
29 A[i*LDA+j]=a[j*(*lda)+i]; in F77_sgemm()
32 LDA = *m+1; in F77_sgemm()
33 A = ( float* )malloc( LDA*(*k)*sizeof( float ) ); in F77_sgemm()
36 A[i*LDA+j]=a[j*(*lda)+i]; in F77_sgemm()
57 cblas_sgemm( CblasRowMajor, transa, transb, *m, *n, *k, *alpha, A, LDA, in F77_sgemm()
78 int i,j,LDA, LDB, LDC; in F77_ssymm() local
87 LDA = *m+1; in F77_ssymm()
[all …]
Dc_dblas3.c19 int i,j,LDA, LDB, LDC; in F77_dgemm() local
27 LDA = *k+1; in F77_dgemm()
28 A = (double *)malloc( (*m)*LDA*sizeof( double ) ); in F77_dgemm()
31 A[i*LDA+j]=a[j*(*lda)+i]; in F77_dgemm()
34 LDA = *m+1; in F77_dgemm()
35 A = ( double* )malloc( LDA*(*k)*sizeof( double ) ); in F77_dgemm()
38 A[i*LDA+j]=a[j*(*lda)+i]; in F77_dgemm()
60 cblas_dgemm( CblasRowMajor, transa, transb, *m, *n, *k, *alpha, A, LDA, in F77_dgemm()
81 int i,j,LDA, LDB, LDC; in F77_dsymm() local
90 LDA = *m+1; in F77_dsymm()
[all …]
Dc_sblat2.f489 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
551 LDA = KL + KU + 1
553 LDA = M
555 IF( LDA.LT.NMAX )
556 $ LDA = LDA + 1
558 IF( LDA.GT.NMAX )
560 LAA = LDA*N
567 $ LDA, KL, KU, RESET, TRANSL )
633 LDAS = LDA
649 $ CTRANS, M, N, ALPHA, LDA, INCX,
[all …]
Dc_dblat2.f489 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
551 LDA = KL + KU + 1
553 LDA = M
555 IF( LDA.LT.NMAX )
556 $ LDA = LDA + 1
558 IF( LDA.GT.NMAX )
560 LAA = LDA*N
567 $ LDA, KL, KU, RESET, TRANSL )
633 LDAS = LDA
649 $ CTRANS, M, N, ALPHA, LDA, INCX,
[all …]
Dc_zblat2.f499 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
561 LDA = KL + KU + 1
563 LDA = M
565 IF( LDA.LT.NMAX )
566 $ LDA = LDA + 1
568 IF( LDA.GT.NMAX )
570 LAA = LDA*N
577 $ LDA, KL, KU, RESET, TRANSL )
643 LDAS = LDA
659 $ CTRANS, M, N, ALPHA, LDA, INCX, BETA,
[all …]
Dc_cblat2.f498 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
560 LDA = KL + KU + 1
562 LDA = M
564 IF( LDA.LT.NMAX )
565 $ LDA = LDA + 1
567 IF( LDA.GT.NMAX )
569 LAA = LDA*N
576 $ LDA, KL, KU, RESET, TRANSL )
642 LDAS = LDA
658 $ CTRANS, M, N, ALPHA, LDA, INCX, BETA,
[all …]
Dc_zblat3.f463 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
521 LDA = MA
522 IF( LDA.LT.NMAX )
523 $ LDA = LDA + 1
525 IF( LDA.GT.NMAX )
527 LAA = LDA*NA
531 CALL ZMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
584 LDAS = LDA
599 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA,
604 $ K, ALPHA, AA, LDA, BB, LDB,
[all …]
Dc_cblat3.f462 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
520 LDA = MA
521 IF( LDA.LT.NMAX )
522 $ LDA = LDA + 1
524 IF( LDA.GT.NMAX )
526 LAA = LDA*NA
530 CALL CMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
583 LDAS = LDA
598 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA,
603 $ K, ALPHA, AA, LDA, BB, LDB,
[all …]
Dc_sblat3.f449 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
507 LDA = MA
508 IF( LDA.LT.NMAX )
509 $ LDA = LDA + 1
511 IF( LDA.GT.NMAX )
513 LAA = LDA*NA
517 CALL SMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
570 LDAS = LDA
585 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA,
590 $ K, ALPHA, AA, LDA, BB, LDB,
[all …]
Dc_dblat3.f449 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
507 LDA = MA
508 IF( LDA.LT.NMAX )
509 $ LDA = LDA + 1
511 IF( LDA.GT.NMAX )
513 LAA = LDA*NA
517 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
570 LDAS = LDA
585 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA,
590 $ K, ALPHA, AA, LDA, BB, LDB,
[all …]
/external/eigen/blas/testing/
Dzblat2.f436 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
497 LDA = KL + KU + 1
499 LDA = M
501 IF( LDA.LT.NMAX )
502 $ LDA = LDA + 1
504 IF( LDA.GT.NMAX )
506 LAA = LDA*N
513 $ LDA, KL, KU, RESET, TRANSL )
572 LDAS = LDA
588 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
[all …]
Dcblat2.f434 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
495 LDA = KL + KU + 1
497 LDA = M
499 IF( LDA.LT.NMAX )
500 $ LDA = LDA + 1
502 IF( LDA.GT.NMAX )
504 LAA = LDA*N
511 $ LDA, KL, KU, RESET, TRANSL )
570 LDAS = LDA
586 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
[all …]
Ddblat2.f424 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
485 LDA = KL + KU + 1
487 LDA = M
489 IF( LDA.LT.NMAX )
490 $ LDA = LDA + 1
492 IF( LDA.GT.NMAX )
494 LAA = LDA*N
501 $ LDA, KL, KU, RESET, TRANSL )
560 LDAS = LDA
576 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
[all …]
Dsblat2.f424 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
485 LDA = KL + KU + 1
487 LDA = M
489 IF( LDA.LT.NMAX )
490 $ LDA = LDA + 1
492 IF( LDA.GT.NMAX )
494 LAA = LDA*N
501 $ LDA, KL, KU, RESET, TRANSL )
560 LDAS = LDA
576 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
[all …]
Dsblat3.f388 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
446 LDA = MA
447 IF( LDA.LT.NMAX )
448 $ LDA = LDA + 1
450 IF( LDA.GT.NMAX )
452 LAA = LDA*NA
456 CALL SMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
509 LDAS = LDA
524 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
529 $ AA, LDA, BB, LDB, BETA, CC, LDC )
[all …]
Ddblat3.f388 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
446 LDA = MA
447 IF( LDA.LT.NMAX )
448 $ LDA = LDA + 1
450 IF( LDA.GT.NMAX )
452 LAA = LDA*NA
456 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
509 LDAS = LDA
524 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
529 $ AA, LDA, BB, LDB, BETA, CC, LDC )
[all …]
Dzblat3.f403 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
461 LDA = MA
462 IF( LDA.LT.NMAX )
463 $ LDA = LDA + 1
465 IF( LDA.GT.NMAX )
467 LAA = LDA*NA
471 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
524 LDAS = LDA
539 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
544 $ AA, LDA, BB, LDB, BETA, CC, LDC )
[all …]
Dcblat3.f402 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
460 LDA = MA
461 IF( LDA.LT.NMAX )
462 $ LDA = LDA + 1
464 IF( LDA.GT.NMAX )
466 LAA = LDA*NA
470 CALL CMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
523 LDAS = LDA
538 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
543 $ AA, LDA, BB, LDB, BETA, CC, LDC )
[all …]
/external/eigen/lapack/
Diladlc.f79 INTEGER FUNCTION ILADLC( M, N, A, LDA )
87 INTEGER M, N, LDA local
90 DOUBLE PRECISION A( LDA, * )

12