| /external/eigen/lapack/ |
| H A D | dlamch.f | 85 LOGICAL LSAME local in function:DLAMCH
86 EXTERNAL LSAME
105 IF( LSAME( CMACH, 'E' ) ) THEN
107 ELSE IF( LSAME( CMACH, 'S' ) ) THEN
118 ELSE IF( LSAME( CMACH, 'B' ) ) THEN
120 ELSE IF( LSAME( CMACH, 'P' ) ) THEN
122 ELSE IF( LSAME( CMACH, 'N' ) ) THEN
124 ELSE IF( LSAME( CMACH, 'R' ) ) THEN
126 ELSE IF( LSAME( CMACH, 'M' ) ) THEN
128 ELSE IF( LSAME( CMAC
[all...] |
| H A D | slamch.f | 89 LOGICAL LSAME local in function:SLAMCH
90 EXTERNAL LSAME
109 IF( LSAME( CMACH, 'E' ) ) THEN
111 ELSE IF( LSAME( CMACH, 'S' ) ) THEN
122 ELSE IF( LSAME( CMACH, 'B' ) ) THEN
124 ELSE IF( LSAME( CMACH, 'P' ) ) THEN
126 ELSE IF( LSAME( CMACH, 'N' ) ) THEN
128 ELSE IF( LSAME( CMACH, 'R' ) ) THEN
130 ELSE IF( LSAME( CMACH, 'M' ) ) THEN
132 ELSE IF( LSAME( CMAC
[all...] |
| H A D | clarf.f | 160 LOGICAL LSAME local in subroutine:CLARF
162 EXTERNAL LSAME, ILACLR, ILACLC
166 APPLYLEFT = LSAME( SIDE, 'L' )
|
| H A D | dlarf.f | 155 LOGICAL LSAME local in subroutine:DLARF
157 EXTERNAL LSAME, ILADLR, ILADLC
161 APPLYLEFT = LSAME( SIDE, 'L' )
|
| H A D | slarf.f | 155 LOGICAL LSAME local in subroutine:SLARF
157 EXTERNAL LSAME, ILASLR, ILASLC
161 APPLYLEFT = LSAME( SIDE, 'L' )
|
| H A D | zlarf.f | 160 LOGICAL LSAME local in subroutine:ZLARF
162 EXTERNAL LSAME, ILAZLR, ILAZLC
166 APPLYLEFT = LSAME( SIDE, 'L' )
|
| H A D | clarfb.f | 223 LOGICAL LSAME local in subroutine:CLARFB
225 EXTERNAL LSAME, ILACLR, ILACLC
240 IF( LSAME( TRANS, 'N' ) ) THEN
246 IF( LSAME( STOREV, 'C' ) ) THEN
248 IF( LSAME( DIRECT, 'F' ) ) THEN
254 IF( LSAME( SIDE, 'L' ) ) THEN
313 ELSE IF( LSAME( SIDE, 'R' ) ) THEN
379 IF( LSAME( SIDE, 'L' ) ) THEN
442 ELSE IF( LSAME( SIDE, 'R' ) ) THEN
505 ELSE IF( LSAME( STORE
[all...] |
| H A D | dlarfb.f | 223 LOGICAL LSAME local in subroutine:DLARFB
225 EXTERNAL LSAME, ILADLR, ILADLC
237 IF( LSAME( TRANS, 'N' ) ) THEN
243 IF( LSAME( STOREV, 'C' ) ) THEN
245 IF( LSAME( DIRECT, 'F' ) ) THEN
251 IF( LSAME( SIDE, 'L' ) ) THEN
311 ELSE IF( LSAME( SIDE, 'R' ) ) THEN
377 IF( LSAME( SIDE, 'L' ) ) THEN
438 ELSE IF( LSAME( SIDE, 'R' ) ) THEN
499 ELSE IF( LSAME( STORE
[all...] |
| H A D | slarfb.f | 223 LOGICAL LSAME local in subroutine:SLARFB
225 EXTERNAL LSAME, ILASLR, ILASLC
237 IF( LSAME( TRANS, 'N' ) ) THEN
243 IF( LSAME( STOREV, 'C' ) ) THEN
245 IF( LSAME( DIRECT, 'F' ) ) THEN
251 IF( LSAME( SIDE, 'L' ) ) THEN
311 ELSE IF( LSAME( SIDE, 'R' ) ) THEN
377 IF( LSAME( SIDE, 'L' ) ) THEN
438 ELSE IF( LSAME( SIDE, 'R' ) ) THEN
499 ELSE IF( LSAME( STORE
[all...] |
| H A D | zlarfb.f | 223 LOGICAL LSAME local in subroutine:ZLARFB
225 EXTERNAL LSAME, ILAZLR, ILAZLC
240 IF( LSAME( TRANS, 'N' ) ) THEN
246 IF( LSAME( STOREV, 'C' ) ) THEN
248 IF( LSAME( DIRECT, 'F' ) ) THEN
254 IF( LSAME( SIDE, 'L' ) ) THEN
314 ELSE IF( LSAME( SIDE, 'R' ) ) THEN
380 IF( LSAME( SIDE, 'L' ) ) THEN
445 ELSE IF( LSAME( SIDE, 'R' ) ) THEN
508 ELSE IF( LSAME( STORE
[all...] |
| H A D | clarft.f | 193 LOGICAL LSAME local in subroutine:CLARFT
194 EXTERNAL LSAME
203 IF( LSAME( DIRECT, 'F' ) ) THEN
218 IF( LSAME( STOREV, 'C' ) ) THEN
278 IF( LSAME( STOREV, 'C' ) ) THEN
|
| H A D | dlarft.f | 192 LOGICAL LSAME local in subroutine:DLARFT
193 EXTERNAL LSAME
202 IF( LSAME( DIRECT, 'F' ) ) THEN
217 IF( LSAME( STOREV, 'C' ) ) THEN
276 IF( LSAME( STOREV, 'C' ) ) THEN
|
| H A D | slarft.f | 192 LOGICAL LSAME local in subroutine:SLARFT
193 EXTERNAL LSAME
202 IF( LSAME( DIRECT, 'F' ) ) THEN
217 IF( LSAME( STOREV, 'C' ) ) THEN
276 IF( LSAME( STOREV, 'C' ) ) THEN
|
| H A D | zlarft.f | 193 LOGICAL LSAME local in subroutine:ZLARFT
194 EXTERNAL LSAME
203 IF( LSAME( DIRECT, 'F' ) ) THEN
218 IF( LSAME( STOREV, 'C' ) ) THEN
277 IF( LSAME( STOREV, 'C' ) ) THEN
|
| /external/eigen/blas/fortran/ |
| H A D | lsame.f | 1 LOGICAL FUNCTION LSAME(CA,CB) function
14 * LSAME returns .TRUE. if CA is the same letter as CB regardless of
36 LSAME = CA .EQ. CB
37 IF (LSAME) RETURN
79 LSAME = INTA .EQ. INTB
83 * End of LSAME
|
| H A D | ctbmv.f | 151 LOGICAL LSAME local in subroutine:CTBMV
152 EXTERNAL LSAME
164 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
166 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
167 + .NOT.LSAME(TRANS,'C')) THEN
169 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
189 NOCONJ = LSAME(TRAN
[all...] |
| H A D | ztbmv.f | 151 LOGICAL LSAME local in subroutine:ZTBMV
152 EXTERNAL LSAME
164 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
166 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
167 + .NOT.LSAME(TRANS,'C')) THEN
169 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
189 NOCONJ = LSAME(TRAN
[all...] |
| H A D | dtbmv.f | 151 LOGICAL LSAME local in subroutine:DTBMV
152 EXTERNAL LSAME
164 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
166 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
167 + .NOT.LSAME(TRANS,'C')) THEN
169 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
189 NOUNIT = LSAME(DIA
[all...] |
| H A D | stbmv.f | 151 LOGICAL LSAME local in subroutine:STBMV
152 EXTERNAL LSAME
164 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
166 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
167 + .NOT.LSAME(TRANS,'C')) THEN
169 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
189 NOUNIT = LSAME(DIA
[all...] |
| H A D | dspmv.f | 109 LOGICAL LSAME local in subroutine:DSPMV
110 EXTERNAL LSAME
119 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
183 IF (LSAME(UPLO,'U')) THEN
|
| H A D | sspmv.f | 109 LOGICAL LSAME local in subroutine:SSPMV
110 EXTERNAL LSAME
119 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
183 IF (LSAME(UPLO,'U')) THEN
|
| H A D | chbmv.f | 147 LOGICAL LSAME local in subroutine:CHBMV
148 EXTERNAL LSAME
160 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
227 IF (LSAME(UPLO,'U')) THEN
|
| H A D | chpmv.f | 113 LOGICAL LSAME local in subroutine:CHPMV
114 EXTERNAL LSAME
126 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
190 IF (LSAME(UPLO,'U')) THEN
|
| H A D | dsbmv.f | 141 LOGICAL LSAME local in subroutine:DSBMV
142 EXTERNAL LSAME
154 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
221 IF (LSAME(UPLO,'U')) THEN
|
| H A D | ssbmv.f | 143 LOGICAL LSAME local in subroutine:SSBMV
144 EXTERNAL LSAME
156 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
223 IF (LSAME(UPLO,'U')) THEN
|