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