| /external/eigen/blas/ |
| D | stpsv.f | 114 LOGICAL LSAME local
115 EXTERNAL LSAME
124 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
126 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
127 + .NOT.LSAME(TRANS,'C')) THEN
129 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
145 NOUNIT = LSAME(DIAG,'N')
159 IF (LSAME(TRANS,'N')) THEN
163 IF (LSAME(UPLO,'U')) THEN
230 IF (LSAME(UPLO,'U')) THEN
|
| D | stpmv.f | 111 LOGICAL LSAME local
112 EXTERNAL LSAME
121 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
123 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
124 + .NOT.LSAME(TRANS,'C')) THEN
126 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
142 NOUNIT = LSAME(DIAG,'N')
156 IF (LSAME(TRANS,'N')) THEN
160 IF (LSAME(UPLO,'U')) THEN
228 IF (LSAME(UPLO,'U')) THEN
|
| D | dtpmv.f | 111 LOGICAL LSAME local
112 EXTERNAL LSAME
121 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
123 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
124 + .NOT.LSAME(TRANS,'C')) THEN
126 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
142 NOUNIT = LSAME(DIAG,'N')
156 IF (LSAME(TRANS,'N')) THEN
160 IF (LSAME(UPLO,'U')) THEN
228 IF (LSAME(UPLO,'U')) THEN
|
| D | dtpsv.f | 114 LOGICAL LSAME local
115 EXTERNAL LSAME
124 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
126 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
127 + .NOT.LSAME(TRANS,'C')) THEN
129 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
145 NOUNIT = LSAME(DIAG,'N')
159 IF (LSAME(TRANS,'N')) THEN
163 IF (LSAME(UPLO,'U')) THEN
230 IF (LSAME(UPLO,'U')) THEN
|
| D | stbmv.f | 151 LOGICAL LSAME local
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(DIAG,'N')
203 IF (LSAME(TRANS,'N')) THEN
207 IF (LSAME(UPLO,'U')) THEN
272 IF (LSAME(UPLO,'U')) THEN
|
| D | dtbmv.f | 151 LOGICAL LSAME local
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(DIAG,'N')
203 IF (LSAME(TRANS,'N')) THEN
207 IF (LSAME(UPLO,'U')) THEN
272 IF (LSAME(UPLO,'U')) THEN
|
| D | ctpsv.f | 114 LOGICAL LSAME local
115 EXTERNAL LSAME
127 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
129 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
130 + .NOT.LSAME(TRANS,'C')) THEN
132 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
148 NOCONJ = LSAME(TRANS,'T')
149 NOUNIT = LSAME(DIAG,'N')
163 IF (LSAME(TRANS,'N')) THEN
167 IF (LSAME(UPLO,'U')) THEN
[all …]
|
| D | ctpmv.f | 111 LOGICAL LSAME local
112 EXTERNAL LSAME
124 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
126 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
127 + .NOT.LSAME(TRANS,'C')) THEN
129 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
145 NOCONJ = LSAME(TRANS,'T')
146 NOUNIT = LSAME(DIAG,'N')
160 IF (LSAME(TRANS,'N')) THEN
164 IF (LSAME(UPLO,'U')) THEN
[all …]
|
| D | ztpmv.f | 111 LOGICAL LSAME local
112 EXTERNAL LSAME
124 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
126 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
127 + .NOT.LSAME(TRANS,'C')) THEN
129 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
145 NOCONJ = LSAME(TRANS,'T')
146 NOUNIT = LSAME(DIAG,'N')
160 IF (LSAME(TRANS,'N')) THEN
164 IF (LSAME(UPLO,'U')) THEN
[all …]
|
| D | ztpsv.f | 114 LOGICAL LSAME local
115 EXTERNAL LSAME
127 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
129 ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
130 + .NOT.LSAME(TRANS,'C')) THEN
132 ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
148 NOCONJ = LSAME(TRANS,'T')
149 NOUNIT = LSAME(DIAG,'N')
163 IF (LSAME(TRANS,'N')) THEN
167 IF (LSAME(UPLO,'U')) THEN
[all …]
|
| D | ztbmv.f | 151 LOGICAL LSAME local
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(TRANS,'T')
190 NOUNIT = LSAME(DIAG,'N')
204 IF (LSAME(TRANS,'N')) THEN
208 IF (LSAME(UPLO,'U')) THEN
[all …]
|
| D | ctbmv.f | 151 LOGICAL LSAME local
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(TRANS,'T')
190 NOUNIT = LSAME(DIAG,'N')
204 IF (LSAME(TRANS,'N')) THEN
208 IF (LSAME(UPLO,'U')) THEN
[all …]
|
| D | lsame.f | 1 LOGICAL FUNCTION LSAME(CA,CB) function
36 LSAME = CA .EQ. CB
37 IF (LSAME) RETURN
79 LSAME = INTA .EQ. INTB
|
| D | sspr.f | 96 LOGICAL LSAME local
97 EXTERNAL LSAME
106 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
134 IF (LSAME(UPLO,'U')) THEN
|
| D | dspr.f | 96 LOGICAL LSAME local
97 EXTERNAL LSAME
106 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
134 IF (LSAME(UPLO,'U')) THEN
|
| D | chpr.f | 99 LOGICAL LSAME local
100 EXTERNAL LSAME
112 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
140 IF (LSAME(UPLO,'U')) THEN
|
| D | zhpr.f | 99 LOGICAL LSAME local
100 EXTERNAL LSAME
112 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
140 IF (LSAME(UPLO,'U')) THEN
|
| D | dspr2.f | 107 LOGICAL LSAME local
108 EXTERNAL LSAME
117 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
157 IF (LSAME(UPLO,'U')) THEN
|
| D | sspr2.f | 107 LOGICAL LSAME local
108 EXTERNAL LSAME
117 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
157 IF (LSAME(UPLO,'U')) THEN
|
| D | chpr2.f | 110 LOGICAL LSAME local
111 EXTERNAL LSAME
123 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
163 IF (LSAME(UPLO,'U')) THEN
|
| D | zhpr2.f | 110 LOGICAL LSAME local
111 EXTERNAL LSAME
123 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
163 IF (LSAME(UPLO,'U')) THEN
|
| D | chpmv.f | 113 LOGICAL LSAME local
114 EXTERNAL LSAME
126 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
190 IF (LSAME(UPLO,'U')) THEN
|
| D | sspmv.f | 109 LOGICAL LSAME local
110 EXTERNAL LSAME
119 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
183 IF (LSAME(UPLO,'U')) THEN
|
| D | dspmv.f | 109 LOGICAL LSAME local
110 EXTERNAL LSAME
119 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
183 IF (LSAME(UPLO,'U')) THEN
|
| D | zhpmv.f | 113 LOGICAL LSAME local
114 EXTERNAL LSAME
126 IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
190 IF (LSAME(UPLO,'U')) THEN
|