35 #ifndef TEMPLATE_LAPACK_LARRA_HEADER
36 #define TEMPLATE_LAPACK_LARRA_HEADER
40 Treal *e2, Treal *spltol, Treal *tnrm,
integer *nsplit,
147 for (i__ = 1; i__ <= i__1; ++i__) {
148 eabs = (d__1 = e[i__],
absMACRO(d__1));
152 isplit[*nsplit] = i__;
160 for (i__ = 1; i__ <= i__1; ++i__) {
161 eabs = (d__1 = e[i__],
absMACRO(d__1));
163 d__2 = d__[i__ + 1],
absMACRO(d__2)))) {
166 isplit[*nsplit] = i__;
172 isplit[*nsplit] = *n;