Subroutine */
| 21384 | } /* dlaqr5_ */ |
| 21385 | |
| 21386 | /* Subroutine */ int dlarf_(char *side, integer *m, integer *n, doublereal *v, |
| 21387 | integer *incv, doublereal *tau, doublereal *c__, integer *ldc, |
| 21388 | doublereal *work) |
| 21389 | { |
| 21390 | /* System generated locals */ |
| 21391 | integer c_dim1, c_offset; |
| 21392 | doublereal d__1; |
| 21393 | |
| 21394 | /* Local variables */ |
| 21395 | static integer i__; |
| 21396 | static logical applyleft; |
| 21397 | extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, |
| 21398 | doublereal *, integer *, doublereal *, integer *, doublereal *, |
| 21399 | integer *); |
| 21400 | extern logical lsame_(char *, char *); |
| 21401 | extern /* Subroutine */ int dgemv_(char *, integer *, integer *, |
| 21402 | doublereal *, doublereal *, integer *, doublereal *, integer *, |
| 21403 | doublereal *, doublereal *, integer *); |
| 21404 | static integer lastc, lastv; |
| 21405 | extern integer iladlc_(integer *, integer *, doublereal *, integer *), |
| 21406 | iladlr_(integer *, integer *, doublereal *, integer *); |
| 21407 | |
| 21408 | |
| 21409 | /* |
| 21410 | -- LAPACK auxiliary routine (version 3.2) -- |
| 21411 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 21412 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 21413 | November 2006 |
| 21414 | |
| 21415 | |
| 21416 | Purpose |
| 21417 | ======= |
| 21418 | |
| 21419 | DLARF applies a real elementary reflector H to a real m by n matrix |
| 21420 | C, from either the left or the right. H is represented in the form |
| 21421 | |
| 21422 | H = I - tau * v * v' |
| 21423 | |
| 21424 | where tau is a real scalar and v is a real vector. |
| 21425 | |
| 21426 | If tau = 0, then H is taken to be the unit matrix. |
| 21427 | |
| 21428 | Arguments |
| 21429 | ========= |
| 21430 | |
| 21431 | SIDE (input) CHARACTER*1 |
| 21432 | = 'L': form H * C |
| 21433 | = 'R': form C * H |
| 21434 | |
| 21435 | M (input) INTEGER |
| 21436 | The number of rows of the matrix C. |
| 21437 | |
| 21438 | N (input) INTEGER |
| 21439 | The number of columns of the matrix C. |
| 21440 | |
| 21441 | V (input) DOUBLE PRECISION array, dimension |
| 21442 | (1 + (M-1)*abs(INCV)) if SIDE = 'L' |
| 21443 | or (1 + (N-1)*abs(INCV)) if SIDE = 'R' |
no test coverage detected