179 integer a_dim1, a_offset, c_dim1, c_offset, i__2;
185 integer i1, i2, nb, mi, nh, ni, nq, nw;
187 extern logical lsame_(
char *,
char *);
190 int xerbla_(
char *,
integer *);
195 int sormqr_fla(
char *,
char *,
integer *,
integer *,
integer *,
real *,
integer *,
real *,
real *,
integer *,
real *,
integer *,
integer *);
217 a_offset = 1 + a_dim1;
221 c_offset = 1 + c_dim1;
227 left = lsame_(side,
"L");
228 lquery = *lwork == -1;
240 if (! left && ! lsame_(side,
"R"))
244 else if (! lsame_(trans,
"N") && ! lsame_(trans,
"T"))
256 else if (*ilo < 1 || *ilo > max(1,nq))
260 else if (*ihi < min(*ilo,nq) || *ihi > nq)
264 else if (*lda < max(1,nq))
268 else if (*ldc < max(1,*m))
272 else if (*lwork < max(1,nw) && ! lquery)
280 nb = ilaenv_(&c__1,
"SORMQR", ch__1, &nh, n, &nh, &c_n1);
284 nb = ilaenv_(&c__1,
"SORMQR", ch__1, m, &nh, &nh, &c_n1);
286 lwkopt = max(1,nw) * nb;
287 work[1] = (
real) lwkopt;
292 xerbla_(
"SORMHR", &i__2);
300 if (*m == 0 || *n == 0 || nh == 0)
319 sormqr_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);
320 work[1] = (
real) lwkopt;
float real
Definition: FLA_f2c.h:30
int logical
Definition: FLA_f2c.h:36
int integer
Definition: FLA_f2c.h:25
int sormqr_fla(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info)
Definition: sormqr.c:169