35 #ifndef TEMPLATE_LAPACK_GEQRF_HEADER
36 #define TEMPLATE_LAPACK_GEQRF_HEADER
125 integer a_dim1, a_offset, i__1, i__2, i__3, i__4;
133 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1]
137 a_offset = 1 + a_dim1 * 1;
147 work[1] = (Treal) lwkopt;
148 lquery = *lwork == -1;
155 }
else if (*lwork <
maxMACRO(1,*n) && ! lquery) {
177 if (nb > 1 && nb < k) {
196 nb = *lwork / ldwork;
205 if (nb >= nbmin && nb < k && nx < k) {
211 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
222 if (i__ + ib <= *n) {
229 lda, &tau[i__], &work[1], &ldwork);
234 i__4 = *n - i__ - ib + 1;
236 i__4, &ib, &
a_ref(i__, i__), lda, &work[1], &ldwork, &
237 a_ref(i__, i__ + ib), lda, &work[ib + 1], &ldwork);
254 work[1] = (Treal) iws;