| /external/eigen/lapack/ |
| D | dlarf.f | 125 SUBROUTINE DLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) argument
134 INTEGER INCV, LDC, M, N local
172 IF( INCV.GT.0 ) THEN
173 I = 1 + (LASTV-1) * INCV
180 I = I - INCV
200 CALL DGEMV( 'Transpose', LASTV, LASTC, ONE, C, LDC, V, INCV,
205 CALL DGER( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
216 $ V, INCV, ZERO, WORK, 1 )
220 CALL DGER( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )
|
| D | slarf.f | 125 SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) argument
134 INTEGER INCV, LDC, M, N local
172 IF( INCV.GT.0 ) THEN
173 I = 1 + (LASTV-1) * INCV
180 I = I - INCV
200 CALL SGEMV( 'Transpose', LASTV, LASTC, ONE, C, LDC, V, INCV,
205 CALL SGER( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
216 $ V, INCV, ZERO, WORK, 1 )
220 CALL SGER( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )
|
| D | zlarf.f | 129 SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) argument
138 INTEGER INCV, LDC, M, N local
177 IF( INCV.GT.0 ) THEN
178 I = 1 + (LASTV-1) * INCV
185 I = I - INCV
206 $ C, LDC, V, INCV, ZERO, WORK, 1 )
210 CALL ZGERC( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
221 $ V, INCV, ZERO, WORK, 1 )
225 CALL ZGERC( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )
|
| D | clarf.f | 129 SUBROUTINE CLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) argument
138 INTEGER INCV, LDC, M, N local
177 IF( INCV.GT.0 ) THEN
178 I = 1 + (LASTV-1) * INCV
185 I = I - INCV
206 $ C, LDC, V, INCV, ZERO, WORK, 1 )
210 CALL CGERC( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
221 $ V, INCV, ZERO, WORK, 1 )
225 CALL CGERC( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )
|