37 #ifndef TEMPLATE_LAPACK_LASRT_HEADER
38 #define TEMPLATE_LAPACK_LASRT_HEADER
91 Treal dmnmx, d1, d2, d3;
95 #define stack_ref(a_1,a_2) stack[(a_2)*2 + a_1 - 3]
131 if (endd - start <= 20 && endd - start > 0) {
140 for (i__ = start + 1; i__ <= i__1; ++i__) {
142 for (j = i__; j >= i__2; --j) {
143 if (d__[j] > d__[j - 1]) {
161 for (i__ = start + 1; i__ <= i__1; ++i__) {
163 for (j = i__; j >= i__2; --j) {
164 if (d__[j] < d__[j - 1]) {
179 }
else if (endd - start > 20) {
187 i__ = (start + endd) / 2;
192 }
else if (d3 < d2) {
200 }
else if (d3 < d1) {
216 if (d__[j] < dmnmx) {
221 if (d__[i__] > dmnmx) {
230 if (j - start > endd - j - 1) {
254 if (d__[j] > dmnmx) {
259 if (d__[i__] < dmnmx) {
268 if (j - start > endd - j - 1) {