/external/eigen/blas/fortran/ |
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 | 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/ |
H A D | common.h | 50 #define UPLO(X) ( ((X)=='U' || (X)=='u') ? UP \ macro 71 return UPLO(*uplo)!=0xff;
|
/external/cblas/testing/ |
H A D | c_cblat2.f | 856 CHARACTER*1 UPLO, UPLOS local in subroutine:CCHK2 925 UPLO = ICH( IC: IC ) 926 IF (UPLO.EQ.'U')THEN 935 CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA, 974 UPLOS = UPLO 1000 CALL CCHEMV( IORDER, UPLO, N, ALPHA, AA, 1010 CALL CCHBMV( IORDER, UPLO, N, K, ALPHA, 1019 CALL CCHPMV( IORDER, UPLO, N, ALPHA, AA, 1033 ISAME( 1 ) = UPLO.EQ.UPLOS 1209 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLO local in subroutine:CCHK3 1870 CHARACTER*1 UPLO local in subroutine:CCHK5 2164 CHARACTER*1 UPLO local in subroutine:CCHK6 2627 CHARACTER*1 UPLO local in function:LCERES 2770 CHARACTER*1 DIAG, UPLO local in subroutine:CMAKE [all...] |
H A D | c_cblat3.f | 795 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS local in subroutine:CCHK2 868 UPLO = ICHU( ICU: ICU ) 872 CALL CMAKE(SNAME( 8: 9 ), UPLO, ' ', NA, NA, A, NMAX, 892 UPLOS = UPLO 914 $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, 919 CALL CCHEMM( IORDER, SIDE, UPLO, M, N, 923 CALL CCSYMM( IORDER, SIDE, UPLO, M, N, 939 ISAME( 2 ) = UPLOS.EQ.UPLO 1017 CALL CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, 1046 SUBROUTINE CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, 1050 CHARACTER*1 SIDE, UPLO local in subroutine:CPRCN2 1115 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO local in subroutine:CCHK3 1401 CHARACTER*1 SIDE, UPLO local in subroutine:CPRCN3 1480 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO local in subroutine:CCHK4 1787 CHARACTER*1 UPLO local in subroutine:CPRCN4 1821 CHARACTER*1 UPLO local in subroutine:CPRCN6 1890 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO local in subroutine:CCHK5 2240 CHARACTER*1 UPLO local in subroutine:CPRCN5 2275 CHARACTER*1 UPLO local in subroutine:CPRCN7 2334 CHARACTER*1 DIAG, UPLO local in subroutine:CMAKE 2668 CHARACTER*1 UPLO local in function:LCERES [all...] |
H A D | c_dblat2.f | 852 CHARACTER*1 UPLO, UPLOS local in subroutine:DCHK2 921 UPLO = ICH( IC: IC ) 922 IF (UPLO.EQ.'U')THEN 931 CALL DMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA, 970 UPLOS = UPLO 996 CALL CDSYMV( IORDER, UPLO, N, ALPHA, AA, 1005 CALL CDSBMV( IORDER, UPLO, N, K, ALPHA, 1014 CALL CDSPMV( IORDER, UPLO, N, ALPHA, AA, 1028 ISAME( 1 ) = UPLO.EQ.UPLOS 1208 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLO local in subroutine:DCHK3 1869 CHARACTER*1 UPLO local in subroutine:DCHK5 2166 CHARACTER*1 UPLO local in subroutine:DCHK6 2488 CHARACTER*1 DIAG, UPLO local in subroutine:DMAKE 2800 CHARACTER*1 UPLO local in function:LDERES [all...] |
H A D | c_dblat3.f | 776 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS local in subroutine:DCHK2 849 UPLO = ICHU( ICU: ICU ) 853 CALL DMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA, 873 UPLOS = UPLO 895 $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, 899 CALL CDSYMM( IORDER, SIDE, UPLO, M, N, ALPHA, 913 ISAME( 2 ) = UPLOS.EQ.UPLO 991 CALL DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, 1020 SUBROUTINE DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, 1024 CHARACTER*1 SIDE, UPLO local in subroutine:DPRCN2 1085 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO local in subroutine:DCHK3 1370 CHARACTER*1 SIDE, UPLO local in subroutine:DPRCN3 1444 CHARACTER*1 TRANS, TRANSS, UPLO local in subroutine:DCHK4 1696 CHARACTER*1 UPLO local in subroutine:DPRCN4 1761 CHARACTER*1 TRANS, TRANSS, UPLO local in subroutine:DCHK5 2053 CHARACTER*1 UPLO local in subroutine:DPRCN5 2108 CHARACTER*1 DIAG, UPLO local in subroutine:DMAKE 2365 CHARACTER*1 UPLO local in function:LDERES [all...] |
H A D | c_sblat2.f | 852 CHARACTER*1 UPLO, UPLOS local in subroutine:SCHK2 921 UPLO = ICH( IC: IC ) 922 IF (UPLO.EQ.'U')THEN 931 CALL SMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA, 970 UPLOS = UPLO 996 CALL CSSYMV( IORDER, UPLO, N, ALPHA, AA, 1005 CALL CSSBMV( IORDER, UPLO, N, K, ALPHA, 1014 CALL CSSPMV( IORDER, UPLO, N, ALPHA, AA, 1028 ISAME( 1 ) = UPLO.EQ.UPLOS 1208 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLO local in subroutine:SCHK3 1869 CHARACTER*1 UPLO local in subroutine:SCHK5 2166 CHARACTER*1 UPLO local in subroutine:SCHK6 2488 CHARACTER*1 DIAG, UPLO local in subroutine:SMAKE 2800 CHARACTER*1 UPLO local in function:LSERES [all...] |
H A D | c_sblat3.f | 780 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS local in subroutine:SCHK2 853 UPLO = ICHU( ICU: ICU ) 857 CALL SMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA, 877 UPLOS = UPLO 899 $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, 903 CALL CSSYMM( IORDER, SIDE, UPLO, M, N, ALPHA, 917 ISAME( 2 ) = UPLOS.EQ.UPLO 995 CALL SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, 1024 SUBROUTINE SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, 1028 CHARACTER*1 SIDE, UPLO local in subroutine:SPRCN2 1089 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO local in subroutine:SCHK3 1374 CHARACTER*1 SIDE, UPLO local in subroutine:SPRCN3 1449 CHARACTER*1 TRANS, TRANSS, UPLO local in subroutine:SCHK4 1701 CHARACTER*1 UPLO local in subroutine:SPRCN4 1766 CHARACTER*1 TRANS, TRANSS, UPLO local in subroutine:SCHK5 2057 CHARACTER*1 UPLO local in subroutine:SPRCN5 2112 CHARACTER*1 DIAG, UPLO local in subroutine:SMAKE 2369 CHARACTER*1 UPLO local in function:LSERES [all...] |
H A D | c_zblat2.f | 858 CHARACTER*1 UPLO, UPLOS local in subroutine:ZCHK2 927 UPLO = ICH( IC: IC ) 928 IF (UPLO.EQ.'U')THEN 937 CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA, 976 UPLOS = UPLO 1002 CALL CZHEMV( IORDER, UPLO, N, ALPHA, AA, 1012 CALL CZHBMV( IORDER, UPLO, N, K, ALPHA, 1021 CALL CZHPMV( IORDER, UPLO, N, ALPHA, AA, 1035 ISAME( 1 ) = UPLO.EQ.UPLOS 1212 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLO local in subroutine:ZCHK3 1875 CHARACTER*1 UPLO local in subroutine:ZCHK5 2170 CHARACTER*1 UPLO local in subroutine:ZCHK6 2633 CHARACTER*1 UPLO local in function:LZERES 2777 CHARACTER*1 DIAG, UPLO local in subroutine:ZMAKE [all...] |
H A D | c_zblat3.f | 796 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS local in subroutine:ZCHK2 869 UPLO = ICHU( ICU: ICU ) 873 CALL ZMAKE(SNAME( 8: 9 ), UPLO, ' ', NA, NA, A, NMAX, 893 UPLOS = UPLO 915 $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, 920 CALL CZHEMM( IORDER, SIDE, UPLO, M, N, 924 CALL CZSYMM( IORDER, SIDE, UPLO, M, N, 940 ISAME( 2 ) = UPLOS.EQ.UPLO 1018 CALL ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, 1047 SUBROUTINE ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, 1051 CHARACTER*1 SIDE, UPLO local in subroutine:ZPRCN2 1116 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO local in subroutine:ZCHK3 1402 CHARACTER*1 SIDE, UPLO local in subroutine:ZPRCN3 1481 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO local in subroutine:ZCHK4 1788 CHARACTER*1 UPLO local in subroutine:ZPRCN4 1822 CHARACTER*1 UPLO local in subroutine:ZPRCN6 1891 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO local in subroutine:ZCHK5 2241 CHARACTER*1 UPLO local in subroutine:ZPRCN5 2276 CHARACTER*1 UPLO local in subroutine:ZPRCN7 2336 CHARACTER*1 DIAG, UPLO local in subroutine:ZMAKE 2672 CHARACTER*1 UPLO local in function:LZERES [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...] |