35 #ifndef TEMPLATE_LAPACK_LARRA_HEADER 36 #define TEMPLATE_LAPACK_LARRA_HEADER 40 Treal *e2, Treal *spltol, Treal *tnrm,
integer *nsplit,
147 for (i__ = 1; i__ <= i__1; ++i__) {
148 eabs = (d__1 = e[i__],
absMACRO(d__1));
152 isplit[*nsplit] = i__;
160 for (i__ = 1; i__ <= i__1; ++i__) {
161 eabs = (d__1 = e[i__],
absMACRO(d__1));
163 d__2 = d__[i__ + 1],
absMACRO(d__2)))) {
166 isplit[*nsplit] = i__;
172 isplit[*nsplit] = *n;
#define absMACRO(x)
Definition: template_blas_common.h:45
int integer
Definition: template_blas_common.h:38
int template_lapack_larra(const integer *n, Treal *d__, Treal *e, Treal *e2, Treal *spltol, Treal *tnrm, integer *nsplit, integer *isplit, integer *info)
Definition: template_lapack_larra.h:39
Treal template_blas_sqrt(Treal x)