diff options
| -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 |