| /external/eigen/lapack/ |
| ilaclc.f | 21 * INTEGER FUNCTION ILACLC( M, N, A, LDA )
24 * INTEGER M, N, LDA
27 * COMPLEX A( LDA, * )
56 *> A is COMPLEX array, dimension (LDA,N)
60 *> \param[in] LDA
62 *> LDA is INTEGER
63 *> The leading dimension of the array A. LDA >= max(1,M).
79 INTEGER FUNCTION ILACLC( M, N, A, LDA )
87 INTEGER M, N, LDA
90 COMPLEX A( LDA, * )
[all...] |
| iladlc.f | 21 * INTEGER FUNCTION ILADLC( M, N, A, LDA )
24 * INTEGER M, N, LDA
27 * DOUBLE PRECISION A( LDA, * )
56 *> A is DOUBLE PRECISION array, dimension (LDA,N)
60 *> \param[in] LDA
62 *> LDA is INTEGER
63 *> The leading dimension of the array A. LDA >= max(1,M).
79 INTEGER FUNCTION ILADLC( M, N, A, LDA )
87 INTEGER M, N, LDA
90 DOUBLE PRECISION A( LDA, * )
[all...] |
| ilaslc.f | 21 * INTEGER FUNCTION ILASLC( M, N, A, LDA )
24 * INTEGER M, N, LDA
27 * REAL A( LDA, * )
56 *> A is REAL array, dimension (LDA,N)
60 *> \param[in] LDA
62 *> LDA is INTEGER
63 *> The leading dimension of the array A. LDA >= max(1,M).
79 INTEGER FUNCTION ILASLC( M, N, A, LDA )
87 INTEGER M, N, LDA
90 REAL A( LDA, * )
[all...] |
| ilazlc.f | 21 * INTEGER FUNCTION ILAZLC( M, N, A, LDA )
24 * INTEGER M, N, LDA
27 * COMPLEX*16 A( LDA, * )
56 *> A is COMPLEX*16 array, dimension (LDA,N)
60 *> \param[in] LDA
62 *> LDA is INTEGER
63 *> The leading dimension of the array A. LDA >= max(1,M).
79 INTEGER FUNCTION ILAZLC( M, N, A, LDA )
87 INTEGER M, N, LDA
90 COMPLEX*16 A( LDA, * )
[all...] |
| ilaclr.f | 21 * INTEGER FUNCTION ILACLR( M, N, A, LDA )
24 * INTEGER M, N, LDA
27 * COMPLEX A( LDA, * )
56 *> A is array, dimension (LDA,N)
60 *> \param[in] LDA
62 *> LDA is INTEGER
63 *> The leading dimension of the array A. LDA >= max(1,M).
79 INTEGER FUNCTION ILACLR( M, N, A, LDA )
87 INTEGER M, N, LDA
90 COMPLEX A( LDA, * )
[all...] |
| iladlr.f | 21 * INTEGER FUNCTION ILADLR( M, N, A, LDA )
24 * INTEGER M, N, LDA
27 * DOUBLE PRECISION A( LDA, * )
56 *> A is DOUBLE PRECISION array, dimension (LDA,N)
60 *> \param[in] LDA
62 *> LDA is INTEGER
63 *> The leading dimension of the array A. LDA >= max(1,M).
79 INTEGER FUNCTION ILADLR( M, N, A, LDA )
87 INTEGER M, N, LDA
90 DOUBLE PRECISION A( LDA, * )
[all...] |
| ilaslr.f | 21 * INTEGER FUNCTION ILASLR( M, N, A, LDA )
24 * INTEGER M, N, LDA
27 * REAL A( LDA, * )
56 *> A is REAL array, dimension (LDA,N)
60 *> \param[in] LDA
62 *> LDA is INTEGER
63 *> The leading dimension of the array A. LDA >= max(1,M).
79 INTEGER FUNCTION ILASLR( M, N, A, LDA )
87 INTEGER M, N, LDA
90 REAL A( LDA, * )
[all...] |
| ilazlr.f | 21 * INTEGER FUNCTION ILAZLR( M, N, A, LDA )
24 * INTEGER M, N, LDA
27 * COMPLEX*16 A( LDA, * )
56 *> A is COMPLEX*16 array, dimension (LDA,N)
60 *> \param[in] LDA
62 *> LDA is INTEGER
63 *> The leading dimension of the array A. LDA >= max(1,M).
79 INTEGER FUNCTION ILAZLR( M, N, A, LDA )
87 INTEGER M, N, LDA
90 COMPLEX*16 A( LDA, * )
[all...] |
| /external/cblas/testing/ |
| c_sblas3.c | 13 int *k, float *alpha, float *a, int *lda, float *b, int *ldb,
17 int i,j,LDA, LDB, LDC;
25 LDA = *k+1;
26 A = (float *)malloc( (*m)*LDA*sizeof( float ) );
29 A[i*LDA+j]=a[j*(*lda)+i];
32 LDA = *m+1;
33 A = ( float* )malloc( LDA*(*k)*sizeof( float ) );
36 A[i*LDA+j]=a[j*(*lda)+i]
[all...] |
| c_cblas2.c | 13 CBLAS_TEST_COMPLEX *a, int *lda, const void *x, int *incx,
17 int i,j,LDA;
22 LDA = *n+1;
23 A = (CBLAS_TEST_COMPLEX *)malloc( (*m)*LDA*sizeof( CBLAS_TEST_COMPLEX) );
26 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
27 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
29 cblas_cgemv( CblasRowMajor, trans, *m, *n, alpha, A, LDA, x, *incx,
35 *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy )
[all...] |
| c_cblas3.c | 15 int *k, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
20 int i,j,LDA, LDB, LDC;
28 LDA = *k+1;
29 A=(CBLAS_TEST_COMPLEX*)malloc((*m)*LDA*sizeof(CBLAS_TEST_COMPLEX));
32 A[i*LDA+j].real=a[j*(*lda)+i].real;
33 A[i*LDA+j].imag=a[j*(*lda)+i].imag;
37 LDA = *m+1;
38 A=(CBLAS_TEST_COMPLEX* )malloc(LDA*(*k)*sizeof(CBLAS_TEST_COMPLEX))
[all...] |
| c_dblas2.c | 12 double *a, int *lda, double *x, int *incx, double *beta,
16 int i,j,LDA;
21 LDA = *n+1;
22 A = ( double* )malloc( (*m)*LDA*sizeof( double ) );
25 A[ LDA*i+j ]=a[ (*lda)*j+i ];
27 *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy );
32 *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
35 *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
39 double *y, int *incy, double *a, int *lda ) {
[all...] |
| c_dblas3.c | 15 int *k, double *alpha, double *a, int *lda, double *b, int *ldb,
19 int i,j,LDA, LDB, LDC;
27 LDA = *k+1;
28 A = (double *)malloc( (*m)*LDA*sizeof( double ) );
31 A[i*LDA+j]=a[j*(*lda)+i];
34 LDA = *m+1;
35 A = ( double* )malloc( LDA*(*k)*sizeof( double ) );
38 A[i*LDA+j]=a[j*(*lda)+i]
[all...] |
| c_sblas2.c | 12 float *a, int *lda, float *x, int *incx, float *beta,
16 int i,j,LDA;
21 LDA = *n+1;
22 A = ( float* )malloc( (*m)*LDA*sizeof( float ) );
25 A[ LDA*i+j ]=a[ (*lda)*j+i ];
27 *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy );
32 *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
35 *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
39 float *y, int *incy, float *a, int *lda ) {
[all...] |
| c_zblas2.c | 13 CBLAS_TEST_ZOMPLEX *a, int *lda, const void *x, int *incx,
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,
35 *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy )
[all...] |
| c_zblas3.c | 15 int *k, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
20 int i,j,LDA, LDB, LDC;
28 LDA = *k+1;
29 A=(CBLAS_TEST_ZOMPLEX*)malloc((*m)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));
32 A[i*LDA+j].real=a[j*(*lda)+i].real;
33 A[i*LDA+j].imag=a[j*(*lda)+i].imag;
37 LDA = *m+1;
38 A=(CBLAS_TEST_ZOMPLEX* )malloc(LDA*(*k)*sizeof(CBLAS_TEST_ZOMPLEX))
[all...] |
| c_cblat2.f | 498 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
558 * Set LDA to 1 more than minimum value if room.
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
[all...] |
| c_cblat3.f | 462 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
519 * Set LDA to 1 more than minimum value if room.
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
[all...] |
| c_dblat2.f | 489 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
549 * Set LDA to 1 more than minimum value if room.
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
[all...] |
| c_dblat3.f | 449 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
506 * Set LDA to 1 more than minimum value if room.
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
[all...] |
| c_sblat2.f | 489 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
549 * Set LDA to 1 more than minimum value if room.
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
[all...] |
| c_sblat3.f | 449 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
506 * Set LDA to 1 more than minimum value if room.
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
[all...] |
| c_zblat2.f | 499 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
559 * Set LDA to 1 more than minimum value if room.
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
[all...] |
| c_zblat3.f | 463 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
520 * Set LDA to 1 more than minimum value if room.
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
[all...] |
| /external/eigen/blas/testing/ |
| cblat2.f | 473 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
532 * Set LDA to 1 more than minimum value if room.
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
[all...] |
