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;