/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...] |