diff options
Diffstat (limited to 'SRC/zlasyf.f')
| -rw-r--r-- | SRC/zlasyf.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/zlasyf.f b/SRC/zlasyf.f index a50b8cf1..4cd32298 100644 --- a/SRC/zlasyf.f +++ b/SRC/zlasyf.f @@ -266,7 +266,7 @@ 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 + * IF( K.GT.1 ) THEN IMAX = IZAMAX( K-1, W( 1, KW ), 1 ) @@ -277,7 +277,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 +561,7 @@ 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 + * IF( K.LT.N ) THEN IMAX = K + IZAMAX( N-K, W( K+1, K ), 1 ) @@ -572,7 +572,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 |