fixes comments in GELQT3 thanks to @hokb

chrwarm · Jun 4, 2021 · 8fca89b · 8fca89b
1 parent 08dc990
commit 8fca89b
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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))