Subroutine */
| 18465 | } /* zlarf_ */ |
| 18466 | |
| 18467 | /* Subroutine */ int zlarfb_(char *side, char *trans, char *direct, char * |
| 18468 | storev, integer *m, integer *n, integer *k, doublecomplex *v, integer |
| 18469 | *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer * |
| 18470 | ldc, doublecomplex *work, integer *ldwork) |
| 18471 | { |
| 18472 | /* System generated locals */ |
| 18473 | integer c_dim1, c_offset, t_dim1, t_offset, v_dim1, v_offset, work_dim1, |
| 18474 | work_offset, i__1, i__2, i__3, i__4, i__5; |
| 18475 | doublecomplex z__1, z__2; |
| 18476 | |
| 18477 | /* Local variables */ |
| 18478 | static integer i__, j; |
| 18479 | extern logical lsame_(char *, char *); |
| 18480 | static integer lastc; |
| 18481 | extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, |
| 18482 | integer *, doublecomplex *, doublecomplex *, integer *, |
| 18483 | doublecomplex *, integer *, doublecomplex *, doublecomplex *, |
| 18484 | integer *); |
| 18485 | static integer lastv; |
| 18486 | extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, |
| 18487 | doublecomplex *, integer *), ztrmm_(char *, char *, char *, char * |
| 18488 | , integer *, integer *, doublecomplex *, doublecomplex *, integer |
| 18489 | *, doublecomplex *, integer *); |
| 18490 | extern integer ilazlc_(integer *, integer *, doublecomplex *, integer *); |
| 18491 | extern /* Subroutine */ int zlacgv_(integer *, doublecomplex *, integer *) |
| 18492 | ; |
| 18493 | extern integer ilazlr_(integer *, integer *, doublecomplex *, integer *); |
| 18494 | static char transt[1]; |
| 18495 | |
| 18496 | |
| 18497 | /* |
| 18498 | -- LAPACK auxiliary routine (version 3.2) -- |
| 18499 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 18500 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 18501 | November 2006 |
| 18502 | |
| 18503 | |
| 18504 | Purpose |
| 18505 | ======= |
| 18506 | |
| 18507 | ZLARFB applies a complex block reflector H or its transpose H' to a |
| 18508 | complex M-by-N matrix C, from either the left or the right. |
| 18509 | |
| 18510 | Arguments |
| 18511 | ========= |
| 18512 | |
| 18513 | SIDE (input) CHARACTER*1 |
| 18514 | = 'L': apply H or H' from the Left |
| 18515 | = 'R': apply H or H' from the Right |
| 18516 | |
| 18517 | TRANS (input) CHARACTER*1 |
| 18518 | = 'N': apply H (No transpose) |
| 18519 | = 'C': apply H' (Conjugate transpose) |
| 18520 | |
| 18521 | DIRECT (input) CHARACTER*1 |
| 18522 | Indicates how H is formed from a product of elementary |
| 18523 | reflectors |
| 18524 | = 'F': H = H(1) H(2) . . . H(k) (Forward) |
no test coverage detected