35 #ifndef TEMPLATE_LAPACK_LANEG_HEADER
36 #define TEMPLATE_LAPACK_LANEG_HEADER
40 sigma, Treal *pivmin,
integer *r__)
43 integer ret_val, i__1, i__2, i__3, i__4;
51 Treal bsav, gamma, dplus;
145 for (bj = 1; bj <= i__1; bj += 128) {
149 i__3 = bj + 127, i__4 = *r__ - 1;
151 for (j = bj; j <= i__2; ++j) {
157 t = tmp * lld[j] - *sigma;
169 i__3 = bj + 127, i__4 = *r__ - 1;
171 for (j = bj; j <= i__2; ++j) {
180 t = tmp * lld[j] - *sigma;
189 p = d__[*n] - *sigma;
191 for (bj = *n - 1; bj >= i__1; bj += -128) {
197 for (j = bj; j >= i__2; --j) {
203 p = tmp * d__[j] - *sigma;
215 for (j = bj; j >= i__2; --j) {
224 p = tmp * d__[j] - *sigma;
234 gamma = t + *sigma + p;