| /external/eigen/lapack/ |
| D | dlarfb.f | 220 INTEGER I, J, LASTV, LASTC local
256 LASTV = MAX( K, ILADLR( M, K, V, LDV ) )
257 LASTC = ILADLC( LASTV, N, C, LDC )
271 IF( LASTV.GT.K ) THEN
276 $ LASTC, K, LASTV-K,
288 IF( LASTV.GT.K ) THEN
293 $ LASTV-K, LASTC, K,
315 LASTV = MAX( K, ILADLR( N, K, V, LDV ) )
316 LASTC = ILADLR( M, LASTV, C, LDC )
330 IF( LASTV.GT.K ) THEN
[all …]
|
| D | slarfb.f | 220 INTEGER I, J, LASTV, LASTC local
256 LASTV = MAX( K, ILASLR( M, K, V, LDV ) )
257 LASTC = ILASLC( LASTV, N, C, LDC )
271 IF( LASTV.GT.K ) THEN
276 $ LASTC, K, LASTV-K,
288 IF( LASTV.GT.K ) THEN
293 $ LASTV-K, LASTC, K,
315 LASTV = MAX( K, ILASLR( N, K, V, LDV ) )
316 LASTC = ILASLR( M, LASTV, C, LDC )
330 IF( LASTV.GT.K ) THEN
[all …]
|
| D | clarfb.f | 220 INTEGER I, J, LASTV, LASTC local
259 LASTV = MAX( K, ILACLR( M, K, V, LDV ) )
260 LASTC = ILACLC( LASTV, N, C, LDC )
275 IF( LASTV.GT.K ) THEN
280 $ LASTC, K, LASTV-K, ONE, C( K+1, 1 ), LDC,
296 $ LASTV-K, LASTC, K, -ONE, V( K+1, 1 ), LDV,
317 LASTV = MAX( K, ILACLR( N, K, V, LDV ) )
318 LASTC = ILACLR( M, LASTV, C, LDC )
332 IF( LASTV.GT.K ) THEN
337 $ LASTC, K, LASTV-K,
[all …]
|
| D | zlarfb.f | 220 INTEGER I, J, LASTV, LASTC local
259 LASTV = MAX( K, ILAZLR( M, K, V, LDV ) )
260 LASTC = ILAZLC( LASTV, N, C, LDC )
275 IF( LASTV.GT.K ) THEN
280 $ LASTC, K, LASTV-K, ONE, C( K+1, 1 ), LDC,
296 $ LASTV-K, LASTC, K,
318 LASTV = MAX( K, ILAZLR( N, K, V, LDV ) )
319 LASTC = ILAZLR( M, LASTV, C, LDC )
333 IF( LASTV.GT.K ) THEN
338 $ LASTC, K, LASTV-K,
[all …]
|
| D | zlarf.f | 154 INTEGER I, LASTV, LASTC local
167 LASTV = 0
173 LASTV = M
175 LASTV = N
178 I = 1 + (LASTV-1) * INCV
183 DO WHILE( LASTV.GT.0 .AND. V( I ).EQ.ZERO )
184 LASTV = LASTV - 1
189 LASTC = ILAZLC(LASTV, N, C, LDC)
192 LASTC = ILAZLR(M, LASTV, C, LDC)
201 IF( LASTV.GT.0 ) THEN
[all …]
|
| D | dlarf.f | 149 INTEGER I, LASTV, LASTC local
162 LASTV = 0
168 LASTV = M
170 LASTV = N
173 I = 1 + (LASTV-1) * INCV
178 DO WHILE( LASTV.GT.0 .AND. V( I ).EQ.ZERO )
179 LASTV = LASTV - 1
184 LASTC = ILADLC(LASTV, N, C, LDC)
187 LASTC = ILADLR(M, LASTV, C, LDC)
196 IF( LASTV.GT.0 ) THEN
[all …]
|
| D | slarf.f | 149 INTEGER I, LASTV, LASTC local
162 LASTV = 0
168 LASTV = M
170 LASTV = N
173 I = 1 + (LASTV-1) * INCV
178 DO WHILE( LASTV.GT.0 .AND. V( I ).EQ.ZERO )
179 LASTV = LASTV - 1
184 LASTC = ILASLC(LASTV, N, C, LDC)
187 LASTC = ILASLR(M, LASTV, C, LDC)
196 IF( LASTV.GT.0 ) THEN
[all …]
|
| D | clarf.f | 154 INTEGER I, LASTV, LASTC local
167 LASTV = 0
173 LASTV = M
175 LASTV = N
178 I = 1 + (LASTV-1) * INCV
183 DO WHILE( LASTV.GT.0 .AND. V( I ).EQ.ZERO )
184 LASTV = LASTV - 1
189 LASTC = ILACLC(LASTV, N, C, LDC)
192 LASTC = ILACLR(M, LASTV, C, LDC)
201 IF( LASTV.GT.0 ) THEN
[all …]
|
| D | clarft.f | 187 INTEGER I, J, PREVLASTV, LASTV local
220 DO LASTV = N, I+1, -1
221 IF( V( LASTV, I ).NE.ZERO ) EXIT
226 J = MIN( LASTV, PREVLASTV )
236 DO LASTV = N, I+1, -1
237 IF( V( I, LASTV ).NE.ZERO ) EXIT
242 J = MIN( LASTV, PREVLASTV )
257 PREVLASTV = MAX( PREVLASTV, LASTV )
259 PREVLASTV = LASTV
280 DO LASTV = 1, I-1
[all …]
|
| D | dlarft.f | 186 INTEGER I, J, PREVLASTV, LASTV local
219 DO LASTV = N, I+1, -1
220 IF( V( LASTV, I ).NE.ZERO ) EXIT
225 J = MIN( LASTV, PREVLASTV )
234 DO LASTV = N, I+1, -1
235 IF( V( I, LASTV ).NE.ZERO ) EXIT
240 J = MIN( LASTV, PREVLASTV )
255 PREVLASTV = MAX( PREVLASTV, LASTV )
257 PREVLASTV = LASTV
278 DO LASTV = 1, I-1
[all …]
|
| D | slarft.f | 186 INTEGER I, J, PREVLASTV, LASTV local
219 DO LASTV = N, I+1, -1
220 IF( V( LASTV, I ).NE.ZERO ) EXIT
225 J = MIN( LASTV, PREVLASTV )
234 DO LASTV = N, I+1, -1
235 IF( V( I, LASTV ).NE.ZERO ) EXIT
240 J = MIN( LASTV, PREVLASTV )
255 PREVLASTV = MAX( PREVLASTV, LASTV )
257 PREVLASTV = LASTV
278 DO LASTV = 1, I-1
[all …]
|
| D | zlarft.f | 187 INTEGER I, J, PREVLASTV, LASTV local
220 DO LASTV = N, I+1, -1
221 IF( V( LASTV, I ).NE.ZERO ) EXIT
226 J = MIN( LASTV, PREVLASTV )
235 DO LASTV = N, I+1, -1
236 IF( V( I, LASTV ).NE.ZERO ) EXIT
241 J = MIN( LASTV, PREVLASTV )
256 PREVLASTV = MAX( PREVLASTV, LASTV )
258 PREVLASTV = LASTV
279 DO LASTV = 1, I-1
[all …]
|