diff options
-rw-r--r-- | SRC/clarscl2.f | 2 | ||||
-rw-r--r-- | SRC/clascl.f | 6 | ||||
-rw-r--r-- | SRC/clascl2.f | 2 | ||||
-rw-r--r-- | SRC/dlarscl2.f | 2 | ||||
-rw-r--r-- | SRC/dlascl.f | 6 | ||||
-rw-r--r-- | SRC/dlascl2.f | 2 | ||||
-rw-r--r-- | SRC/slarscl2.f | 2 | ||||
-rw-r--r-- | SRC/slascl.f | 6 | ||||
-rw-r--r-- | SRC/slascl2.f | 2 | ||||
-rw-r--r-- | SRC/zlarscl2.f | 2 | ||||
-rw-r--r-- | SRC/zlascl.f | 6 | ||||
-rw-r--r-- | SRC/zlascl2.f | 2 |
12 files changed, 28 insertions, 12 deletions
diff --git a/SRC/clarscl2.f b/SRC/clarscl2.f index ada9535c..b4f72bf6 100644 --- 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 a5ab897b..9acfab5a 100644 --- 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 f45f85e1..69fc9b8d 100644 --- 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 81f5aa81..d66e94f8 100644 --- 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 9b9b33c0..ba26392a 100644 --- 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 8cd9dd72..c24b0b5c 100644 --- 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 df7ede2c..bd454ac5 100644 --- 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 bacf86ed..cdc8ca83 100644 --- 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 a44a3c8f..37643dad 100644 --- 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 b54f02c9..3f9df421 100644 --- 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 51a4f0f6..14914822 100644 --- 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 eebdebb4..e46f9836 100644 --- 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: |