37 #ifndef TEMPLATE_LAPACK_LARRR_HEADER
38 #define TEMPLATE_LAPACK_LARRR_HEADER
51 Treal eps, tmp, tmp2, rmin;
54 Treal smlnum, offdig2;
124 smlnum = safmin / eps;
153 for (i__ = 2; i__ <= i__1; ++i__) {
161 offdig2 = (d__1 = e[i__ - 1],
absMACRO(d__1)) / (tmp * tmp2);
162 if (offdig + offdig2 >= .999) {