35 #ifndef TEMPLATE_LAPACK_LARRR_HEADER
36 #define TEMPLATE_LAPACK_LARRR_HEADER
49 Treal eps, tmp, tmp2, rmin;
52 Treal smlnum, offdig2;
122 smlnum = safmin / eps;
151 for (i__ = 2; i__ <= i__1; ++i__) {
159 offdig2 = (d__1 = e[i__ - 1],
absMACRO(d__1)) / (tmp * tmp2);
160 if (offdig + offdig2 >= .999) {