37 #ifndef TEMPLATE_LAPACK_GEQR2_HEADER 38 #define TEMPLATE_LAPACK_GEQR2_HEADER 43 lda, Treal *tau, Treal *work,
integer *info)
112 integer a_dim1, a_offset, i__1, i__2, i__3;
116 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1] 120 a_offset = 1 + a_dim1 * 1;
143 for (i__ = 1; i__ <= i__1; ++i__) {
156 aii =
a_ref(i__, i__);
157 a_ref(i__, i__) = 1.;
161 a_ref(i__, i__ + 1), lda, &work[1]);
162 a_ref(i__, i__) = aii;
int integer
Definition: template_blas_common.h:40
#define maxMACRO(a, b)
Definition: template_blas_common.h:45
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 minMACRO(a, b)
Definition: template_blas_common.h:46
int template_blas_erbla(const char *srname, integer *info)
Definition: template_blas_common.cc:146
int template_lapack_larfg(const integer *n, Treal *alpha, Treal *x, const integer *incx, Treal *tau)
Definition: template_lapack_larfg.h:43
int template_lapack_larf(const char *side, const integer *m, const integer *n, const Treal *v, const integer *incv, const Treal *tau, Treal *c__, const integer *ldc, Treal *work)
Definition: template_lapack_larf.h:42