Adding a hint on the data storage required for band matrices in xLASCL.

diff --git a/SRC/clascl.f b/SRC/clascl.f
index 1b8b8e8..628987c 100644 (file)
--- a/SRC/clascl.f
+++ b/SRC/clascl.f
@@ -39,7 +39,7 @@
 *                  and upper bandwidth KU and with the only the upper
 *                  half stored.
 *          = 'Z':  A is a band matrix with lower bandwidth KL and upper
-*                  bandwidth KU.
+*                  bandwidth KU. See CGBTRF for storage details.
 *
 *  KL      (input) INTEGER
 *          The lower bandwidth of A.  Referenced only if TYPE = 'B',

diff --git a/SRC/dlascl.f b/SRC/dlascl.f
index 7cafd73..ca7fbeb 100644 (file)
--- a/SRC/dlascl.f
+++ b/SRC/dlascl.f
@@ -39,7 +39,7 @@
 *                  and upper bandwidth KU and with the only the upper
 *                  half stored.
 *          = 'Z':  A is a band matrix with lower bandwidth KL and upper
-*                  bandwidth KU.
+*                  bandwidth KU. See DGBTRF for storage details.
 *
 *  KL      (input) INTEGER
 *          The lower bandwidth of A.  Referenced only if TYPE = 'B',

diff --git a/SRC/slascl.f b/SRC/slascl.f
index 847948d..3c97efe 100644 (file)
--- a/SRC/slascl.f
+++ b/SRC/slascl.f
@@ -39,7 +39,7 @@
 *                  and upper bandwidth KU and with the only the upper
 *                  half stored.
 *          = 'Z':  A is a band matrix with lower bandwidth KL and upper
-*                  bandwidth KU.
+*                  bandwidth KU. See SGBTRF for storage details.
 *
 *  KL      (input) INTEGER
 *          The lower bandwidth of A.  Referenced only if TYPE = 'B',

diff --git a/SRC/zlascl.f b/SRC/zlascl.f
index d06eaf3..c32a664 100644 (file)
--- a/SRC/zlascl.f
+++ b/SRC/zlascl.f
@@ -39,7 +39,7 @@
 *                  and upper bandwidth KU and with the only the upper
 *                  half stored.
 *          = 'Z':  A is a band matrix with lower bandwidth KL and upper
-*                  bandwidth KU.
+*                  bandwidth KU. See ZGBTRF for storage details.
 *
 *  KL      (input) INTEGER
 *          The lower bandwidth of A.  Referenced only if TYPE = 'B',