From 8fca89b636dea313ec3a8b7099d786e3ee053839 Mon Sep 17 00:00:00 2001 From: "weslley.spereira" Date: Fri, 4 Jun 2021 12:38:12 -0300 Subject: [PATCH] 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))