/external/eigen/blas/ |
H A D | chbmv.f | 1 SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) 5 CHARACTER UPLO local in subroutine:CHBMV 24 * UPLO - CHARACTER*1. 25 * On entry, UPLO specifies whether the upper or lower 29 * UPLO = 'U' or 'u' The upper triangular part of A is 32 * UPLO = 'L' or 'l' The lower triangular part of A is 52 * Before entry with UPLO = 'U' or 'u', the leading ( k + 1 ) 70 * Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) 160 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,' [all...] |
H A D | chpmv.f | 1 SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) 5 CHARACTER UPLO local in subroutine:CHPMV 24 * UPLO - CHARACTER*1. 25 * On entry, UPLO specifies whether the upper or lower 29 * UPLO = 'U' or 'u' The upper triangular part of A is 32 * UPLO = 'L' or 'l' The lower triangular part of A is 48 * Before entry with UPLO = 'U' or 'u', the array AP must 53 * Before entry with UPLO = 'L' or 'l', the array AP must 126 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,' [all...] |
H A D | dsbmv.f | 1 SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) 5 CHARACTER UPLO local in subroutine:DSBMV 24 * UPLO - CHARACTER*1. 25 * On entry, UPLO specifies whether the upper or lower 29 * UPLO = 'U' or 'u' The upper triangular part of A is 32 * UPLO = 'L' or 'l' The lower triangular part of A is 52 * Before entry with UPLO = 'U' or 'u', the leading ( k + 1 ) 70 * Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) 154 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,' [all...] |
H A D | dspmv.f | 1 SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) 5 CHARACTER UPLO local in subroutine:DSPMV 24 * UPLO - CHARACTER*1. 25 * On entry, UPLO specifies whether the upper or lower 29 * UPLO = 'U' or 'u' The upper triangular part of A is 32 * UPLO = 'L' or 'l' The lower triangular part of A is 48 * Before entry with UPLO = 'U' or 'u', the array AP must 53 * Before entry with UPLO = 'L' or 'l', the array AP must 119 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,' [all...] |
H A D | dtbmv.f | 1 SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) 4 CHARACTER DIAG,TRANS,UPLO local in subroutine:DTBMV 23 * UPLO - CHARACTER*1. 24 * On entry, UPLO specifies whether the matrix is an upper or 27 * UPLO = 'U' or 'u' A is an upper triangular matrix. 29 * UPLO = 'L' or 'l' A is a lower triangular matrix. 62 * On entry with UPLO = 'U' or 'u', K specifies the number of 64 * On entry with UPLO = 'L' or 'l', K specifies the number of 70 * Before entry with UPLO = 'U' or 'u', the leading ( k + 1 ) 88 * Before entry with UPLO [all...] |
H A D | ssbmv.f | 1 SUBROUTINE SSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) 5 CHARACTER UPLO local in subroutine:SSBMV 24 * UPLO - CHARACTER*1. 25 * On entry, UPLO specifies whether the upper or lower 29 * UPLO = 'U' or 'u' The upper triangular part of A is 32 * UPLO = 'L' or 'l' The lower triangular part of A is 52 * Before entry with UPLO = 'U' or 'u', the leading ( k + 1 ) 70 * Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) 156 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,' [all...] |
H A D | sspmv.f | 1 SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) 5 CHARACTER UPLO local in subroutine:SSPMV 24 * UPLO - CHARACTER*1. 25 * On entry, UPLO specifies whether the upper or lower 29 * UPLO = 'U' or 'u' The upper triangular part of A is 32 * UPLO = 'L' or 'l' The lower triangular part of A is 48 * Before entry with UPLO = 'U' or 'u', the array AP must 53 * Before entry with UPLO = 'L' or 'l', the array AP must 119 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,' [all...] |
H A D | stbmv.f | 1 SUBROUTINE STBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) 4 CHARACTER DIAG,TRANS,UPLO local in subroutine:STBMV 23 * UPLO - CHARACTER*1. 24 * On entry, UPLO specifies whether the matrix is an upper or 27 * UPLO = 'U' or 'u' A is an upper triangular matrix. 29 * UPLO = 'L' or 'l' A is a lower triangular matrix. 62 * On entry with UPLO = 'U' or 'u', K specifies the number of 64 * On entry with UPLO = 'L' or 'l', K specifies the number of 70 * Before entry with UPLO = 'U' or 'u', the leading ( k + 1 ) 88 * Before entry with UPLO [all...] |
H A D | zhbmv.f | 1 SUBROUTINE ZHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) 5 CHARACTER UPLO local in subroutine:ZHBMV 24 * UPLO - CHARACTER*1. 25 * On entry, UPLO specifies whether the upper or lower 29 * UPLO = 'U' or 'u' The upper triangular part of A is 32 * UPLO = 'L' or 'l' The lower triangular part of A is 52 * Before entry with UPLO = 'U' or 'u', the leading ( k + 1 ) 70 * Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) 160 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,' [all...] |
H A D | zhpmv.f | 1 SUBROUTINE ZHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) 5 CHARACTER UPLO local in subroutine:ZHPMV 24 * UPLO - CHARACTER*1. 25 * On entry, UPLO specifies whether the upper or lower 29 * UPLO = 'U' or 'u' The upper triangular part of A is 32 * UPLO = 'L' or 'l' The lower triangular part of A is 48 * Before entry with UPLO = 'U' or 'u', the array AP must 53 * Before entry with UPLO = 'L' or 'l', the array AP must 126 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,' [all...] |
H A D | common.h | 50 #define UPLO(X) ( ((X)=='U' || (X)=='u') ? UP \ macro 71 return UPLO(*uplo)!=0xff;
|
H A D | ctbmv.f | 1 SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) 4 CHARACTER DIAG,TRANS,UPLO local in subroutine:CTBMV 23 * UPLO - CHARACTER*1. 24 * On entry, UPLO specifies whether the matrix is an upper or 27 * UPLO = 'U' or 'u' A is an upper triangular matrix. 29 * UPLO = 'L' or 'l' A is a lower triangular matrix. 62 * On entry with UPLO = 'U' or 'u', K specifies the number of 64 * On entry with UPLO = 'L' or 'l', K specifies the number of 70 * Before entry with UPLO = 'U' or 'u', the leading ( k + 1 ) 88 * Before entry with UPLO [all...] |
H A D | ztbmv.f | 1 SUBROUTINE ZTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) 4 CHARACTER DIAG,TRANS,UPLO local in subroutine:ZTBMV 23 * UPLO - CHARACTER*1. 24 * On entry, UPLO specifies whether the matrix is an upper or 27 * UPLO = 'U' or 'u' A is an upper triangular matrix. 29 * UPLO = 'L' or 'l' A is a lower triangular matrix. 62 * On entry with UPLO = 'U' or 'u', K specifies the number of 64 * On entry with UPLO = 'L' or 'l', K specifies the number of 70 * Before entry with UPLO = 'U' or 'u', the leading ( k + 1 ) 88 * Before entry with UPLO [all...] |
/external/eigen/blas/testing/ |
H A D | cblat2.f | 782 CHARACTER*1 UPLO, UPLOS local in subroutine:CCHK2 850 UPLO = ICH( IC: IC ) 855 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA, 894 UPLOS = UPLO 917 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY 920 CALL CHEMV( UPLO, N, ALPHA, AA, LDA, XX, 925 $ UPLO, N, K, ALPHA, LDA, INCX, BETA, 929 CALL CHBMV( UPLO, N, K, ALPHA, AA, LDA, 934 $ UPLO, N, ALPHA, INCX, BETA, INCY 937 CALL CHPMV( UPLO, 1126 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO local in subroutine:CCHK3 1767 CHARACTER*1 UPLO local in subroutine:CCHK5 2052 CHARACTER*1 UPLO local in subroutine:CCHK6 2707 CHARACTER*1 DIAG, UPLO local in subroutine:CMAKE 3046 CHARACTER*1 UPLO local in function:LCERES [all...] |
H A D | cblat3.f | 690 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS local in subroutine:CCHK2 763 UPLO = ICHU( ICU: ICU ) 767 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', NA, NA, A, NMAX, 787 UPLOS = UPLO 809 $ UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC 813 CALL CHEMM( SIDE, UPLO, M, N, ALPHA, AA, LDA, 816 CALL CSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA, 831 ISAME( 2 ) = UPLOS.EQ.UPLO 907 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA, 968 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO, local in subroutine:CCHK3 1279 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO local in subroutine:CCHK4 1611 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO local in subroutine:CCHK5 2901 CHARACTER*1 DIAG, UPLO local in subroutine:CMAKE 3235 CHARACTER*1 UPLO local in function:LCERES [all...] |
H A D | dblat2.f | 768 CHARACTER*1 UPLO, UPLOS local in subroutine:DCHK2 836 UPLO = ICH( IC: IC ) 841 CALL DMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA, 880 UPLOS = UPLO 903 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY 906 CALL DSYMV( UPLO, N, ALPHA, AA, LDA, XX, 911 $ UPLO, N, K, ALPHA, LDA, INCX, BETA, 915 CALL DSBMV( UPLO, N, K, ALPHA, AA, LDA, 920 $ UPLO, N, ALPHA, INCX, BETA, INCY 923 CALL DSPMV( UPLO, 1106 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO local in subroutine:DCHK3 1726 CHARACTER*1 UPLO local in subroutine:DCHK5 2005 CHARACTER*1 UPLO local in subroutine:DCHK6 2637 CHARACTER*1 DIAG, UPLO local in subroutine:DMAKE 2949 CHARACTER*1 UPLO local in function:LDERES [all...] |
H A D | dblat3.f | 672 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS local in subroutine:DCHK2 745 UPLO = ICHU( ICU: ICU ) 749 CALL DMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA, 769 UPLOS = UPLO 791 $ UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC 794 CALL DSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA, 808 ISAME( 2 ) = UPLOS.EQ.UPLO 884 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA, 941 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO, local in subroutine:DCHK3 1007 UPLO 1247 CHARACTER*1 TRANS, TRANSS, UPLO local in subroutine:DCHK4 1522 CHARACTER*1 TRANS, TRANSS, UPLO local in subroutine:DCHK5 2370 CHARACTER*1 DIAG, UPLO local in subroutine:DMAKE 2627 CHARACTER*1 UPLO local in function:LDERES [all...] |
H A D | sblat2.f | 768 CHARACTER*1 UPLO, UPLOS local in subroutine:SCHK2 836 UPLO = ICH( IC: IC ) 841 CALL SMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA, 880 UPLOS = UPLO 903 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY 906 CALL SSYMV( UPLO, N, ALPHA, AA, LDA, XX, 911 $ UPLO, N, K, ALPHA, LDA, INCX, BETA, 915 CALL SSBMV( UPLO, N, K, ALPHA, AA, LDA, 920 $ UPLO, N, ALPHA, INCX, BETA, INCY 923 CALL SSPMV( UPLO, 1106 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO local in subroutine:SCHK3 1726 CHARACTER*1 UPLO local in subroutine:SCHK5 2005 CHARACTER*1 UPLO local in subroutine:SCHK6 2637 CHARACTER*1 DIAG, UPLO local in subroutine:SMAKE 2949 CHARACTER*1 UPLO local in function:LSERES [all...] |
H A D | sblat3.f | 672 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS local in subroutine:SCHK2 745 UPLO = ICHU( ICU: ICU ) 749 CALL SMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA, 769 UPLOS = UPLO 791 $ UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC 794 CALL SSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA, 808 ISAME( 2 ) = UPLOS.EQ.UPLO 884 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA, 941 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO, local in subroutine:SCHK3 1007 UPLO 1247 CHARACTER*1 TRANS, TRANSS, UPLO local in subroutine:SCHK4 1522 CHARACTER*1 TRANS, TRANSS, UPLO local in subroutine:SCHK5 2370 CHARACTER*1 DIAG, UPLO local in subroutine:SMAKE 2627 CHARACTER*1 UPLO local in function:LSERES [all...] |
H A D | zblat2.f | 785 CHARACTER*1 UPLO, UPLOS local in subroutine:ZCHK2 853 UPLO = ICH( IC: IC ) 858 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA, 897 UPLOS = UPLO 920 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY 923 CALL ZHEMV( UPLO, N, ALPHA, AA, LDA, XX, 928 $ UPLO, N, K, ALPHA, LDA, INCX, BETA, 932 CALL ZHBMV( UPLO, N, K, ALPHA, AA, LDA, 937 $ UPLO, N, ALPHA, INCX, BETA, INCY 940 CALL ZHPMV( UPLO, 1130 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO local in subroutine:ZCHK3 1773 CHARACTER*1 UPLO local in subroutine:ZCHK5 2059 CHARACTER*1 UPLO local in subroutine:ZCHK6 2715 CHARACTER*1 DIAG, UPLO local in subroutine:ZMAKE 3054 CHARACTER*1 UPLO local in function:LZERES [all...] |
H A D | zblat3.f | 691 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS local in subroutine:ZCHK2 764 UPLO = ICHU( ICU: ICU ) 768 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', NA, NA, A, NMAX, 788 UPLOS = UPLO 810 $ UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC 814 CALL ZHEMM( SIDE, UPLO, M, N, ALPHA, AA, LDA, 817 CALL ZSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA, 832 ISAME( 2 ) = UPLOS.EQ.UPLO 908 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA, 970 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO, local in subroutine:ZCHK3 1281 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO local in subroutine:ZCHK4 1614 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO local in subroutine:ZCHK5 2905 CHARACTER*1 DIAG, UPLO local in subroutine:ZMAKE 3241 CHARACTER*1 UPLO local in function:LZERES [all...] |