37 #ifndef TEMPLATE_LAPACK_LARRA_HEADER 38 #define TEMPLATE_LAPACK_LARRA_HEADER 42 Treal *e2, Treal *spltol, Treal *tnrm,
integer *nsplit,
149 for (i__ = 1; i__ <= i__1; ++i__) {
150 eabs = (d__1 = e[i__],
absMACRO(d__1));
154 isplit[*nsplit] = i__;
162 for (i__ = 1; i__ <= i__1; ++i__) {
163 eabs = (d__1 = e[i__],
absMACRO(d__1));
165 d__2 = d__[i__ + 1],
absMACRO(d__2)))) {
168 isplit[*nsplit] = i__;
174 isplit[*nsplit] = *n;
#define absMACRO(x)
Definition: template_blas_common.h:47
int integer
Definition: template_blas_common.h:40
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:41
Treal template_blas_sqrt(Treal x)