diff options
Diffstat (limited to 'SRC/clasyf.f')
-rw-r--r-- | SRC/clasyf.f | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/SRC/clasyf.f b/SRC/clasyf.f index c091dfd5..6dd8c07d 100644 --- a/SRC/clasyf.f +++ b/SRC/clasyf.f @@ -266,7 +266,8 @@ ABSAKK = CABS1( 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 = ICAMAX( K-1, W( 1, KW ), 1 ) @@ -277,7 +278,7 @@ * IF( MAX( ABSAKK, COLMAX ).EQ.ZERO ) THEN * -* Column K is zero: set INFO and continue +* Column K is zero or underflow: set INFO and continue * IF( INFO.EQ.0 ) $ INFO = K @@ -561,7 +562,8 @@ ABSAKK = CABS1( 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 + ICAMAX( N-K, W( K+1, K ), 1 ) @@ -572,7 +574,7 @@ * IF( MAX( ABSAKK, COLMAX ).EQ.ZERO ) THEN * -* Column K is zero: set INFO and continue +* Column K is zero or underflow: set INFO and continue * IF( INFO.EQ.0 ) $ INFO = K |