fixed comments in dsytf2_rook.f and ssytf2_rook.f

diff --git a/SRC/dsytf2_rook.f b/SRC/dsytf2_rook.f
index 692e89b..fe2920f 100644 (file)
--- a/SRC/dsytf2_rook.f
+++ b/SRC/dsytf2_rook.f
@@ -327,8 +327,8 @@
 *                 Begin pivot search loop body
 *
 *                 JMAX is the column-index of the largest off-diagonal
-*                 element in row IMAX, and ROWMAX is its absolute value
-*                 Determine only ROWMAX.
+*                 element in row IMAX, and ROWMAX is its absolute value.
+*                 Determine both ROWMAX and JMAX.
 *
                   IF( IMAX.NE.K ) THEN
                      JMAX = IMAX + IDAMAX( K-IMAX, A( IMAX, IMAX+1 ),

diff --git a/SRC/ssytf2_rook.f b/SRC/ssytf2_rook.f
index 1a60390..c8e063f 100644 (file)
--- a/SRC/ssytf2_rook.f
+++ b/SRC/ssytf2_rook.f
@@ -327,8 +327,8 @@
 *                 Begin pivot search loop body
 *
 *                 JMAX is the column-index of the largest off-diagonal
-*                 element in row IMAX, and ROWMAX is its absolute value
-*                 Determine only ROWMAX.
+*                 element in row IMAX, and ROWMAX is its absolute value.
+*                 Determine both ROWMAX and JMAX.
 *
                   IF( IMAX.NE.K ) THEN
                      JMAX = IMAX + ISAMAX( K-IMAX, A( IMAX, IMAX+1 ),