Subroutine */
| 21551 | } /* dlarf_ */ |
| 21552 | |
| 21553 | /* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char * |
| 21554 | storev, integer *m, integer *n, integer *k, doublereal *v, integer * |
| 21555 | ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, |
| 21556 | doublereal *work, integer *ldwork) |
| 21557 | { |
| 21558 | /* System generated locals */ |
| 21559 | integer c_dim1, c_offset, t_dim1, t_offset, v_dim1, v_offset, work_dim1, |
| 21560 | work_offset, i__1, i__2; |
| 21561 | |
| 21562 | /* Local variables */ |
| 21563 | static integer i__, j; |
| 21564 | extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, |
| 21565 | integer *, doublereal *, doublereal *, integer *, doublereal *, |
| 21566 | integer *, doublereal *, doublereal *, integer *); |
| 21567 | extern logical lsame_(char *, char *); |
| 21568 | static integer lastc; |
| 21569 | extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, |
| 21570 | doublereal *, integer *), dtrmm_(char *, char *, char *, char *, |
| 21571 | integer *, integer *, doublereal *, doublereal *, integer *, |
| 21572 | doublereal *, integer *); |
| 21573 | static integer lastv; |
| 21574 | extern integer iladlc_(integer *, integer *, doublereal *, integer *), |
| 21575 | iladlr_(integer *, integer *, doublereal *, integer *); |
| 21576 | static char transt[1]; |
| 21577 | |
| 21578 | |
| 21579 | /* |
| 21580 | -- LAPACK auxiliary routine (version 3.2) -- |
| 21581 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 21582 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 21583 | November 2006 |
| 21584 | |
| 21585 | |
| 21586 | Purpose |
| 21587 | ======= |
| 21588 | |
| 21589 | DLARFB applies a real block reflector H or its transpose H' to a |
| 21590 | real m by n matrix C, from either the left or the right. |
| 21591 | |
| 21592 | Arguments |
| 21593 | ========= |
| 21594 | |
| 21595 | SIDE (input) CHARACTER*1 |
| 21596 | = 'L': apply H or H' from the Left |
| 21597 | = 'R': apply H or H' from the Right |
| 21598 | |
| 21599 | TRANS (input) CHARACTER*1 |
| 21600 | = 'N': apply H (No transpose) |
| 21601 | = 'T': apply H' (Transpose) |
| 21602 | |
| 21603 | DIRECT (input) CHARACTER*1 |
| 21604 | Indicates how H is formed from a product of elementary |
| 21605 | reflectors |
| 21606 | = 'F': H = H(1) H(2) . . . H(k) (Forward) |
| 21607 | = 'B': H = H(k) . . . H(2) H(1) (Backward) |
| 21608 | |
| 21609 | STOREV (input) CHARACTER*1 |
| 21610 | Indicates how the vectors which define the elementary |
no test coverage detected