Go to the documentation of this file.
37 #ifndef TEMPLATE_LAPACK_GEQRF_HEADER
38 #define TEMPLATE_LAPACK_GEQRF_HEADER
127 integer a_dim1, a_offset, i__1, i__2, i__3, i__4;
135 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1]
139 a_offset = 1 + a_dim1 * 1;
149 work[1] = (Treal) lwkopt;
150 lquery = *lwork == -1;
157 }
else if (*lwork <
maxMACRO(1,*n) && ! lquery) {
179 if (nb > 1 && nb < k) {
198 nb = *lwork / ldwork;
207 if (nb >= nbmin && nb < k && nx < k) {
213 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
224 if (i__ + ib <= *n) {
231 lda, &tau[i__], &work[1], &ldwork);
236 i__4 = *n - i__ - ib + 1;
238 i__4, &ib, &
a_ref(i__, i__), lda, &work[1], &ldwork, &
239 a_ref(i__, i__ + ib), lda, &work[ib + 1], &ldwork);
256 work[1] = (Treal) iws;
int ftnlen
Definition: template_blas_common.h:42
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
int template_lapack_geqrf(const integer *m, const integer *n, Treal *a, const integer *lda, Treal *tau, Treal *work, const integer *lwork, integer *info)
Definition: template_lapack_geqrf.h:42
#define minMACRO(a, b)
Definition: template_blas_common.h:46
bool logical
Definition: template_blas_common.h:41
int template_blas_erbla(const char *srname, integer *info)
Definition: template_blas_common.cc:146
int integer
Definition: template_blas_common.h:40
int template_lapack_larft(const char *direct, const char *storev, const integer *n, const integer *k, Treal *v, const integer *ldv, const Treal *tau, Treal *t, const integer *ldt)
Definition: template_lapack_larft.h:42
int template_lapack_geqr2(const integer *m, const integer *n, Treal *a, const integer *lda, Treal *tau, Treal *work, integer *info)
Definition: template_lapack_geqr2.h:42
#define maxMACRO(a, b)
Definition: template_blas_common.h:45
int template_lapack_larfb(const char *side, const char *trans, const char *direct, const char *storev, const integer *m, const integer *n, const integer *k, const Treal *v, const integer *ldv, const Treal *t, const integer *ldt, Treal *c__, const integer *ldc, Treal *work, const integer *ldwork)
Definition: template_lapack_larfb.h:42