173 integer a_dim1, a_offset, c_dim1, c_offset, i__2, i__3;
179 integer i1, i2, nb, mi, ni, nq, nw;
181 extern logical lsame_(
char *,
char *);
185 int xerbla_(
char *,
integer *);
188 int cunmql_(
char *,
char *,
integer *,
integer *,
integer *,
complex *,
integer *,
complex *,
complex *,
integer *,
complex *,
integer *,
integer *),
cunmqr_fla(
char *,
char *,
integer *,
integer *,
integer *,
complex *,
integer *,
complex *,
complex *,
integer *,
complex *,
integer *,
integer *);
212 a_offset = 1 + a_dim1;
216 c_offset = 1 + c_dim1;
221 left = lsame_(side,
"L");
222 upper = lsame_(uplo,
"U");
223 lquery = *lwork == -1;
235 if (! left && ! lsame_(side,
"R"))
239 else if (! upper && ! lsame_(uplo,
"L"))
243 else if (! lsame_(trans,
"N") && ! lsame_(trans,
"C"))
255 else if (*lda < max(1,nq))
259 else if (*ldc < max(1,*m))
263 else if (*lwork < max(1,nw) && ! lquery)
275 nb = ilaenv_(&c__1,
"CUNMQL", ch__1, &i__2, n, &i__3, &c_n1);
281 nb = ilaenv_(&c__1,
"CUNMQL", ch__1, m, &i__2, &i__3, &c_n1);
290 nb = ilaenv_(&c__1,
"CUNMQR", ch__1, &i__2, n, &i__3, &c_n1);
296 nb = ilaenv_(&c__1,
"CUNMQR", ch__1, m, &i__2, &i__3, &c_n1);
299 lwkopt = max(1,nw) * nb;
300 work[1].
r = (
real) lwkopt;
306 xerbla_(
"CUNMTR", &i__2);
314 if (*m == 0 || *n == 0 || nq == 1)
334 cunmql_(side, trans, &mi, &ni, &i__2, &a[(a_dim1 << 1) + 1], lda, & tau[1], &c__[c_offset], ldc, &work[1], lwork, &iinfo);
350 cunmqr_fla(side, trans, &mi, &ni, &i__2, &a[a_dim1 + 2], lda, &tau[1], & c__[i1 + i2 * c_dim1], ldc, &work[1], lwork, &iinfo);
352 work[1].
r = (
real) lwkopt;
real i
Definition: FLA_f2c.h:32
float real
Definition: FLA_f2c.h:30
int cunmqr_fla(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info)
Definition: cunmqr.c:169
int logical
Definition: FLA_f2c.h:36
int integer
Definition: FLA_f2c.h:25
real r
Definition: FLA_f2c.h:32