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