37 #ifndef TEMPLATE_LAPACK_ORGTR_HEADER 38 #define TEMPLATE_LAPACK_ORGTR_HEADER 43 lda,
const Treal *tau, Treal *work,
const integer *lwork,
integer *info)
114 integer a_dim1, a_offset, i__1, i__2, i__3;
122 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1] 126 a_offset = 1 + a_dim1 * 1;
135 lquery = *lwork == -1;
145 i__1 = 1, i__2 = *n - 1;
146 if (*lwork <
maxMACRO(i__1,i__2) && ! lquery) {
166 i__1 = 1, i__2 = *n - 1;
168 work[1] = (Treal) lwkopt;
195 for (j = 1; j <= i__1; ++j) {
197 for (i__ = 1; i__ <= i__2; ++i__) {
205 for (i__ = 1; i__ <= i__1; ++i__) {
227 for (j = *n; j >= 2; --j) {
230 for (i__ = j + 1; i__ <= i__1; ++i__) {
238 for (i__ = 2; i__ <= i__1; ++i__) {
262 work[1] = (Treal) lwkopt;
int template_lapack_orgqr(const integer *m, const integer *n, const integer *k, Treal *a, const integer *lda, const Treal *tau, Treal *work, const integer *lwork, integer *info)
Definition: template_lapack_orgqr.h:43
int integer
Definition: template_blas_common.h:40
integer template_lapack_ilaenv(const integer *ispec, const char *name__, const char *opts, const integer *n1, const integer *n2, const integer *n3, const integer *n4, ftnlen name_len, ftnlen opts_len)
Definition: template_lapack_common.cc:281
#define maxMACRO(a, b)
Definition: template_blas_common.h:45
int template_blas_erbla(const char *srname, integer *info)
Definition: template_blas_common.cc:146
int template_lapack_orgtr(const char *uplo, const integer *n, Treal *a, const integer *lda, const Treal *tau, Treal *work, const integer *lwork, integer *info)
Definition: template_lapack_orgtr.h:42
bool logical
Definition: template_blas_common.h:41
int ftnlen
Definition: template_blas_common.h:42
logical template_blas_lsame(const char *ca, const char *cb)
Definition: template_blas_common.cc:46
int template_lapack_orgql(const integer *m, const integer *n, const integer *k, Treal *a, const integer *lda, const Treal *tau, Treal *work, const integer *lwork, integer *info)
Definition: template_lapack_orgql.h:42