| /external/eigen/lapack/ |
| D | dlarfb.f | 220 INTEGER I, J, LASTV, LASTC local
257 LASTC = ILADLC( LASTV, N, C, LDC )
264 CALL DCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
270 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
276 $ LASTC, K, LASTV-K,
284 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
293 $ LASTV-K, LASTC, K,
301 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
306 DO 20 I = 1, LASTC
316 LASTC = ILADLR( M, LASTV, C, LDC )
[all …]
|
| D | slarfb.f | 220 INTEGER I, J, LASTV, LASTC local
257 LASTC = ILASLC( LASTV, N, C, LDC )
264 CALL SCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
270 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
276 $ LASTC, K, LASTV-K,
284 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
293 $ LASTV-K, LASTC, K,
301 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
306 DO 20 I = 1, LASTC
316 LASTC = ILASLR( M, LASTV, C, LDC )
[all …]
|
| D | zlarfb.f | 220 INTEGER I, J, LASTV, LASTC local
260 LASTC = ILAZLC( LASTV, N, C, LDC )
267 CALL ZCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
268 CALL ZLACGV( LASTC, WORK( 1, J ), 1 )
274 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
280 $ LASTC, K, LASTV-K, ONE, C( K+1, 1 ), LDC,
287 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
296 $ LASTV-K, LASTC, K,
304 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
309 DO 20 I = 1, LASTC
[all …]
|
| D | clarfb.f | 220 INTEGER I, J, LASTV, LASTC local
260 LASTC = ILACLC( LASTV, N, C, LDC )
267 CALL CCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
268 CALL CLACGV( LASTC, WORK( 1, J ), 1 )
274 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
280 $ LASTC, K, LASTV-K, ONE, C( K+1, 1 ), LDC,
287 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
296 $ LASTV-K, LASTC, K, -ONE, V( K+1, 1 ), LDV,
303 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
308 DO 20 I = 1, LASTC
[all …]
|
| D | slarf.f | 149 INTEGER I, LASTV, LASTC local
163 LASTC = 0
184 LASTC = ILASLC(LASTV, N, C, LDC)
187 LASTC = ILASLR(M, LASTV, C, LDC)
200 CALL SGEMV( 'Transpose', LASTV, LASTC, ONE, C, LDC, V, INCV,
205 CALL SGER( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
215 CALL SGEMV( 'No transpose', LASTC, LASTV, ONE, C, LDC,
220 CALL SGER( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )
|
| D | zlarf.f | 154 INTEGER I, LASTV, LASTC local
168 LASTC = 0
189 LASTC = ILAZLC(LASTV, N, C, LDC)
192 LASTC = ILAZLR(M, LASTV, C, LDC)
205 CALL ZGEMV( 'Conjugate transpose', LASTV, LASTC, ONE,
210 CALL ZGERC( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
220 CALL ZGEMV( 'No transpose', LASTC, LASTV, ONE, C, LDC,
225 CALL ZGERC( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )
|
| D | dlarf.f | 149 INTEGER I, LASTV, LASTC local
163 LASTC = 0
184 LASTC = ILADLC(LASTV, N, C, LDC)
187 LASTC = ILADLR(M, LASTV, C, LDC)
200 CALL DGEMV( 'Transpose', LASTV, LASTC, ONE, C, LDC, V, INCV,
205 CALL DGER( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
215 CALL DGEMV( 'No transpose', LASTC, LASTV, ONE, C, LDC,
220 CALL DGER( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )
|
| D | clarf.f | 154 INTEGER I, LASTV, LASTC local
168 LASTC = 0
189 LASTC = ILACLC(LASTV, N, C, LDC)
192 LASTC = ILACLR(M, LASTV, C, LDC)
205 CALL CGEMV( 'Conjugate transpose', LASTV, LASTC, ONE,
210 CALL CGERC( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
220 CALL CGEMV( 'No transpose', LASTC, LASTV, ONE, C, LDC,
225 CALL CGERC( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )
|