123 integer a_dim1, a_offset, i__1, i__2;
127 int xerbla_(
char *,
integer *);
156 a_offset = 1 + a_dim1;
163 lquery = *lwork == -1;
168 else if (*ilo < 1 || *ilo > max(1,*n))
172 else if (*ihi < min(*ilo,*n) || *ihi > *n)
176 else if (*lda < max(1,*n))
180 else if (*lwork < max(1,nh) && ! lquery)
186 nb = ilaenv_(&c__1,
"DORGQR",
" ", &nh, &nh, &nh, &c_n1);
187 lwkopt = max(1,nh) * nb;
193 xerbla_(
"DORGHR", &i__1);
219 a[i__ + j * a_dim1] = 0.;
227 a[i__ + j * a_dim1] = a[i__ + (j - 1) * a_dim1];
235 a[i__ + j * a_dim1] = 0.;
250 a[i__ + j * a_dim1] = 0.;
253 a[j + j * a_dim1] = 1.;
266 a[i__ + j * a_dim1] = 0.;
269 a[j + j * a_dim1] = 1.;
275 dorgqr_fla(&nh, &nh, &nh, &a[*ilo + 1 + (*ilo + 1) * a_dim1], lda, &tau[* ilo], &work[1], lwork, &iinfo);
int dorgqr_fla(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
Definition: dorgqr.c:123
double doublereal
Definition: FLA_f2c.h:31
int logical
Definition: FLA_f2c.h:36
int integer
Definition: FLA_f2c.h:25