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;
Treal template_blas_sqrt(Treal x)
int integer
Definition template_blas_common.h:40
#define absMACRO(x)
Definition template_blas_common.h:47
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