178 integer a_dim1, a_offset, c_dim1, c_offset, i__2;
184 integer i1, i2, nb, mi, nh, ni, nq, nw;
186 extern logical lsame_(
char *,
char *);
189 int xerbla_(
char *,
integer *);
192 int dormqr_fla(
char *,
char *,
integer *,
integer *,
integer *,
doublereal *,
integer *,
doublereal *,
doublereal *,
integer *,
doublereal *,
integer *,
integer *);
216 a_offset = 1 + a_dim1;
220 c_offset = 1 + c_dim1;
226 left = lsame_(side,
"L");
227 lquery = *lwork == -1;
239 if (! left && ! lsame_(side,
"R"))
243 else if (! lsame_(trans,
"N") && ! lsame_(trans,
"T"))
255 else if (*ilo < 1 || *ilo > max(1,nq))
259 else if (*ihi < min(*ilo,nq) || *ihi > nq)
263 else if (*lda < max(1,nq))
267 else if (*ldc < max(1,*m))
271 else if (*lwork < max(1,nw) && ! lquery)
279 nb = ilaenv_(&c__1,
"DORMQR", ch__1, &nh, n, &nh, &c_n1);
283 nb = ilaenv_(&c__1,
"DORMQR", ch__1, m, &nh, &nh, &c_n1);
285 lwkopt = max(1,nw) * nb;
291 xerbla_(
"DORMHR", &i__2);
299 if (*m == 0 || *n == 0 || nh == 0)
318 dormqr_fla(side, trans, &mi, &ni, &nh, &a[*ilo + 1 + *ilo * a_dim1], lda, & tau[*ilo], &c__[i1 + i2 * c_dim1], ldc, &work[1], lwork, &iinfo);
double doublereal
Definition: FLA_f2c.h:31
int integer
Definition: FLA_f2c.h:25
int logical
Definition: FLA_f2c.h:36
int dormqr_fla(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info)
Definition: dormqr.c:168