Home
last modified time | relevance | path

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

123

/external/cblas/testing/
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_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_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_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_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_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_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_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_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_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_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_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_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 …]
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 …]
/external/eigen/blas/testing/
Dcblat2.f473 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
534 LDA = KL + KU + 1
536 LDA = M
538 IF( LDA.LT.NMAX )
539 $ LDA = LDA + 1
541 IF( LDA.GT.NMAX )
543 LAA = LDA*N
550 $ LDA, KL, KU, RESET, TRANSL )
609 LDAS = LDA
625 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
[all …]
Dzblat2.f475 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
536 LDA = KL + KU + 1
538 LDA = M
540 IF( LDA.LT.NMAX )
541 $ LDA = LDA + 1
543 IF( LDA.GT.NMAX )
545 LAA = LDA*N
552 $ LDA, KL, KU, RESET, TRANSL )
611 LDAS = LDA
627 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
[all …]
Ddblat2.f463 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
524 LDA = KL + KU + 1
526 LDA = M
528 IF( LDA.LT.NMAX )
529 $ LDA = LDA + 1
531 IF( LDA.GT.NMAX )
533 LAA = LDA*N
540 $ LDA, KL, KU, RESET, TRANSL )
599 LDAS = LDA
615 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
[all …]
Dsblat2.f463 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA, local
524 LDA = KL + KU + 1
526 LDA = M
528 IF( LDA.LT.NMAX )
529 $ LDA = LDA + 1
531 IF( LDA.GT.NMAX )
533 LAA = LDA*N
540 $ LDA, KL, KU, RESET, TRANSL )
599 LDAS = LDA
615 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
[all …]
Dsblat3.f427 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
485 LDA = MA
486 IF( LDA.LT.NMAX )
487 $ LDA = LDA + 1
489 IF( LDA.GT.NMAX )
491 LAA = LDA*NA
495 CALL SMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
548 LDAS = LDA
563 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
568 $ AA, LDA, BB, LDB, BETA, CC, LDC )
[all …]
Ddblat3.f427 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
485 LDA = MA
486 IF( LDA.LT.NMAX )
487 $ LDA = LDA + 1
489 IF( LDA.GT.NMAX )
491 LAA = LDA*NA
495 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
548 LDAS = LDA
563 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
568 $ AA, LDA, BB, LDB, BETA, CC, LDC )
[all …]
Dcblat3.f441 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
499 LDA = MA
500 IF( LDA.LT.NMAX )
501 $ LDA = LDA + 1
503 IF( LDA.GT.NMAX )
505 LAA = LDA*NA
509 CALL CMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
562 LDAS = LDA
577 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
582 $ AA, LDA, BB, LDB, BETA, CC, LDC )
[all …]
Dzblat3.f443 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M, local
501 LDA = MA
502 IF( LDA.LT.NMAX )
503 $ LDA = LDA + 1
505 IF( LDA.GT.NMAX )
507 LAA = LDA*NA
511 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
564 LDAS = LDA
579 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB,
584 $ 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, * )

123