From 08dc990e598bc8e2d8ac54c722cfb9d1ab87939c Mon Sep 17 00:00:00 2001 From: "weslley.spereira" Date: Thu, 3 Jun 2021 12:47:30 -0300 Subject: [PATCH 1/2] Improves the comments in LAPY2 and LAPY3 routines --- SRC/dlapy2.f | 2 +- SRC/dlapy3.f | 2 +- SRC/slapy2.f | 2 +- SRC/slapy3.f | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/SRC/dlapy2.f b/SRC/dlapy2.f index 066a11028d..748a7a89bc 100644 --- a/SRC/dlapy2.f +++ b/SRC/dlapy2.f @@ -31,7 +31,7 @@ *> \verbatim *> *> DLAPY2 returns sqrt(x**2+y**2), taking care not to cause unnecessary -*> overflow. +*> overflow and unnecessary underflow. *> \endverbatim * * Arguments: diff --git a/SRC/dlapy3.f b/SRC/dlapy3.f index 3d356822f3..b0f5160fef 100644 --- a/SRC/dlapy3.f +++ b/SRC/dlapy3.f @@ -31,7 +31,7 @@ *> \verbatim *> *> DLAPY3 returns sqrt(x**2+y**2+z**2), taking care not to cause -*> unnecessary overflow. +*> unnecessary overflow and unnecessary underflow. *> \endverbatim * * Arguments: diff --git a/SRC/slapy2.f b/SRC/slapy2.f index 98863767fc..0f05200026 100644 --- a/SRC/slapy2.f +++ b/SRC/slapy2.f @@ -31,7 +31,7 @@ *> \verbatim *> *> SLAPY2 returns sqrt(x**2+y**2), taking care not to cause unnecessary -*> overflow. +*> overflow and unnecessary underflow. *> \endverbatim * * Arguments: diff --git a/SRC/slapy3.f b/SRC/slapy3.f index c0e01d051f..76335fd161 100644 --- a/SRC/slapy3.f +++ b/SRC/slapy3.f @@ -31,7 +31,7 @@ *> \verbatim *> *> SLAPY3 returns sqrt(x**2+y**2+z**2), taking care not to cause -*> unnecessary overflow. +*> unnecessary overflow and unnecessary underflow. *> \endverbatim * * Arguments: From 8fca89b636dea313ec3a8b7099d786e3ee053839 Mon Sep 17 00:00:00 2001 From: "weslley.spereira" Date: Fri, 4 Jun 2021 12:38:12 -0300 Subject: [PATCH 2/2] fixes comments in GELQT3 thanks to @hokb --- SRC/cgelqt3.f | 2 +- SRC/dgelqt3.f | 2 +- SRC/sgelqt3.f | 2 +- SRC/zgelqt3.f | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/SRC/cgelqt3.f b/SRC/cgelqt3.f index c051a56d6d..1dfbd3f2b1 100644 --- a/SRC/cgelqt3.f +++ b/SRC/cgelqt3.f @@ -157,7 +157,7 @@ RECURSIVE SUBROUTINE CGELQT3( M, N, A, LDA, T, LDT, INFO ) * IF( M.EQ.1 ) THEN * -* Compute Householder transform when N=1 +* Compute Householder transform when M=1 * CALL CLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T ) T(1,1)=CONJG(T(1,1)) diff --git a/SRC/dgelqt3.f b/SRC/dgelqt3.f index f31667d32a..5bcc06a80f 100644 --- a/SRC/dgelqt3.f +++ b/SRC/dgelqt3.f @@ -171,7 +171,7 @@ RECURSIVE SUBROUTINE DGELQT3( M, N, A, LDA, T, LDT, INFO ) * IF( M.EQ.1 ) THEN * -* Compute Householder transform when N=1 +* Compute Householder transform when M=1 * CALL DLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T ) * diff --git a/SRC/sgelqt3.f b/SRC/sgelqt3.f index bc291ee587..23816b4c89 100644 --- a/SRC/sgelqt3.f +++ b/SRC/sgelqt3.f @@ -156,7 +156,7 @@ RECURSIVE SUBROUTINE SGELQT3( M, N, A, LDA, T, LDT, INFO ) * IF( M.EQ.1 ) THEN * -* Compute Householder transform when N=1 +* Compute Householder transform when M=1 * CALL SLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T ) * diff --git a/SRC/zgelqt3.f b/SRC/zgelqt3.f index 87997d1d81..629a09472d 100644 --- a/SRC/zgelqt3.f +++ b/SRC/zgelqt3.f @@ -172,7 +172,7 @@ RECURSIVE SUBROUTINE ZGELQT3( M, N, A, LDA, T, LDT, INFO ) * IF( M.EQ.1 ) THEN * -* Compute Householder transform when N=1 +* Compute Householder transform when M=1 * CALL ZLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T ) T(1,1)=CONJG(T(1,1))