Subroutine */
| 26952 | } /* cungl2_ */ |
| 26953 | |
| 26954 | /* Subroutine */ int cunglq_(integer *m, integer *n, integer *k, complex *a, |
| 26955 | integer *lda, complex *tau, complex *work, integer *lwork, integer * |
| 26956 | info) |
| 26957 | { |
| 26958 | /* System generated locals */ |
| 26959 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4; |
| 26960 | |
| 26961 | /* Local variables */ |
| 26962 | static integer i__, j, l, ib, nb, ki, kk, nx, iws, nbmin, iinfo; |
| 26963 | extern /* Subroutine */ int cungl2_(integer *, integer *, integer *, |
| 26964 | complex *, integer *, complex *, complex *, integer *), clarfb_( |
| 26965 | char *, char *, char *, char *, integer *, integer *, integer *, |
| 26966 | complex *, integer *, complex *, integer *, complex *, integer *, |
| 26967 | complex *, integer *), clarft_( |
| 26968 | char *, char *, integer *, integer *, complex *, integer *, |
| 26969 | complex *, complex *, integer *), xerbla_(char *, |
| 26970 | integer *); |
| 26971 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 26972 | integer *, integer *, ftnlen, ftnlen); |
| 26973 | static integer ldwork, lwkopt; |
| 26974 | static logical lquery; |
| 26975 | |
| 26976 | |
| 26977 | /* |
| 26978 | -- LAPACK routine (version 3.2) -- |
| 26979 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 26980 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 26981 | November 2006 |
| 26982 | |
| 26983 | |
| 26984 | Purpose |
| 26985 | ======= |
| 26986 | |
| 26987 | CUNGLQ generates an M-by-N complex matrix Q with orthonormal rows, |
| 26988 | which is defined as the first M rows of a product of K elementary |
| 26989 | reflectors of order N |
| 26990 | |
| 26991 | Q = H(k)' . . . H(2)' H(1)' |
| 26992 | |
| 26993 | as returned by CGELQF. |
| 26994 | |
| 26995 | Arguments |
| 26996 | ========= |
| 26997 | |
| 26998 | M (input) INTEGER |
| 26999 | The number of rows of the matrix Q. M >= 0. |
| 27000 | |
| 27001 | N (input) INTEGER |
| 27002 | The number of columns of the matrix Q. N >= M. |
| 27003 | |
| 27004 | K (input) INTEGER |
| 27005 | The number of elementary reflectors whose product defines the |
| 27006 | matrix Q. M >= K >= 0. |
| 27007 | |
| 27008 | A (input/output) COMPLEX array, dimension (LDA,N) |
| 27009 | On entry, the i-th row must contain the vector which defines |
| 27010 | the elementary reflector H(i), for i = 1,2,...,k, as returned |
| 27011 | by CGELQF in the first k rows of its array argument A. |