diff options
| author | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2011-12-07 09:19:33 +0000 |
|---|---|---|
| committer | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2011-12-07 09:19:33 +0000 |
| commit | b81e2cec0aab9d26fa9f1674b294c8fea17ac501 (patch) | |
| tree | d6eebff8a618f2e5a8389afd88150d66999a7c18 /SRC/dlasyf_rook.f | |
| parent | ce40247db8693c3b38e75c94268ba53630cc86f0 (diff) | |
fixed comments in dlasyf_rook.f and slasyf_rook.f
Diffstat (limited to 'SRC/dlasyf_rook.f')
| -rw-r--r-- | SRC/dlasyf_rook.f | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/SRC/dlasyf_rook.f b/SRC/dlasyf_rook.f index 96c3a347..f81f5c78 100644 --- a/SRC/dlasyf_rook.f +++ b/SRC/dlasyf_rook.f @@ -274,7 +274,8 @@ ABSAKK = ABS( W( K, KW ) ) * * IMAX is the row-index of the largest off-diagonal element in -* column K, and COLMAX is its absolute value +* column K, and COLMAX is its absolute value. +* Determine both COLMAX and IMAX. * IF( K.GT.1 ) THEN IMAX = IDAMAX( K-1, W( 1, KW ), 1 ) @@ -595,7 +596,8 @@ ABSAKK = ABS( W( K, K ) ) * * IMAX is the row-index of the largest off-diagonal element in -* column K, and COLMAX is its absolute value +* column K, and COLMAX is its absolute value. +* Determine both COLMAX and IMAX. * IF( K.LT.N ) THEN IMAX = K + IDAMAX( N-K, W( K+1, K ), 1 ) |