Subroutine */
| 21473 | } /* slarf_ */ |
| 21474 | |
| 21475 | /* Subroutine */ int slarfb_(char *side, char *trans, char *direct, char * |
| 21476 | storev, integer *m, integer *n, integer *k, real *v, integer *ldv, |
| 21477 | real *t, integer *ldt, real *c__, integer *ldc, real *work, integer * |
| 21478 | ldwork) |
| 21479 | { |
| 21480 | /* System generated locals */ |
| 21481 | integer c_dim1, c_offset, t_dim1, t_offset, v_dim1, v_offset, work_dim1, |
| 21482 | work_offset, i__1, i__2; |
| 21483 | |
| 21484 | /* Local variables */ |
| 21485 | static integer i__, j; |
| 21486 | extern logical lsame_(char *, char *); |
| 21487 | static integer lastc; |
| 21488 | extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, |
| 21489 | integer *, real *, real *, integer *, real *, integer *, real *, |
| 21490 | real *, integer *); |
| 21491 | static integer lastv; |
| 21492 | extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, |
| 21493 | integer *), strmm_(char *, char *, char *, char *, integer *, |
| 21494 | integer *, real *, real *, integer *, real *, integer *); |
| 21495 | extern integer ilaslc_(integer *, integer *, real *, integer *), ilaslr_( |
| 21496 | integer *, integer *, real *, integer *); |
| 21497 | static char transt[1]; |
| 21498 | |
| 21499 | |
| 21500 | /* |
| 21501 | -- LAPACK auxiliary routine (version 3.2) -- |
| 21502 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 21503 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 21504 | November 2006 |
| 21505 | |
| 21506 | |
| 21507 | Purpose |
| 21508 | ======= |
| 21509 | |
| 21510 | SLARFB applies a real block reflector H or its transpose H' to a |
| 21511 | real m by n matrix C, from either the left or the right. |
| 21512 | |
| 21513 | Arguments |
| 21514 | ========= |
| 21515 | |
| 21516 | SIDE (input) CHARACTER*1 |
| 21517 | = 'L': apply H or H' from the Left |
| 21518 | = 'R': apply H or H' from the Right |
| 21519 | |
| 21520 | TRANS (input) CHARACTER*1 |
| 21521 | = 'N': apply H (No transpose) |
| 21522 | = 'T': apply H' (Transpose) |
| 21523 | |
| 21524 | DIRECT (input) CHARACTER*1 |
| 21525 | Indicates how H is formed from a product of elementary |
| 21526 | reflectors |
| 21527 | = 'F': H = H(1) H(2) . . . H(k) (Forward) |
| 21528 | = 'B': H = H(k) . . . H(2) H(1) (Backward) |
| 21529 | |
| 21530 | STOREV (input) CHARACTER*1 |
| 21531 | Indicates how the vectors which define the elementary |
| 21532 | reflectors are stored: |
no test coverage detected