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) {
#define absMACRO(x)
Definition: template_blas_common.h:45
int integer
Definition: template_blas_common.h:38
int template_lapack_larrr(const integer *n, Treal *d__, Treal *e, integer *info)
Definition: template_lapack_larrr.h:39
Treal template_lapack_lamch(const char *cmach, Treal dummyReal)
Definition: template_lapack_lamch.h:199
bool logical
Definition: template_blas_common.h:39
#define TRUE_
Definition: template_lapack_common.h:40
#define FALSE_
Definition: template_lapack_common.h:41
Treal template_blas_sqrt(Treal x)