35 #ifndef TEMPLATE_LAPACK_ORGTR_HEADER
36 #define TEMPLATE_LAPACK_ORGTR_HEADER
41 lda,
const Treal *tau, Treal *work,
const integer *lwork,
integer *info)
112 integer a_dim1, a_offset, i__1, i__2, i__3;
120 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1]
124 a_offset = 1 + a_dim1 * 1;
133 lquery = *lwork == -1;
143 i__1 = 1, i__2 = *n - 1;
144 if (*lwork <
maxMACRO(i__1,i__2) && ! lquery) {
164 i__1 = 1, i__2 = *n - 1;
166 work[1] = (Treal) lwkopt;
193 for (j = 1; j <= i__1; ++j) {
195 for (i__ = 1; i__ <= i__2; ++i__) {
203 for (i__ = 1; i__ <= i__1; ++i__) {
225 for (j = *n; j >= 2; --j) {
228 for (i__ = j + 1; i__ <= i__1; ++i__) {
236 for (i__ = 2; i__ <= i__1; ++i__) {
260 work[1] = (Treal) lwkopt;