Subroutine */
| 28817 | } /* zunml2_ */ |
| 28818 | |
| 28819 | /* Subroutine */ int zunmlq_(char *side, char *trans, integer *m, integer *n, |
| 28820 | integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, |
| 28821 | doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, |
| 28822 | integer *info) |
| 28823 | { |
| 28824 | /* System generated locals */ |
| 28825 | address a__1[2]; |
| 28826 | integer a_dim1, a_offset, c_dim1, c_offset, i__1, i__2, i__3[2], i__4, |
| 28827 | i__5; |
| 28828 | char ch__1[2]; |
| 28829 | |
| 28830 | /* Local variables */ |
| 28831 | static integer i__; |
| 28832 | static doublecomplex t[4160] /* was [65][64] */; |
| 28833 | static integer i1, i2, i3, ib, ic, jc, nb, mi, ni, nq, nw, iws; |
| 28834 | static logical left; |
| 28835 | extern logical lsame_(char *, char *); |
| 28836 | static integer nbmin, iinfo; |
| 28837 | extern /* Subroutine */ int zunml2_(char *, char *, integer *, integer *, |
| 28838 | integer *, doublecomplex *, integer *, doublecomplex *, |
| 28839 | doublecomplex *, integer *, doublecomplex *, integer *), xerbla_(char *, integer *); |
| 28840 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 28841 | integer *, integer *, ftnlen, ftnlen); |
| 28842 | extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, |
| 28843 | integer *, integer *, integer *, doublecomplex *, integer *, |
| 28844 | doublecomplex *, integer *, doublecomplex *, integer *, |
| 28845 | doublecomplex *, integer *); |
| 28846 | static logical notran; |
| 28847 | static integer ldwork; |
| 28848 | extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, |
| 28849 | doublecomplex *, integer *, doublecomplex *, doublecomplex *, |
| 28850 | integer *); |
| 28851 | static char transt[1]; |
| 28852 | static integer lwkopt; |
| 28853 | static logical lquery; |
| 28854 | |
| 28855 | |
| 28856 | /* |
| 28857 | -- LAPACK routine (version 3.2) -- |
| 28858 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 28859 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 28860 | November 2006 |
| 28861 | |
| 28862 | |
| 28863 | Purpose |
| 28864 | ======= |
| 28865 | |
| 28866 | ZUNMLQ overwrites the general complex M-by-N matrix C with |
| 28867 | |
| 28868 | SIDE = 'L' SIDE = 'R' |
| 28869 | TRANS = 'N': Q * C C * Q |
| 28870 | TRANS = 'C': Q**H * C C * Q**H |
| 28871 | |
| 28872 | where Q is a complex unitary matrix defined as the product of k |
| 28873 | elementary reflectors |
| 28874 | |
| 28875 | Q = H(k)' . . . H(2)' H(1)' |
| 28876 |