whitespace fixes
This commit is contained in:
Axel Kohlmeyer
@ -1,13 +1,13 @@
|
||||
/* fortran/dgebd2.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
|
||||
@ -210,19 +210,19 @@ f"> */
|
||||
/* > */
|
||||
/* ===================================================================== */
|
||||
/* Subroutine */ int dgebd2_(integer *m, integer *n, doublereal *a, integer *
|
||||
lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
|
||||
taup, doublereal *work, integer *info)
|
||||
lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
|
||||
taup, doublereal *work, integer *info)
|
||||
{
|
||||
/* System generated locals */
|
||||
integer a_dim1, a_offset, i__1, i__2, i__3;
|
||||
|
||||
/* Local variables */
|
||||
integer i__;
|
||||
extern /* Subroutine */ int dlarf_(char *, integer *, integer *,
|
||||
doublereal *, integer *, doublereal *, doublereal *, integer *,
|
||||
doublereal *, ftnlen), dlarfg_(integer *, doublereal *,
|
||||
doublereal *, integer *, doublereal *), xerbla_(char *, integer *,
|
||||
ftnlen);
|
||||
extern /* Subroutine */ int dlarf_(char *, integer *, integer *,
|
||||
doublereal *, integer *, doublereal *, doublereal *, integer *,
|
||||
doublereal *, ftnlen), dlarfg_(integer *, doublereal *,
|
||||
doublereal *, integer *, doublereal *), xerbla_(char *, integer *,
|
||||
ftnlen);
|
||||
|
||||
|
||||
/* -- LAPACK computational routine -- */
|
||||
@ -261,126 +261,126 @@ f"> */
|
||||
/* Function Body */
|
||||
*info = 0;
|
||||
if (*m < 0) {
|
||||
*info = -1;
|
||||
*info = -1;
|
||||
} else if (*n < 0) {
|
||||
*info = -2;
|
||||
*info = -2;
|
||||
} else if (*lda < max(1,*m)) {
|
||||
*info = -4;
|
||||
*info = -4;
|
||||
}
|
||||
if (*info < 0) {
|
||||
i__1 = -(*info);
|
||||
xerbla_((char *)"DGEBD2", &i__1, (ftnlen)6);
|
||||
return 0;
|
||||
i__1 = -(*info);
|
||||
xerbla_((char *)"DGEBD2", &i__1, (ftnlen)6);
|
||||
return 0;
|
||||
}
|
||||
|
||||
if (*m >= *n) {
|
||||
|
||||
/* Reduce to upper bidiagonal form */
|
||||
|
||||
i__1 = *n;
|
||||
for (i__ = 1; i__ <= i__1; ++i__) {
|
||||
i__1 = *n;
|
||||
for (i__ = 1; i__ <= i__1; ++i__) {
|
||||
|
||||
/* Generate elementary reflector H(i) to annihilate A(i+1:m,i) */
|
||||
|
||||
i__2 = *m - i__ + 1;
|
||||
i__2 = *m - i__ + 1;
|
||||
/* Computing MIN */
|
||||
i__3 = i__ + 1;
|
||||
dlarfg_(&i__2, &a[i__ + i__ * a_dim1], &a[min(i__3,*m) + i__ *
|
||||
a_dim1], &c__1, &tauq[i__]);
|
||||
d__[i__] = a[i__ + i__ * a_dim1];
|
||||
a[i__ + i__ * a_dim1] = 1.;
|
||||
i__3 = i__ + 1;
|
||||
dlarfg_(&i__2, &a[i__ + i__ * a_dim1], &a[min(i__3,*m) + i__ *
|
||||
a_dim1], &c__1, &tauq[i__]);
|
||||
d__[i__] = a[i__ + i__ * a_dim1];
|
||||
a[i__ + i__ * a_dim1] = 1.;
|
||||
|
||||
/* Apply H(i) to A(i:m,i+1:n) from the left */
|
||||
|
||||
if (i__ < *n) {
|
||||
i__2 = *m - i__ + 1;
|
||||
i__3 = *n - i__;
|
||||
dlarf_((char *)"Left", &i__2, &i__3, &a[i__ + i__ * a_dim1], &c__1, &
|
||||
tauq[i__], &a[i__ + (i__ + 1) * a_dim1], lda, &work[1]
|
||||
, (ftnlen)4);
|
||||
}
|
||||
a[i__ + i__ * a_dim1] = d__[i__];
|
||||
if (i__ < *n) {
|
||||
i__2 = *m - i__ + 1;
|
||||
i__3 = *n - i__;
|
||||
dlarf_((char *)"Left", &i__2, &i__3, &a[i__ + i__ * a_dim1], &c__1, &
|
||||
tauq[i__], &a[i__ + (i__ + 1) * a_dim1], lda, &work[1]
|
||||
, (ftnlen)4);
|
||||
}
|
||||
a[i__ + i__ * a_dim1] = d__[i__];
|
||||
|
||||
if (i__ < *n) {
|
||||
if (i__ < *n) {
|
||||
|
||||
/* Generate elementary reflector G(i) to annihilate */
|
||||
/* A(i,i+2:n) */
|
||||
|
||||
i__2 = *n - i__;
|
||||
i__2 = *n - i__;
|
||||
/* Computing MIN */
|
||||
i__3 = i__ + 2;
|
||||
dlarfg_(&i__2, &a[i__ + (i__ + 1) * a_dim1], &a[i__ + min(
|
||||
i__3,*n) * a_dim1], lda, &taup[i__]);
|
||||
e[i__] = a[i__ + (i__ + 1) * a_dim1];
|
||||
a[i__ + (i__ + 1) * a_dim1] = 1.;
|
||||
i__3 = i__ + 2;
|
||||
dlarfg_(&i__2, &a[i__ + (i__ + 1) * a_dim1], &a[i__ + min(
|
||||
i__3,*n) * a_dim1], lda, &taup[i__]);
|
||||
e[i__] = a[i__ + (i__ + 1) * a_dim1];
|
||||
a[i__ + (i__ + 1) * a_dim1] = 1.;
|
||||
|
||||
/* Apply G(i) to A(i+1:m,i+1:n) from the right */
|
||||
|
||||
i__2 = *m - i__;
|
||||
i__3 = *n - i__;
|
||||
dlarf_((char *)"Right", &i__2, &i__3, &a[i__ + (i__ + 1) * a_dim1],
|
||||
lda, &taup[i__], &a[i__ + 1 + (i__ + 1) * a_dim1],
|
||||
lda, &work[1], (ftnlen)5);
|
||||
a[i__ + (i__ + 1) * a_dim1] = e[i__];
|
||||
} else {
|
||||
taup[i__] = 0.;
|
||||
}
|
||||
i__2 = *m - i__;
|
||||
i__3 = *n - i__;
|
||||
dlarf_((char *)"Right", &i__2, &i__3, &a[i__ + (i__ + 1) * a_dim1],
|
||||
lda, &taup[i__], &a[i__ + 1 + (i__ + 1) * a_dim1],
|
||||
lda, &work[1], (ftnlen)5);
|
||||
a[i__ + (i__ + 1) * a_dim1] = e[i__];
|
||||
} else {
|
||||
taup[i__] = 0.;
|
||||
}
|
||||
/* L10: */
|
||||
}
|
||||
}
|
||||
} else {
|
||||
|
||||
/* Reduce to lower bidiagonal form */
|
||||
|
||||
i__1 = *m;
|
||||
for (i__ = 1; i__ <= i__1; ++i__) {
|
||||
i__1 = *m;
|
||||
for (i__ = 1; i__ <= i__1; ++i__) {
|
||||
|
||||
/* Generate elementary reflector G(i) to annihilate A(i,i+1:n) */
|
||||
|
||||
i__2 = *n - i__ + 1;
|
||||
i__2 = *n - i__ + 1;
|
||||
/* Computing MIN */
|
||||
i__3 = i__ + 1;
|
||||
dlarfg_(&i__2, &a[i__ + i__ * a_dim1], &a[i__ + min(i__3,*n) *
|
||||
a_dim1], lda, &taup[i__]);
|
||||
d__[i__] = a[i__ + i__ * a_dim1];
|
||||
a[i__ + i__ * a_dim1] = 1.;
|
||||
i__3 = i__ + 1;
|
||||
dlarfg_(&i__2, &a[i__ + i__ * a_dim1], &a[i__ + min(i__3,*n) *
|
||||
a_dim1], lda, &taup[i__]);
|
||||
d__[i__] = a[i__ + i__ * a_dim1];
|
||||
a[i__ + i__ * a_dim1] = 1.;
|
||||
|
||||
/* Apply G(i) to A(i+1:m,i:n) from the right */
|
||||
|
||||
if (i__ < *m) {
|
||||
i__2 = *m - i__;
|
||||
i__3 = *n - i__ + 1;
|
||||
dlarf_((char *)"Right", &i__2, &i__3, &a[i__ + i__ * a_dim1], lda, &
|
||||
taup[i__], &a[i__ + 1 + i__ * a_dim1], lda, &work[1],
|
||||
(ftnlen)5);
|
||||
}
|
||||
a[i__ + i__ * a_dim1] = d__[i__];
|
||||
if (i__ < *m) {
|
||||
i__2 = *m - i__;
|
||||
i__3 = *n - i__ + 1;
|
||||
dlarf_((char *)"Right", &i__2, &i__3, &a[i__ + i__ * a_dim1], lda, &
|
||||
taup[i__], &a[i__ + 1 + i__ * a_dim1], lda, &work[1],
|
||||
(ftnlen)5);
|
||||
}
|
||||
a[i__ + i__ * a_dim1] = d__[i__];
|
||||
|
||||
if (i__ < *m) {
|
||||
if (i__ < *m) {
|
||||
|
||||
/* Generate elementary reflector H(i) to annihilate */
|
||||
/* A(i+2:m,i) */
|
||||
|
||||
i__2 = *m - i__;
|
||||
i__2 = *m - i__;
|
||||
/* Computing MIN */
|
||||
i__3 = i__ + 2;
|
||||
dlarfg_(&i__2, &a[i__ + 1 + i__ * a_dim1], &a[min(i__3,*m) +
|
||||
i__ * a_dim1], &c__1, &tauq[i__]);
|
||||
e[i__] = a[i__ + 1 + i__ * a_dim1];
|
||||
a[i__ + 1 + i__ * a_dim1] = 1.;
|
||||
i__3 = i__ + 2;
|
||||
dlarfg_(&i__2, &a[i__ + 1 + i__ * a_dim1], &a[min(i__3,*m) +
|
||||
i__ * a_dim1], &c__1, &tauq[i__]);
|
||||
e[i__] = a[i__ + 1 + i__ * a_dim1];
|
||||
a[i__ + 1 + i__ * a_dim1] = 1.;
|
||||
|
||||
/* Apply H(i) to A(i+1:m,i+1:n) from the left */
|
||||
|
||||
i__2 = *m - i__;
|
||||
i__3 = *n - i__;
|
||||
dlarf_((char *)"Left", &i__2, &i__3, &a[i__ + 1 + i__ * a_dim1], &
|
||||
c__1, &tauq[i__], &a[i__ + 1 + (i__ + 1) * a_dim1],
|
||||
lda, &work[1], (ftnlen)4);
|
||||
a[i__ + 1 + i__ * a_dim1] = e[i__];
|
||||
} else {
|
||||
tauq[i__] = 0.;
|
||||
}
|
||||
i__2 = *m - i__;
|
||||
i__3 = *n - i__;
|
||||
dlarf_((char *)"Left", &i__2, &i__3, &a[i__ + 1 + i__ * a_dim1], &
|
||||
c__1, &tauq[i__], &a[i__ + 1 + (i__ + 1) * a_dim1],
|
||||
lda, &work[1], (ftnlen)4);
|
||||
a[i__ + 1 + i__ * a_dim1] = e[i__];
|
||||
} else {
|
||||
tauq[i__] = 0.;
|
||||
}
|
||||
/* L20: */
|
||||
}
|
||||
}
|
||||
}
|
||||
return 0;
|
||||
|
||||
@ -389,5 +389,5 @@ f"> */
|
||||
} /* dgebd2_ */
|
||||
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
}
|
||||
#endif
|
||||
|
||||
Reference in New Issue
Block a user