diff options
author | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2011-12-07 09:14:09 +0000 |
---|---|---|
committer | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2011-12-07 09:14:09 +0000 |
commit | ce40247db8693c3b38e75c94268ba53630cc86f0 (patch) | |
tree | c059af213736030c4022265e5d1c9b518f49b5d4 /SRC/dsytf2_rook.f | |
parent | 55d75b598ea7181ff26e4ea6306b2a6ee56ff854 (diff) | |
download | lapack-ce40247db8693c3b38e75c94268ba53630cc86f0.tar.gz lapack-ce40247db8693c3b38e75c94268ba53630cc86f0.tar.bz2 lapack-ce40247db8693c3b38e75c94268ba53630cc86f0.zip |
fixed comments in dsytf2_rook.f and ssytf2_rook.f
Diffstat (limited to 'SRC/dsytf2_rook.f')
-rw-r--r-- | SRC/dsytf2_rook.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/dsytf2_rook.f b/SRC/dsytf2_rook.f index 692e89b5..fe2920f8 100644 --- 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 ), |