fixed a typo in a comment in (c,z)lahef_rook.f

diff --git a/SRC/clahef_rook.f b/SRC/clahef_rook.f
index 820b56f..d696045 100644 (file)
--- a/SRC/clahef_rook.f
+++ b/SRC/clahef_rook.f
@@ -655,7 +655,7 @@
    50    CONTINUE
 *
 *        Put U12 in standard form by partially undoing the interchanges
-*        in of rows in columns k+1:n looping backwards from k+1 to 1
+*        in of rows in columns k+1:n looping backwards from k+1 to n
 *
          J = K + 1
    60    CONTINUE

diff --git a/SRC/zlahef_rook.f b/SRC/zlahef_rook.f
index b6626ea..dc729f1 100644 (file)
--- a/SRC/zlahef_rook.f
+++ b/SRC/zlahef_rook.f
@@ -655,7 +655,7 @@
    50    CONTINUE
 *
 *        Put U12 in standard form by partially undoing the interchanges
-*        in of rows in columns k+1:n looping backwards from k+1 to 1
+*        in of rows in columns k+1:n looping backwards from k+1 to n
 *
          J = K + 1
    60    CONTINUE