xTGEX2, xTGEXC, xLASD0, xLASD3, SSYGVX, parameter comments: fix wrong LD's in leading...

diff --git a/SRC/ctgex2.f b/SRC/ctgex2.f
index 63ca478..328b14a 100644 (file)
--- 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 f6ccdcb..8f6fe5c 100644 (file)
--- 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 832481a..f639f81 100644 (file)
--- 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 57d0abd..11be887 100644 (file)
--- 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 b3eb073..60b05eb 100644 (file)
--- 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 6b1d0f0..f9b0c01 100644 (file)
--- 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 2982e17..0e8f651 100644 (file)
--- 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 d7795b1..7fb67fc 100644 (file)
--- 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 a1d9dbb..0bfda7f 100644 (file)
--- 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 3f48428..593bc24 100644 (file)
--- 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 cb7b522..d5d27a9 100644 (file)
--- 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.