37 #ifndef TEMPLATE_LAPACK_LANEG_HEADER 38 #define TEMPLATE_LAPACK_LANEG_HEADER 46 sigma, Treal *pivmin,
integer *r__)
49 integer ret_val, i__1, i__2, i__3, i__4;
57 Treal bsav, gamma, dplus;
151 for (bj = 1; bj <= i__1; bj += 128) {
155 i__3 = bj + 127, i__4 = *r__ - 1;
157 for (j = bj; j <= i__2; ++j) {
163 t = tmp * lld[j] - *sigma;
175 i__3 = bj + 127, i__4 = *r__ - 1;
177 for (j = bj; j <= i__2; ++j) {
186 t = tmp * lld[j] - *sigma;
195 p = d__[*n] - *sigma;
197 for (bj = *n - 1; bj >= i__1; bj += -128) {
203 for (j = bj; j >= i__2; --j) {
209 p = tmp * d__[j] - *sigma;
221 for (j = bj; j >= i__2; --j) {
230 p = tmp * d__[j] - *sigma;
240 gamma = t + *sigma + p;
logical template_lapack_isnan(Treal *din)
Definition: template_lapack_isnan.h:45
int integer
Definition: template_blas_common.h:40
#define maxMACRO(a, b)
Definition: template_blas_common.h:45
int template_lapack_laneg(integer *n, Treal *d__, Treal *lld, Treal *sigma, Treal *pivmin, integer *r__)
Definition: template_lapack_laneg.h:45
#define minMACRO(a, b)
Definition: template_blas_common.h:46
bool logical
Definition: template_blas_common.h:41