| /external/eigen/lapack/ |
| H A D | clarf.f | 154 INTEGER I, LASTV, LASTC local in subroutine:CLARF
167 LASTV = 0
170 ! Set up variables for scanning V. LASTV begins pointing to the end
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,
[all...] |
| H A D | dlarf.f | 149 INTEGER I, LASTV, LASTC local in subroutine:DLARF
162 LASTV = 0
165 ! Set up variables for scanning V. LASTV begins pointing to the end
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,
[all...] |
| H A D | slarf.f | 149 INTEGER I, LASTV, LASTC local in subroutine:SLARF
162 LASTV = 0
165 ! Set up variables for scanning V. LASTV begins pointing to the end
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,
[all...] |
| H A D | zlarf.f | 154 INTEGER I, LASTV, LASTC local in subroutine:ZLARF
167 LASTV = 0
170 * Set up variables for scanning V. LASTV begins pointing to the end
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,
[all...] |
| H A D | clarfb.f | 220 INTEGER I, J, LASTV, LASTC local in subroutine:CLARFB
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
[all...] |
| H A D | dlarfb.f | 220 INTEGER I, J, LASTV, LASTC local in subroutine:DLARFB
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
[all...] |
| H A D | slarfb.f | 220 INTEGER I, J, LASTV, LASTC local in subroutine:SLARFB
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
[all...] |
| H A D | zlarfb.f | 220 INTEGER I, J, LASTV, LASTC local in subroutine:ZLARFB
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
[all...] |
| H A D | clarft.f | 187 INTEGER I, J, PREVLASTV, LASTV local in subroutine:CLARFT
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
[all...] |
| H A D | dlarft.f | 186 INTEGER I, J, PREVLASTV, LASTV local in subroutine:DLARFT
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
[all...] |
| H A D | slarft.f | 186 INTEGER I, J, PREVLASTV, LASTV local in subroutine:SLARFT
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
[all...] |
| H A D | zlarft.f | 187 INTEGER I, J, PREVLASTV, LASTV local in subroutine:ZLARFT
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
[all...] |