Searched refs:TAU (Results 1 - 12 of 12) sorted by relevance

/external/eigen/lapack/
H A Dclarft.f21 * 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 Ddlarft.f21 * 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 Dslarft.f21 * 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 Dzlarft.f21 * 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 Dclarf.f21 * 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 Dclarfg.f21 * 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 Ddlarf.f21 * 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 Ddlarfg.f21 * 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 Dslarf.f21 * 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 Dslarfg.f21 * 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 Dzlarf.f21 * 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 Dzlarfg.f21 * 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 )

Completed in 86 milliseconds