APPLYING INTEL PATCHES sent to Julie on Feb 19th 2016 by Dima from INTEL (dmitry...

Subject: [PATCH 05/42] Fix ?LASCL2, ?LARSCL, ?LASCL documentation - correctly describe LDX

diff --git a/SRC/clarscl2.f b/SRC/clarscl2.f
index ada9535c338ff4d4a913fe0598e11e4d7a4066be..b4f72bf60a7d517c9f71f793198b499d6e5f9f11 100644 (file)
--- a/SRC/clarscl2.f
+++ b/SRC/clarscl2.f
@@ -73,7 +73,7 @@
 *> \param[in] LDX
 *> \verbatim
 *>          LDX is INTEGER
-*>     The leading dimension of the vector X. LDX >= 0.
+*>     The leading dimension of the vector X. LDX >= M.
 *> \endverbatim
 *
 *  Authors:

diff --git a/SRC/clascl.f b/SRC/clascl.f
index a5ab897ba3845f02f943a87aa8f8415308d44960..9acfab5a4fa68a90c8c90483b0940b01b104460e 100644 (file)
--- a/SRC/clascl.f
+++ b/SRC/clascl.f
@@ -114,7 +114,11 @@
 *> \param[in] LDA
 *> \verbatim
 *>          LDA is INTEGER
-*>          The leading dimension of the array A.  LDA >= max(1,M).
+*>          The leading dimension of the array A.
+*>          If TYPE = 'G', 'L', 'U', 'H', LDA >= max(1,M);
+*>             TYPE = 'B', LDA >= KL+1;
+*>             TYPE = 'Q', LDA >= KU+1;
+*>             TYPE = 'Z', LDA >= 2*KL+KU+1.
 *> \endverbatim
 *>
 *> \param[out] INFO

diff --git a/SRC/clascl2.f b/SRC/clascl2.f
index f45f85e183b306e7811a921e69efa89935c6e05d..69fc9b8ddf83084f57c89bda43402e24ae7d6e6b 100644 (file)
--- a/SRC/clascl2.f
+++ b/SRC/clascl2.f
@@ -73,7 +73,7 @@
 *> \param[in] LDX
 *> \verbatim
 *>          LDX is INTEGER
-*>     The leading dimension of the vector X. LDX >= 0.
+*>     The leading dimension of the vector X. LDX >= M.
 *> \endverbatim
 *
 *  Authors:

diff --git a/SRC/dlarscl2.f b/SRC/dlarscl2.f
index 81f5aa813986274bf746616b6383e45adb632ef8..d66e94f8dd3daf7a4736367cf18b36660b966915 100644 (file)
--- a/SRC/dlarscl2.f
+++ b/SRC/dlarscl2.f
@@ -72,7 +72,7 @@
 *> \param[in] LDX
 *> \verbatim
 *>          LDX is INTEGER
-*>     The leading dimension of the vector X. LDX >= 0.
+*>     The leading dimension of the vector X. LDX >= M.
 *> \endverbatim
 *
 *  Authors:

diff --git a/SRC/dlascl.f b/SRC/dlascl.f
index 9b9b33c0c1482888394180502b453a93f62e8c26..ba26392a91aba0104c7fcaa54c388ede30e386ed 100644 (file)
--- a/SRC/dlascl.f
+++ b/SRC/dlascl.f
@@ -114,7 +114,11 @@
 *> \param[in] LDA
 *> \verbatim
 *>          LDA is INTEGER
-*>          The leading dimension of the array A.  LDA >= max(1,M).
+*>          The leading dimension of the array A.
+*>          If TYPE = 'G', 'L', 'U', 'H', LDA >= max(1,M);
+*>             TYPE = 'B', LDA >= KL+1;
+*>             TYPE = 'Q', LDA >= KU+1;
+*>             TYPE = 'Z', LDA >= 2*KL+KU+1.
 *> \endverbatim
 *>
 *> \param[out] INFO

diff --git a/SRC/dlascl2.f b/SRC/dlascl2.f
index 8cd9dd72c8c626113fd2ddec8d9741ba38cbde6e..c24b0b5cad28de8ce93ca70c3a4b5fb731eecb6f 100644 (file)
--- a/SRC/dlascl2.f
+++ b/SRC/dlascl2.f
@@ -72,7 +72,7 @@
 *> \param[in] LDX
 *> \verbatim
 *>          LDX is INTEGER
-*>     The leading dimension of the vector X. LDX >= 0.
+*>     The leading dimension of the vector X. LDX >= M.
 *> \endverbatim
 *
 *  Authors:

diff --git a/SRC/slarscl2.f b/SRC/slarscl2.f
index df7ede2c8b512201b44598275b859645477711ea..bd454ac55f2d483455f7dafedec03b8cf796a4d2 100644 (file)
--- a/SRC/slarscl2.f
+++ b/SRC/slarscl2.f
@@ -72,7 +72,7 @@
 *> \param[in] LDX
 *> \verbatim
 *>          LDX is INTEGER
-*>     The leading dimension of the vector X. LDX >= 0.
+*>     The leading dimension of the vector X. LDX >= M.
 *> \endverbatim
 *
 *  Authors:

diff --git a/SRC/slascl.f b/SRC/slascl.f
index bacf86ed49a8e984fb358ccad4855bc11750ef9d..cdc8ca83ba2ee616e9b7240428d1b3d81a25ce67 100644 (file)
--- a/SRC/slascl.f
+++ b/SRC/slascl.f
@@ -114,7 +114,11 @@
 *> \param[in] LDA
 *> \verbatim
 *>          LDA is INTEGER
-*>          The leading dimension of the array A.  LDA >= max(1,M).
+*>          The leading dimension of the array A.
+*>          If TYPE = 'G', 'L', 'U', 'H', LDA >= max(1,M);
+*>             TYPE = 'B', LDA >= KL+1;
+*>             TYPE = 'Q', LDA >= KU+1;
+*>             TYPE = 'Z', LDA >= 2*KL+KU+1.
 *> \endverbatim
 *>
 *> \param[out] INFO

diff --git a/SRC/slascl2.f b/SRC/slascl2.f
index a44a3c8fddb5ffec80639451529fd8e3b8485084..37643dadbb55f0e1ec5c5e8bbf45c112486050f9 100644 (file)
--- a/SRC/slascl2.f
+++ b/SRC/slascl2.f
@@ -72,7 +72,7 @@
 *> \param[in] LDX
 *> \verbatim
 *>          LDX is INTEGER
-*>     The leading dimension of the vector X. LDX >= 0.
+*>     The leading dimension of the vector X. LDX >= M.
 *> \endverbatim
 *
 *  Authors:

diff --git a/SRC/zlarscl2.f b/SRC/zlarscl2.f
index b54f02c988a1befbc138ddafbfd8a87feae6faf7..3f9df4210da119ca0571a4c93f7a29377dad591d 100644 (file)
--- a/SRC/zlarscl2.f
+++ b/SRC/zlarscl2.f
@@ -73,7 +73,7 @@
 *> \param[in] LDX
 *> \verbatim
 *>          LDX is INTEGER
-*>     The leading dimension of the vector X. LDX >= 0.
+*>     The leading dimension of the vector X. LDX >= M.
 *> \endverbatim
 *
 *  Authors:

diff --git a/SRC/zlascl.f b/SRC/zlascl.f
index 51a4f0f61494c3507dde135c77a2efa21c1d8053..149148222ff02d40d81958fd006f95d634010e86 100644 (file)
--- a/SRC/zlascl.f
+++ b/SRC/zlascl.f
@@ -114,7 +114,11 @@
 *> \param[in] LDA
 *> \verbatim
 *>          LDA is INTEGER
-*>          The leading dimension of the array A.  LDA >= max(1,M).
+*>          The leading dimension of the array A.
+*>          If TYPE = 'G', 'L', 'U', 'H', LDA >= max(1,M);
+*>             TYPE = 'B', LDA >= KL+1;
+*>             TYPE = 'Q', LDA >= KU+1;
+*>             TYPE = 'Z', LDA >= 2*KL+KU+1.
 *> \endverbatim
 *>
 *> \param[out] INFO

diff --git a/SRC/zlascl2.f b/SRC/zlascl2.f
index eebdebb4da56360540527d5c18bed0b3ba359f73..e46f9836eee4fa31ea47013f3e3194355adfde69 100644 (file)
--- a/SRC/zlascl2.f
+++ b/SRC/zlascl2.f
@@ -73,7 +73,7 @@
 *> \param[in] LDX
 *> \verbatim
 *>          LDX is INTEGER
-*>     The leading dimension of the vector X. LDX >= 0.
+*>     The leading dimension of the vector X. LDX >= M.
 *> \endverbatim
 *
 *  Authors: