35 #ifndef TEMPLATE_LAPACK_LASRT_HEADER
36 #define TEMPLATE_LAPACK_LASRT_HEADER
89 Treal dmnmx, d1, d2, d3;
93 #define stack_ref(a_1,a_2) stack[(a_2)*2 + a_1 - 3]
129 if (endd - start <= 20 && endd - start > 0) {
138 for (i__ = start + 1; i__ <= i__1; ++i__) {
140 for (j = i__; j >= i__2; --j) {
141 if (d__[j] > d__[j - 1]) {
159 for (i__ = start + 1; i__ <= i__1; ++i__) {
161 for (j = i__; j >= i__2; --j) {
162 if (d__[j] < d__[j - 1]) {
177 }
else if (endd - start > 20) {
185 i__ = (start + endd) / 2;
190 }
else if (d3 < d2) {
198 }
else if (d3 < d1) {
214 if (d__[j] < dmnmx) {
219 if (d__[i__] > dmnmx) {
228 if (j - start > endd - j - 1) {
252 if (d__[j] > dmnmx) {
257 if (d__[i__] < dmnmx) {
266 if (j - start > endd - j - 1) {
int integer
Definition: template_blas_common.h:38
int template_lapack_lasrt(const char *id, const integer *n, Treal *d__, integer *info)
Definition: template_lapack_lasrt.h:40
int template_blas_erbla(const char *srname, integer *info)
Definition: template_blas_common.cc:144
logical template_blas_lsame(const char *ca, const char *cb)
Definition: template_blas_common.cc:44
#define stack_ref(a_1, a_2)