From d2fd43b59a367b3af291297d5e07bb8a2f787ef3 Mon Sep 17 00:00:00 2001
From: "philippe.theveny"
 <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971>
Date: Fri, 6 Feb 2015 20:42:31 +0000
Subject: [PATCH] Fix typo.

---
 SRC/slasd3.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SRC/slasd3.f b/SRC/slasd3.f
index 5833b654e..fcd39ad2b 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