summaryrefslogtreecommitdiff
path: root/SRC
diff options
context:
space:
mode:
authorHenning Thielemann <git@henning-thielemann.de>2017-06-03 17:34:46 +0200
committerHenning Thielemann <git@henning-thielemann.de>2017-06-03 17:34:46 +0200
commit365d50cf708e3e0fa3d9096076ee64e80a67e2d3 (patch)
treee34e212881fd76404634bfcd852aac6482fba4f2 /SRC
parentd920de192cb388beacd750fc972397e8c27c4a0d (diff)
downloadlapack-365d50cf708e3e0fa3d9096076ee64e80a67e2d3.tar.gz
lapack-365d50cf708e3e0fa3d9096076ee64e80a67e2d3.tar.bz2
lapack-365d50cf708e3e0fa3d9096076ee64e80a67e2d3.zip
xLAQR5; WANTT, WANTZ parameters: logical scalar -> LOGICAL
Diffstat (limited to 'SRC')
-rw-r--r--SRC/claqr5.f4
-rw-r--r--SRC/dlaqr5.f4
-rw-r--r--SRC/slaqr5.f4
-rw-r--r--SRC/zlaqr5.f4
4 files changed, 8 insertions, 8 deletions
diff --git a/SRC/claqr5.f b/SRC/claqr5.f
index 194904b0..5b88d7c4 100644
--- a/SRC/claqr5.f
+++ b/SRC/claqr5.f
@@ -47,14 +47,14 @@
*
*> \param[in] WANTT
*> \verbatim
-*> WANTT is logical scalar
+*> WANTT is LOGICAL
*> WANTT = .true. if the triangular Schur factor
*> is being computed. WANTT is set to .false. otherwise.
*> \endverbatim
*>
*> \param[in] WANTZ
*> \verbatim
-*> WANTZ is logical scalar
+*> WANTZ is LOGICAL
*> WANTZ = .true. if the unitary Schur factor is being
*> computed. WANTZ is set to .false. otherwise.
*> \endverbatim
diff --git a/SRC/dlaqr5.f b/SRC/dlaqr5.f
index 56435f7c..a5a49610 100644
--- a/SRC/dlaqr5.f
+++ b/SRC/dlaqr5.f
@@ -48,14 +48,14 @@
*
*> \param[in] WANTT
*> \verbatim
-*> WANTT is logical scalar
+*> WANTT is LOGICAL
*> WANTT = .true. if the quasi-triangular Schur factor
*> is being computed. WANTT is set to .false. otherwise.
*> \endverbatim
*>
*> \param[in] WANTZ
*> \verbatim
-*> WANTZ is logical scalar
+*> WANTZ is LOGICAL
*> WANTZ = .true. if the orthogonal Schur factor is being
*> computed. WANTZ is set to .false. otherwise.
*> \endverbatim
diff --git a/SRC/slaqr5.f b/SRC/slaqr5.f
index 6a007134..59692bd0 100644
--- a/SRC/slaqr5.f
+++ b/SRC/slaqr5.f
@@ -48,14 +48,14 @@
*
*> \param[in] WANTT
*> \verbatim
-*> WANTT is logical scalar
+*> WANTT is LOGICAL
*> WANTT = .true. if the quasi-triangular Schur factor
*> is being computed. WANTT is set to .false. otherwise.
*> \endverbatim
*>
*> \param[in] WANTZ
*> \verbatim
-*> WANTZ is logical scalar
+*> WANTZ is LOGICAL
*> WANTZ = .true. if the orthogonal Schur factor is being
*> computed. WANTZ is set to .false. otherwise.
*> \endverbatim
diff --git a/SRC/zlaqr5.f b/SRC/zlaqr5.f
index 08b1de5f..422d7b21 100644
--- a/SRC/zlaqr5.f
+++ b/SRC/zlaqr5.f
@@ -47,14 +47,14 @@
*
*> \param[in] WANTT
*> \verbatim
-*> WANTT is logical scalar
+*> WANTT is LOGICAL
*> WANTT = .true. if the triangular Schur factor
*> is being computed. WANTT is set to .false. otherwise.
*> \endverbatim
*>
*> \param[in] WANTZ
*> \verbatim
-*> WANTZ is logical scalar
+*> WANTZ is LOGICAL
*> WANTZ = .true. if the unitary Schur factor is being
*> computed. WANTZ is set to .false. otherwise.
*> \endverbatim