/external/eigen/lapack/ |
H A D | clarft.f | 21 * SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) 28 * COMPLEX T( LDT, * ), TAU( * ), V( LDV, * ) 104 *> \param[in] TAU 106 *> TAU is COMPLEX array, dimension (K) 107 *> TAU(i) must contain the scalar factor of the elementary 164 SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) 176 COMPLEX T( LDT, * ), TAU( * ), V( LDV, * ) local in subroutine:CLARFT 207 IF( TAU( I ).EQ.ZERO ) THEN 224 T( J, I ) = -TAU( I ) * CONJG( V( I , J ) ) 231 $ -TAU( [all...] |
H A D | dlarft.f | 21 * SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) 28 * DOUBLE PRECISION T( LDT, * ), TAU( * ), V( LDV, * ) 104 *> \param[in] TAU 106 *> TAU is DOUBLE PRECISION array, dimension (K) 107 *> TAU(i) must contain the scalar factor of the elementary 164 SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) 176 DOUBLE PRECISION T( LDT, * ), TAU( * ), V( LDV, * ) local in subroutine:DLARFT 206 IF( TAU( I ).EQ.ZERO ) THEN 223 T( J, I ) = -TAU( I ) * V( I , J ) 229 CALL DGEMV( 'Transpose', J-I, I-1, -TAU( [all...] |
H A D | slarft.f | 21 * SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) 28 * REAL T( LDT, * ), TAU( * ), V( LDV, * ) 104 *> \param[in] TAU 106 *> TAU is REAL array, dimension (K) 107 *> TAU(i) must contain the scalar factor of the elementary 164 SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) 176 REAL T( LDT, * ), TAU( * ), V( LDV, * ) local in subroutine:SLARFT 206 IF( TAU( I ).EQ.ZERO ) THEN 223 T( J, I ) = -TAU( I ) * V( I , J ) 229 CALL SGEMV( 'Transpose', J-I, I-1, -TAU( [all...] |
H A D | zlarft.f | 21 * SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) 28 * COMPLEX*16 T( LDT, * ), TAU( * ), V( LDV, * ) 104 *> \param[in] TAU 106 *> TAU is COMPLEX*16 array, dimension (K) 107 *> TAU(i) must contain the scalar factor of the elementary 164 SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) 176 COMPLEX*16 T( LDT, * ), TAU( * ), V( LDV, * ) local in subroutine:ZLARFT 207 IF( TAU( I ).EQ.ZERO ) THEN 224 T( J, I ) = -TAU( I ) * CONJG( V( I , J ) ) 231 $ -TAU( [all...] |
H A D | clarf.f | 21 * SUBROUTINE CLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) 26 * COMPLEX TAU 80 *> TAU = 0. 89 *> \param[in] TAU 91 *> TAU is COMPLEX 129 SUBROUTINE CLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) 139 COMPLEX TAU local in subroutine:CLARF 169 IF( TAU.NE.ZERO ) THEN 210 CALL CGERC( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC ) 225 CALL CGERC( LASTC, LASTV, -TAU, WOR [all...] |
H A D | clarfg.f | 21 * SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU ) 25 * COMPLEX ALPHA, TAU 88 *> \param[out] TAU 90 *> TAU is COMPLEX 107 SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU ) 116 COMPLEX ALPHA, TAU local in subroutine:CLARFG 146 TAU = ZERO 158 TAU = ZERO 187 TAU = CMPLX( ( BETA-ALPHR ) / BETA, -ALPHI / BETA )
|
H A D | dlarf.f | 21 * SUBROUTINE DLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) 26 * DOUBLE PRECISION TAU 76 *> TAU = 0. 85 *> \param[in] TAU 87 *> TAU is DOUBLE PRECISION 125 SUBROUTINE DLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) 135 DOUBLE PRECISION TAU local in subroutine:DLARF 164 IF( TAU.NE.ZERO ) THEN 205 CALL DGER( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC ) 220 CALL DGER( LASTC, LASTV, -TAU, WOR [all...] |
H A D | dlarfg.f | 21 * SUBROUTINE DLARFG( N, ALPHA, X, INCX, TAU ) 25 * DOUBLE PRECISION ALPHA, TAU 88 *> \param[out] TAU 90 *> TAU is DOUBLE PRECISION 107 SUBROUTINE DLARFG( N, ALPHA, X, INCX, TAU ) 116 DOUBLE PRECISION ALPHA, TAU local in subroutine:DLARFG 145 TAU = ZERO 155 TAU = ZERO 181 TAU = ( BETA-ALPHA ) / BETA
|
H A D | slarf.f | 21 * SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) 26 * REAL TAU 76 *> TAU = 0. 85 *> \param[in] TAU 87 *> TAU is REAL 125 SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) 135 REAL TAU local in subroutine:SLARF 164 IF( TAU.NE.ZERO ) THEN 205 CALL SGER( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC ) 220 CALL SGER( LASTC, LASTV, -TAU, WOR [all...] |
H A D | slarfg.f | 21 * SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU ) 25 * REAL ALPHA, TAU 88 *> \param[out] TAU 90 *> TAU is REAL 107 SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU ) 116 REAL ALPHA, TAU local in subroutine:SLARFG 145 TAU = ZERO 155 TAU = ZERO 181 TAU = ( BETA-ALPHA ) / BETA
|
H A D | zlarf.f | 21 * SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) 26 * COMPLEX*16 TAU 80 *> TAU = 0. 89 *> \param[in] TAU 91 *> TAU is COMPLEX*16 129 SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) 139 COMPLEX*16 TAU local in subroutine:ZLARF 169 IF( TAU.NE.ZERO ) THEN 210 CALL ZGERC( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC ) 225 CALL ZGERC( LASTC, LASTV, -TAU, WOR [all...] |
H A D | zlarfg.f | 21 * SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU ) 25 * COMPLEX*16 ALPHA, TAU 88 *> \param[out] TAU 90 *> TAU is COMPLEX*16 107 SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU ) 116 COMPLEX*16 ALPHA, TAU local in subroutine:ZLARFG 146 TAU = ZERO 158 TAU = ZERO 187 TAU = DCMPLX( ( BETA-ALPHR ) / BETA, -ALPHI / BETA )
|