whitespace fixes
This commit is contained in:
Axel Kohlmeyer
@ -1,13 +1,13 @@
|
||||
/* fortran/dorml2.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
|
||||
@ -15,7 +15,7 @@ extern "C" {
|
||||
#endif
|
||||
#include "lmp_f2c.h"
|
||||
|
||||
/* > \brief \b DORML2 multiplies a general matrix by the orthogonal matrix from a LQ factorization determined
|
||||
/* > \brief \b DORML2 multiplies a general matrix by the orthogonal matrix from a LQ factorization determined
|
||||
by sgelqf (unblocked algorithm). */
|
||||
|
||||
/* =========== DOCUMENTATION =========== */
|
||||
@ -175,10 +175,10 @@ f"> */
|
||||
/* > \ingroup doubleOTHERcomputational */
|
||||
|
||||
/* ===================================================================== */
|
||||
/* Subroutine */ int dorml2_(char *side, char *trans, integer *m, integer *n,
|
||||
integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
|
||||
c__, integer *ldc, doublereal *work, integer *info, ftnlen side_len,
|
||||
ftnlen trans_len)
|
||||
/* Subroutine */ int dorml2_(char *side, char *trans, integer *m, integer *n,
|
||||
integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
|
||||
c__, integer *ldc, doublereal *work, integer *info, ftnlen side_len,
|
||||
ftnlen trans_len)
|
||||
{
|
||||
/* System generated locals */
|
||||
integer a_dim1, a_offset, c_dim1, c_offset, i__1, i__2;
|
||||
@ -187,9 +187,9 @@ f"> */
|
||||
integer i__, i1, i2, i3, ic, jc, mi, ni, nq;
|
||||
doublereal aii;
|
||||
logical left;
|
||||
extern /* Subroutine */ int dlarf_(char *, integer *, integer *,
|
||||
doublereal *, integer *, doublereal *, doublereal *, integer *,
|
||||
doublereal *, ftnlen);
|
||||
extern /* Subroutine */ int dlarf_(char *, integer *, integer *,
|
||||
doublereal *, integer *, doublereal *, doublereal *, integer *,
|
||||
doublereal *, ftnlen);
|
||||
extern logical lsame_(char *, char *, ftnlen, ftnlen);
|
||||
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
|
||||
logical notran;
|
||||
@ -238,79 +238,79 @@ f"> */
|
||||
/* NQ is the order of Q */
|
||||
|
||||
if (left) {
|
||||
nq = *m;
|
||||
nq = *m;
|
||||
} else {
|
||||
nq = *n;
|
||||
nq = *n;
|
||||
}
|
||||
if (! left && ! lsame_(side, (char *)"R", (ftnlen)1, (ftnlen)1)) {
|
||||
*info = -1;
|
||||
*info = -1;
|
||||
} else if (! notran && ! lsame_(trans, (char *)"T", (ftnlen)1, (ftnlen)1)) {
|
||||
*info = -2;
|
||||
*info = -2;
|
||||
} else if (*m < 0) {
|
||||
*info = -3;
|
||||
*info = -3;
|
||||
} else if (*n < 0) {
|
||||
*info = -4;
|
||||
*info = -4;
|
||||
} else if (*k < 0 || *k > nq) {
|
||||
*info = -5;
|
||||
*info = -5;
|
||||
} else if (*lda < max(1,*k)) {
|
||||
*info = -7;
|
||||
*info = -7;
|
||||
} else if (*ldc < max(1,*m)) {
|
||||
*info = -10;
|
||||
*info = -10;
|
||||
}
|
||||
if (*info != 0) {
|
||||
i__1 = -(*info);
|
||||
xerbla_((char *)"DORML2", &i__1, (ftnlen)6);
|
||||
return 0;
|
||||
i__1 = -(*info);
|
||||
xerbla_((char *)"DORML2", &i__1, (ftnlen)6);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* Quick return if possible */
|
||||
|
||||
if (*m == 0 || *n == 0 || *k == 0) {
|
||||
return 0;
|
||||
return 0;
|
||||
}
|
||||
|
||||
if (left && notran || ! left && ! notran) {
|
||||
i1 = 1;
|
||||
i2 = *k;
|
||||
i3 = 1;
|
||||
i1 = 1;
|
||||
i2 = *k;
|
||||
i3 = 1;
|
||||
} else {
|
||||
i1 = *k;
|
||||
i2 = 1;
|
||||
i3 = -1;
|
||||
i1 = *k;
|
||||
i2 = 1;
|
||||
i3 = -1;
|
||||
}
|
||||
|
||||
if (left) {
|
||||
ni = *n;
|
||||
jc = 1;
|
||||
ni = *n;
|
||||
jc = 1;
|
||||
} else {
|
||||
mi = *m;
|
||||
ic = 1;
|
||||
mi = *m;
|
||||
ic = 1;
|
||||
}
|
||||
|
||||
i__1 = i2;
|
||||
i__2 = i3;
|
||||
for (i__ = i1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
|
||||
if (left) {
|
||||
if (left) {
|
||||
|
||||
/* H(i) is applied to C(i:m,1:n) */
|
||||
|
||||
mi = *m - i__ + 1;
|
||||
ic = i__;
|
||||
} else {
|
||||
mi = *m - i__ + 1;
|
||||
ic = i__;
|
||||
} else {
|
||||
|
||||
/* H(i) is applied to C(1:m,i:n) */
|
||||
|
||||
ni = *n - i__ + 1;
|
||||
jc = i__;
|
||||
}
|
||||
ni = *n - i__ + 1;
|
||||
jc = i__;
|
||||
}
|
||||
|
||||
/* Apply H(i) */
|
||||
|
||||
aii = a[i__ + i__ * a_dim1];
|
||||
a[i__ + i__ * a_dim1] = 1.;
|
||||
dlarf_(side, &mi, &ni, &a[i__ + i__ * a_dim1], lda, &tau[i__], &c__[
|
||||
ic + jc * c_dim1], ldc, &work[1], (ftnlen)1);
|
||||
a[i__ + i__ * a_dim1] = aii;
|
||||
aii = a[i__ + i__ * a_dim1];
|
||||
a[i__ + i__ * a_dim1] = 1.;
|
||||
dlarf_(side, &mi, &ni, &a[i__ + i__ * a_dim1], lda, &tau[i__], &c__[
|
||||
ic + jc * c_dim1], ldc, &work[1], (ftnlen)1);
|
||||
a[i__ + i__ * a_dim1] = aii;
|
||||
/* L10: */
|
||||
}
|
||||
return 0;
|
||||
@ -320,5 +320,5 @@ f"> */
|
||||
} /* dorml2_ */
|
||||
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
}
|
||||
#endif
|
||||
|
||||
Reference in New Issue
Block a user