diff options
Diffstat (limited to 'SRC')
| -rw-r--r-- | SRC/claqr5.f | 4 | ||||
| -rw-r--r-- | SRC/dlaqr5.f | 4 | ||||
| -rw-r--r-- | SRC/slaqr5.f | 4 | ||||
| -rw-r--r-- | SRC/zlaqr5.f | 4 |
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 |