summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHenning Thielemann <git@henning-thielemann.de>2017-06-03 23:21:45 +0200
committerHenning Thielemann <git@henning-thielemann.de>2017-06-03 23:21:45 +0200
commit8a034babb0033c08de05662a6ed282a886dac2fc (patch)
tree5a43770463818f7fe5cff6e6109e4dce0bc85462
parent5283c5c153c0b99526183c13d175c47229de3068 (diff)
downloadlapack-8a034babb0033c08de05662a6ed282a886dac2fc.tar.gz
lapack-8a034babb0033c08de05662a6ed282a886dac2fc.tar.bz2
lapack-8a034babb0033c08de05662a6ed282a886dac2fc.zip
xLALSA, DLASDA; parameters WORK, IWORK: turn "at least" phrases into dimension specifications
-rw-r--r--SRC/clalsa.f3
-rw-r--r--SRC/dlalsa.f6
-rw-r--r--SRC/dlasda.f3
-rw-r--r--SRC/slalsa.f6
-rw-r--r--SRC/zlalsa.f3
5 files changed, 7 insertions, 14 deletions
diff --git a/SRC/clalsa.f b/SRC/clalsa.f
index 8a817924..a1b74c01 100644
--- a/SRC/clalsa.f
+++ b/SRC/clalsa.f
@@ -232,8 +232,7 @@
*>
*> \param[out] IWORK
*> \verbatim
-*> IWORK is INTEGER array.
-*> The dimension must be at least 3 * N
+*> IWORK is INTEGER array, dimension (3*N)
*> \endverbatim
*>
*> \param[out] INFO
diff --git a/SRC/dlalsa.f b/SRC/dlalsa.f
index 4aef66c9..72880496 100644
--- a/SRC/dlalsa.f
+++ b/SRC/dlalsa.f
@@ -227,14 +227,12 @@
*>
*> \param[out] WORK
*> \verbatim
-*> WORK is DOUBLE PRECISION array.
-*> The dimension must be at least N.
+*> WORK is DOUBLE PRECISION array, dimension (N)
*> \endverbatim
*>
*> \param[out] IWORK
*> \verbatim
-*> IWORK is INTEGER array.
-*> The dimension must be at least 3 * N
+*> IWORK is INTEGER array, dimension (3*N)
*> \endverbatim
*>
*> \param[out] INFO
diff --git a/SRC/dlasda.f b/SRC/dlasda.f
index 20ceedd0..c9c2aa17 100644
--- a/SRC/dlasda.f
+++ b/SRC/dlasda.f
@@ -239,8 +239,7 @@
*>
*> \param[out] IWORK
*> \verbatim
-*> IWORK is INTEGER array.
-*> Dimension must be at least (7 * N).
+*> IWORK is INTEGER array, dimension (7*N)
*> \endverbatim
*>
*> \param[out] INFO
diff --git a/SRC/slalsa.f b/SRC/slalsa.f
index 65707a15..5d82f33d 100644
--- a/SRC/slalsa.f
+++ b/SRC/slalsa.f
@@ -227,14 +227,12 @@
*>
*> \param[out] WORK
*> \verbatim
-*> WORK is REAL array.
-*> The dimension must be at least N.
+*> WORK is REAL array, dimension (N)
*> \endverbatim
*>
*> \param[out] IWORK
*> \verbatim
-*> IWORK is INTEGER array.
-*> The dimension must be at least 3 * N
+*> IWORK is INTEGER array, dimension (3*N)
*> \endverbatim
*>
*> \param[out] INFO
diff --git a/SRC/zlalsa.f b/SRC/zlalsa.f
index 6ad6cc5e..7d939c0a 100644
--- a/SRC/zlalsa.f
+++ b/SRC/zlalsa.f
@@ -232,8 +232,7 @@
*>
*> \param[out] IWORK
*> \verbatim
-*> IWORK is INTEGER array.
-*> The dimension must be at least 3 * N
+*> IWORK is INTEGER array, dimension (3*N)
*> \endverbatim
*>
*> \param[out] INFO