whitespace fixes
This commit is contained in:
Axel Kohlmeyer
@ -1,13 +1,13 @@
|
||||
/* fortran/dlasrt.f -- translated by f2c (version 20200916).
|
||||
You must link the resulting object file with libf2c:
|
||||
on Microsoft Windows system, link with libf2c.lib;
|
||||
on Linux or Unix systems, link with .../path/to/libf2c.a -lm
|
||||
or, if you install libf2c.a in a standard place, with -lf2c -lm
|
||||
-- in that order, at the end of the command line, as in
|
||||
cc *.o -lf2c -lm
|
||||
Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
|
||||
on Microsoft Windows system, link with libf2c.lib;
|
||||
on Linux or Unix systems, link with .../path/to/libf2c.a -lm
|
||||
or, if you install libf2c.a in a standard place, with -lf2c -lm
|
||||
-- in that order, at the end of the command line, as in
|
||||
cc *.o -lf2c -lm
|
||||
Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
|
||||
|
||||
http://www.netlib.org/f2c/libf2c.zip
|
||||
http://www.netlib.org/f2c/libf2c.zip
|
||||
*/
|
||||
|
||||
#ifdef __cplusplus
|
||||
@ -105,7 +105,7 @@ f"> */
|
||||
|
||||
/* ===================================================================== */
|
||||
/* Subroutine */ int dlasrt_(char *id, integer *n, doublereal *d__, integer *
|
||||
info, ftnlen id_len)
|
||||
info, ftnlen id_len)
|
||||
{
|
||||
/* System generated locals */
|
||||
integer i__1, i__2;
|
||||
@ -117,7 +117,7 @@ f"> */
|
||||
doublereal tmp;
|
||||
integer endd;
|
||||
extern logical lsame_(char *, char *, ftnlen, ftnlen);
|
||||
integer stack[64] /* was [2][32] */;
|
||||
integer stack[64] /* was [2][32] */;
|
||||
doublereal dmnmx;
|
||||
integer start;
|
||||
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
|
||||
@ -156,25 +156,25 @@ f"> */
|
||||
*info = 0;
|
||||
dir = -1;
|
||||
if (lsame_(id, (char *)"D", (ftnlen)1, (ftnlen)1)) {
|
||||
dir = 0;
|
||||
dir = 0;
|
||||
} else if (lsame_(id, (char *)"I", (ftnlen)1, (ftnlen)1)) {
|
||||
dir = 1;
|
||||
dir = 1;
|
||||
}
|
||||
if (dir == -1) {
|
||||
*info = -1;
|
||||
*info = -1;
|
||||
} else if (*n < 0) {
|
||||
*info = -2;
|
||||
*info = -2;
|
||||
}
|
||||
if (*info != 0) {
|
||||
i__1 = -(*info);
|
||||
xerbla_((char *)"DLASRT", &i__1, (ftnlen)6);
|
||||
return 0;
|
||||
i__1 = -(*info);
|
||||
xerbla_((char *)"DLASRT", &i__1, (ftnlen)6);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* Quick return if possible */
|
||||
|
||||
if (*n <= 1) {
|
||||
return 0;
|
||||
return 0;
|
||||
}
|
||||
|
||||
stkpnt = 1;
|
||||
@ -188,49 +188,49 @@ L10:
|
||||
|
||||
/* Do Insertion sort on D( START:ENDD ) */
|
||||
|
||||
if (dir == 0) {
|
||||
if (dir == 0) {
|
||||
|
||||
/* Sort into decreasing order */
|
||||
|
||||
i__1 = endd;
|
||||
for (i__ = start + 1; i__ <= i__1; ++i__) {
|
||||
i__2 = start + 1;
|
||||
for (j = i__; j >= i__2; --j) {
|
||||
if (d__[j] > d__[j - 1]) {
|
||||
dmnmx = d__[j];
|
||||
d__[j] = d__[j - 1];
|
||||
d__[j - 1] = dmnmx;
|
||||
} else {
|
||||
goto L30;
|
||||
}
|
||||
i__1 = endd;
|
||||
for (i__ = start + 1; i__ <= i__1; ++i__) {
|
||||
i__2 = start + 1;
|
||||
for (j = i__; j >= i__2; --j) {
|
||||
if (d__[j] > d__[j - 1]) {
|
||||
dmnmx = d__[j];
|
||||
d__[j] = d__[j - 1];
|
||||
d__[j - 1] = dmnmx;
|
||||
} else {
|
||||
goto L30;
|
||||
}
|
||||
/* L20: */
|
||||
}
|
||||
}
|
||||
L30:
|
||||
;
|
||||
}
|
||||
;
|
||||
}
|
||||
|
||||
} else {
|
||||
} else {
|
||||
|
||||
/* Sort into increasing order */
|
||||
|
||||
i__1 = endd;
|
||||
for (i__ = start + 1; i__ <= i__1; ++i__) {
|
||||
i__2 = start + 1;
|
||||
for (j = i__; j >= i__2; --j) {
|
||||
if (d__[j] < d__[j - 1]) {
|
||||
dmnmx = d__[j];
|
||||
d__[j] = d__[j - 1];
|
||||
d__[j - 1] = dmnmx;
|
||||
} else {
|
||||
goto L50;
|
||||
}
|
||||
i__1 = endd;
|
||||
for (i__ = start + 1; i__ <= i__1; ++i__) {
|
||||
i__2 = start + 1;
|
||||
for (j = i__; j >= i__2; --j) {
|
||||
if (d__[j] < d__[j - 1]) {
|
||||
dmnmx = d__[j];
|
||||
d__[j] = d__[j - 1];
|
||||
d__[j - 1] = dmnmx;
|
||||
} else {
|
||||
goto L50;
|
||||
}
|
||||
/* L40: */
|
||||
}
|
||||
}
|
||||
L50:
|
||||
;
|
||||
}
|
||||
;
|
||||
}
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
} else if (endd - start > 20) {
|
||||
|
||||
@ -238,108 +238,108 @@ L50:
|
||||
|
||||
/* Choose partition entry as median of 3 */
|
||||
|
||||
d1 = d__[start];
|
||||
d2 = d__[endd];
|
||||
i__ = (start + endd) / 2;
|
||||
d3 = d__[i__];
|
||||
if (d1 < d2) {
|
||||
if (d3 < d1) {
|
||||
dmnmx = d1;
|
||||
} else if (d3 < d2) {
|
||||
dmnmx = d3;
|
||||
} else {
|
||||
dmnmx = d2;
|
||||
}
|
||||
} else {
|
||||
if (d3 < d2) {
|
||||
dmnmx = d2;
|
||||
} else if (d3 < d1) {
|
||||
dmnmx = d3;
|
||||
} else {
|
||||
dmnmx = d1;
|
||||
}
|
||||
}
|
||||
d1 = d__[start];
|
||||
d2 = d__[endd];
|
||||
i__ = (start + endd) / 2;
|
||||
d3 = d__[i__];
|
||||
if (d1 < d2) {
|
||||
if (d3 < d1) {
|
||||
dmnmx = d1;
|
||||
} else if (d3 < d2) {
|
||||
dmnmx = d3;
|
||||
} else {
|
||||
dmnmx = d2;
|
||||
}
|
||||
} else {
|
||||
if (d3 < d2) {
|
||||
dmnmx = d2;
|
||||
} else if (d3 < d1) {
|
||||
dmnmx = d3;
|
||||
} else {
|
||||
dmnmx = d1;
|
||||
}
|
||||
}
|
||||
|
||||
if (dir == 0) {
|
||||
if (dir == 0) {
|
||||
|
||||
/* Sort into decreasing order */
|
||||
|
||||
i__ = start - 1;
|
||||
j = endd + 1;
|
||||
i__ = start - 1;
|
||||
j = endd + 1;
|
||||
L60:
|
||||
L70:
|
||||
--j;
|
||||
if (d__[j] < dmnmx) {
|
||||
goto L70;
|
||||
}
|
||||
--j;
|
||||
if (d__[j] < dmnmx) {
|
||||
goto L70;
|
||||
}
|
||||
L80:
|
||||
++i__;
|
||||
if (d__[i__] > dmnmx) {
|
||||
goto L80;
|
||||
}
|
||||
if (i__ < j) {
|
||||
tmp = d__[i__];
|
||||
d__[i__] = d__[j];
|
||||
d__[j] = tmp;
|
||||
goto L60;
|
||||
}
|
||||
if (j - start > endd - j - 1) {
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = start;
|
||||
stack[(stkpnt << 1) - 1] = j;
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = j + 1;
|
||||
stack[(stkpnt << 1) - 1] = endd;
|
||||
} else {
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = j + 1;
|
||||
stack[(stkpnt << 1) - 1] = endd;
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = start;
|
||||
stack[(stkpnt << 1) - 1] = j;
|
||||
}
|
||||
} else {
|
||||
++i__;
|
||||
if (d__[i__] > dmnmx) {
|
||||
goto L80;
|
||||
}
|
||||
if (i__ < j) {
|
||||
tmp = d__[i__];
|
||||
d__[i__] = d__[j];
|
||||
d__[j] = tmp;
|
||||
goto L60;
|
||||
}
|
||||
if (j - start > endd - j - 1) {
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = start;
|
||||
stack[(stkpnt << 1) - 1] = j;
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = j + 1;
|
||||
stack[(stkpnt << 1) - 1] = endd;
|
||||
} else {
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = j + 1;
|
||||
stack[(stkpnt << 1) - 1] = endd;
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = start;
|
||||
stack[(stkpnt << 1) - 1] = j;
|
||||
}
|
||||
} else {
|
||||
|
||||
/* Sort into increasing order */
|
||||
|
||||
i__ = start - 1;
|
||||
j = endd + 1;
|
||||
i__ = start - 1;
|
||||
j = endd + 1;
|
||||
L90:
|
||||
L100:
|
||||
--j;
|
||||
if (d__[j] > dmnmx) {
|
||||
goto L100;
|
||||
}
|
||||
--j;
|
||||
if (d__[j] > dmnmx) {
|
||||
goto L100;
|
||||
}
|
||||
L110:
|
||||
++i__;
|
||||
if (d__[i__] < dmnmx) {
|
||||
goto L110;
|
||||
}
|
||||
if (i__ < j) {
|
||||
tmp = d__[i__];
|
||||
d__[i__] = d__[j];
|
||||
d__[j] = tmp;
|
||||
goto L90;
|
||||
}
|
||||
if (j - start > endd - j - 1) {
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = start;
|
||||
stack[(stkpnt << 1) - 1] = j;
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = j + 1;
|
||||
stack[(stkpnt << 1) - 1] = endd;
|
||||
} else {
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = j + 1;
|
||||
stack[(stkpnt << 1) - 1] = endd;
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = start;
|
||||
stack[(stkpnt << 1) - 1] = j;
|
||||
}
|
||||
}
|
||||
++i__;
|
||||
if (d__[i__] < dmnmx) {
|
||||
goto L110;
|
||||
}
|
||||
if (i__ < j) {
|
||||
tmp = d__[i__];
|
||||
d__[i__] = d__[j];
|
||||
d__[j] = tmp;
|
||||
goto L90;
|
||||
}
|
||||
if (j - start > endd - j - 1) {
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = start;
|
||||
stack[(stkpnt << 1) - 1] = j;
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = j + 1;
|
||||
stack[(stkpnt << 1) - 1] = endd;
|
||||
} else {
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = j + 1;
|
||||
stack[(stkpnt << 1) - 1] = endd;
|
||||
++stkpnt;
|
||||
stack[(stkpnt << 1) - 2] = start;
|
||||
stack[(stkpnt << 1) - 1] = j;
|
||||
}
|
||||
}
|
||||
}
|
||||
if (stkpnt > 0) {
|
||||
goto L10;
|
||||
goto L10;
|
||||
}
|
||||
return 0;
|
||||
|
||||
@ -348,5 +348,5 @@ L110:
|
||||
} /* dlasrt_ */
|
||||
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
}
|
||||
#endif
|
||||
|
||||
Reference in New Issue
Block a user