summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHenning Thielemann <git@henning-thielemann.de>2017-06-06 19:21:15 +0200
committerHenning Thielemann <git@henning-thielemann.de>2017-06-06 19:21:15 +0200
commit6332fc984e60f9996ac58a8b5643a63a89962798 (patch)
tree4e2b2d5d2231334dc48fb53ecf772413d8ecbbe1
parent8a034babb0033c08de05662a6ed282a886dac2fc (diff)
downloadlapack-6332fc984e60f9996ac58a8b5643a63a89962798.tar.gz
lapack-6332fc984e60f9996ac58a8b5643a63a89962798.tar.bz2
lapack-6332fc984e60f9996ac58a8b5643a63a89962798.zip
xTGEX2, xTGEXC, xLASD0, xLASD3, SSYGVX, parameter comments: fix wrong LD's in leading dimensions
-rw-r--r--SRC/ctgex2.f2
-rw-r--r--SRC/ctgexc.f2
-rw-r--r--SRC/dlasd0.f4
-rw-r--r--SRC/dlasd3.f3
-rw-r--r--SRC/slasd0.f4
-rw-r--r--SRC/slasd3.f3
-rw-r--r--SRC/ssygvx.f2
-rw-r--r--SRC/stgex2.f2
-rw-r--r--SRC/stgexc.f2
-rw-r--r--SRC/ztgex2.f2
-rw-r--r--SRC/ztgexc.f2
11 files changed, 13 insertions, 15 deletions
diff --git a/SRC/ctgex2.f b/SRC/ctgex2.f
index 63ca4781..328b14a0 100644
--- a/SRC/ctgex2.f
+++ b/SRC/ctgex2.f
@@ -102,7 +102,7 @@
*>
*> \param[in,out] Q
*> \verbatim
-*> Q is COMPLEX array, dimension (LDZ,N)
+*> Q is COMPLEX array, dimension (LDQ,N)
*> If WANTQ = .TRUE, on entry, the unitary matrix Q. On exit,
*> the updated matrix Q.
*> Not referenced if WANTQ = .FALSE..
diff --git a/SRC/ctgexc.f b/SRC/ctgexc.f
index f6ccdcb9..8f6fe5c8 100644
--- a/SRC/ctgexc.f
+++ b/SRC/ctgexc.f
@@ -102,7 +102,7 @@
*>
*> \param[in,out] Q
*> \verbatim
-*> Q is COMPLEX array, dimension (LDZ,N)
+*> Q is COMPLEX array, dimension (LDQ,N)
*> On entry, if WANTQ = .TRUE., the unitary matrix Q.
*> On exit, the updated matrix Q.
*> If WANTQ = .FALSE., Q is not referenced.
diff --git a/SRC/dlasd0.f b/SRC/dlasd0.f
index 832481a4..f639f81c 100644
--- a/SRC/dlasd0.f
+++ b/SRC/dlasd0.f
@@ -81,7 +81,7 @@
*>
*> \param[out] U
*> \verbatim
-*> U is DOUBLE PRECISION array, dimension at least (LDQ, N)
+*> U is DOUBLE PRECISION array, dimension (LDU, N)
*> On exit, U contains the left singular vectors.
*> \endverbatim
*>
@@ -93,7 +93,7 @@
*>
*> \param[out] VT
*> \verbatim
-*> VT is DOUBLE PRECISION array, dimension at least (LDVT, M)
+*> VT is DOUBLE PRECISION array, dimension (LDVT, M)
*> On exit, VT**T contains the right singular vectors.
*> \endverbatim
*>
diff --git a/SRC/dlasd3.f b/SRC/dlasd3.f
index 57d0abd4..11be8872 100644
--- a/SRC/dlasd3.f
+++ b/SRC/dlasd3.f
@@ -94,8 +94,7 @@
*>
*> \param[out] Q
*> \verbatim
-*> Q is DOUBLE PRECISION array,
-*> dimension at least (LDQ,K).
+*> Q is DOUBLE PRECISION array, dimension (LDQ,K)
*> \endverbatim
*>
*> \param[in] LDQ
diff --git a/SRC/slasd0.f b/SRC/slasd0.f
index b3eb0735..60b05eb4 100644
--- a/SRC/slasd0.f
+++ b/SRC/slasd0.f
@@ -81,7 +81,7 @@
*>
*> \param[out] U
*> \verbatim
-*> U is REAL array, dimension at least (LDQ, N)
+*> U is REAL array, dimension (LDU, N)
*> On exit, U contains the left singular vectors.
*> \endverbatim
*>
@@ -93,7 +93,7 @@
*>
*> \param[out] VT
*> \verbatim
-*> VT is REAL array, dimension at least (LDVT, M)
+*> VT is REAL array, dimension (LDVT, M)
*> On exit, VT**T contains the right singular vectors.
*> \endverbatim
*>
diff --git a/SRC/slasd3.f b/SRC/slasd3.f
index 6b1d0f00..f9b0c01d 100644
--- a/SRC/slasd3.f
+++ b/SRC/slasd3.f
@@ -94,8 +94,7 @@
*>
*> \param[out] Q
*> \verbatim
-*> Q is REAL array,
-*> dimension at least (LDQ,K).
+*> Q is REAL array, dimension (LDQ,K)
*> \endverbatim
*>
*> \param[in] LDQ
diff --git a/SRC/ssygvx.f b/SRC/ssygvx.f
index 2982e172..0e8f6515 100644
--- a/SRC/ssygvx.f
+++ b/SRC/ssygvx.f
@@ -110,7 +110,7 @@
*>
*> \param[in,out] B
*> \verbatim
-*> B is REAL array, dimension (LDA, N)
+*> B is REAL array, dimension (LDB, N)
*> On entry, the symmetric matrix B. If UPLO = 'U', the
*> leading N-by-N upper triangular part of B contains the
*> upper triangular part of the matrix B. If UPLO = 'L',
diff --git a/SRC/stgex2.f b/SRC/stgex2.f
index d7795b14..7fb67fcc 100644
--- a/SRC/stgex2.f
+++ b/SRC/stgex2.f
@@ -103,7 +103,7 @@
*>
*> \param[in,out] Q
*> \verbatim
-*> Q is REAL array, dimension (LDZ,N)
+*> Q is REAL array, dimension (LDQ,N)
*> On entry, if WANTQ = .TRUE., the orthogonal matrix Q.
*> On exit, the updated matrix Q.
*> Not referenced if WANTQ = .FALSE..
diff --git a/SRC/stgexc.f b/SRC/stgexc.f
index a1d9dbb5..0bfda7ff 100644
--- a/SRC/stgexc.f
+++ b/SRC/stgexc.f
@@ -111,7 +111,7 @@
*>
*> \param[in,out] Q
*> \verbatim
-*> Q is REAL array, dimension (LDZ,N)
+*> Q is REAL array, dimension (LDQ,N)
*> On entry, if WANTQ = .TRUE., the orthogonal matrix Q.
*> On exit, the updated matrix Q.
*> If WANTQ = .FALSE., Q is not referenced.
diff --git a/SRC/ztgex2.f b/SRC/ztgex2.f
index 3f484285..593bc247 100644
--- a/SRC/ztgex2.f
+++ b/SRC/ztgex2.f
@@ -102,7 +102,7 @@
*>
*> \param[in,out] Q
*> \verbatim
-*> Q is COMPLEX*16 array, dimension (LDZ,N)
+*> Q is COMPLEX*16 array, dimension (LDQ,N)
*> If WANTQ = .TRUE, on entry, the unitary matrix Q. On exit,
*> the updated matrix Q.
*> Not referenced if WANTQ = .FALSE..
diff --git a/SRC/ztgexc.f b/SRC/ztgexc.f
index cb7b5229..d5d27a92 100644
--- a/SRC/ztgexc.f
+++ b/SRC/ztgexc.f
@@ -102,7 +102,7 @@
*>
*> \param[in,out] Q
*> \verbatim
-*> Q is COMPLEX*16 array, dimension (LDZ,N)
+*> Q is COMPLEX*16 array, dimension (LDQ,N)
*> On entry, if WANTQ = .TRUE., the unitary matrix Q.
*> On exit, the updated matrix Q.
*> If WANTQ = .FALSE., Q is not referenced.