diff options
author | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-02-06 20:42:31 +0000 |
---|---|---|
committer | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-02-06 20:42:31 +0000 |
commit | d2fd43b59a367b3af291297d5e07bb8a2f787ef3 (patch) | |
tree | bb21f436791bbd8475be0d00586ac318b930bd7d | |
parent | 2cbabfbc388056bcf3a8aaff0a977deea8f6b3c2 (diff) | |
download | lapack-d2fd43b59a367b3af291297d5e07bb8a2f787ef3.tar.gz lapack-d2fd43b59a367b3af291297d5e07bb8a2f787ef3.tar.bz2 lapack-d2fd43b59a367b3af291297d5e07bb8a2f787ef3.zip |
Fix typo.
-rw-r--r-- | SRC/slasd3.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/slasd3.f b/SRC/slasd3.f index 5833b654..fcd39ad2 100644 --- a/SRC/slasd3.f +++ b/SRC/slasd3.f @@ -351,7 +351,7 @@ CALL SLASD4( K, J, DSIGMA, Z, U( 1, J ), RHO, D( J ), $ VT( 1, J ), INFO ) * -* If the zero finder fails, report convergence the failure. +* If the zero finder fails, report the convergence failure. * IF( INFO.NE.0 ) THEN RETURN |