Subroutine */
| 11226 | } /* zlahqr_ */ |
| 11227 | |
| 11228 | /* Subroutine */ int zlahr2_(integer *n, integer *k, integer *nb, |
| 11229 | doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t, |
| 11230 | integer *ldt, doublecomplex *y, integer *ldy) |
| 11231 | { |
| 11232 | /* System generated locals */ |
| 11233 | integer a_dim1, a_offset, t_dim1, t_offset, y_dim1, y_offset, i__1, i__2, |
| 11234 | i__3; |
| 11235 | doublecomplex z__1; |
| 11236 | |
| 11237 | /* Local variables */ |
| 11238 | static integer i__; |
| 11239 | static doublecomplex ei; |
| 11240 | extern /* Subroutine */ int zscal_(integer *, doublecomplex *, |
| 11241 | doublecomplex *, integer *), zgemm_(char *, char *, integer *, |
| 11242 | integer *, integer *, doublecomplex *, doublecomplex *, integer *, |
| 11243 | doublecomplex *, integer *, doublecomplex *, doublecomplex *, |
| 11244 | integer *), zgemv_(char *, integer *, integer *, |
| 11245 | doublecomplex *, doublecomplex *, integer *, doublecomplex *, |
| 11246 | integer *, doublecomplex *, doublecomplex *, integer *), |
| 11247 | zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, |
| 11248 | integer *), ztrmm_(char *, char *, char *, char *, integer *, |
| 11249 | integer *, doublecomplex *, doublecomplex *, integer *, |
| 11250 | doublecomplex *, integer *), |
| 11251 | zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, |
| 11252 | doublecomplex *, integer *), ztrmv_(char *, char *, char *, |
| 11253 | integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlarfg_(integer *, doublecomplex *, |
| 11254 | doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *, |
| 11255 | doublecomplex *, integer *), zlacpy_(char *, integer *, integer *, |
| 11256 | doublecomplex *, integer *, doublecomplex *, integer *); |
| 11257 | |
| 11258 | |
| 11259 | /* |
| 11260 | -- LAPACK auxiliary routine (version 3.2.1) -- |
| 11261 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 11262 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 11263 | -- April 2009 -- |
| 11264 | |
| 11265 | |
| 11266 | Purpose |
| 11267 | ======= |
| 11268 | |
| 11269 | ZLAHR2 reduces the first NB columns of A complex general n-BY-(n-k+1) |
| 11270 | matrix A so that elements below the k-th subdiagonal are zero. The |
| 11271 | reduction is performed by an unitary similarity transformation |
| 11272 | Q' * A * Q. The routine returns the matrices V and T which determine |
| 11273 | Q as a block reflector I - V*T*V', and also the matrix Y = A * V * T. |
| 11274 | |
| 11275 | This is an auxiliary routine called by ZGEHRD. |
| 11276 | |
| 11277 | Arguments |
| 11278 | ========= |
| 11279 | |
| 11280 | N (input) INTEGER |
| 11281 | The order of the matrix A. |
| 11282 | |
| 11283 | K (input) INTEGER |
| 11284 | The offset for the reduction. Elements below the k-th |
| 11285 | subdiagonal in the first NB columns are reduced to zero. |
no test coverage detected