35 #ifndef TEMPLATE_LAPACK_GEQR2_HEADER
36 #define TEMPLATE_LAPACK_GEQR2_HEADER
41 lda, Treal *tau, Treal *work,
integer *info)
110 integer a_dim1, a_offset, i__1, i__2, i__3;
114 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1]
118 a_offset = 1 + a_dim1 * 1;
141 for (i__ = 1; i__ <= i__1; ++i__) {
154 aii =
a_ref(i__, i__);
155 a_ref(i__, i__) = 1.;
159 a_ref(i__, i__ + 1), lda, &work[1]);
160 a_ref(i__, i__) = aii;