35 #ifndef TEMPLATE_LAPACK_LANEG_HEADER 36 #define TEMPLATE_LAPACK_LANEG_HEADER 44 sigma, Treal *pivmin,
integer *r__)
47 integer ret_val, i__1, i__2, i__3, i__4;
55 Treal bsav, gamma, dplus;
149 for (bj = 1; bj <= i__1; bj += 128) {
153 i__3 = bj + 127, i__4 = *r__ - 1;
155 for (j = bj; j <= i__2; ++j) {
161 t = tmp * lld[j] - *sigma;
173 i__3 = bj + 127, i__4 = *r__ - 1;
175 for (j = bj; j <= i__2; ++j) {
184 t = tmp * lld[j] - *sigma;
193 p = d__[*n] - *sigma;
195 for (bj = *n - 1; bj >= i__1; bj += -128) {
201 for (j = bj; j >= i__2; --j) {
207 p = tmp * d__[j] - *sigma;
219 for (j = bj; j >= i__2; --j) {
228 p = tmp * d__[j] - *sigma;
238 gamma = t + *sigma + p;
logical template_lapack_isnan(Treal *din)
Definition: template_lapack_isnan.h:43
int integer
Definition: template_blas_common.h:38
#define maxMACRO(a, b)
Definition: template_blas_common.h:43
int template_lapack_laneg(integer *n, Treal *d__, Treal *lld, Treal *sigma, Treal *pivmin, integer *r__)
Definition: template_lapack_laneg.h:43
#define minMACRO(a, b)
Definition: template_blas_common.h:44
bool logical
Definition: template_blas_common.h:39