35 #ifndef TEMPLATE_LAPACK_SYEV_HEADER
36 #define TEMPLATE_LAPACK_SYEV_HEADER
124 integer a_dim1, a_offset, i__1, i__2;
145 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1]
149 a_offset = 1 + a_dim1 * 1;
159 lquery = *lwork == -1;
172 i__1 = 1, i__2 = *n * 3 - 1;
173 if (*lwork <
maxMACRO(i__1,i__2) && ! lquery) {
182 i__1 = 1, i__2 = (nb + 2) * *n;
184 work[1] = (Treal) lwkopt;
223 smlnum = safmin / eps;
224 bignum = 1. / smlnum;
232 if (anrm > 0. && anrm < rmin) {
235 }
else if (anrm > rmax) {
248 indwrk = indtau + *n;
249 llwork = *lwork - indwrk + 1;
251 work[indwrk], &llwork, &iinfo);
279 work[1] = (Treal) lwkopt;