thru -> through

diff --git a/SRC/clarrv.f b/SRC/clarrv.f
index 0832ab7..9078905 100644 (file)
--- a/SRC/clarrv.f
+++ b/SRC/clarrv.f
@@ -439,8 +439,8 @@
 *                 within the current block
                   P = INDEXW( WBEGIN-1+OLDFST )
                   Q = INDEXW( WBEGIN-1+OLDLST )
-*                 Offset for the arrays WORK, WGAP and WERR, i.e., th P-OFFSET
-*                 thru' Q-OFFSET elements of these arrays are to be used.
+*                 Offset for the arrays WORK, WGAP and WERR, i.e., the P-OFFSET
+*                 through the Q-OFFSET elements of these arrays are to be used.
 C                  OFFSET = P-OLDFST
                   OFFSET = INDEXW( WBEGIN ) - 1
 *                 perform limited bisection (if necessary) to get approximate

diff --git a/SRC/dlaeda.f b/SRC/dlaeda.f
index 7c02f2a..333db84 100644 (file)
--- a/SRC/dlaeda.f
+++ b/SRC/dlaeda.f
@@ -154,7 +154,7 @@
          Z( K ) = ZERO
    20 CONTINUE
 *
-*     Loop thru remaining levels 1 -> CURLVL applying the Givens
+*     Loop through remaining levels 1 -> CURLVL applying the Givens
 *     rotations and permutation and then multiplying the center matrices
 *     against the current Z.
 *

diff --git a/SRC/dlarrv.f b/SRC/dlarrv.f
index 782fcb4..f228842 100644 (file)
--- a/SRC/dlarrv.f
+++ b/SRC/dlarrv.f
@@ -429,8 +429,8 @@
 *                 within the current block
                   P = INDEXW( WBEGIN-1+OLDFST )
                   Q = INDEXW( WBEGIN-1+OLDLST )
-*                 Offset for the arrays WORK, WGAP and WERR, i.e., th P-OFFSET
-*                 thru' Q-OFFSET elements of these arrays are to be used.
+*                 Offset for the arrays WORK, WGAP and WERR, i.e., the P-OFFSET
+*                 through the Q-OFFSET elements of these arrays are to be used.
 C                  OFFSET = P-OLDFST
                   OFFSET = INDEXW( WBEGIN ) - 1
 *                 perform limited bisection (if necessary) to get approximate

diff --git a/SRC/slaeda.f b/SRC/slaeda.f
index 79b8798..9a25a32 100644 (file)
--- a/SRC/slaeda.f
+++ b/SRC/slaeda.f
@@ -154,7 +154,7 @@
          Z( K ) = ZERO
    20 CONTINUE
 *
-*     Loop thru remaining levels 1 -> CURLVL applying the Givens
+*     Loop through remaining levels 1 -> CURLVL applying the Givens
 *     rotations and permutation and then multiplying the center matrices
 *     against the current Z.
 *

diff --git a/SRC/slarrv.f b/SRC/slarrv.f
index 8327417..878d90c 100644 (file)
--- a/SRC/slarrv.f
+++ b/SRC/slarrv.f
@@ -429,8 +429,8 @@
 *                 within the current block
                   P = INDEXW( WBEGIN-1+OLDFST )
                   Q = INDEXW( WBEGIN-1+OLDLST )
-*                 Offset for the arrays WORK, WGAP and WERR, i.e., th P-OFFSET
-*                 thru' Q-OFFSET elements of these arrays are to be used.
+*                 Offset for the arrays WORK, WGAP and WERR, i.e., the P-OFFSET
+*                 through the Q-OFFSET elements of these arrays are to be used.
 C                  OFFSET = P-OLDFST
                   OFFSET = INDEXW( WBEGIN ) - 1
 *                 perform limited bisection (if necessary) to get approximate

diff --git a/SRC/zlarrv.f b/SRC/zlarrv.f
index 20fa765..ee0f474 100644 (file)
--- a/SRC/zlarrv.f
+++ b/SRC/zlarrv.f
@@ -439,8 +439,8 @@
 *                 within the current block
                   P = INDEXW( WBEGIN-1+OLDFST )
                   Q = INDEXW( WBEGIN-1+OLDLST )
-*                 Offset for the arrays WORK, WGAP and WERR, i.e., th P-OFFSET
-*                 thru' Q-OFFSET elements of these arrays are to be used.
+*                 Offset for the arrays WORK, WGAP and WERR, i.e., the P-OFFSET
+*                 through the Q-OFFSET elements of these arrays are to be used.
 C                  OFFSET = P-OLDFST
                   OFFSET = INDEXW( WBEGIN ) - 1
 *                 perform limited bisection (if necessary) to get approximate